Hỏi cách tạo combo box thông minh (1 người xem)

yenphan11 · 25/12/13

quanghai1969 đã viết:
Bạn mở Module2 trong file ra, thay đoạn code này vào là được như ý rồi

PHP:

Sub loc() Dim kq(1 To 10000, 1 To 1), dl(), i, j With Sheet2 dl = .Range(.[a2], .[a65536].End(3)).Value End With For i = 1 To UBound(dl) If dl(i, 1) <> "" Then If dl(i, 1) Like "*" & Sheet1.TextBox1.Value & "*" Then j = j + 1 kq(j, 1) = dl(i, 1) End If End If Next If j Then Sheet1.ListBox1.List = kq End Sub

anh cho em hỏi với, em muốn insert thêm cột ở sheet khách hàng ( dữ liệu cần lấy nằm ở cột B7 trở xuống ) thì phải sửa code lại thế nào?

quochoadang · 21/1/14

Cái file của bác quá hay.. và em đang rất cần nó. nhưng em không biết phải làm sao, em copy cái code cua bac mà sai k được. bác có thể chỉ tường tận cho em được k vì em đang rất cần nó... hic hic

Hoàng Trọng Nghĩa · 22/1/14

quochoadang đã viết:
Cái file của bác quá hay.. và em đang rất cần nó. nhưng em không biết phải làm sao, em copy cái code cua bac mà sai k được. bác có thể chỉ tường tận cho em được k vì em đang rất cần nó... hic hic

Lạ thế cơ đấy! Copy code xài không được mà biết cái file quá hay là sao ta?

tâmcam · 13/2/14

Điền tên CN nghỉ; CN làm thay một cách nhanh chóng

Xin phép chủ nhà cho vào, Cảm ơn
Kính gửi anh chị GPE
Tôi có danh sách tên ở cột B sheet PPCM
công việc của tôi phải điền tên nguoi nghỉ, người làm thay
Nhưng danh sách số CNV rất nhiều nên việc điền tên gặp khó khăn
Rất mong GPE giúp đỡ cho Giải pháp là khi:
Nhắp chuột vào ô cần điền (VD D6:điền tên nguoi nghỉ)---Đồng thời gõ họ và tên---thì hiện lên những tên gần đúng để mình chọn cho nhanh
Trân trọng cảm ơn
Kèm file

nguyenthixuantieng · 13/2/14

quanghai1969 đã viết:
Làm thử cho bạn thế này rồi tính tiếp

Anh ơi, em lưu file này dưới excel 2010 thì modult không hiểu, em phải làm sao

Let'GâuGâu · 13/2/14

nguyenthixuantieng đã viết:
Anh ơi, em lưu file này dưới excel 2010 thì modult không hiểu, em phải làm sao

bạn phải lưu lại với đuoi là .xlsm mới được

vodoi2x · 13/2/14

tamcam đã viết:
Xin phép chủ nhà cho vào, Cảm ơn
Kính gửi anh chị GPE
Tôi có danh sách tên ở cột B sheet PPCM
công việc của tôi phải điền tên nguoi nghỉ, người làm thay
Nhưng danh sách số CNV rất nhiều nên việc điền tên gặp khó khăn
Rất mong GPE giúp đỡ cho Giải pháp là khi:
Nhắp chuột vào ô cần điền (VD D6:điền tên nguoi nghỉ)---Đồng thời gõ họ và tên---thì hiện lên những tên gần đúng để mình chọn cho nhanh
Trân trọng cảm ơn
Kèm file

Đã giúp bạn,
xem trong code của trang sheet-code "Thay treo", hiệu chỉnh vùng nhập cho hợp lý

chú ý khi muốn xoá nội dung thì nhớ chọn ít nhất 2 cells trở lên

vodoi2x · 13/2/14

vodoi2x đã viết:
Đã giúp bạn,
xem trong code của trang sheet-code "Thay treo", hiệu chỉnh vùng nhập cho hợp lý

chú ý khi muốn xoá nội dung thì nhớ chọn ít nhất 2 cells trở lên

Lần sau TamCam nên chú ý đưa file dữ liệu phải hợp lý gần thực tế nhất, không phải kiểu như
Nguyễn Viết 1
Nguyễn Viết 2
Nguyễn Viết 3
..........
tất cả

như thế thể hiện sự ẩu thả khi nhờ giúp

tâmcam · 13/2/14

vodoi2x đã viết:
Đã giúp bạn,
xem trong code của trang sheet-code "Thay treo", hiệu chỉnh vùng nhập cho hợp lý

chú ý khi muốn xoá nội dung thì nhớ chọn ít nhất 2 cells trở lên

Thật là nhanh... nhanh.. & hay ..hay...
Chúc Vodoi2x sức khỏe, hạnh phúc
---------

vodoi2x đã viết:
Lần sau TamCam nên chú ý đưa file dữ liệu phải hợp lý gần thực tế nhất, không phải kiểu như
Nguyễn Viết 1
Nguyễn Viết 2
Nguyễn Viết 3
..........
tất cả

như thế thể hiện sự ẩu thả khi nhờ giúp-------

Tamcam nhớ rui, Tamcam rút kinh nghiệm lần sau.

Miền Cát Trắng · 2/3/14

quanghai1969 đã viết:
Muốn thì có thôi mà. Xem file coi đúng chưa.

http://www.giaiphapexcel.com/forum/...-tạo-combo-box-thông-minh&p=456482#post456482

Mã:

Sub ScrList()
Dim dl(), i As Long, c As Byte
With Sheets("Danhmuc_NVL")
   dl = .[D7:D39].Value
End With
Sheets("BM14.10").ListBox1.Clear
[COLOR=#ff0000][B]c = ActiveCell.Column - 2[/B][/COLOR]
For i = 1 To UBound(dl)
   If dl(i, c) <> "" Then
      If TV(dl(i, c)) Like TV("*" & Sheets("BM14.10").TextBox1.Value & "*") Then
         Sheets("BM14.10").ListBox1.AddItem dl(i, c)
      End If
   End If
Next
End Sub

@Anh Hải!
Em chưa hiểu tại sao lại phải đưa cái dòng lệnh c = ActiveCell.Column - 2 vào, phiền anh giải thích rõ hơn với ạ.
Cảm ơn anh.

luna le · 4/4/14

Bạn vào Excel Options->Advanced. Sau đó bạn tích vào hàng "Enable AutoComplete for cell values".

Juneex · 9/6/14

Tìm nhanh tên và mã số tương ứng từ danh sách cho sẵn

Chào các bậc tiền bối ạ.
Em có một danh sách dài cần tìm ra tên chính xác từ đó tìm mã tương ứng
Em gửi kèm file nhờ các bác giúp đỡ.

phucbugis · 9/6/14

Juneex đã viết:
Chào các bậc tiền bối ạ.
Em có một danh sách dài cần tìm ra tên chính xác từ đó tìm mã tương ứng
Em gửi kèm file nhờ các bác giúp đỡ.

- bạn tải file đính kèm, kiểm tra kết quả xem có đúng ko nhé !

- nhập từ khóa tìm kiếm vào ô G1 --> click nút GPE_Find

'--------
hic, bài này đang hỏi về lập trình tự nhiên lại post vào "Box này" **~**

Juneex · 10/6/14

Cảm ơn bác phucbugis đã giúp đỡ nhưng cách này tính ra cũng ko nhanh hơn lọc custom là mấy vì phải làm đến 3 thao tác (em phải tìm cái này nhiều lần trong ngày nên càng ít thao tác càng ok). Muốn post nhờ vào chỗ này vì thấy các bác tạo được cái box tìm kiếm nhanh như kiểu danh bạ điện thoại ấy. $-\\/.$ "Trình độ hạn chế chạy lung tung đi nhờ vả nếu sai cửa cũng mong các bác hết sức thông cảm".

phucbugis · 10/6/14

Juneex đã viết:
Cảm ơn bác phucbugis đã giúp đỡ nhưng cách này tính ra cũng ko nhanh hơn lọc custom là mấy vì phải làm đến 3 thao tác (em phải tìm cái này nhiều lần trong ngày nên càng ít thao tác càng ok). Muốn post nhờ vào chỗ này vì thấy các bác tạo được cái box tìm kiếm nhanh như kiểu danh bạ điện thoại ấy. $-\\/.$ "Trình độ hạn chế chạy lung tung đi nhờ vả nếu sai cửa cũng mong các bác hết sức thông cảm".

Muốn tự động hơn --> bạn thêm 2 bước

1. thêm sự kiện bên dưới --> bỏ qua thao tác click

Mã:

Private Sub [B]Worksheet_Change[/B](ByVal Target As Range)
    If Target.Address = "$G$1" Then
    If Target <> "" Then
        Call FindNext
    End If
    End If
End Sub

2. tại sub Sub FindNext()
bạn off 2 dòng bên dưới nữa là OK hen ! :-=

'Answer = MsgBox ...
'If Answer = vbNo Then Exit Sub

Juneex · 13/6/14

Bác đánh giá cao em quá, em dò dẫm vào Sub FindNext xóa được 2 dòng nhưng vẫn chưa ưng ý.
Thôi bác down về chỉnh sửa nốt giúp em cho trót ntn:
- Bỏ qua thao tác click
- Bỏ qua thao tác xóa vùng dữ liệu
- Bỏ qua cả hộp thoại thông báo xóa vùng dữ liệu trước khi tìm kiếm
Em ngàn lần cảm ơn ạ ;;;;;;;;;;;

phucbugis · 13/6/14

Juneex đã viết:
Bác đánh giá cao em quá, em dò dẫm vào Sub FindNext xóa được 2 dòng nhưng vẫn chưa ưng ý.
Thôi bác down về chỉnh sửa nốt giúp em cho trót ntn:
- Bỏ qua thao tác click
- Bỏ qua thao tác xóa vùng dữ liệu
- Bỏ qua cả hộp thoại thông báo xóa vùng dữ liệu trước khi tìm kiếm
Em ngàn lần cảm ơn ạ

bạn tải tiếp file đính kèm nhé ! (đã xử lý hết yêu cầu trên + thêm "1 tí code")

'----------------
p/s # 118
Function MyCountif --> mình đã sửa điều kiện Thoat

Mã:

Thoat:
    If i = 0 And tukhoa <> "" Then
        MyCountif = wsFunc.CountIf(tendonvi, "*" & tukhoa & "*")
    End If

Sub FindNext()

- thêm điều kiện Unhide Row: code cũ chỉ có If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData ---> chưa chặt chẽ
(phải kiểm tra các Row đang bị hide SpecialCells(xlCellTypeVisible))

- thêm GoTo Next_

'-----------
file mới Split_Function: ko dùng phương thức FindNext ----> gắn công thức trực tiếp

Juneex · 13/6/14

phucbugis đã viết:
bạn tải tiếp file đính kèm nhé ! (đã xử lý hết yêu cầu trên + thêm "1 tí code")

Rất ổn rồi ạ, giá có điều kiện thỉnh giáo "1 tí code" của bác thì thoải mái --=--

Cảm ơn bác đã nhiệt tình giúp đỡ!

vinhquang68 · 25/2/15

Cho minh hoi chut!
Minh copy cac code nay ap dung cho bang tinh khac, khi chay no bao loi : Sub Loc() " mau vang"
Minh tim ma ko biet loi dau, cac code khac chay binh thuong.

Minh cam on nhieu!

vinhquang68 · 25/2/15

Cho minh hoi chut! Minh copy code nay va cac code khac sang 01 bang tinh khac, khi chay no bao loi: Sub Loc() la sao ban?
Duong dan gium minh nhe!

giangleloi · 25/2/15

vinhquang68 đã viết:
Cho minh hoi chut! Minh copy code nay va cac code khac sang 01 bang tinh khac, khi chay no bao loi: Sub Loc() la sao ban?
Duong dan gium minh nhe!

Theo mình nghĩ bảng tính của bạn bố trí khác, dữ liệu khác thì Code báo lỗi là bình thường thôi.

vinhquang68 · 28/2/15

giangleloi đã viết:
Theo mình nghĩ bảng tính của bạn bố trí khác, dữ liệu khác thì Code báo lỗi là bình thường thôi.

Cho mình địa chỉ mail, bạn sửa giùm mình với!

khanhftu2 · 18/3/15

giangleloi đã viết:
Theo mình nghĩ bảng tính của bạn bố trí khác, dữ liệu khác thì Code báo lỗi là bình thường thôi.

Chào các bạn, mình có file đính kèm, mình muốn trong các combo box của mình B4:B11 khi mình gõ vào các chữ cái đầu tiên thì các items liên quan sẽ hiện lên và đỡ phải lê chuột để chọn. Có pro nào chỉ giúp mình với! Thanks

giola · 18/3/15

khanhftu2 đã viết:
Chào các bạn, mình có file đính kèm, mình muốn trong các combo box của mình B4:B11 khi mình gõ vào các chữ cái đầu tiên thì các items liên quan sẽ hiện lên và đỡ phải lê chuột để chọn. Có pro nào chỉ giúp mình với! Thanks

pro, thanks?????????????

B4:B11 của sheet nào?

Nếu đúng của sheet 2 - hiện bạn đã làm data validation tôi thấy tốt rui mà - vì mỗi list có 3 bốn mục, bấm vào là tìm ra ngay việc chi phải gõ làm gì cho mệt.

ngotrimao · 18/3/15

Mình muốn học VBA thì học ở đâu vậy các bác? Thấy các bác toàn dùng code nhìn thấy mê quá. Tìm tài liệu trên internet đọc không hiểu gì luôn.

khanhftu2 · 19/3/15

giola đã viết:
pro, thanks?????????????

B4:B11 của sheet nào?

Nếu đúng của sheet 2 - hiện bạn đã làm data validation tôi thấy tốt rui mà - vì mỗi list có 3 bốn mục, bấm vào là tìm ra ngay việc chi phải gõ làm gì cho mệt.

Đúng là cột B trong Sheet 2, bảng đó chỉ là demo thôi, thật ra cái list hoàn chỉnh nó dài lắm. Bây h mình đã cài code để chọn nhiều items. Vấn đề mình nói như trên là làm thế nào để gõ các chữ cái vào thì nó hiện lên các items liên quan để tiết kiệm thời gian. Bạn coi qua và giúp mình nhé.

Thank pro!

khanhftu2 · 20/3/15

khanhftu2 đã viết:
Đúng là cột B trong Sheet 2, bảng đó chỉ là demo thôi, thật ra cái list hoàn chỉnh nó dài lắm. Bây h mình đã cài code để chọn nhiều items. Vấn đề mình nói như trên là làm thế nào để gõ các chữ cái vào thì nó hiện lên các items liên quan để tiết kiệm thời gian. Bạn coi qua và giúp mình nhé.

Thank pro!

Có ai giúp mình với!!!

khanhftu2 · 22/3/15

Minh dang can gap, giup minh voi ban oi!

khanhftu2 · 24/3/15

Giúp mình với các bạn ơi!

khanhftu2 · 25/3/15

khanhftu2 đã viết:
Giúp mình với các bạn ơi!

Giúp mình với các bạn ơi!!!

Let'GâuGâu · 25/3/15

khanhftu2 đã viết:
Giúp mình với các bạn ơi!!!

nguồn của nó ở đâu?
catelogy,vender, product......v..vv.v. lấy ở đâu ra?

khanhftu2 · 25/3/15

Mình đính lại file này có nguồn của listbox, bạn xem và giúp mình nhé. Thank pro!

khanhftu2 · 28/3/15

khanhftu2 đã viết:
Mình đính lại file này có nguồn của listbox, bạn xem và giúp mình nhé. Thank pro!

Giúp mình với các bạn ơi!!!

khanhftu2 · 3/4/15

Giúp mình với các bạn ơi

khanhftu2 · 7/4/15

Tạo combobox thông minh

Xin chào mọi người.

Hiện mình đang cần làm file dữ liệu lệnh giao hàng, mình đã nhờ một số tiền bối hỗ trợ để khi nhấn vào list box các chữ cái thì tự động sẽ drop down những items có liên quan để tiết kiệm thời gian lê chuột. Hiện giờ mình muốn cài thêm code để có thể chọn nhiều items, mình lên mạng có tìm được file mutiselect và mình muốn làm giống file này. Làm thế nào để modify code của file LENH GIAO HANG, để vừa giữ được chức năng của file vừa thêm được chức năng multiselect. Các pro xin hãy giúp mình với!!!

Thanks so much!!!

khanhftu2 · 7/4/15

Help me pls!!!!!!!!!!!!

Quang_Hải · 7/4/15

khanhftu2 đã viết:
Xin chào mọi người.

Hiện mình đang cần làm file dữ liệu lệnh giao hàng, mình đã nhờ một số tiền bối hỗ trợ để khi nhấn vào list box các chữ cái thì tự động sẽ drop down những items có liên quan để tiết kiệm thời gian lê chuột. Hiện giờ mình muốn cài thêm code để có thể chọn nhiều items, mình lên mạng có tìm được file mutiselect và mình muốn làm giống file này. Làm thế nào để modify code của file LENH GIAO HANG, để vừa giữ được chức năng của file vừa thêm được chức năng multiselect. Các pro xin hãy giúp mình với!!!

Thanks so much!!!

Theo mình thì không thể điều chỉnh từ code có sẵn. Căn bản của code là mỗi khi thay đổi ý tưởng thì code cũ bị phá vỡ hoàn toàn.

Viết lại code thì cũng không khó khăn gì, có điều mình chẳng hiểu thế nào là multiselect. Người khéo hỏi thì nhanh chóng nhận được đáp án. Đừng nghĩ rằng những gì mình viết thì ai đọc vào cũng hiểu được điều mình muốn diễn đạt. (ít nhất là có mình đang không hiểu)

Vài lời chia sẻ để cho bạn hiểu tại sao không ai trả lời bài cho bạn.

comet_1701 · 7/4/15

khanhftu2 đã viết:
Help me pls!!!!!!!!!!!!

Hình như bạn gặp đúng tác giả bài viết r ồi đấy. Hãy mô tả thật kỹ sẽ có câu trả lời, n

doveandrose · 7/4/15

khanhftu2 đã viết:
Xin chào mọi người.

Hiện mình đang cần làm file dữ liệu lệnh giao hàng, mình đã nhờ một số tiền bối hỗ trợ để khi nhấn vào list box các chữ cái thì tự động sẽ drop down những items có liên quan để tiết kiệm thời gian lê chuột. Hiện giờ mình muốn cài thêm code để có thể chọn nhiều items, mình lên mạng có tìm được file mutiselect và mình muốn làm giống file này. Làm thế nào để modify code của file LENH GIAO HANG, để vừa giữ được chức năng của file vừa thêm được chức năng multiselect. Các pro xin hãy giúp mình với!!!

Thanks so much!!!

Đã cố gắng hết sức nhưng không cách gì hiểu đc bài viết này muốn gì ......

họ đang viết tiếng Việt đấy chứ ?

goddy · 30/3/16

Mình có sử dụng file Lenh giao hàng trong thread này (Đính kèm). Theo đó Tại sheet Lenh.giao.hang, cột Khach hang (cột C) sẽ tự động điền thông tin tên khách hàng lấy tại cột /Asheet DM.khach.hang. Tuy nhiên có vấn đề khi muốn nhập một tên mới không nằm trong danh sách tên tại sheet/DM.khach.hang thì không nhập được.
Nhờ mọi người giúp mình thêm hai chức năng này:
- Cho phép nhập một "tên mới" vào cột C/sheet Lenh.giao.hang (tên mới này không nằm trong danh sách tên tại cột A/sheet DM.khach.hang),
- Sau đó tên mới này sẽ tự động được thêm vào danh sách tên tại cột A/sheet DM.khang.hang.

Thanks!

ndhmoney686 · 5/4/16

quanghai1969 đã viết:
Làm thử cho bạn thế này rồi tính tiếp

Cũng file trên. Nhưng em muốn hiện ở 1 ô

Anh chị giúp Em sửa để code chỉ hiện form ở 1 ô B4. Em có sử dụng code này vào một vùng chỉ cần sử dụng 1 ô hiện form là B4. Mong A/C và các bạn giúp đỡ!

ndhmoney686 · 5/4/16

hpkhuong đã viết:
Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$4" Then thaydoi Else Hide End If End Sub

Em thay vào được rồi. Cám ơn Anh hpkhuong rất nhiều!

ManhHungMHNH · 7/4/16

nhờ bạn làm giùm hộ mình về danh sách tìm kiếm thông minh, nó cứ báo lỗi.

minhcong.tckt · 22/4/16

Em nhờ anh

quanghai1969 đã viết:
.

sửa giúp fie đính kèm như sau:

Giả sử tại DM.Khach.hang em có 3 cột
Cột A: mã khách ( VD: KH001,KH002...)
Cột B: Tên khách (như cột A file đính kèm)
Cột C: Địa chỉ ( như cột B file đính kèmị)
Tại sheet Lẹnh.giao.hang em muốn tìm tên khách hàng nhưng khi điền thì điền mã khách thì sửa lại code trên như nào ạ

minhcong.tckt · 25/4/16

Có anh chị nào giúp em với không ạ
Tại sheet Lenh.giao.hang cột C em muốn điền mã khách nhưng tìm theo tên khách thì làm thế nào ạ

minhcong.tckt · 29/4/16

Các bác cho em hỏi, file ô tìm kiếm thông minh đó nếu mình "chia sẻ" thì báo lỗi: Run-time eror '1004' và dòng tiếng anh: Unable to set the left property of the OLEObject class. Có cách nào khắc phục không ạ

minhcong.tckt · 29/4/16

Các bác xem file đính kèm, sửa code giúp em với để khi "chia sẻ " file cho nhiều người dùng ko bị lỗi "Run time error '1004'

conghuynh41 · 25/6/16

Bạn cho mình hỏi tại sao mình saveas sang file *.xlsx lại không được, mặc dù mình đã copy code hết rùi nhưng các code VBA khong được lưu lại

giaiphap · 25/6/16

conghuynh41 đã viết:
Bạn cho mình hỏi tại sao mình saveas sang file *.xlsx lại không được, mặc dù mình đã copy code hết rùi nhưng các code VBA khong được lưu lại

Vì Anh Bill đã qui định vậy rồi bạn, khi lưu Excel ở dạng xlsx thì nó sẽ không lưu được code, muốn lưu được code thì phải lưu ở dạng xlsm.

phanvantruong · 23/7/16

quanghai1969 đã viết:
Bạn còn yêu cầu gì thì suy nghĩ và cung cấp thông tin 1 lần nhé. Code viêt xong sửa lại mệt lắm.
Cung cấp cái file của bạn luôn để mình có thể nhìn thấy du liệu thật của bạn và viết cho đúng yêu cầu. Nếu không có gi thay đổi thì 1 tuần sau quay lại nhé.

Chào A quanghai1969 !
E có một việc rất cần thiết muốn áp dụng phương pháp Tạo danh sách tìm kiếm thông minh ngay trong ô Excel mà đọc mãi code chưa hiểu cách làm a có thể dành chút thời gian hướng dẫn e làm được không ạ.
E có 1 list danh sách Nhà cung cấp dài (112 đơn vị) e nhập dữ liệu thì mất nhiều thời gian nên e muốn học cách này.

A làm ơn hướng dẫn chi tiết giúp e với ah.
E xin gửi anh list nhà cung cấp.
Cám ơn anh.

Let'GâuGâu · 23/7/16

phanvantruong đã viết:
Chào A quanghai1969 !
E có một việc rất cần thiết muốn áp dụng phương pháp Tạo danh sách tìm kiếm thông minh ngay trong ô Excel mà đọc mãi code chưa hiểu cách làm a có thể dành chút thời gian hướng dẫn e làm được không ạ.
E có 1 list danh sách Nhà cung cấp dài (112 đơn vị) e nhập dữ liệu thì mất nhiều thời gian nên e muốn học cách này.

A làm ơn hướng dẫn chi tiết giúp e với ah.
E xin gửi anh list nhà cung cấp.
Cám ơn anh.

bạn có 3 cột "khách hàng" "địa điểm giao" & "tên hàng"
nhà cung cấp để chổ nào?

phanvantruong · 23/7/16

Let'GâuGâu đã viết:
bạn có 3 cột "khách hàng" "địa điểm giao" & "tên hàng"
nhà cung cấp để chổ nào?

Chào Anh !
A giúp e với nhé.
E gửi file lên đây nhé.

Let'GâuGâu · 23/7/16

phanvantruong đã viết:
Chào Anh !
A giúp e với nhé.
E gửi file lên đây nhé.

tôi làm bằng form nha
code tôi lấy của một siêu nhân trên diễn đàn về rồi thêm tí nắm muối tiêu hành vào
sorry, font chử .vntime tôi hỏng có chơi được nên tôi chuyển nó qua arial của unicode
tạm thời như vậy, thấy ưng ý và có yêu cầu gì thỉ sữa tiếp cho

tuoigiyeuem · 30/7/16

Anh ơi cho em hỏi. Em muốn bỏ hành động kick chuột trái vào Cột C để load FORM tìm kiếm bằng hành động khác chẳng hạn như ctrl + chuột trái thì làm thế nào.

tuoigiyeuem · 30/7/16

Let'GâuGâu đã viết:
tôi làm bằng form nha
code tôi lấy của một siêu nhân trên diễn đàn về rồi thêm tí nắm muối tiêu hành vào
sorry, font chử .vntime tôi hỏng có chơi được nên tôi chuyển nó qua arial của unicode
tạm thời như vậy, thấy ưng ý và có yêu cầu gì thỉ sữa tiếp cho

Em có down được 1 file tìm kiếm dạng tương tự của anh TUANKTCDCN. Nhờ anh thêm phần lọc khi tìm kiếm giúp em với. Cám ơn anh

Let'GâuGâu · 30/7/16

tuoigiyeuem đã viết:
Em có down được 1 file tìm kiếm dạng tương tự của anh TUANKTCDCN. Nhờ anh thêm phần lọc khi tìm kiếm giúp em với. Cám ơn anh

tôi làm biếng sửa code lắm, chẳn thà làm mới

tuoigiyeuem · 30/7/16

Anh cố giúp em với. Làm mới cũng được. $-\\/.$ $-\\/.$ $-\\/.$

Let'GâuGâu · 30/7/16

tuoigiyeuem đã viết:
Anh cố giúp em với. Làm mới cũng được. $-\\/.$ $-\\/.$ $-\\/.$

code chép từ bài #156

tuoigiyeuem · 30/7/16

Hjx. Trình độ em có hạn. Xem rồi thử, rồi ghép code từ chiều đến giờ không nổi +-+-+-+

. Sắp tẩu hỏa nhập ma rồi. A giúp em với. ( giúp em thêm phần lọc khi tìm kiếm ) . Cám ơn anh

Let'GâuGâu · 31/7/16

tuoigiyeuem đã viết:
Hjx. Trình độ em có hạn. Xem rồi thử, rồi ghép code từ chiều đến giờ không nổi . Sắp tẩu hỏa nhập ma rồi. A giúp em với. ( giúp em thêm phần lọc khi tìm kiếm ) . Cám ơn anh

Bạn kiểm tra xem............................

trongtrung1504 · 31/7/16

titanic đã viết:
chào các anh/chị
em có thử tạo 1 combo box nhưng không đúng ý em lắm cho em hỏi trong excel mình có combox tự tìm ra các từ gần giống với yêu ký tự mình đánh vào dòng combox không . như mình đánh chữ "g" đi ( nó sẽ hiện ra 1 bảng từ 4 tới 5 lựa chon có chữ cái bắt đầu từ chữ "g" )
em có gửi ảnh minh họa . mọng các anh chỉ giúp cảm ơn nhiều $-\\/.$

http://www.giaiphapexcel.com/diendan/threads/113536.Tạo-danh-sách-tìm-kiếm-thông-minh-ngay-trong-ô

tuoigiyeuem · 31/7/16

Cám ơn anh nhiều. }}}}}

dantaichinh · 18/8/16

quanghai1969 đã viết:
Phải vẽ cái textbox và cái listbox cho mỗi sheet chứ. Bạn không có tí căn bản nào thì đừng quậy nữa nhé. Học cơ bản trước rồi tha hồ edit code.

Anh Quanghai1969 xem và làm giúp em cái danh sách cho file của em được không? e ko biết gì về VBA mà đang cần chức năng chọn danh sách đó quá.Danh mục bên sheet" danh mục" em cần 20.000 dòng tương ứng 20.000 mã vật tư.
Còn sheet "nhập liệu" anh để giúp em 10.000 dòng nhé.Em cảm ơn anh!

tavanluu · 19/11/16

Hiện tại mình cũng gặp vấn đề tương tự. Mình có file quản trị khách hàng và hợp đồng, tên khách hàng trên sheet hợp đồng lấy dữ liệu từ sheet khách hàng. Nếu dùng list thông thường thì danh sách quá dài nên khi nhập dữ liệu hợp đồng sẽ mất rất nhiều thời gian. Mình không có kiến thức lập trình VBA nên không sử dụng được code hướng dẫn. Mọi người hỗ trợ lập trình vào file đính kèm giúp mình nhé. Cám ơn ACE.

mtuan · 4/6/18

