Nhờ tạo combobox để chọn tên được nhiều hơn validation

[Lê Duy Thương]

Kính gửi anh chị em trong diễn đàn
Nói về code thì thực sự tôi rất mù tịt kiến thức
Vậy tôi gửi file nhờ ACE GPE giúp đỡ tạo cho tôi cái COMBO BOX để chọn mã hàng được nhiều hơn VALIDATION (thứ nhất là để đáp ứng cho công việc , thứ hai để nghiên cứu và học hỏi)
YÊU CẦU xin vui lòng xem file
trân trọng cảm ơn
LÊ DUY THƯƠNG

 

[Hai Lúa Miền Tây]

Kính gửi anh chị em trong diễn đàn
Nói về code thì thực sự tôi rất mù tịt kiến thức
Vậy tôi gửi file nhờ ACE GPE giúp đỡ tạo cho tôi cái COMBO BOX để chọn mã hàng được nhiều hơn VALIDATION (thứ nhất là để đáp ứng cho công việc , thứ hai để nghiên cứu và học hỏi)
YÊU CẦU xin vui lòng xem file
trân trọng cảm ơn
LÊ DUY THƯƠNG

Sau khi vẽ Combobox, bạn click chọn Properties của nó, Dò đến mục ListfillRange bạn gõ tên dữ liệu cần nạp vào Combo, chỉnh mục ListRow từ 8 dòng sang 20 dòng hay nhiều hơn tùy bạn. Còn những thuộc tính khác bạn thử từ từ nghiên cứu nhé.

 

[ptm0412]

Một gợi ý:
Hãy tạo 1 list gồm những mã hàng duy nhất dùng làm List Fill Range, vừa tiết kiệm bộ nhớ, vừa không phải kéo thanh cuộn nhiều, vừa khỏi ngó thấy mấy cái không phải mã (thí dụ như tiêu đề "Style"), vừa không có 600 dòng trắng bên dưới (thanh cuộn bự ra dễ nắm kéo hơn), vừa ngon, vừa bổ, vừa rẻ, vừa đẹp, ...

 

[Lê Duy Thương]

Một gợi ý:
Hãy tạo 1 list gồm những mã hàng duy nhất dùng làm List Fill Range, vừa tiết kiệm bộ nhớ, vừa không phải kéo thanh cuộn nhiều, vừa khỏi ngó thấy mấy cái không phải mã (thí dụ như tiêu đề "Style"), vừa không có 600 dòng trắng bên dưới (thanh cuộn bự ra dễ nắm kéo hơn), vừa ngon, vừa bổ, vừa rẻ, vừa đẹp, ...

cám ơn bác và anh Dởm em đã làm ok rồi
bác cho em hỏi thêm tý nhé
có cách nào mà khi combo box link cells mà có dữ liệu thì nhảy xuống cells bên dưới trong dãy không ạ
ví dụ
khi combo box ghi dữ liệu vào cell A1 khi có dữ liệu ở A1 rồi thì ghi vào A2

 

[ptm0412]

Cái đó, 1 là combobox động, 2 là dùng code gán giá trị. Đều phải dùng VBA.

 

[Hai Lúa Miền Tây]

cám ơn bác và anh Dởm em đã làm ok rồi
bác cho em hỏi thêm tý nhé
có cách nào mà khi combo box link cells mà có dữ liệu thì nhảy xuống cells bên dưới trong dãy không ạ
ví dụ
khi combo box ghi dữ liệu vào cell A1 khi có dữ liệu ở A1 rồi thì ghi vào A2

Bạn xem thử ví dụ nhé.

 

[sealand]

A Dom à, viết như thế này mình thấy gọn hơn 1 chút và đảm bảo data không rỗng:

Private Sub ComboBox1_Change()
With Sheet1.[a1].End(xlDown).Offset(1)
.Value = ComboBox1
.Offset(, 1) = ComboBox1.Column(1)
  End With
  End Sub

 

[Lê Duy Thương]

A Dom à, viết như thế này mình thấy gọn hơn 1 chút và đảm bảo data không rỗng:

Private Sub ComboBox1_Change()
With Sheet1.[a1].End(xlDown).Offset(1)
.Value = ComboBox1
.Offset(, 1) = ComboBox1.Column(1)
  End With
  End Sub

cám ơn không nói hết
bây giờ enm đang nghiên cứa
các code của 2 bác