[已解决]数据有效性和控件能不能结合起来

一休和尚

我在B1单元格设置了数据有效性输入；
我想实现的是使用控件或者VBA能不能在其他任意单元格按照B1选择输入；
比如B3输入白班；D3输入中班；这些能使用控件或者VBA实现吗？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-5 12:37

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c, n
    With Target
        r = .Row: c = .Column: n = .Count
    End With
    With ListBox1
        If r > 4 And r < 58 And c > 3 And c < [ai1].Column And r Mod 2 = 1 And n = 1 Then
            .Left = Cells(r, c + 1).Left
            .Top = Cells(r, c).Top
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell.Value = ListBox1.Text
    ActiveCell.Select
    ListBox1.Visible = False
End Sub

Private Sub Workbook_Open()
    With Sheets(1).ListBox1
        .List = Sheets(1).Range("AQ5:AQ34").Value
        .Height = .ListCount * 10    '自动调整行高
    End With
End Sub




15年10月考勤（翁忠明）4.rar (42.5 KB, 下载次数: 6)

2015-12-5 12:35 上传

点击文件名下载附件
说明：
1）选项必须是1列，所以换成AQ5:AQ34（可隐藏该列）
2）冻结窗口影响控件，已取消。
3）双击控件内的选项，才会输入到单元格中。

跳转到最佳答案楼层

一休和尚

附件中在B1设置了有效性，想在表中的其它单元格中能点击输入，该怎么设置？

爱疯

15年10月考勤（翁忠明）2.rar (28.06 KB, 下载次数: 3)

2015-12-5 11:00 上传

点击文件名下载附件

一休和尚

爱疯 发表于 2015-12-5 11:00

版主的设置和我的题意不符，我的意思是用控件实现，就像您做的那个日历控件一样；
只要选中单元格，就能使用控件输入数值；
您的方法也让我学到了怎么样批量设置和引用；
就是数据有效性结合控件的意思！

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c, n
    With Target
        r = .Row: c = .Column: n = .Count
    End With
    With ListBox1
        If r > 4 And r < 58 And c > 3 And c < [ai1].Column And r Mod 2 = 1 And n = 1 Then
            .Left = Cells(r, c + 1).Left
            .Top = Cells(r, c).Top
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell.Value = ListBox1.Text
    ActiveCell.Select
    ListBox1.Visible = False
End Sub

Private Sub Workbook_Open()
    With Sheets(1).ListBox1
        .List = Sheets(1).Range("AQ5:AQ34").Value
        .Height = .ListCount * 10    '自动调整行高
    End With
End Sub




15年10月考勤（翁忠明）4.rar (42.5 KB, 下载次数: 6)

2015-12-5 12:35 上传

点击文件名下载附件
说明：
1）选项必须是1列，所以换成AQ5:AQ34（可隐藏该列）
2）冻结窗口影响控件，已取消。
3）双击控件内的选项，才会输入到单元格中。

一休和尚

爱疯 发表于 2015-12-5 12:37
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c, n
    With Target

版主：
我的意思是这个表格中的单元格都能用一个控件去控制输入；
就像您以前做的那个日历的加载项一样的；
这个能实现吗？

爱疯

1）这个表格中的单元格都能用一个什么控件去控制输入？
2）为什么你希望一定要用很多控件的方式？
3）很多控件，具体来说不少于多少个？工作表中控件总个数越多，就会越卡，文件大小也越大。

一休和尚

爱疯 发表于 2015-12-5 17:35
1）这个表格中的单元格都能用一个什么控件去控制输入？
2）为什么你希望一定要用很多控件的方式？
3）很多 ...

你做的那个日历控件就是控制所有单元格的；
不如点击任何一个单元格，就可以在控件中选择文本点击输入；
这样就不会有很多单元格都有这个控件了；
版主强大，对于这个应该是小菜一碟；

爱疯

“不如点击任何一个单元格，就可以在控件中选择文本点击输入；”
不理解这是什么意思


另外建议，在结果效果差不多的情况下，能简单就尽量简单处理