quanghai1969 đã viết:
Bài này chắc đáp ứng được cho cả 2 bạn 1 lúc nhỉ! Thử xem, nếu chưa thoả mản thì mần tiếp. Mình thì kiểu gì cũng mần hết. Hỏng trúng ráng chịu.

quanghai1969 đã viết:
Ôi quên để ý cái sheet Bang Ke Ban Hang

Cảm ơn Anh Quanghai1969 nhiều
Khi e gõ tên trong textbox1 thì listbox hiện ra và chọn theo ý muốn. Nhưng khi chọn xong enter 1 cái thì khi phát hiện chọn sai lúc này listbox ko hiện ra mà phải click chuột sang ô khác sau đó quay lại thì listbox mới hiện. Em xin code của Anh và làm lại trên form. Nhưng khi e chọn trong listbox xong thì listbox tự mất đi. khi tiếp tục chọn tên khác trên cùng thao tác trong form thì lúc này listbox không hiện ra. Nói rõ hơn là e nhập thông tin khách hàng bán hàng cho e, khi em khởi động form nhập phiếu nói chung hoạt động ok. nhưng khi đến khách hàng kế tiếp thì listbox không hiện lên. nhờ A chỉ giúp. cảm ơn A nhiều

mtuan · 5/6/18

ndhmoney686 đã viết:
Code của Anh thật tuyệt. Cảm ơn Anh rất nhiều! Anh đi nghỉ sớm để đảm bảo sức khỏe Anh ạ!

