有没有人帮帮忙,该如何处理

2012-01-16

有没有人帮帮忙Private Sub CommandButton1_Click()Dim target As RangeDim s As DoubleIf target 3 The

有没有人帮帮忙
Private Sub CommandButton1_Click()
Dim target As Range
Dim s As Double
If target = 3 Then
If target.Value = "广东广州" Then
s = excelobj.cell(i, 1)

Debug.Print s
End If
End If

End Sub
为什么不能运行

[解决办法]

探讨
Private Sub CommandButton1_Click()
Dim target As Range
Dim s As Double
If target = 3 Then
If target.Value = "广东广州" Then
...
为什么不能运行

[解决办法]

探讨
..............

你就在上面定义了target 中间又没有什么其他代码，试问这个target 怎么可能会＝3？
这个IF永远也不会成立，里面的内容也永远不会被执行。