Thách đố đây! Dùng ComboBox ko cần đến VBA!

[anhtuan1066]

Trong file đính kèm là dùng ComboBox đễ trích dử liệu ra 1 cell bất kỳ từ 1 danh sách cho trước... Việc này quá bình thường nếu sử dụng VBA!
Vậy xin "thách đố": Cũng với danh sách ấy, với ComboBox ấy nhưng nếu ko dùng VBA thì có thể làm cho ComboBox có tính năng tương tự như thế ko? Hi... hi...
Nói "thách đố" cho có vẽ "đao to búa lớn" thôi, thực ra là cùng trao đỗi và học hỏi.. Xin các bạn hưởng ứng!
ANH TUẤN

 

[TranThanhPhong]

Có thưởng gì không anh? Anh nói luôn phần thưởng cho hấp dẫn ...

 

[anhtuan1066]

Hi... hi... Thưởng gì đây ta.. Chưa biết nữa... mà nè... các cao thủ từ từ thôi nha.. nghĩ ra dc cũng đừng đưa lên vội... có thể gợi ý gì đó cũng dc nhưng đừng cho kết quả sớm quá... Đễ các bạn mới học hỏi nữa...
ANH TUẤN

 

[anhtuan1066]

Thách đố thêm 1 chiêu nữa: Đầu tiên cột H đang trống, bạn chọn vào H1 rồi chọn ComboBox, nó sẽ chèn dử liệu vào H1... tiếp tục chọn ComboBox, nó chèn dử liệu vào H2... tiếp tục nữa nó chèn vào H3... vân vân.. gần giống với lệnh OFFSET(1,0).SELECT trong VBA...
Ha.. ha.. ha...
Phần thưởng là 1 cái card dt 100 ngàn, thời hạn giãi bài là từ bây giờ đến hết ngày mai... các bạn thấy sao?
ANH TUẤN

 

[Pansy_flower]

Phần thưởng là 1 cái card dt 100 ngàn, thời hạn giãi bài là từ bây giờ đến hết ngày mai... các bạn thấy sao?
ANH TUẤN

Anh ơi, phần thưởng này cũng khá hay nhưng vật chất quá!. Em gợi ý chút xíu nha:

- Nếu giải được bài, CN này sẽ được Mr anhtuan1066 mời CF ở BH.
- Nếu giải được bài, CN này Mr anhtuan1066 sẽ offline cùng với các bạn ở SG.

...
Hihi...

 

[anhtuan1066]

Uh... sao cũng dc... nhưng nếu Offline ở Sài Gòn vào ban ngày thì tôi ko dám chắc lắm.. vì CN nào cũng đi làm.. còn nếu uống cafe ở Biên Hòa thì.. quá khõe, đồng ý 2 tay 2 chân luôn mà ko cần giải dc bài.. hi... hi... Có thể rũ thêm nhiều người nữa càng vui

 

[duongsatdn]

Thách đố thêm 1 chiêu nữa: Đầu tiên cột H đang trống, bạn chọn vào H1 rồi chọn ComboBox, nó sẽ chèn dử liệu vào H1... tiếp tục chọn ComboBox, nó chèn dử liệu vào H2... tiếp tục nữa nó chèn vào H3... vân vân.. gần giống với lệnh OFFSET(1,0).SELECT trong VBA...
Ha.. ha.. ha...
Phần thưởng là 1 cái card dt 100 ngàn, thời hạn giãi bài là từ bây giờ đến hết ngày mai... các bạn thấy sao?
ANH TUẤN

Nó như vầy được không anh?
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1
Selection.Offset(1, 0).Select
End Sub

 

[dmtdmtbb]

Nó như vầy được không anh?
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1
Selection.Offset(1, 0).Select
End Sub

- Bác đã phạm quy, không dùng VBA mà !!!

 

[anhtuan1066]

Cái vụ CHANGE này cứ nghĩ là món độc quyền của VBA, thực ra hàm cũng giải quyết dc đấy!
Gợi ý: Hảy đặt Name như thế nào cho hợp lý đễ ActiveCell có thể "dời" vị trí đến cell cuối cùng
ANH TUẤN

 

[minhlev]

Bác Tuấn ơi, cái Combobox ở bài 1, có bắt buộcphải dùng cái Combo trong ControlToolbox không ạ?

 

[anhtuan1066]

Bác Tuấn ơi, ở cái bài Combobox, có bắt buộcphải dùng cái Combo trong ControlToolbox không ạ?

Bạn muốn dùng ComboBox gì cũng dc.. nhưng qua thử nghiệm thì trong trường hợp này dùng ComboBox của thanh Control Toolbox là dễ hơn! Tuy nhiên bạn có thể dùng ComboBox trên thanh Form cũng ko sao, miễn đạt dc mục đích...

 

[digita]

Các bạn down cái file này rồi right click vô cái combobox vô format control và chọn thè Control. Cái Combobox này không có VBA đấy.

Mến

 

[anhtuan1066]

Ủa... Digita làm gì kỳ vậy ta ??? Hi.. hi... đâu có đúng với yêu cầu chứ.. Chẳng "động đậy" gì cả...
Hình như chưa đọc rõ nội dung tôi nêu lên thì phải!
Hic...
Nhắc lại lần nữa yêu cầu nhé!
Với VBA thì ta sẽ dùng code sau:

ActiveCell.Value = ComboBox1
ActiveCell.Offset(1,0).Select

Yêu cầu là: Ko dùng VBA, hảy làm cho ComboBox của bạn có chức năng tương tự như code trên (gần giống cũng dc)... Đại khái nó phải "động đậy"
ANH TUẤN

 

[LearnMore]

Các bạn down cái file này rồi right click vô cái combobox vô format control và chọn thè Control. Cái Combobox này không có VBA đấy.

Mến

Cái CB của bạn làm chưa đúng yêu cầu mà vì nó chỉ hiện Index của item. Cái của em mới đúng yêu cầu nè.

LM

 

[anhtuan1066]

Cái CB của bạn làm chưa đúng yêu cầu mà vì nó chỉ hiện Index của item. Cái của em mới đúng yêu cầu nè.

LM

Cái này cũng ko đúng luôn... hi.. hi.. Nói chung nếu ko dùng Name thì e rằng ko thể làm dc... Các bạn cố gắng lên.. Đọc kỹ yêu cầu nhé!
ANH TUẤN

 

[ontopoftheworld]

Anh Tuấn Ơi, Chưa hết hạn nộp bài và phần quà cũng chưa mất đúng không anh??? Vậy thì em cũng sắn tay áo lên thử làm .Hhi vọng gặp anh ở Biên Hòa(nghe cái tên này ê răng wá hix)

 

[anhtuan1066]

Vâng! Đến hết ngày mai mới là hạn chót... còn chuyện họp mặt uống cafe tại Biên Hòa thì ko cần phải giãi bài... Các bạn đến mình đều hoan nghênh mà...
Ah... mà sao lại ê răng? Chưa hiểu ???
Mến
ANH TUẤN

 

[digita]

Đọc kĩ lại thì cái bài này thật rắc rối. Nếu không dùng VBA thì chắc tôi cũng chào thua. Coi ai có thề mò ra câu trả lời trước khi cái thẻ phone hết hạn.

 

[minhlev]

Bác ơi có phải như File này không

 

[duongsatdn]

Bác minhlev ơi, cái này chắc là đúng đáp án của anh Tuấn rồi!
Nhưng em thử chọn hai cái liên tục của Assets thì không được. Ví dụ như lặp lại hai lần liên tục AA145.