Combobox tham chiếu tới 3 Dynamic Name(Cần sự giúp đỡ)

[NEO]

Trong form em sử dụng 1 Combobox, 3 option và 3 Name trong 3 sheet khác nhau name. Nhờ các anh có thể viết cho em 1 đoạn code để tham khảo.
Mục đích là mỗi khi chọn option thứ 1 thì combobox sẽ tham chiếu tới Name thứ 1(nội dung Name thứ 1), chọn option thứ 2 thì Cmb sẽ tham chiếu tới nội dung Name thứ 2 và tương tự cho Name thứ 3.
Đây là mục đích chính em muốn làm nhưng trình độ còn kém nên không làm được, nay là các anh chị giúp.
Cám ơn anh chị rất nhiều.

 

[anhtuan1066]

Việc này làm theo cách thông thường, nghĩa là ko dùng VBA thì quá dễ, nhưng tôi ko biết nếu làm bằng VBA thì xử lý việc này ra sao? Nhưng chắc về nguyên tắc cũng ko khác nhau mấy nhỉ?
ANH TUẤN

 

[NEO]

Việc này làm theo cách thông thường, nghĩa là ko dùng VBA thì quá dễ, nhưng tôi ko biết nếu làm bằng VBA thì xử lý việc này ra sao? Nhưng chắc về nguyên tắc cũng ko khác nhau mấy nhỉ?
ANH TUẤN

Anh Tuấn chiếu cố giúp em một tay đi. Em đang cần lắm anh ạ.
Cám ơn anh.

 

[anhtuan1066]

Xin lỗi bạn... VBA đối với tôi như là 1 cái gì còn xa lạ lắm... Tôi vẫn đang học mà... Còn nếu làm nó bằng cách thông thường ko dùng VBA thì tôi làm dc... Sẽ ra đúng yêu cầu của bạn... Hic
ANH TUẤN

 

[voda]

Bạn chép đoạn code sau vào form thử xem:

Private Sub OptionButton1_Click()
ComboBox1.RowSource = "mot"
End Sub

Private Sub OptionButton2_Click()
ComboBox1.RowSource = "hai"
End Sub

Private Sub OptionButton3_Click()
ComboBox1.RowSource = "ba"
End Sub

-mot, hai, ba : 3 name trong 3 sheet

 

[ontopoftheworld]

Tình huống Name động tương tự(em đang bí...)

Em cũng đang dùng Name động. Tình huống tương tự bài 1 vì em dùng Name động, để từ listbox lấy nội dung từ Name động. Hiện bí 1 chỗ là làm sao xóa Name cũ để thay thành Name mới tương ứng với sheet hiện hành.
Các bác nhào vô là giải quyết được mà.
To: Blueboy
Xin lỗi bạn, tôi chưa thể hòan thành file như bạn mong muốn.
To: Dmtdmtbb
Xin lỗi bác, em chưa hỏi xin ý kíến Bác mà đã dùng File của Bác để chỉnh sửa rùi ạ.
Xin lỗi bác nhiều.

 

[Mr Okebab]

Em cũng đang dùng Name động. Tình huống tương tự bài 1 vì em dùng Name động, để từ listbox lấy nội dung từ Name động. Hiện bí 1 chỗ là làm sao xóa Name cũ để thay thành Name mới tương ứng với sheet hiện hành.
Các bác nhào vô là giải quyết được mà.
To: Blueboy
Xin lỗi bạn, tôi chưa thể hòan thành file như bạn mong muốn.
To: Dmtdmtbb
Xin lỗi bác, em chưa hỏi xin ý kíến Bác mà đã dùng File của Bác để chỉnh sửa rùi ạ.
Xin lỗi bác nhiều.

Name động hay tĩnh không quan trọng vì cùng là name thôi.
Bạn muốn thay đổi ListFillRange thì hãy tham khảo bên đây :
http://www.giaiphapexcel.com/forum/showthread.php?p=7973#post7973
Thân!

 

[dmtdmtbb]

Em cũng đang dùng Name động. Tình huống tương tự bài 1 vì em dùng Name động, để từ listbox lấy nội dung từ Name động. Hiện bí 1 chỗ là làm sao xóa Name cũ để thay thành Name mới tương ứng với sheet hiện hành.
Các bác nhào vô là giải quyết được mà.
To: Blueboy
Xin lỗi bạn, tôi chưa thể hòan thành file như bạn mong muốn.
To: Dmtdmtbb
Xin lỗi bác, em chưa hỏi xin ý kíến Bác mà đã dùng File của Bác để chỉnh sửa rùi ạ.
Xin lỗi bác nhiều.

- Vì Combobox đã tự động lấy tên tất cả sheet khi bạn open form, mình chưa hiểu ý bạn muốn làm gì nhưng nếu chỉ lấy name động theo sheet thì chỉ cần như vầy là đủ, Listbox.RowSource = "Rec"

ActiveWorkbook.Names.Add Name:="[B]Rec[/B]", RefersToR1C1:="=" & cbb_ShAdd.Text & "!" & "R7C1:R44C18"

- Nếu bạn muốn cập nhật tên sheet cho Combobox thì mẹo nhỏ là như vầy, thêm code sau vào button New sheet
+ Application.ScreenUpdating = False
+ Unload Me
+ frmData.Show
- Nhưng phải bỏ sự kiện này đi

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    MsgBox " Ban khong the thoat bang cach nay, vui long nhan Exit Button!", vbInformation, "Warning"
    Cancel = True
End Sub

 

[Mr Okebab]

Cứ đà này dmtdmtbb sẽ trở thành chuyên gia về "box" trên GPE đấy _ (List, combo, Listview)

Cố lên nhé, cho . . . bà con nhờ!!
Thân!