Code VBA ต้องการใช้ Userform เรียกข้อมูลจากตารางมาแก้ไข แล้วบันทึกการแก้ไขลงไปในตาราง

[tigerwit]

จากไฟล์ที่แนบมา ต้องการใช้ frmcustumer เรียกข้อมูลร้านค้าจาก listbox1 ไปแสดงใน textbox (txtId ,txtname1 ,txtname1)
แล้วแก้ไขข้อความ ใน txtname1 หรือ txtname1 และบันทึกการแก้ไขนั้น
ต้องปรับ Code อย่างไรครับ

Code: Select all

Private Sub CommandButton4_Click()
Dim lastrow As Long
lastrow = Worksheets("custumer").Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To lastrow
        If Worksheets("custumer").Cells(i, 4).Value = txtId.Text Then
            Worksheets("custumer").Cells(i, 5).Value = txtcus1.Text
            Worksheets("custumer").Cells(i, 6).Value = txtcus2.Text
        End If
    Next
    With FrmCustumer
        .txtId.Value = ""
        .txtcus1.Value = ""
        .txtcus2.Value = ""
End With
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton4_Click()
    Dim lastrow As Long
    lastrow = Me.txtId.Value
    With ThisWorkbook.Worksheets("custumer")
        .Cells(lastrow + 1, "e").Value = Me.txtcus1.Value
        .Cells(lastrow + 1, "f").Value = Me.txtcus2.Value
    End With
    'lastrow = Worksheets("custumer").Cells(Rows.Count, 2).End(xlUp).Row
    '    For i = 2 To lastrow
    '        If Worksheets("custumer").Cells(i, 4).Value = txtId.Text Then
    '            Worksheets("custumer").Cells(i, 5).Value = txtcus1.Text
    '            Worksheets("custumer").Cells(i, 6).Value = txtcus2.Text
    '        End If
    '    Next
    With FrmCustumer
        .txtId.Value = ""
        .txtcus1.Value = ""
        .txtcus2.Value = ""
    End With
End Sub