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()
你在哪里调用的啊。。是按钮吗?