Selet dòng cuối trong listbox khi mở userform

[olegtran]

Tôi có userform (tên UF), trong đó có listbox (tên LB), mà cái LB lấy từ sheet "Hang_hoa".
Hiên nay khi dùng lệng UF.show thì listbox hiện ra những dòng đầu (hình 1), và không có dòng nào được chọn trong LB.
Tôi muốn: khi dùng lệng UF.show thì listbox hiện ra những DÒNG CUỐI (hình 2) và có dòng cuối cùng được chọn nếu có thể.
Hy vọng các bạn có thể giúp tôi, cảm ơn trước nhiều.

 

[batman1]

Trong UserForm_Initialize

Private Sub UserForm_Initialize()
'    các code khác
    LB.ListIndex = LB.ListCount - 1
End Sub

 

[olegtran]

Trong UserForm_Initialize

Private Sub UserForm_Initialize()
'    các code khác
    LB.ListIndex = LB.ListCount - 1
End Sub

Đã chạy đúng yêu cầu, xin cảm ơn Batman1 nhiều.

 

[be_09]

Tôi có userform (tên UF), trong đó có listbox (tên LB), mà cái LB lấy từ sheet "Hang_hoa".
Hiên nay khi dùng lệng UF.show thì listbox hiện ra những dòng đầu (hình 1), và không có dòng nào được chọn trong LB.
Tôi muốn: khi dùng lệng UF.show thì listbox hiện ra những DÒNG CUỐI (hình 2) và có dòng cuối cùng được chọn nếu có thể.
Hy vọng các bạn có thể giúp tôi, cảm ơn trước nhiều.

Phiếu xuất, phiếu nhập thì bạn nên sử dụng SheetForm sẽ thuận tiện cho việc in phiếu và việc nhập liệu hàng hóa sẽ nhanh hơn là dùng UserForm.

 

[SA_DQ]

Xin hỏi chủ bài đăng 1 câu ngu ngơ chút: Sao bạn phải chọn dòng cuối trong ListBox 1 khi mở form vậy? Bạn muốn biết dữ liệu dòng cuối trong trang tính ư?

Mà hình như hàng hóa của bạn chưa được ấn định mã duy nhất thì phải?

 

[olegtran]

Phiếu xuất, phiếu nhập thì bạn nên sử dụng SheetForm sẽ thuận tiện cho việc in phiếu và việc nhập liệu hàng hóa sẽ nhanh hơn là dùng UserForm.

Cảm ơn góp ý của be09,
Sử dụng SheetForm tôi sẽ nhanh và thuận tiện hơn userform, nhưng tôi nghĩ chỉ đúng với các thao tác khi nhập liệu kho đơn giản (không cần kiểm tra, tính toán).

Khi nhập liệu cần tính toán và kiểm tra, tôi vẫn phải dùng UF:
VD:
1- tên hàng cả vài trăm, phải lọc theo ký tự
2- kiểm tra số seri hàng đầu lần sau phải là seri cuối lần trước + 1
3- số xuất phải < số tồn
3- format dữ liệu phải hợp lệ, ...
lúc này dùng SheetForm không biết có tiện không?

 

[Hoàng Nhật Phương]

Cảm ơn góp ý của be09,
Sử dụng SheetForm tôi sẽ nhanh và thuận tiện hơn userform, nhưng tôi nghĩ chỉ đúng với các thao tác khi nhập liệu kho đơn giản (không cần kiểm tra, tính toán).

Khi nhập liệu cần tính toán và kiểm tra, tôi vẫn phải dùng UF:
VD:
1- tên hàng cả vài trăm, phải lọc theo ký tự
2- kiểm tra số seri hàng đầu lần sau phải là seri cuối lần trước + 1
3- số xuất phải < số tồn
3- format dữ liệu phải hợp lệ, ...
lúc này dùng SheetForm không biết có tiện không?

Xin chào @olegtran:
OT không dám tranh luận giữa sheetForm & UserForm cái nào tiện hơn (vì ở đây cũng có nhiều "cây cổ thụ" chuyên về UserForm & SheetForm ),
OT chỉ nói quan điểm của OT cảm nhận trong môi trường làm việc nhiều với thôi:
Đúng như bạn nói tùy theo mục đích sử dụng mà ta lựa chọn, cũng giống như Excel có thể thiết kế bản vẽ như nhà cửa cơ bản giống như Autocad chẳng hạn người nào biết viề Excel mà không biết Cad chắc là sẽ dùng Excel , nhưn nếu biết cả 2 thì chắc chắn họ sẽ phân biệt được cái nào ưu việt hơn hẳn để sử dụng phải không?
Với mục 1 như bạn nêu, OT thấy dùng UF là hợp lý (kết hợp được việc tìm kiếm nhanh và nhập liệu), chính vì thế OT cũng đã từng loay hoay mãi với bài này:

