VBA简单IF语句触发运行时错误'424' Object Required问题咨询

• 未声明/未绑定Setup工作表对象：VBA无法识别Setup指代的具体工作表，你既没有提前用Dim声明Setup为Worksheet类型并赋值为对应工作表，也没有将对应工作表的CodeName设置为Setup，程序找不到该对象就会抛出需要对象的错误。
• SingleLoad变量声明与赋值逻辑不匹配：你没有提前声明SingleLoad的变量类型，且如果要将单元格对象赋值给它，需要先声明为Range类型；如果只是要取单元格的值，不需要用Set关键字（Set仅用于给对象类型变量赋值）。
• 冗余代码问题：你声明了Master As Workbook但全程未使用，属于无效代码可以删除。

方案1：直接读取单元格值判断（推荐，逻辑更简单） #

在模块顶部添加Option Explicit强制变量声明，修改代码如下：

Option Explicit

Sub LoadSetup()
    ' 声明变量存储B5的值
    Dim SingleLoad As String
    ' 括号内替换为你实际的Setup工作表显示名称
    SingleLoad = ThisWorkbook.Worksheets("Setup").Range("B5").Value
    
    If SingleLoad = "Y" Then
        Call LatestLoad
    Else
        Call TimeSeriesLoad
    End If
End Sub

方案2：保留Range对象赋值的写法 #

Option Explicit

Sub LoadSetup()
    Dim Setup As Worksheet
    Dim SingleLoad As Range
    
    ' 绑定Setup工作表
    Set Setup = ThisWorkbook.Worksheets("Setup")
    Set SingleLoad = Setup.Range("B5")
    
    If SingleLoad.Value = "Y" Then
        Call LatestLoad
    Else
        Call TimeSeriesLoad
    End If
End Sub

如果你的Setup是工作表的CodeName（不是工作表显示的名称），可以不用单独赋值直接使用，需要先在VBA编辑器的工程资源管理器里确认对应工作表的(名称)属性是否为Setup。
强制变量声明可以提前捕捉变量未定义的问题，避免运行时才报错，建议所有VBA项目都开启。

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