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

2024-07-21 23:03:53

字體：大中小

供稿：網(wǎng)友

ScrollArea屬性使用以A1樣式的區(qū)域引用形式（字符串類型）返回或設(shè)置工作表允許滾動(dòng)的區(qū)域。當(dāng)設(shè)置了工作表滾動(dòng)區(qū)域之后，用戶不能選定滾動(dòng)區(qū)域之外的單元格，但仍然可以選定區(qū)域之外的其他對(duì)象（例如圖形、按鈕等），同時(shí)工作表的一些相應(yīng)功能可能被禁止（例如工作表全選、選中整行或整列等）。
在VBE中的工程管理窗口選擇相應(yīng)工作表對(duì)象，然后在其屬性窗口中設(shè)置ScrollArea屬性，即可限制工作表中滾動(dòng)的區(qū)域，如圖所示。

但是Excel不會(huì)記憶該項(xiàng)設(shè)置，當(dāng)再次打開該工作簿時(shí)，ScrollArea屬性將被重置，用戶必須重新設(shè)置ScrollArea屬性才能限制工作表中的滾動(dòng)區(qū)域，解決方法是使用代碼在工作簿打開時(shí)對(duì)ScrollArea屬性進(jìn)行設(shè)置，如下面的代碼所示。
代碼:

復(fù)制代碼代碼如下:

	
	#001 Private Sub Workbook_Open()
	#002 Sheet1.ScrollArea = "B4:H12"
	#003 End Sub

代碼解析：
工作簿的Open事件，在打開該工作簿時(shí)設(shè)置Sheet1工作表的滾動(dòng)區(qū)域?yàn)?ldquo;B4:H12”單元格區(qū)域。
如果需要取消滾動(dòng)區(qū)域的限制，可以將ScrollArea屬性值設(shè)置為空，如下面的代碼所示。
Sheet1.ScrollArea = ""

上一篇：VBA 編程基礎(chǔ)

下一篇：excel vba 高亮顯示當(dāng)前行代碼