admin管理员组文章数量:1567915
2024年6月18日发(作者:)
excel中拖动而造成的公式错误是经常发生的,可以把拖动功能
禁用来实现:
方法有二种:
1、工具--〉选项--〉编辑--〉单元格拖放功能,不取消
勾选。
缺点:会造成所有excel文件的拖放功能及自动填充功能丧失。
2、通过VBA来实现单个工作表的禁用拖放功能:
(1).按Alt+F11,打开VBA编辑器。
(2).如果仅要禁用某个工作表的单元格拖放功能,可以在“工
程”窗口中双击某个工作表,在代码窗口中输入下列代码:
Private Sub Worksheet_Activate()
agAndDrop = False
End Sub
Private Sub Worksheet_Deactivate()
agAndDrop = True
End Sub
(3)这样,当该工作表被激活时,单元格拖放功能就被禁用了,
而选择其他工作表时又会打开单元格拖放功能。
2、通过VBA来实现整个工作簿的禁用拖放功能:
在“工程”窗口中双击“ThisWorkBook”,在右侧代码窗口中输
入下列代码:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
agAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
agAndDrop = False
End Sub
当该工作簿被激活时,单元格拖放功能就被禁用了,而选择其他
工作簿时又会打开单元格拖放功能。
提示:请允许宏运行
在开始→选项→高级→在编辑选项里的“启用填充柄和单元格拖放功能”选项怎样才能
设置得到只对一个文档有效,即在同一台电脑里,“启用填充柄和单元格拖放功能”只对
其中某一个文档有效,但打开其它文档时是没有效的呢?
通过VBA代码解决这个问题
在工程窗口双击“ThisWorkBook”,右侧输入如下代码:
1. Private Sub Workbook_WindowActivate(ByVal Wn As Window)
2. agAndDrop = False
3. End Sub
4. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
5. agAndDrop = False
6. End Sub
7. Private Sub Workbook_Deactivate()
8. agAndDrop = True
9. End Sub
版权声明:本文标题:EXCEL拖动功能禁用 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/xitong/1718679084a711131.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论