Demo Form tìm kiếm nhiều cột trong Listbox

Form tìm kiếm listbox thì diễn đàn cũng có nhiều bài rồi nhưng nó nằm chung trong các bài hỏi của thành viên nên tìm cũng mệt :). Vừa làm vừa học nên tôi tạo cái post này cho dễ tìm kiếm và nhờ các anh em giúp cải thiện cái form này cho chạy trơn tru và thuận tiện nhé. - Form dùng tìm kiếm theo...

www.giaiphapexcel.com

Hoặc ứng dụng bài này:

Khai thác và tùy biến thêm, sửa, xuất file và lấy dữ liệu từ Recordset

Tôi vận dụng và khai thác cái hàm lọc vào cái form lọc dữ liệu, các bạn có thể tham khảo và tùy biến sử dụng nhé. Dim rst As Object Private Sub TextBox1_Change() Dim arr As Variant If TextBox1.Text = "" Then rst.Filter = 0 Else rst.Filter = "Code like '*" &...

www.giaiphapexcel.com

OT chỉ sư dụng nó để tìm kiếm & nhập liệu với mã hàng như bạn nói.
Còn các dữ liệu ở các trường khác như mục 2,3 của bạn OT cho rằng nhập liệu trên SheetForm là hợp lý nhất, sẽ nhanh và cũng có thể kiểm soát quá trình nhập liệu bằng cách sử dụng 'data validation ' hoặc kết hợp thêm chút với VBA (bạn có thể làm được UF đẹp và chuyên nghiệp vậy có lẽ kiến thức VBA của bạn không phải vừa)

Không tranh luận đâu nhé hihi, chỉ là cảm nhận của OT thôi,
Công nhận UF bạn thiết kế đẹp thật đấy.

 

[olegtran]

Xin hỏi chủ bài đăng 1 câu ngu ngơ chút: Sao bạn phải chọn dòng cuối trong ListBox 1 khi mở form vậy? Bạn muốn biết dữ liệu dòng cuối trong trang tính ư?

Mà hình như hàng hóa của bạn chưa được ấn định mã duy nhất thì phải?

Cảm ơn SA_DQ đã quan tâm.
Cái hình chỉ minh họa cho câu hỏi thôi,
Bài toán tôi quan tâm form nhập liệu nhiều hơn, bài toán khác, btoán quản lý xe bus, vừa nhập vừa ktra số liệu khi nhập.

Việc cần chọn dòng cuối lý do: khi clik vào nó thì số liệu được load lên form. Hàng ngày cần ktra những số mới nhất update từ các bộ phận nhập liệu.
Dùng nút KT để ktra số km - có phù hợp với số liệu tương ứng vói từng xe? số seri - có phù hợp với số liệu từng NV bán vé không? (vì có nhiều xe / nhiều NV bán vé)

Nếu như thế này, muốn ktra số liệu mới nhập phải kéo xuống

 

[olegtran]

Xin chào @olegtran:
OT không dám tranh luận giữa sheetForm & UserForm cái nào tiện hơn (vì ở đây cũng có nhiều "cây cổ thụ" chuyên về UserForm & SheetForm ),
OT chỉ nói quan điểm của OT cảm nhận trong môi trường làm việc nhiều với thôi:
Đúng như bạn nói tùy theo mục đích sử dụng mà ta lựa chọn, cũng giống như Excel có thể thiết kế bản vẽ như nhà cửa cơ bản giống như Autocad chẳng hạn người nào biết viề Excel mà không biết Cad chắc là sẽ dùng Excel , nhưn nếu biết cả 2 thì chắc chắn họ sẽ phân biệt được cái nào ưu việt hơn hẳn để sử dụng phải không?
Với mục 1 như bạn nêu, OT thấy dùng UF là hợp lý (kết hợp được việc tìm kiếm nhanh và nhập liệu), chính vì thế OT cũng đã từng loay hoay mãi với bài này:

Demo Form tìm kiếm nhiều cột trong Listbox

Form tìm kiếm listbox thì diễn đàn cũng có nhiều bài rồi nhưng nó nằm chung trong các bài hỏi của thành viên nên tìm cũng mệt :). Vừa làm vừa học nên tôi tạo cái post này cho dễ tìm kiếm và nhờ các anh em giúp cải thiện cái form này cho chạy trơn tru và thuận tiện nhé. - Form dùng tìm kiếm theo...

