在VBA中Selection的含义

2012-09-17 11:05:21

select是选取的意思，那么selection的意思就是正在被选取。被选取的不仅是单元格，也可以是图表，图表等。

有了Selection，我们就可以做到用户和VBA程序的互动，因为VBA可以随时处理用户选取的单元格区域或图形等。

如下句：

        Sub test()
             Selection.Copy Range("A1")   '把选取的单元格内容复制到A1单元格
         End Sub

 再如下面的语句显示当前选取的区域大小：

            Sub test1()
                With Selection
                    MsgBox "你选取了" & .Rows.Count & "行" & .Columns.Count & "列的区域"
               End With
            End Sub

非空单元格计数

    Dim Rg As Range

    Dim S As Integer

    On Error Resume Next

    'MsgBox "选定区域:" & Selection.Address(0, 0)

    For Each Rg In Selection

        If Rg <> "" Then S = S + 1

    Next

    MsgBox S

单元格计数

MsgBox "选定区域:" & Selection.count