Giúp ghép biến VBA trong Excel (1 người xem)

Người dùng đang xem chủ đề này

congnguyen88

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
22/7/14
Bài viết
355
Được thích
31
Tôi tự tạo đoạn code này để chọn 1 vùng từ cột B đến cột D theo giá trị tại ô A1

sub Chon()
Dim rng As Range, i As Long
i = Range("A1")
Range ("b2":"d"& i ).Select
endsub


Ví dụ ô A1 = 2 thì Range("B2:D2").select nhưng sao đoạn code trên không chạy. Anh em nào biết giúp mình với
 
Tôi tự tạo đoạn code này để chọn 1 vùng từ cột B đến cột D theo giá trị tại ô A1

sub Chon()
Dim rng As Range, i As Long
i = Range("A1")
Range ("b2":"d"& i ).Select
endsub


Ví dụ ô A1 = 2 thì Range("B2:D2").select nhưng sao đoạn code trên không chạy. Anh em nào biết giúp mình với

Sửa thế này thì chạy. Bỏ bớt dấu " và biến rng
PHP:
Sub Chon()
Dim i As Long
i = Range("A1")
Range("b2:d" & i).Select
End Sub
 
Upvote 0
Upvote 0

Bài viết mới nhất

Back
Top Bottom