vba，窗体复合框。

1. vba，窗体复合框。

'复合框赋值
ComboBox1.List = comlist'comlist是数组， 
'设置默认显示值
ComboBox1.ListIndex = 0' 默认显示值，0是默认显示序号，0表示comlist数组的第一个元素

2. excel vba窗体的复合框，怎么能默认选中第一项？

可以通过设置其value属性来给组合框赋值，示例代码如下
Private Sub ComboBox2_AfterUpdate()
    Dim rng As Range
    Select Case Me.ComboBox2.ListIndex    
    Case 0
        Set rng = Sheet1.Range("C1:C10")
    Case 1
        Set rng = Sheet1.Range("D1:D10")
    End Select
    Me.ComboBox3.RowSource = rng.Worksheet.Name & "!" & rng.Address
    Me.ComboBox3.Value = Application.WorksheetFunction.Index(rng, 1)
End Sub

3. excel vba中复合框怎样赋值？

ComboBox1
RowSource 属性
object.RowSource [= String]
例如：ComboBox1.RowSource = "Sheet1!A1:C3"

Text 属性
object.Text [= String
例如：ComboBox1.Text = "aaaa"

4. 在VBA中复合框赋值问题

'两个公共变量
Public a    '存放 M8|10 ……的对应关系
Public radius1 As Variant   'LZ需要的变量

Private Sub ComboBox1_Change() '组合框改变时的动作
Dim iStr As String
iStr = a(ComboBox1.ListIndex)
TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))
radius1 = TextBox1.Value
MsgBox radius1
End Sub

Private Sub UserForm_Initialize()  '窗体载入时的动作
a = Split("M8|10,M16|20,M24|30", ",")
If ComboBox1.ListCount  UBound(a) + 1 Then
    For i = LBound(a) To UBound(a)
        ComboBox1.AddItem Left(a(i), InStr(a(i), "|") - 1)
    Next
    ComboBox1.ListIndex = -1
End If
End Sub

5. 紧急求助vba中如何根据2个复合框控件中的条件从数据库中读取符合的数据啊？

Combox1 有 直接连接数据库的 属性  

在那写 对应的 语句就可以了

控件表示方法  窗体名!控件名

我的是日语系统

是 这个属性 Rowsource

6. 用vba提取每个复合框左边字符合并到一个文字框内

给你一个思路，如果数据（15 89455）在B4单元格，则用以下程式可以取到15
x = Mid(Range("b4"), 1, InStr(Range("b4"), " ") - 1)

7. excel VBA中 复合框赋值问题

前面加个窗体名试试
窗体名.ComboBox1.RowSource = "sheet1!A1:A" & i

8. VBA 窗体复合框

关闭_Click()
你在哪里调用的啊。。是按钮吗？