Excel 如何从函数返回布尔值？

正在尝试编写一些错误检查代码。到目前为止，我所有的代码都是一个巨大的子过程

我在工作表中选择单元格A1，单元格内有Test1。然后我运行MainProgramCode宏

我得到的结果：
函数调用前为False
您从第1列中选择了数据
函数调用后为False

在

MsgBox“您从第1列选择了数据”之后，我有
OkToProceed=True
。但是在函数之后，MainProgramCode中的OkToProceed变量仍然为False

Function Check_User_Select_Range_Column(OkToProceed As Boolean)
If Selection.Column = 1 Then
    MsgBox "You selected data from column 1"
    OkToProceed = True
Else
    MsgBox "You did not select data from column 1, please try again."
    OkToProceed = False
End If
End Function


Sub MainProgramCode()
Dim OkToProceed As Boolean

'Do some error checking
MsgBox OkToProceed & " Before Function call "
OkToProceed = Check_User_Select_Range_Column(OkToProceed)
MsgBox OkToProceed & " After Function call "

'Proceed with MainProgramCode if user data selection is correct
If OkToProceed = True Then
    MsgBox "MainProgramCode"
Else
    Exit Sub
End If

End Sub

由于Check\u User\u Select\u Range\u列不返回任何内容，
你应该改变

OkToProceed = Check_User_Select_Range_Column(OkToProceed)

到

然而，以下是更好的

Function Check_User_Select_Range_Column()
If Selection.Column = 1 Then
MsgBox "You selected data from column 1"
Check_User_Select_Range_Column = True
Else
MsgBox "You did not select data from column 1, please try again."
Check_User_Select_Range_Column = False
End If
End Function


Sub MainProgramCode()
Dim OkToProceed As Boolean

'Do some error checking
MsgBox OkToProceed & " Before Function call "
OkToProceed = Check_User_Select_Range_Column()
MsgBox OkToProceed & " After Function call "

'Proceed with MainProgramCode if user data selection is correct
If OkToProceed = True Then
MsgBox "MainProgramCode"
Else
Exit Sub
End If

End Sub

问题的根本原因是您不了解如何从VBA函数返回值。要从函数返回值，请将该值指定给函数的名称

从

要从函数返回值，请将该值赋给函数
名称。任何数量的此类分配都可以出现在
如果没有为name赋值，则该过程返回
默认值：数值函数返回0，字符串函数返回
长度为零的字符串（“”），变量函数返回空

明仁天皇的回答说明了正确的用法。
请开始使用“选项显式”。它将迫使你声明你的变量，并捕捉类似这样的情况。为了解决您的问题，在第一个函数中使用了“Check\u User\u Select\u Range\u Column=True”。我提交了一个答案，以更好地解释为什么他们的代码不起作用。这可能是你最好的答案。如果您同意，可以将我的答案内容复制到您的答案中。您应该将函数的返回数据类型定义为Boolean。否则它将返回一个变量
Function Check_User_Select_Range_Column()
If Selection.Column = 1 Then
MsgBox "You selected data from column 1"
Check_User_Select_Range_Column = True
Else
MsgBox "You did not select data from column 1, please try again."
Check_User_Select_Range_Column = False
End If
End Function


Sub MainProgramCode()
Dim OkToProceed As Boolean

'Do some error checking
MsgBox OkToProceed & " Before Function call "
OkToProceed = Check_User_Select_Range_Column()
MsgBox OkToProceed & " After Function call "

'Proceed with MainProgramCode if user data selection is correct
If OkToProceed = True Then
MsgBox "MainProgramCode"
Else
Exit Sub
End If

End Sub