Snasui Excel Forum

ขอบคุณมากครับอาจารย์ จะนำไปปรับใช้ครับ

Private Sub CommandButton1_Click()
    If Application.CountIf(Range("a:a"), TextBox1.Text) > 0 Then
        emptyRow = Application.Match(CLng(TextBox1.Text), Range("a:a"), 0)
    Else
        emptyRow = WorksheetFunction.CountA(Range("a:a")) + 1
    End If
    Cells(emptyRow, 1).Value = TextBox1.Value
    Cells(emptyRow, 2).Value = TextBox2.Value
    Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

:D ตัวอย่าง Code ครับ

[code]Private Sub CommandButton1_Click()
If Application.CountIf(Range("a:a"), TextBox1.Text) > 0 Then
emptyRow = Application.Match(CLng(TextBox1.Text), Range("a:a"), 0)
Else
emptyRow = WorksheetFunction.CountA(Range("a:a")) + 1
End If
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub[/code]

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub



Private Sub UserForm_Initialize()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

อันนี้โค้ดนะครับ

[code]Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub



Private Sub UserForm_Initialize()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
[/code]

คือผมแนบตัวอย่างไฟล์ให้ด้วยนะครับ

สิ่งที่ต้องการ

1.ผมอยากให้VBAมันรันเองตามตัวเลขสายที่บันทึกเลยได้ไหม โดยยึดเลขสายเป็นสำคัญ เช่น ผมจะบันทึกข้อมูลสาย 13 ก็ให้มันไปบันทึก

ที่สาย 13 เลย

คือปัจจุบันข้อมูลที่บันทึก มันไม่ได้มาเรียงกัน เช่นลำดับสาย 4 อาจจะมาก่อน ลำดับสาย 1 แต่ตามโค้ดที่เขียน มันบันทึกเรียงต่อกันลงมา

แต่เวลานำเสนอจริงๆ มันไม่สวย เลยต้องมาซ้อนVlookupเรียงกันใหม่

2.อยากได้โค้ดเพิ่ม เมื่อมีการลงข้อมูลซ้ำ โดยอยากให้ขึ้นเตือนว่า "ข้อมูลซ้ำ ต้องการบันทึกแทนที่หรือไม่" หากตอบใช่ ก็ให้บันทึกแทนข้อมูลเดิมไปเลย