EXCEL VBA Active 组合框问题

Private Sub ComboBox1_GotFocus()ComboBox1.Clear 。。。

1、你的第1个问题是由于工作表保护引起的，就是说通过菜单“工具－保护－撤销工作表保护”，就可以设置你的那 2、你的组合框右键快捷菜单中“设置控件格式”的控制中有两个区域。“数据源区域”是放置出现在下拉选择中的内容的，“单元格连接”指向一个单元格，当你下拉选择后，这个单元格中将出现你...

假设你的组合框名字是combobox1。录制下面一段即可 Private Sub Workbook_Open()UserForm1.ComboBox1.AddItem ("香蕉")UserForm1.ComboBox1.AddItem ("苹果")UserForm1.Show 0 End Sub

在加载窗体前初始化时将组合框设置一个默认值即可 Private Sub UserForm_Initialize()ComboBox3.ListIndex = 0 End Sub

事先将要添加的项目放到一个数组中，然后使用组合框的List属性。第三种方法使用工作表区域，事先将要添加的项目放到工作表中，例如F1到F3分别写入A、B、C，然后运行下面的代码：Private Sub UserForm_Initialize()ComboBox1.RowSource = "Sheet1!F1:F3"End Sub 上面的代码用的是ComboBox的RowSource属性...

插入在EXCEL中的控件的代码名称是没有办法修改的。

可以通过设置其value属性来给组合框赋值，示例代码如下 Private Sub ComboBox2_AfterUpdate()Dim rng As Range Select Case Me.ComboBox2.ListIndex Case 0 Set rng = Sheet1.Range("C1:C10")Case 1 Set rng = Sheet1.Range("D1:D10")End Select Me.ComboBox3.RowSource = rng.Worksheet....

Public radius1 As Variant 'LZ需要的变量 Private Sub ComboBox1_Change() '组合框改变时的动作 Dim iStr As String iStr = a(ComboBox1.ListIndex)TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))radius1 = TextBox1.Value MsgBox radius1 End Sub Private Sub UserForm...

录制宏，做一遍插入控件组合框，设置数据源和单元格链接

combobox1.clear(放在你添加选项内容的代码前面)就可以了.if combobox1.value=?then [a1]=??else if comebobox1.value=??then [a1]=???else [a1]=???end if end if 或者定义数组 arr=array("a","b","c)[a1]=arr(application.match(combobox1.value,combobox1.list,0)-1)