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

2025-10-23 06:34:34

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

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

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

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

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

怎样使用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

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

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

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

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