vba窗体下拉框如何赋值

在 VBA 窗体下拉框中赋值的方式有两种：使用 Range 对象或者使用 AddItem 方法。

1. 使用 Range 对象：

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行
Dim rng As Range
Set rng = ws.Range("A2:A" & lastRow) ' A 列的数据范围，修改为实际的列范围
Me.ComboBox1.List = rng.Value ' 将数据范围的值赋给下拉框的列表
End Sub

2. 使用 AddItem 方法：

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行
Dim i As Long
For i = 2 To lastRow ' 从第二行开始遍历到最后一行
Me.ComboBox1.AddItem ws.Cells(i, "A").Value ' 将每行的值添加到下拉框的列表中
Next i
End Sub

请根据实际的需求选择适合的方式进行赋值。