excel vba 限制工作表的滾動區(qū)域代碼

字號:


    ScrollArea屬性使用以A1樣式的區(qū)域引用形式(字符串類型)返回或設(shè)置工作表允許滾動的區(qū)域。當設(shè)置了工作表滾動區(qū)域之后,用戶不能選定滾動區(qū)域之外的單元格,但仍然可以選定區(qū)域之外的其他對象(例如圖形、按鈕等),同時工作表的一些相應(yīng)功能可能被禁止(例如工作表全選、選中整行或整列等)。
    在VBE中的工程管理窗口選擇相應(yīng)工作表對象,然后在其屬性窗口中設(shè)置ScrollArea屬性,即可限制工作表中滾動的區(qū)域,如圖所示。
    但是Excel不會記憶該項設(shè)置,當再次打開該工作簿時,ScrollArea屬性將被重置,用戶必須重新設(shè)置ScrollArea屬性才能限制工作表中的滾動區(qū)域,解決方法是使用代碼在工作簿打開時對ScrollArea屬性進行設(shè)置,如下面的代碼所示。
    代碼:
    代碼如下:
    #001 Private Sub Workbook_Open()
    #002 Sheet1.ScrollArea = "B4:H12"
    #003 End Sub
    代碼解析:
    工作簿的Open事件,在打開該工作簿時設(shè)置Sheet1工作表的滾動區(qū)域為“B4:H12”單元格區(qū)域。
    如果需要取消滾動區(qū)域的限制,可以將ScrollArea屬性值設(shè)置為空,如下面的代碼所示。
    Sheet1.ScrollArea = ""