www.giaiphapexcel.com

Hoặc ứng dụng bài này:

Khai thác và tùy biến thêm, sửa, xuất file và lấy dữ liệu từ Recordset

Tôi vận dụng và khai thác cái hàm lọc vào cái form lọc dữ liệu, các bạn có thể tham khảo và tùy biến sử dụng nhé. Dim rst As Object Private Sub TextBox1_Change() Dim arr As Variant If TextBox1.Text = "" Then rst.Filter = 0 Else rst.Filter = "Code like '*" &...

www.giaiphapexcel.com

OT chỉ sư dụng nó để tìm kiếm & nhập liệu với mã hàng như bạn nói.
Còn các dữ liệu ở các trường khác như mục 2,3 của bạn OT cho rằng nhập liệu trên SheetForm là hợp lý nhất, sẽ nhanh và cũng có thể kiểm soát quá trình nhập liệu bằng cách sử dụng 'data validation ' hoặc kết hợp thêm chút với VBA (bạn có thể làm được UF đẹp và chuyên nghiệp vậy có lẽ kiến thức VBA của bạn không phải vừa)

Không tranh luận đâu nhé hihi, chỉ là cảm nhận của OT thôi,
Công nhận UF bạn thiết kế đẹp thật đấy.

rất cảm ơn bạn quan tâm, mình là dân toán, thích exel, lâu lâu "chọt" một cái, không phải lập trình.
Lập trình cho người sử dụng thuộc nhóm "không hiểu gì về exel" nên mình hay dùng userform để họ khỏi chạm vào công thức. Nếu viết để mình dùng thì khác.
Sau này nếu có gì mình sẽ hỏi thêm bạn. Chắc bạn biết và làm nhiều về VBA.

 

[Hoàng Nhật Phương]

Sau này nếu có gì mình sẽ hỏi thêm bạn. Chắc bạn biết và làm nhiều về VBA.

Hehe, OT lên đây chủ yếu là hỏi về code thôi còn các vấn đề khác rất là ít.
Bạn hỏi mình á,, hihi.OK luôn nếu mình có 'điều kiện' (thời gian và kiến thức).

 

[ongke0711]

Việc cần chọn dòng cuối lý do: khi clik vào nó thì số liệu được load lên form. Hàng ngày cần ktra những số mới nhất update từ các bộ phận nhập liệu.

Nên sắp xếp dữ liệu giảm dần theo ngày khi load dữ liệu lên listbox để khỏi phải di chuyển chuột tới dòng cuối. Nếu số lượng dòng dữ liệu lớn, việc di chuyển đến dòng cuối sẽ tốn tài nguyên máy.
(Nền xanh form của bạn sáng quá, dễ gây mỏi mắt nếu thường xuyên thao tác trên đó)

 

[batman1]

Nên sắp xếp dữ liệu giảm dần theo ngày khi load dữ liệu lên listbox để khỏi phải di chuyển chuột tới dòng cuối. Nếu số lượng dòng dữ liệu lớn, việc di chuyển đến dòng cuối sẽ tốn tài nguyên máy.
(Nền xanh form của bạn sáng quá, dễ gây mỏi mắt nếu thường xuyên thao tác trên đó)

Bạn có thể giải thích rõ chỗ đỏ đỏ được không? Tôi không hiểu là giữa chọn vd. mục 15 và mục 300 nó tốn TÀI NGUYÊN khác nhay ở chỗ nào. Chọn mục 300 thì tốn thêm TÀI NGUYÊN nào. Tôi thú nhận ngay không cần tra tấn, là tôi không biết khi chọn mục 300 thì tốn thêm TÀI NGUYÊN nào.

Nên nhớ là việc sắp xếp dữ liệu mỗi khi có dữ liệu mới cũng tốn thời gian chứ không phải "chả tốn gì" đâu nhé.

Và phải làm gì khi làm việc A thì cần chọn dữ liệu mới nhất, còn làm việc B thì phải chọn dữ liệu cũ nhất? Mỗi khi làm việc A thì sắp xếp lại dữ liệu tăng dần, còn khi làm việc B thì sắp xếp lại nhưng giảm dần?

 

[be_09]

Cảm ơn góp ý của be09,
Sử dụng SheetForm tôi sẽ nhanh và thuận tiện hơn userform, nhưng tôi nghĩ chỉ đúng với các thao tác khi nhập liệu kho đơn giản (không cần kiểm tra, tính toán).

