mbmc.net
当前位置:首页 >> vBA 下拉框 >>

vBA 下拉框

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$13" Then Select Case Target.Value Ca...

在窗体上拖一个复合框,粘贴如下初始代码: Private Sub UserForm_Initialize() ComboBox1.List = Array(".jpg", ".gif", ".bmp") End Sub 运行效果如图所示。

插入组合框ComboBox 添加代码 ComboBox1.AddItem "星期一" ComboBox1.AddItem "星期二" ComboBox1.AddItem "星期三" ComboBox1.AddItem "星期四" ComboBox1.AddItem "星期五" ComboBox1.AddItem "星期六" ComboBox1.AddItem "星期日"

Dim Rng As Range Set Rng = range("A1") With Rng.Validation .Delete .Add Type:=xlValidateList, Formula1:="=$C$4:$C$7" End With Set Rng = Nothing

Private Sub Form_Load()With Combo1 .AddItem ("1") .AddItem ("2") .AddItem ("3")End WithDim A As ByteA = Combo1.TextMsgBox AEnd Sub

数据有效性里显示的内容修改。 如果允许来源是来自表格内的内容,修改来源的值即可。 例如下图情况,修改A列的值即可。 如果允许来源是输入的值,由英文逗号分开的方式,把其中的值进行修改即可。

szqaly的回答没错 你下拉框没东西是因为你把代码复制到Private Sub ComboBox1_Change() 你应该直接用他的代码就可以了 如果你复制到Private Sub ComboBox1_Change()里面,那比就要改变复合框里的内容,才会生成1-12

Dim iVdStr As String iVdStr = "CPD-E12,CPE-F13,CPD-223" '设置列表,用英文的逗号分割 With Range("A1").Validation '为A1单元格区域设置有效性 .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, iVdStr .IgnoreBlank = True .InC...

sheet2中加入以下代码: Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 2 And Cells(Target.Row, 1) "" Then Sheet1.Range("C:C").Delete j = 1 For i = 1 To Sheet1.UsedRange.Rows.Count If Sheet1.Cells(...

数据有效性就可以 楼主可以自己录制一段设置数据有效性的宏 然后根据需求修改即可

网站首页 | 网站地图
All rights reserved Powered by www.mbmc.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com