Các bác ơi, hôm em có xem 1 file nhập xuất tồn của ai đó. khi mình click vào 1 ô nó hiện ra cả mã hàng và tên hàng, khi mình chọn 1 trong số đó thì nó tự động nhảy vào bảng nhập xuất
Em đưa 1 file của em, các bác giúp em với nhé
Các bác ơi, hôm em có xem 1 file nhập xuất tồn của ai đó. khi mình click vào 1 ô nó hiện ra cả mã hàng và tên hàng, khi mình chọn 1 trong số đó thì nó tự động nhảy vào bảng nhập xuất
Em đưa 1 file của em, các bác giúp em với nhé
Nhưng bác ơi, bảng của em không đơn giản là thế này, nó còn nhiều nữa cơ, có khoảng 1000 mặt hàng. nên không thể nhớ được hết "mã hàng". Em muốn click vào nó hiện ra cả mã và tên hàng
Bác xem file rồi chỉ cho em các làm nhé
Nhưng bác ơi, bảng của em không đơn giản là thế này, nó còn nhiều nữa cơ, có khoảng 1000 mặt hàng. nên không thể nhớ được hết "mã hàng". Em muốn click vào nó hiện ra cả mã và tên hàng
Bác xem file rồi chỉ cho em các làm nhé
Cái gì cũng làm được nhưng bạn nói có hơn 1000 mặt hàng nên mình làm thế cho bạn dễ tìm mặt hàng, còn nếu cho nó xổ xuống rồi lại phải đi tìm nữa à? Cái combobox cũng chỉ hiện ra vài chục dòng.
Còn muốn biết cách làm thì phải học cơ bản, mà cơ bản thì đầy trên diễn đàn, chịu khó tìm nhé.
Cái gì cũng làm được nhưng bạn nói có hơn 1000 mặt hàng nên mình làm thế cho bạn dễ tìm mặt hàng, còn nếu cho nó xổ xuống rồi lại phải đi tìm nữa à? Cái combobox cũng chỉ hiện ra vài chục dòng.
Còn muốn biết cách làm thì phải học cơ bản, mà cơ bản thì đầy trên diễn đàn, chịu khó tìm nhé.
Cái gì cũng làm được nhưng bạn nói có hơn 1000 mặt hàng nên mình làm thế cho bạn dễ tìm mặt hàng, còn nếu cho nó xổ xuống rồi lại phải đi tìm nữa à? Cái combobox cũng chỉ hiện ra vài chục dòng.
Còn muốn biết cách làm thì phải học cơ bản, mà cơ bản thì đầy trên diễn đàn, chịu khó tìm nhé.
Vâng em thấy làm như bác tiện hơn thật. Em cũng đang học cơ bản, em đang thiết kế 1 bảng nhập xuất tồn, và xác định kết quả kinh doanh trên những mặt hàng đó. Em thiết kế 1 cái khung của em rồi bác làm như của bác hộ em nhé
Em thấy cái file của bạn quanghai1969 làm hay quá
Bác có thể làm hộ em cái bảng này được không, em cũng đang học Excel, nhưng mà cái bảng của em vẫn làm thủ công quá
Cái gì cũng làm được nhưng bạn nói có hơn 1000 mặt hàng nên mình làm thế cho bạn dễ tìm mặt hàng, còn nếu cho nó xổ xuống rồi lại phải đi tìm nữa à? Cái combobox cũng chỉ hiện ra vài chục dòng.
Còn muốn biết cách làm thì phải học cơ bản, mà cơ bản thì đầy trên diễn đàn, chịu khó tìm nhé.
Thật tình mình chỉ mới tìm hiểu VBA vài tháng nay, cũng nghiên cứu code trên diễn đàn rồi chắp vá xài cho công việc nên không biết làm như bạn gợi ý. Hay là bạn làm 1 cái cho mình tham khảo và bổ sung kiến thức về mảng này
Thật tình mình chỉ mới tìm hiểu VBA vài tháng nay, cũng nghiên cứu code trên diễn đàn rồi chắp vá xài cho công việc nên không biết làm như bạn gợi ý. Hay là bạn làm 1 cái cho mình tham khảo và bổ sung kiến thức về mảng này
Pác cứ thử là biết ngay mà, combo box khi xổ xuống ta gõ vài từ khóa đầu, thì nó tự động di chuyển / liệt kê đến các thành phần trong list có tên bắt đầu bằng chữ cái đó ==> ta cũng dễ dàng chọn được luôn
Trước mắt tôi thấy bạn nên tất cả các dòng
Mã:
Set dic = CreateObject("scripting.dictionary")
Set DM = Sheets("DANHMUC")
dulieu = DM.Range(DM.[a4], DM.[d65536].End(3)).Value
ReDim arr(1 To UBound(dulieu, 1), 1 To 4)
cho vào block IF ... END IF
Vì hiện nay lúc đầu hoặc trong quá trình tìm kiếm người dùng xóa TextBox (viết nhầm xóa để viết lại từ đầu chẳng hạn) thì code vẫn "cần cù" làm các việc: Set dic, Set DM, dulieu, Redim để rồi khi tới IF thì hóa ra là không cần thiết (vì tìm = "" mà) mà lại tốn "điện nước" và thời gian
Tóm lại thì:
Mã:
tim = UCase(UserForm1.TextBox1.Value)
If tim <> "" Then
...
end if
UserForm1.ListBox1.List = arr
Tức nếu tìm <> "" thì ta "chơi tiếp" còn không chả làm gì cả.
Set dic = CreateObject("scripting.dictionary")
Set DM = Sheets("DANHMUC")
dulieu = DM.Range(DM.[a4], DM.[d65536].End(3)).Value
ReDim arr(1 To UBound(dulieu, 1), 1 To 4)
cho vào block IF ... END IF
Vì hiện nay lúc đầu hoặc trong quá trình tìm kiếm người dùng xóa TextBox (viết nhầm xóa để viết lại từ đầu chẳng hạn) thì code vẫn "cần cù" làm các việc: Set dic, Set DM, dulieu, Redim để rồi khi tới IF thì hóa ra là không cần thiết (vì tìm = "" mà) mà lại tốn "điện nước" và thời gian
Tóm lại thì:
Mã:
tim = UCase(UserForm1.TextBox1.Value)
If tim <> "" Then
...
end if
UserForm1.ListBox1.List = arr
Tức nếu tìm <> "" thì ta "chơi tiếp" còn không chả làm gì cả.
Bài này có lẽ không cần DIC gì cả vì nó là chọn lựa --> dữ liệu từ đầu đã là duy nhất rui (trường hợp nhiều cột mà tìm chỉ trùng 1 cột nào, thì lại cần nhặt vào)
Bài này có lẽ không cần DIC gì cả vì nó là chọn lựa --> dữ liệu từ đầu đã là duy nhất rui (trường hợp nhiều cột mà tìm chỉ trùng 1 cột nào, thì lại cần nhặt vào)
Đúng là nên để LISTBOX vừa vặn đúng số item cần tìm của nó,
TUY THẾ:
Nếu ý tưởng thế, thì chỉ cần một mảng trung gian TMP nào đó lưu lại CHỈ SỐ DÒNG là được thay vì dùng DIC, switom ah,
như vậy đỡ nặng hơn và không phải tạo một object DIC làm chi
???
Đúng là nên để LISTBOX vừa vặn đúng số item cần tìm của nó,
TUY THẾ:
Nếu ý tưởng thế, thì chỉ cần một mảng trung gian TMP nào đó lưu lại CHỈ SỐ DÒNG là được thay vì dùng DIC, switom ah,
như vậy đỡ nặng hơn và không phải tạo một object DIC làm chi
???
Ah vậy tôi đọc nhanh nên không chú ý thấy, Vậy thì cái này dùng phương án mảng 2 là chuẩn
Tuy nhiên với topic này thì nên dùng COMBO BOX ở tại cell thì tiện hơn, xong có vấn đề là làm sao thành Addins thì mới hay, còn ở 1 file cụ thể thì không khó
