Hỏi cách xác định vùng hiện hành ?

[nplvn]

Nhờ mấy anh chỉ giúp cách xác định vùng hiện hành:
Ví dụ:
Mình đang ở cell A1 thì viết ActiveCell.Select nhưng nếu vùng đang hiện hành là:
1. Từ A 1 đến D5 thì viết sao.
2. Toàn bộ sheet , một cột, một dòng thì viết sao.
Xin mấy anh chỉ giùm. Cảm ơn.

 

[PhanTuHuong]

Bạn dùng thuộc tính Address. Ví dụ:

Selection.Address

 

[nplvn]

Oh, em làm không được anh ơi.
Private Sub UserForm_Activate()
Đoạn code sau:
Me.Caption = "dtExcel"
Me.ListBox1.AddItem 200
Me.ListBox1.AddItem 150
Me.ListBox1.AddItem 100
Me.ListBox1.AddItem 75
Me.ListBox1.AddItem 50

Me.FontNguon.AddItem "TCVN3 (ABC)", 0
Me.FontNguon.AddItem "Unicode", 1
Me.FontNguon.AddItem "VNI Windows", 2
Me.FontNguon.ListIndex = 0

Me.FontDich.AddItem "TCVN3 (ABC)", 0
Me.FontDich.AddItem "Unicode", 1
Me.FontDich.AddItem "VNI Windows", 2
Me.FontDich.ListIndex = 1
With Application.ActiveSheet
Selection.Address ' Dòng này bị lỗi, anh chỉ giúp dùm.
End With
End Sub

Cảm ơn

 

[cadafi]

With Application.ActiveSheet
Selection.Address ' Dòng này bị lỗi, anh chỉ giúp dùm.
End With
End Sub

Thường thì Selection.address phải gán vào với một biến, hoặc một tham số, đại khái như

MyAddress=Selection.Address
hoặc
a=msgbox(selection.address,,"Thong Bao")

Đâu thể khi không bạn gọi Selection.Address ==> đoạn này mình cũng không hiểu.