EXCEL——单元格具有下拉列表功能(ComboBox)

 
今日在做一个让EXCEL和ComboBox类似这类控件组合的文件。挺方便实用的。

1.新建一个EXCEL文件,点“视图”-》“工具栏”,选择Visual Basic。再点VB面板的“控件工具箱”,选择一个ComboxBox控件(组件)(同时设置此控件为非打印对象,以免打印时,出现控件)。这里,你也可以选择其它控件,看你具体使用情况,可适当变动。

2.按Alt+F11,进入VBA编程界面。双击“ThisWorkbook”(就是本EXCEL对象),输入代码:

Private Sub Workbook_Open()
Sheet1.ComboBox1.Visible = False
End Sub

这个语句的作用是,启动EXCEL文件时,不显示控件。

再双击“Sheet1”,输入代码:

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()
Selection.Value = Sheet1.ComboBox1.Text
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then ‘这里6是说,当点击第六列时,才启动ComboBox
       With Sheet1.ComboBox1
         .Visible = True
         .Width = Target.Width
         .Height = Target.Height
         .Left = Target.Left
         .Top = Target.Top
         .Clear
         .AutoSize = True
         .AddItem “张三”
         .AddItem “李斯”
         .AddItem “王武”
         .AddItem “陶喆”
       End With
End If
End Sub
好了,这样就差不多了。你可以适当修改、扩充功能。

(本文mxay.com原创,转贴请注明来源:mxay.com)

http://www.mxay.com/blog/excel-combobox.html
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值