Question

vba 不执行 if 内容 ，把if ，else 的内容单个执行就可以，怎么回事

Private Sub CommandButton2_Click()
Dim x As String
Dim y As Variant

Set oAdd = Application.COMAddIns("ESClient.Connect").Object

x = 问题登陆.Range("F11")

y = 问题登陆.Range("B2:E3")

If IsEmpty(问题登陆.Range("B2:E3")) Then
oAdd.newReport "问题注销"
ActiveWorkbook.Sheets("问题注销").Range("C3") = x
ActiveWorkbook.Sheets("问题注销").Range("E3:G3") = y
Else
MsgBox "生产技术部填写内容为空"
End If

Set oAdd = Nothing

End Sub

Answer 1

if 后面跟的是一个表达式，
您的不是一个式子

Answer 2

excel中的isEmpty（）里面只能包含一个单元格，B2:E3用在isEmpty里无实质效果。
你可以采用 If Application.counta(Range("B2:E3"))=0 then ... 来替换