[已解决]ComboBox表单控件问题,急求大神帮助:

chulia_wong · 发表于 2015-8-19 14:23

本帖最后由 chulia_wong 于 2015-8-19 14:39 编辑

ComboBox控件2里面的选项等于0 - 控件1当前的value值!请问怎么做谢谢!
Private Sub ComboBox1_DropButtonClick()
  With ComboBox1
'  For i = 1 To 20
If .ListCount = 0 Then
      .AddItem 10
      .AddItem 20
      .AddItem 35
      .AddItem 44
End If
' Next
   End With
End Sub

Private Sub ComboBox2_DropButtonClick()
With ComboBox2
If .ListCount = 0 Then
      .AddItem 10
End If
   End With
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-19 19:17

4.rar (25.38 KB, 下载次数: 6)

gufengaoyue · 发表于 2015-8-19 15:10

Private Sub ComboBox1_Change()
With ComboBox2
.Clear
For i = 0 To ComboBox1.Value
.AddItem i
Next
End With
End Sub

复制代码

chulia_wong · 发表于 2015-8-19 16:49

gufengaoyue 发表于 2015-8-19 15:10

怎么不显示值

爱疯 · 发表于 2015-8-19 17:12

2.rar (23.23 KB, 下载次数: 4)

chulia_wong · 发表于 2015-8-19 18:45

爱疯发表于 2015-8-19 17:12
1）怎么不显示值？因为2楼不小心删掉了为ComboBox1添加条目的代码

2）为ComboBox1添加条目的代码， ...

我直接用了ComboBox2_GotFocus事件就可以了.
还有最后一个问题,不知道能不能实现:那就是每次选择一完一个值后,它都会默认全选状态;这样很烦!
有没有办法选好后不用蓝色全选? 如图:

爱疯 · 发表于 2015-8-19 19:00

1）建议及时上传你修改后的附件。
2）不大清楚5楼意思。是这样吗？

3.rar (26.23 KB, 下载次数: 3)

chulia_wong · 发表于 2015-8-19 19:09

爱疯发表于 2015-8-19 19:00
1）建议及时上传你修改后的附件。
2）不大清楚5楼意思。是这样吗？

这个意思来的.我估计VBA无法实现!

爱疯 · 发表于 2015-8-19 19:17

4.rar (25.38 KB, 下载次数: 6)

		自动登录	找回密码
密码			注册