Một số hàm chọn Ô trong VBA (1 người xem)

[thanhvien1802]

LÀM QUEN VỚI VBA

01.Chọn D5

ActiveSheet.Range("D5").Select

02. Chọn D5 trên Sheet khác

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("D5"))

03.Chọn D210

ActiveSheet.Range("C2:D10").Select

04.CHọn tại ví Mouse Lên 2 hàng qua 3 cột

ActiveCell.Offset(-2, 3).Select

05.CHọn vùng F4:F6 và chọn thêm 5 hàng

"Range(""F4:F6"").Select
Selection.Resize(Selection.Rows.Count + 5, _
   Selection.Columns.Count).Select"

06.Chọn 2 vùng khác nhau

Application.Union(Range("B2:C3"), Range("E5:F5")).Select

07.Chon Ô Trống đầu tiên từ A1 xuống

ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Selec

08.CHọn ô Tiếp giáp trong 1 cột

ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlDown)).Select

09.Chọn khối từ A1 đến ô cuối cùng có DL

ActiveSheet.Range("a1", ActiveSheet.Range("a65536").End(xlUp)).Select
[/php
10.Chọn khối hình chữ nhật, trong do không có hàng nào hay cột nào trống
[php]
ActiveSheet.Range("a1").CurrentRegion.Select
[/php

 

[tdmuoi]

Hỏi hàm truy cập file html

Chào bạn,

Nhờ bạn hướng dẫn cho tôi các hàm truy cập fiel html với những yêu cầu sau :
1. Mở thư viện sử dụng các lệnh truy cập file html
2. Hàm tìm kiếm 1 chuoi text trong file
3. Hàm đếm các fiel trong fiel html
4. hàm lấy các nội dung của các fiel trong file html.

Xin cảm ơn bạn rất nhiều !

 

[Lệnh Hồ Đại Hiệp]

06.Chọn 2 vùng khác nhau

Application.Union(Range("B2:C3"), Range("E5:F5")).Select

Sao không là :

Range("B2:C3, E5:F5").Select

Code của bạn (UNION) dùng để hợp các vùng lại với nhau thì tốt hơn, chứ để chọn các vùng riêng biệt xác định thì không cần phức tạp như vậy.

Chúc vui

 

[Po_Pikachu]

Code số 9:

ActiveSheet.Range("a1", ActiveSheet.Range("a65536").End(xlUp).Address).Select

Code số 10: Phủ khối chọn bao hết dữ liệu.

ActiveSheet.UsedRange.Select

Code số 11: Cái này thì phủ khối chọn gần nhau.

ActiveCell.CurrentRegion.Select

Thân.

 

[ndu96081631]

05.CHọn vùng F4:F6 và chọn thêm 5 hàng

"Range(""F4:F6"").Select
Selection.Resize(Selection.Rows.Count + 5, _
   Selection.Columns.Count).Select"

Chổ này tôi làm:

Range([F4:F6], [F4:F6].Offset(5)).Select

07.Chon Ô Trống đầu tiên từ A1 xuống

ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

Cái này hình như bị lộn, phải là Offset(-1) mới đúng

 

[thanhvien1802]

ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

Lệnh này mình đã tetx lại rồi, kết quả = ô trống đầu tiên, bất đầu tìm từ A1 xuống

Còn

ActiveSheet.Range("a1").End(xlDown).Offset(-1).Select

Thì kết quả nhiều khi = Ô có dữ liệu (= hàng của khối dữ liệu đầu - 1)

 

[tigertiger]

Chổ này tôi làm:

Range([F4:F6], [F4:F6].Offset(5)).Select

Phức tạp nhỉ
Sao không là
Range([F4:F11]).Select

a ndu hồi này thích hàn lâm

 

[ndu96081631]

Phức tạp nhỉ
Sao không là
Range([F4:F11]).Select

a ndu hồi này thích hàn lâm

Cái này để cải tiến câu 5 của tác giả:
- Có 1 vùng cho trước --> Mở rộng nó thêm 5 dòng (tôi hình dung số 5 này là 1 biến có thay đổi)