excel利用VBA打开或禁止单元格拖放(自动填充)功能

来源:转载

Excel中的单元格拖放或自动填充功能可以给我们的操作带来许多方便,但有时我们并不想拖动单元格而出现意外的错误操作。这时可能需要禁用单元格的拖放功能,除了可以通过“Excel选项”来设置打开或禁用单元格拖放功能外,还可以用VBA代码来实现,方法如下:

1.按Alt+F11,打开VBA编辑器。

2.如果仅要禁用某个工作表的单元格拖放功能,可以在“工程”窗口中双击某个工作表,在代码窗口中输入下列代码:

Private Sub Worksheet_Activate()

Application.CellDragAndDrop = False

End Sub

Private Sub Worksheet_Deactivate()

Application.CellDragAndDrop = True

End Sub

这样,当该工作表被激活时,单元格拖放功能就被禁用了,而选择其他工作表时又会打开单元格拖放功能。

如果要禁用整个工作簿中的自动拖放或填充功能,在“工程”窗口中双击“ThisWorkBook”,在右侧代码窗口中输入下列代码:

Private Sub Workbook_Activate()

Application.CellDragAndDrop = False

End Sub

Private Sub Workbook_Deactivate()

Application.CellDragAndDrop = True

End Sub

当该工作簿被激活时,单元格拖放功能就被禁用了,而选择其他工作簿时又会打开单元格拖放功能。

当单元格拖放功能被禁用后,自动填充功能也被禁用了。当鼠标指针放到单元格边框上时,鼠标指针形状不会发生改变,而且所选择的单元格右下角也没有填充柄,因而不能拖动单元格或进行自动填充。

分享给朋友:
您可能感兴趣的文章:
随机阅读: