Hỏi tạo list sổ xuống tìm dữ liệu (1 người xem)

[nad582]

Chào các anh chị trong gpe, em có bảng dữ liệu.
Cột a chứa tên và cột b là ký hiệu, câu hỏi:
Em muốn ô g4 tạo list sổ xuống chứa tên ở cột a, và khi chọn 1 tên ở cột a thì ô h4 sẽ sổ list chứa ký hiệu tương ứng.
Vd: Cột a chứa tên: Aaa; bbb; ccc------------->ô g4 tạo list sổ ra danh sách chứa tên: Chọn "aaa"---------->ô h4 sổ ra danh sách chứa ký hiệu: 1, 2, 3,...,12.
Hình minh họa:View attachment 113517View attachment 113518
chân thành cảm ơn..

 

[mhung12005]

Chào các anh chị trong gpe, em có bảng dữ liệu.
Cột a chứa tên và cột b là ký hiệu, câu hỏi:
Em muốn ô g4 tạo list sổ xuống chứa tên ở cột a, và khi chọn 1 tên ở cột a thì ô h4 sẽ sổ list chứa ký hiệu tương ứng.
Vd: Cột a chứa tên: Aaa; bbb; ccc------------->ô g4 tạo list sổ ra danh sách chứa tên: Chọn "aaa"---------->ô h4 sổ ra danh sách chứa ký hiệu: 1, 2, 3,...,12.
Hình minh họa:View attachment 113517View attachment 113518
chân thành cảm ơn..

Bạn xem file đính kèm nhé.

 

[nmhung49]

Có thể dùng công thức cũng được

 

[nad582]

bạn xem file đính kèm nhé.

cảm ơn anh, nếu ô g4 và h4 nằm ở sheet khác thì sao hả anh....
(em thấy trong data - validation ờ 2 ô g4 và h4 không có dữ liệu ở cột a và cột b. Vậy nếu thay đổi dữ liệu ở 2 cột này thì sao. Anh giải thích dùm e?)
cảm ơn rất nhiều...

 

[mhung12005]

cảm ơn anh, nếu ô g4 và h4 nằm ở sheet khác thì sao hả anh....
(em thấy trong data - validation ờ 2 ô g4 và h4 không có dữ liệu ở cột a và cột b. Vậy nếu thay đổi dữ liệu ở 2 cột này thì sao. Anh giải thích dùm e?)
cảm ơn rất nhiều...

Nếu G4 và H4 nằm ở sheet nào thì bạn copy code này dán vào sheet đó.

Private Sub Worksheet_Change(ByVal Target As Range)  Dim rCll As Range, rRng As Range
  Dim Dic As Object
  Set rRng = Sheet1.Range(Sheet1.[A4], Sheet1.[A65000].End(xlUp))
  Set Dic = CreateObject("Scripting.Dictionary")
    If Not Intersect(Range("A4:A10000"), Target) Is Nothing Then
      On Error Resume Next
      For Each rCll In rRng
        If Len(rCll) Then Dic.Add rCll.Value, ""
      Next rCll
      With Sheet1.[G4].Validation
        .Delete
        .Add 3, , , Join(Dic.Keys, ",")
        .ShowError = False
      End With
    End If
    test
End Sub

Và sửa đoạn này (chỗ màu đỏ) trong sub test của Module thành tên sheet mong muốn:

With [COLOR=#ff0000]Sheet2[/COLOR].[H4].Validation

em thấy trong data - validation ờ 2 ô g4 và h4 không có dữ liệu ở cột a và cột b. Vậy nếu thay đổi dữ liệu ở 2 cột này thì sao. Anh giải thích dùm e?

Mình không biết bạn muốn thay đổi dữ liệu ra sao ?
Nhưng nếu chỉ là thêm dữ liệu vào 2 cột A và B thì bạn cứ thêm đến 65000 dòng thì thôi.

 

[nad582]

Nếu G4 và H4 nằm ở sheet nào thì bạn copy code này dán vào sheet đó.

Private Sub Worksheet_Change(ByVal Target As Range)  Dim rCll As Range, rRng As Range
  Dim Dic As Object
  Set rRng = Sheet1.Range(Sheet1.[A4], Sheet1.[A65000].End(xlUp))
  Set Dic = CreateObject("Scripting.Dictionary")
    If Not Intersect(Range("A4:A10000"), Target) Is Nothing Then
      On Error Resume Next
      For Each rCll In rRng
        If Len(rCll) Then Dic.Add rCll.Value, ""
      Next rCll
      With Sheet1.[G4].Validation
        .Delete
        .Add 3, , , Join(Dic.Keys, ",")
        .ShowError = False
      End With
    End If
    test
End Sub

Và sửa đoạn này (chỗ màu đỏ) trong sub test của Module thành tên sheet mong muốn:

With [COLOR=#ff0000]Sheet2[/COLOR].[H4].Validation

Mình không biết bạn muốn thay đổi dữ liệu ra sao ?
Nhưng nếu chỉ là thêm dữ liệu vào 2 cột A và B thì bạn cứ thêm đến 65000 dòng thì thôi.

ANH mhung12005 !! EM KHÔNG ỨNG DỤNG VÀO BÀI CỦA EM ĐƯỢC, A XEM RỒI GIÚP EM VỚI!!CẢMO7N RẤT NHIỀU!!
(TẠI NHỮNG Ô TÔ MÀU LÀ LIST DANH SÁCH SỔ XUỐNG; TẠI Ô E4: LIST TÊN; Ô E5: LIST KÝ HIỆU ỨNG VỚI TÊN; Ô E6 LIST VỊ TRÍ ỨNG VỚI KÝ HIỆU; Ô E7: LIST TRƯỜNG HỢP ỨNG VỚI VỊ TRÍ....)

 

[mhung12005]

ANH mhung12005 !! EM KHÔNG ỨNG DỤNG VÀO BÀI CỦA EM ĐƯỢC, A XEM RỒI GIÚP EM VỚI!!CẢMO7N RẤT NHIỀU!!
(TẠI NHỮNG Ô TÔ MÀU LÀ LIST DANH SÁCH SỔ XUỐNG; TẠI Ô E4: LIST TÊN; Ô E5: LIST KÝ HIỆU ỨNG VỚI TÊN; Ô E6 LIST VỊ TRÍ ỨNG VỚI KÝ HIỆU; Ô E7: LIST TRƯỜNG HỢP ỨNG VỚI VỊ TRÍ....)

Bạn xem file đính kèm nhé.

 

[nad582]

TẠI NHỮNG Ô TÔ MÀU LÀ LIST DANH SÁCH SỔ XUỐNG; TẠI Ô E4: LIST TÊN; Ô E5: LIST KÝ HIỆU ỨNG VỚI TÊN; Ô E6 LIST VỊ TRÍ ỨNG VỚI KÝ HIỆU; Ô E7: LIST TRƯỜNG HỢP ỨNG VỚI VỊ TRÍ.

ANH mhung12005 ƠI!! CÒN Ô E6 VÀ E7 THÌ LÀM SAO? ANH GIÚP DÙM EM LUÔN NHE.....
(Ô E6 LIST VỊ TRÍ ỨNG VỚI Ô E5; Ô E7: LIST TRƯỜNG HỢP ỨNG VỚI Ô E6)

 

[mhung12005]

ANH mhung12005 ƠI!! CÒN Ô E6 VÀ E7 THÌ LÀM SAO? ANH GIÚP DÙM EM LUÔN NHE.....
(Ô E6 LIST VỊ TRÍ ỨNG VỚI Ô E5; Ô E7: LIST TRƯỜNG HỢP ỨNG VỚI Ô E6)

Mình đã up lại file ở bài #7 rồi đấy bạn kiểm tra lại xem đúng ý chưa. Đoán ý bạn làm vậy chứ bạn hỏi 1 đằng trong file lại ra 1 nẻo. Lúc H4 lúc lại E5 .

 

[nad582]

mình đã up lại file ở bài #7 rồi đấy bạn kiểm tra lại xem đúng ý chưa. đoán ý bạn làm vậy chứ bạn hỏi 1 đằng trong file lại ra 1 nẻo. Lúc h4 lúc lại e5 :d.

dạ ở bài #7 là e5 chứ o phải h4, nhưng e sửa lại được e5 rồi ạ (rất đúng với ý em), nhưng còn ý 2 em muốn hỏi đó. Anh giúp e luôn đi: ô e6 list vị trí ứng với ô e5; ô e7: List trường hợp ứng với ô e6...cảm ơn anh..

 

[mhung12005]

dạ ở bài #7 là e5 chứ o phải h4, nhưng e sửa lại được e5 rồi ạ (rất đúng với ý em), nhưng còn ý 2 em muốn hỏi đó. Anh giúp e luôn đi: ô e6 list vị trí ứng với ô e5; ô e7: List trường hợp ứng với ô e6...cảm ơn anh..

Đã sửa theo ý bạn. Bạn xem file nhé.

 

[nad582]

Đã sửa theo ý bạn. Bạn xem file nhé.

ANH mhung12005, SỔ RA DANH SÁCH THÌ ĐỨNG NHƯNG SAO KHI SỔ RA DANH SÁCH THÌ CÓ NHIỀU SỐ (HAY TÊN) BỊ TRÙNG NHAU, CÓ THỂ NÀO TẠO RA DANH SÁCH MÀ NÓ KHÔNG TRÙNG GIỐNG NHƯ Ô E4 KHÔNG ANH..
ANH XEM FILE SỬA LẠI GIÚP EM...
FILE ĐÍNH KÈM (KHI ĐÃ THAY ĐỔI SỐ LIỆU KHÁC)..

 

[mhung12005]

ANH mhung12005, SỔ RA DANH SÁCH THÌ ĐỨNG NHƯNG SAO KHI SỔ RA DANH SÁCH THÌ CÓ NHIỀU SỐ (HAY TÊN) BỊ TRÙNG NHAU, CÓ THỂ NÀO TẠO RA DANH SÁCH MÀ NÓ KHÔNG TRÙNG GIỐNG NHƯ Ô E4 KHÔNG ANH..
ANH XEM FILE SỬA LẠI GIÚP EM...
FILE ĐÍNH KÈM (KHI ĐÃ THAY ĐỔI SỐ LIỆU KHÁC)..

Mình đã up lại file mới ở bài #11 rồi. Bạn kiểm tra lại nhé.

 

[quyenpv]

Trường hợp muốn list ngang thì sửa sao vậy bạn. Nhờ bạn sửa giúp