Excel用户窗体选中cboDonations选项时更新TBDonationAmt值的实现问题

1. 进入窗体代码编辑界面 #

• 按下Alt + F11打开VBA编辑器
• 在左侧工程资源管理器中找到你创建的用户窗体，右键单击窗体选择「查看代码」

2. 编写ComboBox选中触发逻辑 #

将以下代码粘贴到代码编辑窗口中即可：

Private Sub cboDonations_Change()
    Dim dataSheet As Worksheet
    Dim matchRow As Long
    ' 关联Data工作表
    Set dataSheet = ThisWorkbook.Worksheets("Data")
    
    ' 未选中任何选项时不执行逻辑，避免报错
    If cboDonations.ListIndex = -1 Then Exit Sub
    
    ' 选项索引从0开始，对应Data表A列从第2行开始的三个选项，直接匹配对应行的金额
    matchRow = 2 + cboDonations.ListIndex
    ' 读取DonationAmount列（此处默认是B列，若你的金额列是其他列，修改Columns后的数字即可，比如C列改为3）
    TBDonationAmt.Value = "$" & dataSheet.Columns(2).Cells(matchRow).Value
End Sub

可选优化：自动加载ComboBox选项 #

如果需要窗体打开时自动加载Data表A列的三个选项，无需手动设置控件数据源，可以额外添加以下窗体初始化代码：

Private Sub UserForm_Initialize()
    Dim dataSheet As Worksheet
    Set dataSheet = ThisWorkbook.Worksheets("Data")
    Me.cboDonations.List = dataSheet.Range("A2:A4").Value
End Sub

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