Có phải giống file này không?mình làm đến đây rồi mà không biết cách nào di chuyển lên xuống xóa sửa trong list box à mong các bạn giúp mình với ! thank you so much !
nhưng sao xóa DL trùng nhau vẫn nhập đc hả bạn ! xem dùm mình với !
Anh ndu đã có ví dụ cho bạn rồi còn gì.
! bạn có thể cho mình một vd nho nhỏ thôi mình còn hiểu đc nhe ! hihii thank trước
chưa mà chưa có VD cho mình mà mình tự làm mãi có đc đâu hỏi mọi người không ai thèm trả lời bùn ơi là bùn
có cách nào in ra đươc vị trí các DL trung nhau không VD bảng A gồm HOA , HONG , LAN , HUE , HOA thì mình sẽ lọc đc ra là Tên trùng là HOA và Vị trí là A1 Và A5 được không !
bây giờ trong list đó mình chỉ in ra là HOA $A$1và $A$5 có được không bạn !
Ví dụ trước mình hiểu nhưng ví dụ sau ý ! dùng làm gì vậy nó chỉ in ra vị trí các ô dữ liệu thôi mà có cảnh báo gì đâu !
hi vọng ai đó sẽ giúp chúng ta nhưng sẽ cố nghĩ xem sao nếu đc mình sẽ post lên bạn xem dùm nhé hihi.......
Ví dụ trước mình hiểu nhưng ví dụ sau ý ! dùng làm gì vậy nó chỉ in ra vị trí các ô dữ liệu thôi mà có cảnh báo gì đâu !
!
vấn đề là thế này mình gõ vào textbox một tên bất kỳ VD : Hoa để xem tên này có bị trùng hay không nếu trùng in ra vị trí những vị trí trùng như :
ví dụ trên thì cột A gồm :A1 HOA , A2 HONG , A3 LAN , A4 HUNG , A5 HOA
thì khi ta gõ HOA vào textbox sẽ in ra 2 vị trí trùng là A1 và A5 ! bạn hiểu ý mình không
Private Sub TimKiem(Ma As String)
Ma = UCase$(Ma)
Dim i As Long, iR As Long
iR = -1
Me.ListBox1.Clear
For i = 1 To Sheet1.Range("A65000").End(xlUp).Row
If InStr(1, UCase(Sheet1.Range("A" & i).Value), Ma) > 0 Then
With Me.ListBox1
iR = iR + 1
.AddItem Sheet1.Range("A" & i).Value
.List(iR, 1) = "$A$" & i
End With
End If
Next
End Sub
