excel利用VBA打開(kāi)或禁止單元格拖放（自動(dòng)填充）功能

excel利用VBA打開(kāi)或禁止單元格拖放（自動(dòng)填充）功能

Excel中的單元格拖放或自動(dòng)填充功能可以給我們的操作帶來(lái)許多方便，但有時(shí)我們并不想拖動(dòng)單元格而出現(xiàn)意外的錯(cuò)誤操作。這時(shí)可能需要禁用單元格的拖放功能，除了可以通過(guò)“Excel選項(xiàng)”來(lái)設(shè)置打開(kāi)或禁用單元格拖放功能外，還可以用VBA代碼來(lái)實(shí)現(xiàn)，方法如下：

1.按Alt+F11，打開(kāi)VBA編輯器。

2.如果僅要禁用某個(gè)工作表的單元格拖放功能，可以在“工程”窗口中雙擊某個(gè)工作表，在代碼窗口中輸入下列代碼：

Private Sub Worksheet_Activate()Application.CellDragAndDrop = FalseEnd Sub

Private Sub Worksheet_Deactivate()Application.CellDragAndDrop = TrueEnd Sub

這樣，當(dāng)該工作表被激活時(shí)，單元格拖放功能就被禁用了，而選擇其他工作表時(shí)又會(huì)打開(kāi)單元格拖放功能。

如果要禁用整個(gè)工作簿中的自動(dòng)拖放或填充功能，在“工程”窗口中雙擊“ThisWorkBook”，在右側(cè)代碼窗口中輸入下列代碼：

Private Sub Workbook_Activate()Application.CellDragAndDrop = FalseEnd Sub

Private Sub Workbook_Deactivate()Application.CellDragAndDrop = TrueEnd Sub

當(dāng)該工作簿被激活時(shí)，單元格拖放功能就被禁用了，而選擇其他工作簿時(shí)又會(huì)打開(kāi)單元格拖放功能。

當(dāng)單元格拖放功能被禁用后，自動(dòng)填充功能也被禁用了。當(dāng)鼠標(biāo)指針?lè)诺絾卧襁吙蛏蠒r(shí)，鼠標(biāo)指針形狀不會(huì)發(fā)生改變，而且所選擇的單元格右下角也沒(méi)有填充柄，因而不能拖動(dòng)單元格或進(jìn)行自動(dòng)填充。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。