Khi nhập liệu cần tính toán và kiểm tra, tôi vẫn phải dùng UF:
VD:
1- tên hàng cả vài trăm, phải lọc theo ký tự
2- kiểm tra số seri hàng đầu lần sau phải là seri cuối lần trước + 1
3- số xuất phải < số tồn
3- format dữ liệu phải hợp lệ, ...
lúc này dùng SheetForm không biết có tiện không?

Tôi góp ý cho bạn thì tôi biết chắc chắn dùng SheetForm sẽ nhanh hơn, thuận tiện hơn trong việc in phiếu và việc nhập liệu hàng loạt, nếu bạn dùng UserForm thì bạn in phiếu bằng cách nào?
Thật ra khi nhập liệu hàng hóa thì tôi cũng dùng UserForm với 1 List box để chọn và hàng hóa hàng loạt để gán vào SheetForm ở những chỗ cần.
Ở đây tôi chỉ góp ý xem như cho bạn thêm 1 ý tưởng chứ tôi cũng không rảnh làm cho bạn từ A > Z.

 

[batman1]

Tôi góp ý cho bạn thì tôi biết chắc chắn dùng SheetForm sẽ nhanh hơn, thuận tiện hơn trong việc in phiếu và việc nhập liệu hàng loạt, nếu bạn dùng UserForm thì bạn in phiếu bằng cách nào?
Thật ra khi nhập liệu hàng hóa thì tôi cũng dùng UserForm với 1 List box để chọn và hàng hóa hàng loạt để gán vào SheetForm ở những chỗ cần.
Ở đây tôi chỉ góp ý xem như cho bạn thêm 1 ý tưởng chứ tôi cũng không rảnh làm cho bạn từ A > Z.

Góp ý thì ai cũng có quyền, nhưng khi người ta nói là người ta muốn cái khác thì không nên ép. Có kiểu gì mà bắt người ta phải sướng khi người ta không thích sướng mà chỉ thích khổ? Mà với mình có thể là sướng nhưng với người ta đã chắc gì. Có người phải ăn roi mới thấy sướng thì cứ ở đó mà ép theo ý mình nhé. Người ta có quyền lựa chọn theo ý người ta. Nếu người ta chọn cái, mà theo mình là kém hơn, thì cũng nên tôn trọng sự lựa chọn của người ta. Làm gì có chuyện mày không muốn nhưng tao ép mày phải chọn sướng?
Công việc là của người ta, làm được hay không người ta tự chịu. Cuộc sống là của người ta, không ai sống thay họ được. Họ có thể chỉ muốn sống tới 70 tuổi nhưng nếm trải mọi thứ trên đời, cháy hết mình thay vì sống mà không dám ăn, không dám chơi, không dám trải nghiệm, chỉ để sống thêm 10, 20 năm nữa nhưng thực ra chỉ là tồn tại trong vô thức. Đừng mang cái thước của mình ra đo người khác, mang cái mẫu của mình bắt người khác theo. Muốn cho ai đó thêm lựa chọn thì cứ tự nhiên. Nhưng đừng ép người ta.

 

[be_09]

Góp ý thì ai cũng có quyền, nhưng khi người ta nói là người ta muốn cái khác thì không nên ép. Có kiểu gì mà bắt người ta phải sướng khi người ta không thích sướng mà chỉ thích khổ? Mà với mình có thể là sướng nhưng với người ta đã chắc gì. Có người phải ăn roi mới thấy sướng thì cứ ở đó mà ép theo ý mình nhé. Người ta có quyền lựa chọn theo ý người ta. Nếu người ta chọn cái, mà theo mình là kém hơn, thì cũng nên tôn trọng sự lựa chọn của người ta. Làm gì có chuyện mày không muốn nhưng tao ép mày phải chọn sướng?
Công việc là của người ta, làm được hay không người ta tự chịu. Cuộc sống là của người ta, không ai sống thay họ được. Họ có thể chỉ muốn sống tới 70 tuổi nhưng nếm trải mọi thứ trên đời, cháy hết mình thay vì sống mà không dám ăn, không dám chơi, không dám trải nghiệm, chỉ để sống thêm 10, 20 năm nữa nhưng thực ra chỉ là tồn tại trong vô thức. Đừng mang cái thước của mình ra đo người khác, mang cái mẫu của mình bắt người khác theo. Muốn cho ai đó thêm lựa chọn thì cứ tự nhiên. Nhưng đừng ép người ta.

