如何在不点击ComboBox的情况下获取其预选中值？

嘿，我明白你的需求了——你不想依赖ComboBox的Click事件，想在程序启动或者某个特定时机自动获取它的预选中值，对吧？结合你给出的VBA代码，我给你几个实用的解决方案：

1. 直接访问ComboBox的Value属性 #

这是最直接的方式，不管有没有触发点击事件，只要ComboBox已经设置了预选中项（比如初始化时指定了ListIndex或者直接赋值了Value），你都可以直接用ComDep.Value拿到当前选中的值。

比如你代码里的这行：

combVal = ComDep.List(ComDep.ListIndex)

可以替换成更可靠的写法：

combVal = ComDep.Value

这种写法还能避免ListIndex = -1（无选中项）时的报错，如果你需要默认值，可以加个判断：

If ComDep.Value = "" Then
    combVal = "ALL_DEPT"
Else
    combVal = ComDep.Value
End If

2. 初始化时主动触发ComDep_Change事件 #

既然你的业务逻辑都写在ComDep_Change里，那完全可以在窗体加载的时候主动调用这个事件，不需要用户点击ComboBox就能执行逻辑。

在窗体的Form_Load事件里加这段代码：

Private Sub Form_Load()
    ' 先确保ComboBox已经有预选中项，比如设置默认选中第一个项
    ' ComDep.ListIndex = 0
    ' 或者直接给Value赋值
    ' ComDep.Value = "你的默认部门"
    
    ' 主动调用Change事件，自动加载数据
    Call ComDep_Change
End Sub

这样窗体一打开，就会自动获取预选中的值并执行后续的查询逻辑。

3. 封装独立的取值函数 #

如果以后需要在多个地方获取ComboBox的选中值，最好把这个逻辑抽成一个独立函数，这样不管有没有事件触发，都能随时调用：

Private Function GetSelectedDept() As String
    ' 判断是否有选中项，没有的话返回默认值
    If ComDep.ListIndex = -1 Or ComDep.Value = "" Then
        GetSelectedDept = "ALL_DEPT"
    Else
        GetSelectedDept = ComDep.Value
    End If
End Function

然后在需要的地方直接调用就行：

combVal = GetSelectedDept()

对你现有代码的小优化 #

顺便给你代码里的日期处理提个小建议，用DateAdd和Format会更简洁且不易出错：

' 替换原来的dateFormat赋值
dateFormat = "#" & Format(DateAdd("yyyy", -3, Now), "dd/mm/yyyy") & "#"

另外记得在使用完Recordset后关闭它，避免资源泄漏：

rsPR.Close
Set rsPR = Nothing

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