Question

EXCEL中VB代码问题（高手请进！）

帮我看下这些代码为什么算不出来。我要在E列写计算式如：5+6*4，在F列显示结果出来如：29。但代码有问题，算不出，本人看不出哪的问题，请高手帮忙！！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
Dim s As String, r As Range
Application.EnableEvents = False
For Each r In Range("E2:E" & [c65536].End(3).Row)
If r = "" Then r(1, 2) = "": GoTo rNext
s = r.Value
s = Replace(s, "M", "$G$2")
s = Replace(s, "LS", "$G$3")
s = Replace(s, "BGS", "$G$4")
With r(1, 2)
.Value = "=" & s
.Value = .Value
End With
rNext:
Next
Application.EnableEvents = True
End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Then Exit Sub
If Target.Column <> 5 Then Exit Sub
Dim s As String, r As Range
Application.EnableEvents = False
For Each r In Target
If r = "" Then r.offset(,1)= "": GoTo rNext
s = r.Value
s = Replace(s, "M", "$G$2")
s = Replace(s, "LS", "$G$3")
s = Replace(s, "BGS", "$G$4")
With r.offset(,1)=
.Value = "=" & s
.Value = .Value
End With
rNext:
Next
Application.EnableEvents = True
End Sub

追问

没能解决啊。。With r.offset(,1)=这一行显示红色，错误。出不来结果

追答

不好意思，多了一个等号，应该是：With r.offset(,1) 不是With r.offset(,1)=

或者你原来的代码不动，只要改一句
For Each r In Range("E2:E" & [c65536].End(3).Row)

改成：
For Each r In Target
就可以了

Answer 2

If Target.Row < 2 Then Exit Sub 这句去掉试试？
我试了在第2行输入之后能计算出结果

Answer 3

http://www.360doc.com/content/12/0322/17/9124901_196693206.shtml