vc_đi chơi
Thành viên thường trực
- Tham gia
- 21/9/19
- Bài viết
- 201
- Được thích
- 41
Em có tham khảo và làm giao diện Form để quản lý sheet, nhưng em không hiểu sao bị lỗi khi tìm kiếm tên sheet không được hiển thị lên.
Nhờ các anh chị giúp em hoàn thiện đoạn code và chỉnh giúp em giao diện Form để khi quản lý sheet thì có giao diện (như hình em đăng )
Em có tải file em làm rồi nhưng bị lỗi.
Em xin cảm ơn!
Đoạn code như sau:
Nhờ các anh chị giúp em hoàn thiện đoạn code và chỉnh giúp em giao diện Form để khi quản lý sheet thì có giao diện (như hình em đăng )
Em có tải file em làm rồi nhưng bị lỗi.
Em xin cảm ơn!
Đoạn code như sau:
Mã:
Private Sub txtTenHH_Change()
If txtTenHH <> "" Then
cmdShowSheet_Click
For k = ListBox1.ListCount - 1 To 0 Step -1
If Not UCase(ListBox1.List(k)) Like "*" & UCase(txtTenHH) & "*" Then
ListBox1.RemoveItem (k)
End If
Next
ElseIf txtTenHH = "" Then
cmdShowSheet_Click
End If
End Sub
'---Code cho ListBox(lstSheets)
Private Sub lstSheets_Click()
Sheets(frmShowSheet.lstSheets.Value).Select
frmShowSheet.txtTenHH.SetFocus
End Sub
'---Code cho CommandButton(cmdShowSheet)
Private Sub cmdShowSheet_Click()
Dim Sh As Worksheet
For Each Sh In Sheets
frmShowSheet.lstSheets.AddItem Sh.Name
Next
Dim i As Long, j As Long
With lstSheets
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To (i + 1) Step -1
If .List(j) = .List(i) Then
.RemoveItem j
frmShowSheet.txtTenHH.SetFocus
End If
Next j
Next i
End With
End Sub
