Chọn vùng theo địa chỉ cho trước (dạng text)

[Ngoai Thanh]

Nhờ các bạn giúp mình trong file đính kèm
Tại A1 là địa chỉ ô đầu
Tại A2 là địa chỉ ô cuối
nhờ các bạn viết lệnh bằng vba để chon vùng trên . Khi ta thay đổi địa chỉ trên A1 và A2 thì vùng chon cũng thay đổi theo . Xin cám ơn !

 

[ndu96081631]

Nhờ các bạn giúp mình trong file đính kèm
Tại A1 là địa chỉ ô đầu
Tại A2 là địa chỉ ô cuối
nhờ các bạn viết lệnh bằng vba để chon vùng trên . Khi ta thay đổi địa chỉ trên A1 và A2 thì vùng chon cũng thay đổi theo . Xin cám ơn !

Cái này thì quá dễ đi. Ví dụ:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
    Range([A1] & ":" & [A2]).Select
  End If
End Sub

Nhưng không biết bạn SELECT để làm giống gì?

 

[vu_tuan_manh_linh]

Nhờ các bạn giúp mình trong file đính kèm
Tại A1 là địa chỉ ô đầu
Tại A2 là địa chỉ ô cuối
nhờ các bạn viết lệnh bằng vba để chon vùng trên . Khi ta thay đổi địa chỉ trên A1 và A2 thì vùng chon cũng thay đổi theo . Xin cám ơn !

Sử dụng thủ tục worksheet_Change() như file đính kèm!

 

[Ngoai Thanh]

Cái này thì quá dễ đi. Ví dụ:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
    Range([A1] & ":" & [A2]).Select
  End If
End Sub

Nhưng không biết bạn SELECT để làm giống gì?

Cám ơn thày, quá dễ đối với thày thôi, nhà em thử mãi không được . Còn để làm "giống gì" thì thực ra nhà em cần một khu vực chọn cho trước nhưng địa chỉ không cố định ạ !
xin ám ơn thày !

 

[Quang_Hải]

Đây cũng là 1 cách chọn vùng. Code này không có bẫy lỗi nha. Vùng chọn không có thì lỗi

 Sub test1()
Dim MySelection
Set MySelection = Application.InputBox("Nhap Vung Can", "Vung Du Lieu", , 100, 100, , , 8)
MySelection.Select
End Sub