[已解决]如何根据第一个复合框的内容决定第二个复合框的下拉幅度？

一剑惊心

 如何根据第一个复合框的内容决定第二个复合框的下拉幅度？

R5oh5z5C.zip (9.18 KB, 下载次数: 43)

2010-3-14 20:40 上传

点击文件名下载附件
如何根据第一个复合框的内容决定第二个复合框的下拉幅度？

最佳答案

月排行榜 / 总排行榜

雨狐

2010-3-14 20:51

Private Sub ComboBox1_Change()
Dim x%
If Me.ComboBox1.Value = "张三" Then
            x = 13
        Else
            x = 15
        End If
        For y = 1 To x
            ComboBox2.AddItem Sheets("sheet1").Cells(y, 2)
        Next y
End Sub

Private Sub UserForm_Initialize()
    Dim m%, n%, x%, y%
    With Sheets("sheet1")
        m = .Range("A65536").End(xlUp).Row
        For n = 1 To m
            ComboBox1.AddItem .Cells(n, 1)
        Next n
    End With
End Sub

跳转到最佳答案楼层

雨狐

Private Sub ComboBox1_Change()
Dim x%
If Me.ComboBox1.Value = "张三" Then
            x = 13
        Else
            x = 15
        End If
        For y = 1 To x
            ComboBox2.AddItem Sheets("sheet1").Cells(y, 2)
        Next y
End Sub

Private Sub UserForm_Initialize()
    Dim m%, n%, x%, y%
    With Sheets("sheet1")
        m = .Range("A65536").End(xlUp).Row
        For n = 1 To m
            ComboBox1.AddItem .Cells(n, 1)
        Next n
    End With
End Sub

开辆小富康

Private Sub ComboBox1_Click()
Me.ComboBox2.Clear
If Me.ComboBox1.Value = "张三" Then
  x = 12
Else
 x = 17
End If
With Sheets("sheet1")
    
        For y = 1 To x
            ComboBox2.AddItem .Cells(y, 2)
        Next y
End With
End Sub

Private Sub UserForm_Initialize()
    Dim m%, n%, x%, y%
    With Sheets("sheet1")
        m = .Range("A65536").End(xlUp).Row
        For n = 1 To m
            ComboBox1.AddItem .Cells(n, 1)
        Next n
       
    End With
   
End Sub

上清宫主

可以这样不？

Private Sub ComboBox1_Change()
If ComboBox1.Value = "张三" Then
   ComboBox2.RowSource = "sheet1!b1:b12"
Else
   ComboBox2.RowSource = "sheet1!b1:b15"
End If
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "sheet1!A1:A2"
    ComboBox2.RowSource = "sheet1!b1:b17"
End Sub