养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

怎样使用VBA删除指定字符则工作簿删除

时间:2024-11-06 10:55:48

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA删除指定字符则工作簿删除?

怎样使用VBA删除指定字符则工作簿删除

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA删除指定字符则工作簿删除

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA删除指定字符则工作簿删除

3、在VBA编辑器中插入模块

怎样使用VBA删除指定字符则工作簿删除

4、在模块当中输入如下代码,然后运行DimcellAsRange,boolA衡痕贤伎sBoolean,tempAsStringPr足毂忍珩ivateSubWorksheet_Change(ByValTargetAsRange)Application.EnableCancelKey=xlDisabledIfboolThenIfLen(cell)=0ThenIfMsgBox("你真的要删除"&temp&"吗?"&Chr(13)&"删除后则工作簿立即自杀!"_&Chr(13)&"继续请按是,要保留请按否。",vbYesNo,"警告")=vbYesThenApplication.DisplayAlerts=FalseActiveWorkbook.ChangeFileAccessxlReadOnlyKillActiveWorkbook.FullNameApplication.QuitElseTarget=tempExitSubEndIfEndIfEndIfEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Setcell=Targetbool=TargetLike"*中国*"OrTarget.ValueLike"*中华*"temp=Target.TextEndSub

怎样使用VBA删除指定字符则工作簿删除

5、如果在对话框中选择“否”,则原单元格删除的字符自动还原;如果选择“是”,则工作簿立即自我删除

怎样使用VBA删除指定字符则工作簿删除

© 一点知识