Xin giúp đỡ code lệnh tìm kiếm vba

[bookseo007]

chào tất cả các bạn. mình vừa mới làm 1 file vba excel, nhưng đến phần tìm kiếm khách hàng thì mình không làm được, mình muốn khi điền vao khách hàng nếu có thì nó sẽ hiện lên thông tin khách hàng đó cho mình, mình không biết tại sao mình không thể điền vào rownsouce cbbkhachhang nữa. xin các bạn giúp đỡ

View more random threads:

• in phiếu thu, chi
• Giúp mình lỗi file excel này với.
• Chạy tự động macro khi mở file excel & Sử dụng Visual Basic tô màu ô tương ứng khi double click cell
• Tạo form để ra được báo cáo như biểu số này để nhập liệu
• Xử lý giúp Lỗi 40040 trong Excel 2003
• Video hướng dẫn VBA cho người mới bắt đầu
• Thắc mắc code
• Excel "đẻ" thêm một file mới.
• Phát hành sách Lập trình VBA trong Excel
• Tạo ngày và thời gian chạy trên Excel

[trongtinlaw]

Ðề: Xin giúp đỡ code lệnh tìm kiếm vba

hì
mình ko rành cái này lắm
mọi người ơi!!!!!!!!!!!
vào giúp bạn ý đi nào!!!

[hongquang014]

Ðề: Xin giúp đỡ code lệnh tìm kiếm vba

[COLOR=#000000]
Dim Khach [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]RangeDim n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]LongSet n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"THIETLAP"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]RowSet Khach [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"THIETLAP"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B4:B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]n[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]CBBKHACHHANG[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]RowSource [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Khach"[/COLOR] 

Bạn chỉnh lại cho đúng theo yêu cầu
Thân mến

[ocean123]

Ðề: Xin giúp đỡ code lệnh tìm kiếm vba

chào tất cả các bạn. mình vừa mới làm 1 file vba excel, nhưng đến phần tìm kiếm khách hàng thì mình không làm được, mình muốn khi điền vao khách hàng nếu có thì nó sẽ hiện lên thông tin khách hàng đó cho mình, mình không biết tại sao mình không thể điền vào rownsouce cbbkhachhang nữa. xin các bạn giúp đỡ

Nói chung fương thức tìm kiếm trong VBA là như sau

[COLOR=#000000]
Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Object[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#DD0000]'Định Vùng để tìm ở trang '[/COLOR][COLOR=#0000BB]TongHop[/COLOR][COLOR=#DD0000]' & dữ liệu có tại cột 'B', như sau:'[/COLOR][COLOR=#0000BB]Set Sh[/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThíWorkBook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]WorkSheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"TongHop"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B1[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]))[/COLOR][COLOR=#0000BB]Set sRng[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]MyTextBox[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xhWhole[/COLOR][COLOR=#007700])If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing then   [/COLOR][COLOR=#DD0000]'Câu Lệnh của bạn'[/COLOR][COLOR=#007700]Else   [/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"Nothing!"[/COLOR][COLOR=#007700],, [/COLOR][COLOR=#DD0000]"Xin Luu Í Ban!"[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If. . . [/COLOR] 

[vetinhnga03]

Ðề: Xin giúp đỡ code lệnh tìm kiếm vba

mình làm được rồi cám ơn các bạn nhiều nhé.