[已解决]最后再请教...........当选择内容后，只显示银行名称，请见附图

N7120

Book1A - 副本.rar (14.65 KB, 下载次数: 9)

2016-11-30 18:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-30 18:42

1. Private Sub ComboBox1_Click()
   
2. ComboBox1.Text = Split(ComboBox1.Value, "     ")(1)
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6.     Dim arr, i%
   
7.     arr = Sheets("sheet1").[E7].Resize(Sheets("sheet1").[E65536].End(xlUp).Row - 6, 3)
   
8.     ComboBox1.Clear
   
9.     For i = 1 To UBound(arr)
   
10.         ComboBox1.AddItem arr(i, 1) & "     " & arr(i, 3)
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

苏子龙

1. Private Sub ComboBox1_Click()
   
2. ComboBox1.Text = Split(ComboBox1.Value, "     ")(1)
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6.     Dim arr, i%
   
7.     arr = Sheets("sheet1").[E7].Resize(Sheets("sheet1").[E65536].End(xlUp).Row - 6, 3)
   
8.     ComboBox1.Clear
   
9.     For i = 1 To UBound(arr)
   
10.         ComboBox1.AddItem arr(i, 1) & "     " & arr(i, 3)
    
11.     Next
    
12. End Sub

复制代码