在excel中如何增加组合框──EXCEL VBA的使用

打开word的工具箱后,可以在word文档中增加 命令按钮、文本框、标签、单选按钮等,这些操作都非常简单,只需要将这些控件拖放到文档中即可。但是拖放组合框后,如何在其中增加内容呢?

笔者给出操作步骤:

(1)将组合框拖放到文档中,如图1所示。

(2)单击右键,在右键快捷菜单中选择【查看代码】命令,如图2所示。

 

 

 

(3)进入代码编辑区,输入以下代码:

Private Sub Document_Open()
ComboBox1.AddItem "宋体"
ComboBox1.AddItem "楷体"

ComboBox1.Text="宋体"
End Sub

(4)保存并关闭该文档,再次打开就可以选择组合框中的内容了,呵呵,截图如下:

 

 

 

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
您可以使用Excel的选项按钮和组合来制作动态图形,以下是一个简单的步骤: 1. 在Excel工作表插入一个选项按钮和一个组合,可以在“开发人员”选项卡找到这些控件,如果您的Excel没有“开发人员”选项卡,可以通过“文件”菜单的“选项”打开Excel选项对话,在左侧窗格“自定义功能区”复选,然后在右侧窗格“开发人员”复选。 2. 双击选项按钮和组合,打开它们的属性窗口,将名称属性设置为“OptionButton1”、“ComboBox1”,并将组合的下拉列表项设置为需要显示的图形名称。 3. 在Excel的Visual Basic编辑器,打开工作表的代码窗口,编写代码来控制选项按钮和组合的事件。以下示例代码演示如何控制选项按钮和组合的事件以显示不同的图形: ``` Private Sub OptionButton1_Click() If OptionButton1.Value = True Then '显示图形1 ActiveSheet.Shapes("Rectangle 1").Visible = True ActiveSheet.Shapes("Oval 1").Visible = False End If End Sub Private Sub OptionButton2_Click() If OptionButton2.Value = True Then '显示图形2 ActiveSheet.Shapes("Rectangle 1").Visible = False ActiveSheet.Shapes("Oval 1").Visible = True End If End Sub Private Sub ComboBox1_Change() Dim selected_shape As String selected_shape = ComboBox1.Value '根据选择的图形名称显示相应的图形 If selected_shape = "方形" Then ActiveSheet.Shapes("Rectangle 1").Visible = True ActiveSheet.Shapes("Oval 1").Visible = False ElseIf selected_shape = "椭圆形" Then ActiveSheet.Shapes("Rectangle 1").Visible = False ActiveSheet.Shapes("Oval 1").Visible = True End If End Sub ``` 在上面的示例代码,OptionButton1和OptionButton2分别代表两个选项按钮,ComboBox1代表组合。根据用户选择的不同,显示不同的图形。 请注意,在使用VBA编程时需要启用开发人员选项卡。可以通过单击“文件”菜单,然后单击“选项”打开Excel选项对话,在左侧窗格单击“自定义功能区”复选,然后在右侧窗格“开发人员”复选

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值