Thay thế 3 Validation liên kết bằng 01 Combobox.

[mymichau]

Để giải quyết việc nhập liệu chính xác, em có tạo 3 Validation có liên kết với nhau. Tuy nhiên vẫn chưa vừa ý lắm. Em muốn phát triển cũng như 3 Validation ấy bằng 01 Combobox mà thôi. Vi dụ trong file kem theo : Cột G để nhập tỉnh, cột H nhập quận huyện, cột I nhập phường xã. Khi cell trong cột G được chọn, thì giá trị trong Combobox là danh sách tỉnh.
Sau khi nhaäp xong, töï ñoäng cell phía traùi ( coät H ) ñöôïc choïn, giaù trò trong Combobox ñöôïc thay ñoäi laø danh saùch quaän huyeän töôngt öùng vôùi tænh. Vôùi coät phöôøng xaõ cuõng nhö treân. Hieän em chöa laøm ñöôïc Combobox thay theá, nhôø caùc anh laøm giuùp . Xin caûm ôn nhieàu.

 

[trunghtpco]

Mình mới gia nhập GPE, mình đã tạo dc file theo yêu cầu của bạn nhưng không biết làm sao post lên, ai biết chỉ mình gởi file với.

 

[concop]

Mình mới gia nhập GPE, mình đã tạo dc file theo yêu cầu của bạn nhưng không biết làm sao post lên, ai biết chỉ mình gởi file với.

Bạn đọc bài này, có hướng dẫn chi tiết đó (xem bài #2)
http://www.giaiphapexcel.com/forum/showthread.php?t=250

 

[summerhq2006]

Để giải quyết việc nhập liệu chính xác, em có tạo 3 Validation có liên kết với nhau. Tuy nhiên vẫn chưa vừa ý lắm. Em muốn phát triển cũng như 3 Validation ấy bằng 01 Combobox mà thôi. Vi dụ trong file kem theo : Cột G để nhập tỉnh, cột H nhập quận huyện, cột I nhập phường xã. Khi cell trong cột G được chọn, thì giá trị trong Combobox là danh sách tỉnh.
Sau khi nhaäp xong, töï ñoäng cell phía traùi ( coät H ) ñöôïc choïn, giaù trò trong Combobox ñöôïc thay ñoäi laø danh saùch quaän huyeän töôngt öùng vôùi tænh. Vôùi coät phöôøng xaõ cuõng nhö treân. Hieän em chöa laøm ñöôïc Combobox thay theá, nhôø caùc anh laøm giuùp . Xin caûm ôn nhieàu.

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

 

[mymichau]

Cảm ơn bạn đã trả lời giúp. Nhưng cách bạn làm chỉ là nối chuổi lại với nhau mà thôi. Bạn xem lại bài #1 và yêu cầu trong file.

 

[ptm0412]

Xài 1 combobox thay thế không hay bằng 3 validation, vì DS sẽ dài bằng DS phường xã, không lọc từng phần được. Tuy nhiên nếu gõ vài ký tự rồi nhấn F4 chọn bằng phím mũi tên cũng OK.
Xem file.

 

[ptm0412]

Đang thử 1 combobox (control Toolbox) 1 column, linkedcell và listFillRange là những name thay đổi theo cột nhưng chưa được, vì linkFillRange không tự cập nhật.
Chắc tại name động.
Nhờ các cao thủ sửa giúp.

 

[ThuNghi]

Đang thử 1 combobox (control Toolbox) 1 column, linkedcell và listFillRange là những name thay đổi theo cột nhưng chưa được, vì linkFillRange không tự cập nhật.
Chắc tại name động.
Nhờ các cao thủ sửa giúp.

Bác nghiên cứu thử, do chưa hiểu hết nên chưa dám trả lời.

Private Sub Choose1_Change()
Choose1.ListFillRange = "DSQH"
End Sub

 

[ptm0412]

Các câu lệnh đổi ListFillRange đã có rồi trong sub selection_change(), đó là khi selection.column thay đổi nhằm giá trị 7, 8, 9.
Choose1_ change chỉ dùng đổi selection và vài lệnh dấu Combo. Đổi selection--> chạy selection_change, nếu new selection vẫn còn trong 3 cột 7, 8, 9 thì lại đổi ListFillRange.
Có điều code đổi list rồi mà combo không cập nhật list mới. Để nguyên code, thử name tĩnh thì đổi ngon lành.
(Cái list DSQH là list tĩnh, mình đang cần list QHchon là list động thay đổi theo cellTP)

 

[mymichau]

Em thấy dùng 3 Validation và cách dùng trong Combo3ColPTM.xls cũng hay. Nhưng có bị lỗi và cột E không ra DStinh. Dữ liệu khoảng hơn 1000 dòng mà thôi, chứ không phải là dữ liệu của ví dụ.

 

[ptm0412]

Hôm qua anh thử máy nhà ngon lành mới đưa lên. Hôm nay thử lại máy cty thì bị như em nói. Kỳ nhỉ!
Em thử xoá 3 dòng này sẽ OK:
' Choose1 = ""
' Choose1.Column(1) = ""
' Choose1.Column(2) = ""

 

[ptm0412]

File Combo3ColPTM.xls ở bài 6 bị lỗi như sau:
- Khi copy và past ngoài cột E thì không sao
- Khi cut và Paste ngoài cột E thì bị 3 cột của combobox ăn theo paste

Mymichau sửa lại code dùm anh tí nhé:

Private Sub Choose1_Change()
If ActiveCell.Column = 5 And Choose1 <> "" Then
ActiveCell.Value = Choose1
ActiveCell.Offset(0, 1).Value = Choose1.Column(1)
ActiveCell.Offset(0, 2).Value = Choose1.Column(2)
End If
Choose1.Visible = False
Choose1.Enabled = False
Selection.Activate
End Sub

Thêm if để không có tác dụng trong các cột khác.