không hiễu code vba tìm kiếm nhờ mấy bác giải thích giùm e (1 người xem)

[toannguyen89]

như tiêu đề ở trên code của e đây

private Sub Frame1_Click()


End Sub


Private Sub Lb13_Click()


End Sub


Private Sub Lb17_Click()


End Sub


Private Sub UserForm_Initialize()
With Sheet1.Range("A1").CurrentRegion
ComboBox1.List() = WorksheetFunction.Transpose(.Resize(1))
End With
ComboBox1.Value = ComboBox1.List(0, 0)
End Sub
Private Sub ComboBox1_Change()
With Sheet1.Range("A1").CurrentRegion
ListBox1.RowSource = Intersect(.Cells, .Offset(1, ComboBox1.ListIndex)).Resize(, 1).Address
End With
End Sub
Private Sub ListBox1_Click()
Dim i As Long
With Sheet1.Range("A1").CurrentRegion
For i = 1 To 6
Me.Controls("Lb" & Format(i + 6, "00")).Caption = .Cells(ListBox1.ListIndex + 2, i)
Next

For i = 7 To 11
Me.Controls("Lb" & Format(i + 11, "00")).Caption = .Cells(ListBox1.ListIndex + 2, i)
Next
End With
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
With Range(ListBox1.RowSource).Resize(, 1)
ListBox1.Selected(.Find(TextBox1, , , xlPart).Row - .Row) = True
End With
End Sub

 

[be_09]

Cái này gọi là 3 ông mù mò đoán voi (có nghĩa là không có File, không có Form vậy là từ A đến Z) mò cho nó ra đáp án.

 

[doveandrose]

Cái này gọi là 3 ông mù mò đoán voi (có nghĩa là không có File, không có Form vậy là từ A đến Z) mò cho nó ra đáp án.

à người này hỏi ở topic này không được ai trả lời nên lập topic mới đó mà
http://www.giaiphapexcel.com/forum/showthread.php?106659-Viết-code-Form-tìm-kiếm

 

[be_09]

à người này hỏi ở topic này không được ai trả lời nên lập topic mới đó mà
http://www.giaiphapexcel.com/forum/showthread.php?106659-Viết-code-Form-tìm-kiếm

À ra thế?

Nếu tiếp tục là vi phạm nội quy, tôi dừng Topic này tại đây.

Chủ Topic nên rút kinh nghiệm, để lần sau không mở Topic lung tung nữa.