订阅怎样使用VBA删除指定字符则工作簿删除？
来源：网络收集 点击： 时间：2024-04-11首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
Dim cell As Range, bool As Boolean, temp As StringPrivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableCancelKey=xlDisabled If bool Then If Len(cell)=0 Then If MsgBox(你真的要删除 temp 吗？ Chr(13) 删除后则工作簿立即自杀！ _ Chr(13) 继续请按是，要保留请按否。, vbYesNo, 警告)=vbYes Then Application.DisplayAlerts=False ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName Application.Quit Else Target=temp Exit Sub End If End If End IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Set cell=Targetbool=Target Like *中国* Or Target.Value Like *中华*temp=Target.TextEnd Sub
5/5如果在对话框中选择“否”，则原单元格删除的字符自动还原；如果选择“是”，则工作簿立即自我删除
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_486338.html
