溫馨提示×

vba窗體下拉框如何賦值

vba
小億
912
2023-08-14 19:58:47
欄目: 編程語言

在 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 列的數(shù)據(jù)范圍，修改為實際的列范圍
Me.ComboBox1.List = rng.Value ' 將數(shù)據(jù)范圍的值賦給下拉框的列表
End Sub
  1. 使用 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

請根據(jù)實際的需求選擇適合的方式進(jìn)行賦值。

0 踩