Tự động hiển thị danh sách thả xuống lấy giá trị từ một ô

[letienmai]

Kính chào: anh/chị
Em có một vấn đề gặp phải nhưng làm mãi không được nên nhờ anh/chị bớt chút thời gian xem qua và giúp đỡ với nội dung như sau:
Khi nhập các giá trị bất kỳ trong cột A, các giá trị ngăn cách nhau bằng dấu "," thì cột B tự động hiển thị drop-down list theo các giá trị tương ứng ở cột A
Cụ thể em có đính kèm file.
Xin cám ơn mọi ý kiến đóng góp giúp đỡ.

 

[giaiphap]

Kính chào: anh/chị
Em có một vấn đề gặp phải nhưng làm mãi không được nên nhờ anh/chị bớt chút thời gian xem qua và giúp đỡ với nội dung như sau:
Khi nhập các giá trị bất kỳ trong cột A, các giá trị ngăn cách nhau bằng dấu "," thì cột B tự động hiển thị drop-down list theo các giá trị tương ứng ở cột A
Cụ thể em có đính kèm file.
Xin cám ơn mọi ý kiến đóng góp giúp đỡ.

Dùng code này xem được không?

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column > 1) Or (Target.Cells.Count > 1) Then Exit Sub
    With Target.Offset(, 1).Validation
        .Delete
        If Target <> Empty Then .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Target.Value
    End With
End Sub

 

[batman1]

............

 

[be_09]

Kính chào: anh/chị
Em có một vấn đề gặp phải nhưng làm mãi không được nên nhờ anh/chị bớt chút thời gian xem qua và giúp đỡ với nội dung như sau:
Khi nhập các giá trị bất kỳ trong cột A, các giá trị ngăn cách nhau bằng dấu "," thì cột B tự động hiển thị drop-down list theo các giá trị tương ứng ở cột A
Cụ thể em có đính kèm file.
Xin cám ơn mọi ý kiến đóng góp giúp đỡ.

1/ Làm thì được, nhưng mục đích để làm gì khi không có File thực tế.
2/ Nếu có File thực tế các thành viên khác sẽ có giải pháp khác hay hơn là cái bạn tự nghĩ.

 

[letienmai]

1/ Làm thì được, nhưng mục đích để làm gì khi không có File thực tế.
2/ Nếu có File thực tế các thành viên khác sẽ có giải pháp khác hay hơn là cái bạn tự nghĩ.

Dạ em có đính kèm file. Nhờ anh xem lại giúp.

Bài đã được tự động gộp: 16/7/18

Dùng code này xem được không?

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column > 1) Or (Target.Cells.Count > 1) Then Exit Sub
    With Target.Offset(, 1).Validation
        .Delete
        If Target <> Empty Then .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Target.Value
    End With
End Sub

Quá tuyệt vời, em cám ơn anh nhiều lắm....
Chúc anh nhiều sức khỏe.