Bài 13 tôi nêu cụ thể: Tôi góp ý xem như cho bạn thêm 1 ý tưởng và cũng nêu rỏ dùng SheetForm sẽ nhanh hơn, thuận tiện hơn trong việc in phiếu. Nếu người biết tiếp thu ý kiến thì họ sẽ làm thử với 2 phương pháp SheetForm và UserForm để biết cái nào nhanh hơn và cái nào thuận tiện hơn.

Vậy thì tôi bắt ép họ chỗ nào trong cái góp ý bêu trên?

 

[batman1]

Bài 13 tôi nêu cụ thể: Tôi góp ý xem như cho bạn thêm 1 ý tưởng và cũng nêu rỏ dùng SheetForm sẽ nhanh hơn, thuận tiện hơn trong việc in phiếu. Nếu người biết tiếp thu ý kiến thì họ sẽ làm thử với 2 phương pháp SheetForm và UserForm để biết cái nào nhanh hơn và cái nào thuận tiện hơn.

Vậy thì tôi bắt ép họ chỗ nào trong cái góp ý bêu trên?

Nếu tôi không lầm thì bạn giới thiệu trong bài #4 và người ta đã cám ơn trong bài #6. Vậy thêm bài #13 có nghĩa gì? "Ép"? "Nài nỉ"?

Nhưng cũng phải công nhận là nhiều người không nhận ra cái hay, cái tốt ngay cả khi những người khác đã chỉ ra. Chỉ đến khi thuyết phục nhiều lần họ mới chấp nhận. Vậy nài nỉ cũng có cơ hội thành công.

Đây chỉ là ý kiến chủ quan của tôi thôi. Không phải là "qui tắc" mà mọi người phải tuân thủ.

 

[olegtran]

Nếu tôi không lầm thì bạn giới thiệu trong bài #4 và người ta đã cám ơn trong bài #6. Vậy thêm bài #13 có nghĩa gì? "Ép"? "Nài nỉ"?

Nhưng cũng phải công nhận là nhiều người không nhận ra cái hay, cái tốt ngay cả khi những người khác đã chỉ ra. Chỉ đến khi thuyết phục nhiều lần họ mới chấp nhận. Vậy nài nỉ cũng có cơ hội thành công.

Đây chỉ là ý kiến chủ quan của tôi thôi. Không phải là "qui tắc" mà mọi người phải tuân thủ.

Cảm ơn sự quan tâm của batman1 và be09 nhiều.
Quả thật thay đổi thói quen và suy nghĩ của bản thân là rất khó. ( quen ăn chay mà chưa biết đến thịt thì cứ tưởng đậu phụ là ngon nhất!). Tôi sẽ xem lại cách để "sướng" hơn mà các bạn gợi ý.

 

[be_09]

Nếu tôi không lầm thì bạn giới thiệu trong bài #4 và người ta đã cám ơn trong bài #6. Vậy thêm bài #13 có nghĩa gì? "Ép"? "Nài nỉ"?

Nhưng cũng phải công nhận là nhiều người không nhận ra cái hay, cái tốt ngay cả khi những người khác đã chỉ ra. Chỉ đến khi thuyết phục nhiều lần họ mới chấp nhận. Vậy nài nỉ cũng có cơ hội thành công.

Đây chỉ là ý kiến chủ quan của tôi thôi. Không phải là "qui tắc" mà mọi người phải tuân thủ.

1/ Bài 4 tôi nêu rỏ là nên sử dụng SheetForm đó là một lời khuyên.
2/ Về SheetForm thì tôi đã giúp cho rất nhiều thành viên trên diễn đàn nhưng chưa bao giờ thấy ai phản ảnh, tại bài 15 tôi cũng khuyên chủ Topic hãy làm thử với 2 phương pháp SheetForm và UserForm để so sánh thì sẽ biết. Chắc người ta dốt không biết thử nghiệm à.

Bài đã được tự động gộp: 8/1/21

Cảm ơn sự quan tâm của batman1 và be09 nhiều.
Quả thật thay đổi thói quen và suy nghĩ của bản thân là rất khó. ( quen ăn chay mà chưa biết đến thịt thì cứ tưởng đậu phụ là ngon nhất!). Tôi sẽ xem lại cách để "sướng" hơn mà các bạn gợi ý.

Tôi gợi ý để bạn làm thử với 2 phương pháp SheetForm và UserForm, sau đó so sánh 2 phương pháp này để lựa chọn cái phù hợp cho công việc của bạn.
Vì công việc là của bạn nên không ai có quyền ép buộc bạn phải làm những điều mà bản thân không mong muốn.