随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA删除指定字符则工作簿删除?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在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
5、如果在对话框中选择“否”,则原单元格删除的字符自动还原;如果选择“是”,则工作簿立即自我删除