Tạo Data validation Multi Select (1 người xem)

[hieubt]

Em muốn làm file dùng Data validation tạo list tùy chọn nhập số liệu, các cột từ D đến I làm được như cột C.

Nhờ các bác hỗ trợ giúp em.



quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[giaiphap]

Em muốn làm file dùng Data validation tạo list tùy chọn nhập số liệu, các cột từ D đến I làm được như cột C.

Nhờ các bác hỗ trợ giúp em.

View attachment 150891

Bạn đã biết Data Validation rồi thì thực hiện như trong file của bạn được mà (Chọn ô chứa Data Validation sau đó vào trong Data --> Data Validation tìm hiểu)

 

[hieubt]

Bạn xem kỹ hình đính kèm sẽ thấy ở một cell khi mình chọn các tùy chọn sẵn ở list thả xuống, sẽ được nối thêm vào tại cell đó.

Ví dụ dùng Data Validationtại cell C1: list thả xuống có 5 giá trị từ 1 đến 5,
- Sau đó chọn 5 lần từ 1 đến 5, hiển thị ở C1 : 1, 2, 3 ,4, 5
- Sau đó nếu chọn 1 từ list thả xuống, hiển thị ở C1: 2, 3 ,4, 5

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[giaiphap]

Bạn xem kỹ hình đính kèm sẽ thấy ở một cell khi mình chọn các tùy chọn sẵn ở list thả xuống, sẽ được nối thêm vào tại cell đó.

Ví dụ dùng Data Validationtại cell C1: list thả xuống có 5 giá trị từ 1 đến 5,
- Sau đó chọn 5 lần từ 1 đến 5, hiển thị ở C1 : 1, 2, 3 ,4, 5
- Sau đó nếu chọn 1 từ list thả xuống, hiển thị ở C1: 2, 3 ,4, 5

Là do trong file của bạn có sử dụng code vba, để nhìn thấy code bạn nhấn Alt+F11 để xem sự kiện Worksheet_Change

 

[hieubt]

Nếu không gíup được thì bạn chỉ nên đọc thôi, câu trả lời như vậy thì mình cũng tự trả lời được rồi.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[hieubt]

Nếu có thành ý giúp thì vô giúp, còn nói kiểu giời ơi qua qua như thế thì nói làm gì.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[giaiphap]

Nếu có thành ý giúp thì vô giúp, còn nói kiểu giời ơi qua qua như thế thì nói làm gì.

Rôi cũng cám ơn bạn! nhưng mình nghĩ cách trình bày của bạn có vấn đề. Bạn phải nêu rõ cái gì bạn muốn , cái gì bạn đã biết, cái gì bàn cần giúp đỡ. Cũng muốn giúp bạn lắm nhưng với cách nói chuyện kiểu này thì đợi các cao thủ giúp nhé (Chắc lâu lắm).

 

[HungQuoc49]

Bạn xem kỹ hình đính kèm sẽ thấy ở một cell khi mình chọn các tùy chọn sẵn ở list thả xuống, sẽ được nối thêm vào tại cell đó.
Ví dụ dùng Data Validationtại cell C1: list thả xuống có 5 giá trị từ 1 đến 5,
- Sau đó chọn 5 lần từ 1 đến 5, hiển thị ở C1 : 1, 2, 3 ,4, 5
- Sau đó nếu chọn 1 từ list thả xuống, hiển thị ở C1: 2, 3 ,4, 5

Chuột phải vào sheet SameCellAddRemove2, chọn view code, dán đoạn code này vào.
Nếu chọn mục đã có sẵn trong ô thì sẽ không nối

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Truoc, Sau

Application.EnableEvents = False
If Target.Count > 1 Then GoTo DenDay
Sau = Target.Value
Application.Undo
Truoc = Target.Value

If Target.Column >= 3 And Target.Column <= 7 Then
If InStr(Truoc, Sau) = 0 Then
Target.Value = Truoc & ", " & Sau
Else
GoTo DenDay
End If
End If

DenDay:
Application.EnableEvents = True
End Sub

---
Hình như dưới chữ ký của bạn bị gài quảng cáo thì phải.

 

[be_09]

Nếu có thành ý giúp thì vô giúp, còn nói kiểu giời ơi qua qua như thế thì nói làm gì.

Các thành viên có ý kiến, tức là người ta muốn giúp, nhưng vấn đề bạn nêu chưa cụ thể, chưa đầy đủ hoặc chưa rõ, nên người ta ý kiến để cho vấn đề được rõ hơn. Vậy tạo sao bạn không nói cho rõ hoặc có ví dụ cụ thể, để các thành viên hiểu mà giúp được thuận tiện hơn.

Còn bạn nêu vầy, ai dám giúp bạn đây.

 

[hieubt]

Chuột phải vào sheet SameCellAddRemove2, chọn view code, dán đoạn code này vào.
Nếu chọn mục đã có sẵn trong ô thì sẽ không nối

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Truoc, Sau

Application.EnableEvents = False
If Target.Count > 1 Then GoTo DenDay
Sau = Target.Value
Application.Undo
Truoc = Target.Value

If Target.Column >= 3 And Target.Column