khanhnth02
Thành viên thường trực
- Tham gia
- 5/8/07
- Bài viết
- 338
- Được thích
- 36
e không hiểu ý nghĩa dòng code này mong các anh chị giải thích chi tiết giúp e với: (cái này là xoá một dòng trong dữ liệu)
Private Sub CommandButton2_Click()
Dim Cl As Range
Set Cl = Sheet1.Columns("A").Find(what:=Me.ListBox1)
Sheet1.Rows(Cl.Row).EntireRow.Delete
Nap
End Sub
và cả doạn này nữa:
Sub Nap()
Dim ch As String
ch = Sheet1.Name & "!" & Sheet1.Range("A2:C" & Sheet1.[C65536].End(3).Row).Address
If Me.ListBox1.ListCount > 0 Then Me.ListBox1.RowSource = ""
Me.ListBox1.RowSource = ch
Me.ListBox1.ListIndex = 0
End Sub
Sao e áp dụng vào file dưới đây mà không được, nó báo lỗi hoài
Private Sub CommandButton2_Click()
Dim Cl As Range
Set Cl = Sheet1.Columns("A").Find(what:=Me.ListBox1)
Sheet1.Rows(Cl.Row).EntireRow.Delete
Nap
End Sub
và cả doạn này nữa:
Sub Nap()
Dim ch As String
ch = Sheet1.Name & "!" & Sheet1.Range("A2:C" & Sheet1.[C65536].End(3).Row).Address
If Me.ListBox1.ListCount > 0 Then Me.ListBox1.RowSource = ""
Me.ListBox1.RowSource = ch
Me.ListBox1.ListIndex = 0
End Sub
Sao e áp dụng vào file dưới đây mà không được, nó báo lỗi hoài
