Bằng cách sử dụng Property của sheet trong VBA, bạn có thể ấn định vùng làm việc trong phạm vi mong muốn. Thực hiện như sau:
Nhấn chuột phải vào tên sheet trong tab Sheet Names, chọn View code, hoặc nhấn Alt + F11, chọn đúng tên sheet trong cửa sổ Project Explorer, rồi xuống khung Property, tìm dòng
Quay trở lại bảng tính và thử kéo thanh cuộn, ta thấy chỉ có thể cuộn xuống đến dòng 50 và cuộn ngang đến cột H là tối đa, không cuộn được nữa.
Tuy vậy, Excel không lưu tính chất này khi lưu bảng tính, nên lần sau mở file lên phải set
Property lại. Do đó ta phải viết 1 đoạn code thực hiện điều này mỗi khi kích hoạt sheet. Vào vùng soạn thảo code của đúng sheet mình muốn, chọn sự kiện worksheet_activate:
PHP Code:
Private Sub Worksheet_Activate ( ) Me.ScrollArea = "A1:H50"
End Sub [/FONT]
[/COLOR] Bây giờ mỗi khi kích hoạt bảng tính, VBA sẽ ấn định vùng giới hạn như mong muốn. Mặc dù không có vùng bao quanh tăm tối như cách trên, nhưng bạn không thể nào cuộn ra khỏi vùng, bạn cố chọn 1 ô nằm ngoài vùng cho phép cũng không được, kể cả cột I, J, K dù bạn có ngó thấy cũng chỉ để thèm thôi.
Thậm chí với những đoạn code VBA bạn tạo sau này, trong đó có câu lệnh select 1 vùng nằm ngoài vùng cho phép, hoặc chọn nguyên cột nguyên dòng, cũng không chọn được.
Để có thể thực thi các đoạn code trên bạn phải cho vào code 2 dòng lệnh: Đầu code thêm dòng: ActiveSheet.ScrollArea = ""
Cuối code thêm dòng: ActiveSheet.ScrollArea = "$A$1:$G$50" Thí dụ:
PHP Code: Sub MyMacro( )
ActiveSheet.ScrollArea = "" Range("Z100").Select
Selection.Font.Bold = True ActiveSheet.ScrollArea = "$A$1:$G$50" Sheets("Daily Budget").Select ActiveSheet.ScrollArea = "" Range ("T500").Select Selection.Font.Bold = False ActiveSheet.ScrollArea = "$A$1:$H$25" End Sub
Đoạn code trên chọn ô Z100 trong sheet hiện hành và định dạng in đậm. Sau đó chọn ô T500 trong sheet khác, định dạng in thường (không đậm). Trước khi thực hiện chọn và định dạng ở sheet nào, phải set vùng cuộn sheet đó là “”. Sau khi định dạng,set trả vùng giới hạn cuộn theo mong muốn.