2.1. Sheet
Mục đích: Truy nhập đến Sheet có tên cho trước Cú pháp: Worksheets(<Tên trang tính>)
Ví dụ : Worksheets(“FORM”)
Chú ý: Trong số các sheet luôn có một sheet hiện tại. Để truy nhập đến sheet này ta dùng: ActiveSheet
Có thể sử dụng một số lệnh đối với Sheet như là: + Active: Kích hoạt Sheet
+ Delete: Xoá Sheet ...
2.2. Columns
Mục đích: Truy nhập đến Columns có số thứ tự cho trước
Cú pháp: Worksheets(<Tên trang tính>).Columns(<Chỉ số cột>) Ví dụ: Worksheets(“FORM”).Columns(2)
Có thể sử dụng một số lệnh đối với Sheet như là: + Auto Fit: Đặt độ rộng vừa khít
+ Delete: Xoá Columns + Insert: Chèn cột ...
Ví dụ: Worksheets("Nguyen").Columns(i).AutoFit
Tự động điều chỉnh độ rộng cho cột thứ i ở trang tính “Nguyen”
2.3.Rows
- Mục đích: Truy nhập đến Rows có số thứ tự cho trước
- Cú pháp : Worksheets(<Tên trang tính>).Rows (<Chỉ số cột>) - Ví dụ :
Worksheets(“FORM”).Rows(2)
Có thể sử dụng một số lệnh đối với Sheet như là: + Auto Fit: Đặt độ cao vừa khít
+ Delete: Xoá Rows + Insert: Chèn dòng ...
VD: Worksheets("Nguyen").Rows(i).AutoFit
Tự động điều chỉnh độ cao cho cột thứ i ở trang tính “Nguyen”
Ví dụ:
Sub ChuyenSoLieu()
Dim i As Integer, j As Integer, mRow As Integer, mLEN As Integer mRow = 2
For i = 3 To 9
mLEN = Len(Worksheets("Data").Cells(12, 4).Value)
If Left(Worksheets("Data").Cells(i, 1).Value, mLEN) = Worksheets("Data").Cells(12, 4).Value Then
For j = 1 To 3
Worksheets("Nguyen").Cells(mRow, j).Value = Worksheets("Data").Cells(i, j).Value
mRow = mRow + 1 End If Next i 'Format Columns For i = 1 To 3 Worksheets("Nguyen").Columns(i).AutoFit Next i Worksheets("Nguyen").Activate End Sub 2.4. Cells
Mục đích: Truy nhập đến Cells có chỉ số dòng, chỉ số cột cho trước Cú pháp :
Worksheets(<Tên trang tính>).Cells (<Chỉ số dòng>,<Chỉ số cột>) Ví dụ :
Worksheets(“FORM”).Cells(2,3)
Có thể sử dụng một số lệnh đối với Cells như là: + Value: Truy nhập giá trị của cell
+ Clear: Xoá nội dung ...