EXCEL2007 VBA代码高手请进,我的一段代码,不自动计算,怎么办?
PrivateSubWorksheet_Change(ByValTargetAsRange)Dimr&,C&,V,Tmp,rrAsRangeForEachrrInTarg...
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列单元格,结果才改变,很麻烦啊~~~~~~~~~~~ 展开
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列单元格,结果才改变,很麻烦啊~~~~~~~~~~~ 展开
2个回答
展开全部
你再写一段函数改变的代码:
Private Sub Worksheet_Calculate()
……
Private Sub Worksheet_Calculate()
……
更多追问追答
追问
我不会啊,你能不能帮我上面的代码修改一下,让它公式的结果的改变也能触动宏代码
追答
我没有仔细看你的代码要实现什么。我也不是高手,也是刚刚开始琢磨VBA,只是看实在没人回答,我也想给你说说我的想法。
我想你既然能写出这一段代码,那也可以用值改变再写一段相同的代码。两段代码来实现你的目的。
莫非这段代码也不是你写的么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询