quanghai1969 đã viết:
Đang khen hay chê vậy trời?

Em xin nhờ Anh quanghai1969 có thể viết giúp em đoạn code lọc số liệu từ sheet DATA NHAP sang sheet BANGKE với yêu cầu khi e gõ ngày thanh toán vào 1 ô cho sẳn ở sheet BANGKE thì excel tự lọc và điền vào các cột tương ứng và tách theo từng loại trợ giá trong sheet DATA NHAP. Anh có thể viết code và điền vài dữ liệu vào các cột trong sheet BANGKE cũng được em tự nghiên cứu và phát triển cho các cột kế tiếp. vì e muố phải đọc và hiểu code do e mới tập tành. mong A giúp đỡ. Chân thành cảm ơn A
*** và em cũng xin được Anh cũng như ae trong DD giúp! cảm ơn mọi người

giaiphap · 5/6/18

mtuan đã viết:
Em xin nhờ Anh quanghai1969 có thể viết giúp em đoạn code lọc số liệu từ sheet DATA NHAP sang sheet BANGKE với yêu cầu khi e gõ ngày thanh toán vào 1 ô cho sẳn ở sheet BANGKE thì excel tự lọc và điền vào các cột tương ứng và tách theo từng loại trợ giá trong sheet DATA NHAP. Anh có thể viết code và điền vài dữ liệu vào các cột trong sheet BANGKE cũng được em tự nghiên cứu và phát triển cho các cột kế tiếp. vì e muố phải đọc và hiểu code do e mới tập tành. mong A giúp đỡ. Chân thành cảm ơn A
*** và em cũng xin được Anh cũng như ae trong DD giúp! cảm ơn mọi người

