先把各个等级存在工作表内，比如sheet3的A2：A8中，然后再窗体initialize事件中添加如下代码。
Private Sub UserForm_Initialize()dim r as Integer
r = Application.WorksheetFunction.CountA(Sheet3.Range("A2:A100")) + 1
With ComboBox1
For i = 2 To r
.AddItem Sheet3.Cells(i, 1).Value
Next
End With
End Sub追问
你好,你说的这个我试了,为什么调试不出来呢?总弹出一个,运行时错误'424''' 要求对象 拜托了
你好,你说的这个我试了,为什么调试不出来呢?总弹出一个,运行时错误'424''' 要求对象 拜托了
追答那你在窗体中有没有插入combobox控件？或者控件名称是不是combobox1?
Excel VBA 窗体组合框用法?
事先将要添加的项目放到一个数组中，然后使用组合框的List属性。第三种方法使用工作表区域，事先将要添加的项目放到工作表中，例如F1到F3分别写入A、B、C，然后运行下面的代码：Private Sub UserForm_Initialize()ComboBox1.RowSource = "Sheet1!F1:F3"End Sub 上面的代码用的是ComboBox的RowSource属性...
excel中VBA下拉组合框的使用
[a1]=arr(application.match(combobox1.value,combobox1.list,0)-1)
excel表VBA中用代码如何建立多级combobox下拉菜单
ExcelVBA字典实现窗体二级下拉菜单：问题提出:选择确定ComboBox1中的数值后，ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到，现在想在加一重判断：就是判断ComboBox2中的数值，如果是原来ComboBox1对应列中已有的值，就直接向下进行，如果原来ComboBox1对应列中没有该值，自动添...
Excel VBA怎样设置ComboBox下拉框的宽度
ComboBox下拉框的ColumnWidths属性 如:下拉框.ColumnWidths="50" '列宽为50磅 下拉框.ColumnWidths="0,100" '两列只显示第二列 ColumnWidths是各列宽度，ListWidth才是总宽度．ListWidth最好不要小于ColumnWidths之和
Excel 请教一下vba中ComboBox控件怎么用
ComboBox就是创建一个下拉列表 Private Sub UserForm_Initialize()For i = 1 To 100 ComboBox1.AddItem "aa" & i Next End Sub
想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...
代码如下：Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastline...
excel VBA checkbox 多个复选框
1.在VBA编辑器中打开你的这个窗体,双击具体的一个CheckBox. 然后会进入此窗体的代码页面.系统会自动帮你建立一个checkbox的单击事件.Private Sub CheckBox1_Click() '这里添加你的代码End Sub2. 你的代码是通过判断单击的checkbox的状态来执行操作, 这个用到checkbox的Value属性.如:Private Sub Che...
Vb想建立一个combobox控件,里面的选项从一个外来的 excel表导入,怎么弄...
先读取Excel中数据，保存到数组，然后设置ComboBox的候选值 示例代码：ComboBox2.List() = WorksheetFunction.Transpose(Sheets(1).Range("A1:A16")) ComboBox2.List() = Array("值1", "值2", "值3", "值4")当然，之前你有可能需要先打开文件，再读取Excel内容 Workbooks.Open Filename:=""
excel vba 如何实现combobox菜单联动
Dim aim As Worksheet Set aim = Sheets(1)Dim rownum As Integer rownum = aim.Range("A2").CurrentRegion.Rows.Count For i = 2 To rownum ComboBox1.AddItem aim.Cells(i, 1) '添加 next i '这段代码我试过好几次，遇到类此问题我常用这段代码，绝对没问题。
Excel中,写VBA,如何动态改变ComboBox控件的一系列属性
假设你有一个ComboBox1，确保退出编辑模式。右键点该工作表的名字（在工作簿的左下方呢），查看代码，粘贴如下代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)ComboBox1.Text = Target.Value End Sub 回到Excel，任意点某单元格，赋值到ComboBox。
