snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Private Sub Cmb2_Click()
'ค้นหา
Dim CaseNo As String
CaseNo = Trim(Me.TextBox1.Text)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("MyContact")
Dim lRow As Long
lRow = tbl.Range.Rows.Count
With lRow
Me.TextBox1.Text = .Range(1)
Me.TextBox2.Text = .Range(2)
Me.TextBox3.Text = .Range(3)
End With
End Sub
Private Sub Cmb3_Click()
'แก้ไข
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("MyContact")
Dim lRow As ListRow
Set lRow = tbl.ListRows.Add
With lRow
.Range(1) = Me.TextBox1.Text
.Range(2) = Me.TextBox2.Text
.Range(3) = Me.TextBox3.Text
End With
End Sub
You do not have the required permissions to view the files attached to this post.