Ngoai Thanh
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
- Điểm
- 0
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 !
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
Sử dụng thủ tục worksheet_Change() như file đính kèm!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á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 ạ !Cái này thì quá dễ đi. Ví dụ:
Nhưng không biết bạn SELECT để làm giống gì?Mã: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
Sub test1()
Dim MySelection
Set MySelection = Application.InputBox("Nhap Vung Can", "Vung Du Lieu", , 100, 100, , , 8)
MySelection.Select
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2