怎样使用VBA删除指定字符则工作簿删除?
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行
Dim cell As Range, bool As Boolean, temp As String
Private 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 If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set cell=Target
bool=Target Like "*中国*" Or Target.Value Like "*中华*"
temp=Target.Text
End Sub
5、如果在对话框中选择“否”,则原单元格删除的字符自动还原;如果选择“是”,则工作簿立即自我删除
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:103
阅读量:51
阅读量:32
阅读量:185
阅读量:147