VBA布尔函数调用出现编译错误“Expected various”求助

你的原始代码存在语法问题，导致编译报错：

Function Check() As Boolean

    Check = True

End Function


Private Sub CommandButton1_Click()
    
    dim a as Boolean = Check()
    
End Sub  

错误原因 #

VBA不支持在变量声明语句里直接赋值，dim a as Boolean = Check()这种写法不符合VBA语法规范，和Check函数的访问修饰符（Public/Private）无关。

修正后的代码 #

Function Check() As Boolean
    Check = True
    ' 在这里补充文本框检查逻辑，示例：
    ' If TextBox1.Text = "" Then
    '     MsgBox "文本框1不能为空"
    '     Check = False
    ' End If
End Function

Private Sub CommandButton1_Click()
    Dim a As Boolean ' 先单独声明变量
    a = Check() ' 再执行赋值操作
    
    ' 可根据返回值添加后续逻辑
    ' If a Then
    '     MsgBox "检查通过"
    ' Else
    '     MsgBox "检查未通过"
    ' End If
End Sub

补充说明 #

如果需要Check函数完成文本框检查功能，记得在函数内部根据实际校验规则修改Check的布尔值，比如当文本框内容不符合要求时将Check设为False，并通过MsgBox提示用户。

内容的提问来源于stack exchange，提问作者MrAlex01