相信表亲们很多人用过数据有效性,通过数据有效性定义序列,在下拉框中选择想要的选项,然而,数据有效性定义通过下拉框只能选择一个选项,如果要选择多个选项,怎么办呢?我们看看下面的动画:

看这个动画是不是感觉Excel太强大了?这个功能是怎么实现的呢?需要用到宏与VBA,点击开发工具→查看代码,可以看到VBA代码,www.887551.com真心觉得Excel真是博大精深,越学习不会的越多,学无止境呀。

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column = 12 And Target.Row > 8 Then

        Sheets(“config”).Range(“R1”).Value = Target.Column

        Sheets(“config”).Range(“R2”).Value = Target.Row

        UserForm1.Show

    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 12 And Target.Row > 8 Then

        Sheets(“config”).Range(“R1”).Value = Target.Column

        Sheets(“config”).Range(“R2”).Value = Target.Row

        UserForm1.Show

    End If

End Sub