Bạn xem chổ này?
https://www.giaiphapexcel.com/diend...-lý-gỡ-rối-code-vba.85576/page-89#post-860798

letienmai · 27/11/18

Kính thưa: anh @quanghai1969 và các anh/chị
Khó khăn lắm em mới mò tìm đến được chủ đề này gần giống bài toán em đang làm và xem được file LENH GIAO HANG-2 anh viết code tìm kiếm rất là hay.
Tuy nhiên ý tưởng của em đang thực hiện là trên Userform nên khi em copy code dán vào Userform thì bị lỗi rất nhiều do code anh viết trên Sheet.
Do trình độ còn non kém và em đã cố gắng hết sức nhưng nó cứ báo lỗi.
Hy vọng anh xem được bài này và mở code xem giúp em để em tìm kiếm được tên nhân viên trên Userform theo như code anh viết cho file LENH GIAO HANG-2
Chân thành cám ơn các anh rất nhiều.

Hỏi cách tạo combo box thông minh (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Thành viên mới

Chuyên gia GPE

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Nothing & Nothing

File đính kèm

Nothing & Nothing

Thành viên mới

Thành viên hoạt động

Thành viên mới

Thành viên mới

File đính kèm

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

File đính kèm

theo chiều Gió

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên tiêu biểu

hello

Thành viên mới

File đính kèm

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên chính thức

File đính kèm

Thành viên thường trực

File đính kèm

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên mới

==(^o^)==

Thành viên chính thức

File đính kèm

Thành viên mới

Thành viên chính thức

File đính kèm

Thành viên mới

File đính kèm

Thành viên chính thức

Thành viên chính thức

File đính kèm

Thành viên mới

Thành viên chính thức

Thành viên mới

File đính kèm