Excel中VBA运用ComboBox将下拉数据与程序连起来用？
Private Sub ComboBox1_Change()
YF = Array("3", "4", "5")
ComboBox1.List() = YF
End Sub
这句写完了，请问怎么在程序中的其他程序链接，例如：如何在其他函数中判断ComboBox选中的是哪个值？
case "3"
'选三情况下要执行的代码
case "4"
'选四情况下要执行的代码
case "5"
'选五情况下要执行的代码
end select本回答被提问者和网友采纳
Excel中VBA运用ComboBox将下拉数据与程序连起来用?
select case ComboBox1.text case "3"'选三情况下要执行的代码 case "4"'选四情况下要执行的代码 case "5"'选五情况下要执行的代码 end select
excel vba 如何实现combobox菜单联动
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中的数值后，ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到，现在想在加一重判断：就是判断ComboBox2中的数值，如果是原来ComboBox1对应列中已有的值，就直接向下进行，如果原来ComboBox1对应列中没有该值，自动添加到该列最下一个非空行之后再向下执行。字典...
excel中VBA下拉组合框的使用
[a1]=arr(application.match(combobox1.value,combobox1.list,0)-1)
如何用VBA实现下拉选择数据呢?
操作如下：1、原数据如下 2、点选B列 3、按F5调出定位功能，点击定位条件 4、选择控制，点确定 5、在第一个空白单元格处输入“=”6、然后点击上一单元格B2 7、按Ctrl+Enter组合键 8、自动填充完成
excel的VBA的下拉列表怎么添加项目
Me.ComboBox1.AddItem Sheets(i).Name NextEnd Sub如果楼主的下拉列表指的是组合框而不是Sheet中的自动筛选或数据有效性的话，上面是一个样本，在窗体中的一个组合框ComboBox1在窗体UserForm的初始化事件中，把当前工作簿的每个Sheet的名字加到了List中，使用的是ComboBox的AddItem方法。
vba做一个excel的下拉菜单,以提供选择输入
插入组合框ComboBox 添加代码 ComboBox1.AddItem "星期一"ComboBox1.AddItem "星期二"ComboBox1.AddItem "星期三"ComboBox1.AddItem "星期四"ComboBox1.AddItem "星期五"ComboBox1.AddItem "星期六"ComboBox1.AddItem "星期日"
在excel中如何通过vba实现对下拉列进行控制
谁的"下拉列表"?窗体控件还是activex控件里的combobox?或者是数据有效性的下拉列表?
ExcelVBA实现窗体二级下拉菜单
1 FOR i=1 to 5 combobox1.add sheets("定义的名称").cells(1,i)next 2 select case combobox1.value case "上装"for i=1 to 100 if sheets("定义的名称").cells(i,1)="" then exit for combobox2.add sheets("定义的名称").cells(i,1)next calse "下装"for i=1 to 100...
想在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...
