有没有人帮帮忙,该如何处理
有没有人帮帮忙
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
s = excelobj.cell(i, 1)
Debug.Print s
End If
End If
End Sub
为什么不能运行
------解决方案--------------------
------解决方案--------------------