-
04-12-2012, 05:41 PM #1
Junior 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:
- Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp
- Tạo hàm trong file excel theo dõi hàng tồn kho!!!
- Tạo ngày và thời gian chạy trên Excel
- Cho em hỏi cách tạo 1 Combo Box
- Cách chuyển dữ liệu từ máy chấm công sang bảng chấm công có sẵn.
- Trích lọc Sổ Cái : Dùng Công Thức và Các Hàm Excel
- File viết bằng VBA đầu tiên
- Theo dõi ngạch bậc lương của cb-giáo viên
- viết code xong nhưng không thực thi lệnh
- Sao chép dữ liệu từ file đến file
-
04-12-2012, 06:16 PM #2
Junior 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 #3
Junior 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 #4
Junior 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 #5
Junior 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é.
Sản phẩm đan lọc được sinh sản và thiết kế dùng cho cả các công trình bể lọc xây dựng mới lẫn các bể lọc hiện hữu. Đan lọc lovense domi giúp tăng khả năng phân phối gió và nước trong quá trình rửa...
Những đặc điểm vượt trội của đan lọc 2 tầng De Nora (8)