Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, C&, V, Tmp, rr As Range
For Each rr In Target
r = rr.Row: C = rr.Column: V = rr.Value
'With Target.Cells(1)
'r = .Row: C = .Column: V = .Value
'End With
If r < 3 Or V = "" Then GoTo Flag
Select Case C
Case 4, 11
Application.EnableEvents = False
On Error Resume Next
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[\u4e00-\u9fa5]"
Tmp = Evaluate(.Replace(V, ""))
End With
If Not IsError(Tmp) Then
If C = 4 Then
Cells(r, 5) = Tmp
Else
Cells(r, 2) = Int(Tmp) + Sgn(Tmp - Int(Tmp))
End If
End If
Application.EnableEvents = True
Case Else
End Select
Flag:
Next
End Sub
如代码所示，D列只要输入计算式，E列就能自动得出结果，但是有时候D列里面的计算式是引用的函数公式的，导致，D列计算式改变了，但是E列结果没有改变，还是要我去双击D列单元格，结果才改变，很麻烦啊~~~~~~~~~~~
再增加一个事件代码即可，目的是有公式计算时运行代码，将所以D列有公式引用的都运行一次你的代码，增加的代码如下（详见附件）：
Private Sub Worksheet_Calculate()
Call Worksheet_Change(Columns("D").SpecialCells(xlCellTypeFormulas))
End Sub
Private Sub Worksheet_Calculate()
……追问
我不会啊，你能不能帮我上面的代码修改一下，让它公式的结果的改变也能触动宏代码
追答我没有仔细看你的代码要实现什么。我也不是高手，也是刚刚开始琢磨VBA，只是看实在没人回答，我也想给你说说我的想法。
我想你既然能写出这一段代码，那也可以用值改变再写一段相同的代码。两段代码来实现你的目的。
莫非这段代码也不是你写的么？
不是我写的，我是一窍不通
追答哦，难怪，你代码太长我看着晕。幸好楼下已经替你写好代码了。
