[已解决]表单控件 组合框如何动态赋值

zhoujunah

需要通过单选框选定的值为组合框动态赋值，请高手指教。

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-3-18 15:29

zhoujunah 发表于 2014-3-18 13:41
附件

利用 定义名称 完成

1 定义名称 SJ  具体公式在名称管理器查看
2 组合框 数据来源 为 定义的名称

321114-函数-定义名称-组合框.rar (11.54 KB, 下载次数: 350)

2014-3-18 15:29 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

提供数据附件，并举例说明要达到的效果

zhoujunah

附件

zhoujunah

附件

那么的帅

zhoujunah 发表于 2014-3-18 13:41
附件

利用 定义名称 完成

1 定义名称 SJ  具体公式在名称管理器查看
2 组合框 数据来源 为 定义的名称

321114-函数-定义名称-组合框.rar (11.54 KB, 下载次数: 350)

2014-3-18 15:29 上传

点击文件名下载附件

zhoujunah

请大神帮忙看一下如下代码如何修改才能实现上面的功能：
Sub DateDim_click()
     Sheets(3).Shapes.Range(Array("Drop Down 6")).Select
    If Sheets(2).Range("$F$2") = 1 Then

            With Selection
                .ListFillRange = ""
                .ListFillRange = "Sheet2!$B$3:$B$5"
                .LinkedCell = "Sheet2!$F$4"
                .DropDownLines = 30
            End With
            
    ElseIf Sheets(2).Range("$F$2") = 2 Then
            With Selection
                .ListFillRange = ""
                .ListFillRange = "Sheet2!$C$3:$C$10"
                .LinkedCell = "Sheet2!$F$4"
                .DropDownLines = 30
            End With
    ElseIf Sheets(2).Range("$F$2") = 3 Then
            With Selection
                .ListFillRange = ""
                .ListFillRange = "Sheet2!$D$3:$D$17"
                .LinkedCell = "Sheet2!$F$4"
                .DropDownLines = 30
            End With
    Else
            With Selection
                .ListFillRange = ""
                .ListFillRange = "Sheet2!$E$3:$E$17"
                .LinkedCell = "Sheet2!$F$4"
                .DropDownLines = 30
            End With
    End If
End Sub