工作表change事件
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reg
Set reg = CreateObject("vbscript.regexp")
Dim sr, srr As String
If Target.Address = Range("N4").Address Then
sr = Range("N4").Value
With reg
.Global = True
.Pattern = "[^\u4e00-\u9fa5]"
srr = .Replace(sr, "")
End With
Range("B5,C12,D15").Value = srr
End If
End Sub
工作表change事件
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reg
Set reg = CreateObject("vbscript.regexp")
Dim sr, srr As String
If Target.Address = Range("N4").Address Then
sr = Range("N4").Value
With reg
.Global = True
.Pattern = "[^\u4e00-\u9fa5]"
srr = .Replace(sr, "")
End With
Range("B5,C12,D15").Value = srr
End If
End Sub