-
04-12-2012, 05:41 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
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 đỡ
View more random threads:
- Hướng dẫn Lập Công Thức Tách Dòng
- Hỗ trợ code tạo mục lục.
- Theo dõi Văn bản, sử dụng PivotTable để tổng hợp báo cáo và xuất danh sách theo nhu cầu.
- Code lọc dữ liệu trong excel
- Xử lý giúp Lỗi 40040 trong Excel 2003
- cong thuc nhap du lieu tu sheet nay sang sheet khac
- Copy file bị cách dòng!
- Nhờ sửa lỗi code VBA trong Sổ cái
- File viết bằng VBA đầu tiên
- Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
-
04-12-2012, 06:16 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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!!!
-
04-12-2012, 10:48 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Xin giúp đỡ code lệnh tìm kiếm vba
Mã nguồn PHP:[COLOR=#000000]
Dim Khach [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Set 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]Row Set 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]
Thân mến
-
04-13-2012, 01:25 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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 đỡ
Mã nguồn PHP:[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]
-
04-13-2012, 05:24 PM #5Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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é.
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