Nhờ cả nhà sửa giúp code với vòng lặp For-Next (1 người xem)

[ftthua2003]

Nội dung mình gửi theo file đính kèm.

 

[ftthua2003]

To Bác VietMini

Tôi cũng từng học trường ĐH BK tpHCM
Tuy tôi không học ngành xây dựng nhưng chúng tôi, tức là mọi ngành, đều học chung môn lập trình.
Vì vậy tôi biết khả năng lập trình của dân ngành chính quy xây dựng.
Chuyện qua loa thì có lẽ do trường học của bạn, không phải do ngành học.

Máy hôm nay do bận công việc nên chưa trả lời Bác được.
- Mình cũng dân BKDN, mình nhớ luc đó học C thì phải. Trường thì đào tạo bài bản, nhưng lúc đó học chỉ mong thi qua môn nên ra trường 10 năm nay không sử dụng đến nên không còn nhớ tí nào cả. Nên bây giờ nghiên cứu VBA mình phải bắt đầu từ con số 0.
- Mình cũng chỉ mong khi học VBA phục vụ công việc của mình mà thôi.
Qua diễn đàn GPE mình thấy Bác am hiểu, kiến thức về VBA và những môn lập trình khác rất rộng và sâu. Mình rất hâm mộ.
Vài lời chia sẻ cùng Bác VetMini.

 

[ftthua2003]

Mình có 02 vấn đề mong được cả nhà giúp đỡ!
- Hôm nay mình mới copy toàn bộ dữ liệu vào file thì khi kích chọn trong sự kiện Selection Change hiện ListBox để nhập liệu và tìm kiếm tên vật tư, sự kiện Selection Change hiện ListBox xử lý rất chậm. Xin cả nhà chỉ giúp cách xử lý nhanh hơn.
- Và như Bài #18 mình đã nói, mình đưa file Nhập xuất của mình lên , mong được các bạn xem qua và góp ý giúp mình để file hoàn thiện hơn.
Code trong file có sử dụng các anh chị đã góp ý và hướng dẫn.
Xin cảm ơn rất nhiều!

 

[ftthua2003]

Dòng đỏ đỏ ở trên í bạn là sao??? Khi lick chuột vào vùng điều kiện thì Sự kiện show cái User Form của bạn lên có độ trễ hay sao???

Như bạn nói User form có độ trễ, với dữ liệu ít thì chạy được nhưng với Dữ liệu mình Mail lên GPE thì xử lý chậm hơn rất nhiều. Tương lai trong quá trình mình sử dụng khi Phần Dữ liệu cập nhật bổ sung nữa thì mình nghĩ Sử dụng User Form chắc Tèo quá.

Nếu muốn thì dòng đỏ đỏ ấy không cần user form, có thể làm trực tiếp trên Range (sheet) đó luôn thông qua 1 vài cái textbox+listbox sẽ cho tốc độ nhanh hơn show form...

Trước kia mình có sử dụng Combobox để nhập liệu nhưng để tìm kiếm tên vật tư trên Combobox mình làm không được. Nên có nhờ diễn đàn giúp đỡ và chuyển qua UserForm như Bảng hiện tại.
Nếu được bạn giúp đỡ kết hợp nhập liệu bẳng textbox+listbox và kèm chức năng bổ sung "Khi ta gõ 1 kí tự bất kỳ vào textbox thì sẽ hiển thị toàn bộ tên vật tư lên Listbox để chọn tên vật tư đó và các sự kiện như dùng mũi tên bàn phím, lăn chuột, tab để chọn nữa " thì quả thật không còn gì tuyệt vời hơn.
Xin cảm ơn bạn rất nhiều và mong có kết quả thành công mỹ mãn.

 

[ftthua2003]

cảm nhận nó như thế nào nhé!
Chỉ vậy thôi...!

Thật tuyệt vời bạn hpkhuong!!!
- File chạy nhanh hơn sử dụng User Form rất nhiều Và linh hoạt hơn về cách nhập liệu vào bảng tính(File đã sử dụng nhiều sự kiện của bàn phím và chuột vào lựa chọn).
Chỉ còn 1 tí nữa là hoàn hảo đó là chỉnh lại độ rộng 4 cột trong Listbox1 và Listbox2. Mình đã xem code xử lý độ rộng nhưng mình chỉnh lại chưa được, mình nghĩ ở chổ này.Col = ActiveCell.Offset(1).Width
ColA = 0.1 * Col + 0.2 * Col + 0.55 * Col
ColB = 0.1 * Col & ";" & 0.2 * Col & ";" & 0.55 * Col & ";" & Col - ColA - 4
Bạn sửa giúp mình theo khoảng cách giữa các cột theo hình sau giúp mình với.
Cảm ơn bạn hpkhuong!!! rất nhiều!!!

 

[ftthua2003]

- Độ rộng của Listbox1 và listbox 2 co dãn theo Cột D thì đúng rồi bạn.
- Nhưng Trong List box1 và Listbox2 mình có chia ra thành 4 cột lần lượt chứa tên (Số thứ tự; Mã vật tư; tên vật tư; Đvt)- Ý mình ở đây là chỉnh lại độ rộng của các cột trong 2 Listbox đó. Vì như bạn thấy cột chứa Đvt mình không cần rộng như vậy, mà ở đây Cột mình cần rộng là cột chứaTên vật tư, như vậy mình đọc tên vật tư dễ hơn và khai thác hết độ rộng cột trên Listbox)
Nên ý mình gửi hình lên để bạn canh tỷ lệ độ rộng của các cột theo hình đó một cách tương đối.
Xin cảm ơn bạn rất nhiều.

 

[ftthua2003]

Vậy bạn lấy lại 2 dòng sau. Thế cho 2 dòng ở trên

ColA = 0.08 * Col + 0.19 * Col + 0.62 * Col
ColB = 0.08 * Col & ";" & 0.19 * Col & ";" & 0.62 * Col & ";" & Col - ColA - 4

Rồi test xem có ổn chưa? có ưng í chưa nha.

Vẫn chưa được bạn ah.
Mình gửi hình kèm theo nhé!!!
Hoặc bạn có thể hướng dẫn cho mình cách tính các con số trong code sau
(ColA = 0.08 * Col + 0.19 * Col + 0.62 * Col
ColB = 0.08 * Col & ";" & 0.19 * Col & ";" & 0.62 * Col & ";" & Col - ColA - 4)
Vì mình đã thử nhập nhưng mình chưa tìm ra quy tắc các con số lấy từ đâu ​
Cảm ơn bạn rất nhiều!!!

 

[ftthua2003]

Mình inbox teamview vào hộp thư bạn rôi, bạn xem giúp mình nhé!