我创建了一个代码来查找Sheet27中A列中数字1的实例,但它不断给出错误“参数不是可选的”并突出显示代码的CountIf部分。我希望此信息显示为msgbox。
Private Sub CommandButton1_Click()
Dim instances As Long
instances = WorksheetFunction.CountIf(Sheets("Sheet27")(Columns("A:A"), "1"))
MsgBox "We Found " & instances & " instances of ", vbInformation, "Alert"
End Sub
尝试...
instances = WorksheetFunction.CountIf(Sheets("Sheet27").Columns("A:A"), "1")