Question

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

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

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

在OkToProceed = True之后我有MsgBox "You selected data from column 1"。但是在函数执行完后，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

Answer 1

由于Check_User_Select_Range_Column不返回任何内容，你应该改变

OkToProceed = Check_User_Select_Range_Column(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

Answer 2

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

从Microsoft Dev Center VBA reference docs，

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

yamashiro.akihito的答案演示了正确的用法。

如何从函数返回布尔值？

2 个答案: