[已解决]Combobox添加内容

王永峰

在一张工作表里添加了一个Combobox控件，想把D12：F12的内容放进去，但是区域不固定，会越来越多比如到D12：H12,最好用变量表示，返回值显示在F11，

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-30 15:45

这个简单点。

1. Private Sub ComboBox1_Change()
   
2.     [f11] = Me.ComboBox1.Text
   
3. End Sub
   
4. 
   
5. 
   
6. Private Sub ComboBox1_GotFocus()
   
7.     Dim arr, arrItem
   
8.     Me.ComboBox1.Clear
   
9.     If Len([d12]) Then
   
10.         arr = Range([d12], [d12].End(xlToRight))
    
11.         For Each arrItem In arr
    
12.             ComboBox1.AddItem arrItem
    
13.         Next
    
14.         ComboBox1.DropDown
    
15.     End If
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub ComboBox1_Click()
   
2.     [f11] = Me.ComboBox1.Text
   
3. End Sub
   
4. 
   
5. Private Sub ComboBox1_GotFocus()
   
6.     Dim arr, arrItem
   
7.     Me.ComboBox1.Clear
   
8.     If Len([d12]) Then
   
9.         arr = Range([d12], [d12].End(xlToRight))
   
10.         For Each arrItem In arr
    
11.             ComboBox1.AddItem arrItem
    
12.         Next
    
13.         ComboBox1.DropDown
    
14.     End If
    
15. End Sub
    
16. 
    
17. Private Sub ComboBox1_LostFocus()
    
18.     [f11] = Me.ComboBox1.Text
    
19. End Sub
    

复制代码

hwc2ycy

这个简单点。

1. Private Sub ComboBox1_Change()
   
2.     [f11] = Me.ComboBox1.Text
   
3. End Sub
   
4. 
   
5. 
   
6. Private Sub ComboBox1_GotFocus()
   
7.     Dim arr, arrItem
   
8.     Me.ComboBox1.Clear
   
9.     If Len([d12]) Then
   
10.         arr = Range([d12], [d12].End(xlToRight))
    
11.         For Each arrItem In arr
    
12.             ComboBox1.AddItem arrItem
    
13.         Next
    
14.         ComboBox1.DropDown
    
15.     End If
    
16. End Sub

复制代码

hwc2ycy

鼠标移动COMBOBOX时就下拉选择。

1. Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     Me.ComboBox1.DropDown
   
3. End Sub
   
4. 
   
5. Private Sub ComboBox1_GotFocus()
   
6.     Dim arr, arrItem
   
7.     Me.ComboBox1.Clear
   
8.     Me.ComboBox1.ListStyle = fmListStylePlain
   
9.     If Len([d12]) Then
   
10.         arr = Range([d12], [d12].End(xlToRight))
    
11.         For Each arrItem In arr
    
12.             ComboBox1.AddItem arrItem
    
13.         Next
    
14.         ComboBox1.DropDown
    
15.     End If
    
16. End Sub

复制代码

hwc2ycy

组合框.rar (19.23 KB, 下载次数: 20)

2013-5-30 15:48 上传

点击文件名下载附件