Nhờ giúp Form nhập liệu

[Angel_love_hi]

Tình hình là mình mới tập làm VBA, nhờ mọi người viết hộ đoạn code cho form nhập liệu theo tệp đính kèm với nha. Trân trọng cảm ơn nhiều

 

[Angel_love_hi]

Mình vẫn chưa làm được, bạn giúp mình được không?

 

[giaiphap]

Mình vẫn chưa làm được, bạn giúp mình được không?

Bạn đưa cái Form lên nhờ người khác giúp tất tần tật thì chắc không ai giúp rồi. Chỉ có thể giúp một nút lệnh nào đó sau đó dựa vào code và phát triển thêm thì được.

 

[peternhp29]

Tình hình là mình mới tập làm VBA, nhờ mọi người viết hộ đoạn code cho form nhập liệu theo tệp đính kèm với nha. Trân trọng cảm ơn nhiều

Mình có file nhập liệu, code không được hay nhưng vẫn giúp mình nhập liệu ổn. Bạn thích thì tìm hiểu.

 

[SA_DQ]

Tình hình là mình mới tập làm VBA, nhờ mọi người viết hộ đoạn code cho form nhập liệu theo tệp đính kèm với nha. Trân trọng cảm ơn nhiều

Chí ít bạn nên nhập 2 dòng dữ liệu xem bạn xài kiểu dữ liệu gì chứ?
Trên file chỉ có 2 ô chứa dữ liệu trời ơi thế kia thì bạn không sợ những người có nhã í giúp bạn sẽ nản não nề hay sao?
Làm ơn đưa file khác có nhiều dữ liệu lên đi!

Thân/

 

[peternhp29]

Chí ít bạn nên nhập 2 dòng dữ liệu xem bạn xài kiểu dữ liệu gì chứ?
Trên file chỉ có 2 ô chứa dữ liệu trời ơi thế kia thì bạn không sợ những người có nhã í giúp bạn sẽ nản não nề hay sao?
Làm ơn đưa file khác có nhiều dữ liệu lên đi!

Thân/

Chào bạn,

Bạn có thể cái tiến giúp mình ở ô MSBun, mình đã cố gắng tạo 1 dropdownlist nhưng lúc danh sách sổ xuống chỉ có 1 dòng. Bạn có thể hỗ trợ mình 1 đoạn code thay đổi kích thước danh sách để thấy được nhiều item hơn.

Mình cảm ơn.

 

[SA_DQ]

Bạn có thể cái tiến giúp mình ở ô MSBun, mình đã cố gắng tạo 1 dropdownlist nhưng lúc danh sách sổ xuống chỉ có 1 dòng. Bạn có thể hỗ trợ mình 1 đoạn code thay đổi kích thước danh sách để thấy được nhiều item hơn.

Bạn xem file có đúng í bạn không?

 

[peternhp29]

Bạn xem file có đúng í bạn không?

Cảm ơn bạn đã giúp đỡ, có lẽ mình nói không rõ ý.

Ý mình ở đây là lúc mình nhập (như hình ảnh đính kèm), mình nhập P30 thì nó sẽ xổ ra 1 danh sách, mà danh sách của mình chỉ hiện ra 1 dòng, mình muốn cái danh sách đó dài ra thêm khoảng 3 dòng thôi. Vì ngoài P30BLS7 mình còn có P30BLS3 và P30BLSF, mình muốn xổ ra để dễ chọn nhanh hơn và theo dõi mã số, thay vì đánh hết... Đoạn code của mình nó chỉ có vậy thôi, lấy dữ liệu và xổ danh sách.

Private Sub ComboBox1_Change()
Dim a As Object
For Each a In Sheet11.Range("a2:a534")
ComboBox1.AddItem a
ComboBox1.DropDown

Next
End Sub

 

[giaiphap]

View attachment 203408
Cảm ơn bạn đã giúp đỡ, có lẽ mình nói không rõ ý.

Ý mình ở đây là lúc mình nhập (như hình ảnh đính kèm), mình nhập P30 thì nó sẽ xổ ra 1 danh sách, mà danh sách của mình chỉ hiện ra 1 dòng, mình muốn cái danh sách đó dài ra thêm khoảng 3 dòng thôi. Vì ngoài P30BLS7 mình còn có P30BLS3 và P30BLSF, mình muốn xổ ra để dễ chọn nhanh hơn và theo dõi mã số, thay vì đánh hết... Đoạn code của mình nó chỉ có vậy thôi, lấy dữ liệu và xổ danh sách.

Private Sub ComboBox1_Change()
Dim a As Object
For Each a In Sheet11.Range("a2:a534")
ComboBox1.AddItem a
ComboBox1.DropDown

Next
End Sub

Thử vầy xem, hên xui nhé.

Private Sub ComboBox1_Change()
Dim a As Object, Arr As Variant
Application.EnableEvents = False
Arr = Filter(Application.Transpose(Sheet11.Range("a2:a534").Value2), ComboBox1.Text)
ComboBox1.List = Arr
Application.EnableEvents = True
ComboBox1.DropDown
End Sub

 

[peternhp29]

Thử vầy xem, hên xui nhé.

Private Sub ComboBox1_Change()
Dim a As Object, Arr As Variant
Application.EnableEvents = False
Arr = Filter(Application.Transpose(Sheet11.Range("a2:a534").Value2), ComboBox1.Text)
ComboBox1.List = Arr
Application.EnableEvents = True
ComboBox1.DropDown
End Sub

Cảm ơn bạn, đã xài ngon lành.

Cho mình hỏi ngu thêm là lúc mình đánh nó tự gợi ý bởi cái đuôi phía sau bôi đen, mình loại bỏ điều đó được không?

 

[giaiphap]

Cảm ơn bạn, đã xài ngon lành.

Cho mình hỏi ngu thêm là lúc mình đánh nó tự gợi ý bởi cái đuôi phía sau bôi đen, mình loại bỏ điều đó được không?

Vậy tôi trả lời ngu thế này.

 

[peternhp29]

Vậy tôi trả lời ngu thế này.
View attachment 203416

Cảm ơn anh và mọi người đã dành chút thời gian để xem qua và giúp đỡ em. Em trả lại topic cho chủ topic. Cảm ơn 2 anh @giaiphap và @SA_DQ rất nhiều.