Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   'The note of Visual Basic for Application

   'VBA 是由微软开发出来的一种宏语言，寄于对Windows桌面程序功能的扩展，和VB语言结构相似,是VB的子集；

   'VBA常见的作用：

       '1.规范用户的操作，控制用户的操作行为;

       '2.操作界面人性化，方便用户的操作;

       '3.多个步骤的手工操作通过执行VBA代码可以迅速的实现;

       '4.实现一些VB无法实现的功能;

       '5.用VBA制做EXCEL登录系统;

       '6.利用VBA可以Excel内轻松开发出功能强大的自动化程序.

   'VBA中常见的数据类型：

       '1.  Integer    整型     %

       '2.  Single    单精度    ！

       '3.  Double    双精度    #

       '4.  String    字符串    $

       '5.  Long      长整型    &

       '6.  Currency  货币型    @

    'VBA判断语句：

      '(1)IF判断语句：

       '单行判断语句：不需要使用End If

               Dim a As Integer

               a =

               If a >  Then MsgBox "大于3"

      '多行判断语句：需要使用End If

               If a >  Then

                        MsgBox "大于2"

               ElseIf a >  Then

                        MsgBox "大于5"

               Else

                        MsgBox "feirup"

              End If

      '(2)IIF判断语句：

               MsgBox IIf(a > , "不错", "一般")

      '选择语句：

        'Select Case语句：

               Dim i As Integer

               i =

               Select Case i

                        Case Is >

                               MsgBox "正数"

                        Case Is <

                               MsgBox "负数"

                        Case Else

                               MsgBox ""

                End Select

     '循环语句：

       'DO...LOOP语句：

                Dim t As Integer

                t =

                Do

                    t = t +

                    If t >  Then MsgBox "大于10了"

                Loop

    'While语句：

             Dim rs%

             rs = 

            Do While Cells(rs, ) <> ""

                 Cells(rs, ) = "非若"

                 rs = rs +

            Loop

    'Until循环语句：

            Dim t%

            t =

            Do Until Cells(t, ) = ""

                  Cells(t, ) = "feiruo"

                   t = t +

            Loop

    'for each...next语句：

            Dim rng As Range, n!

            For Each rng In Sheet1.Range("a1:a10")

                  If rng = "A3" Then

                     rng.Interior.ColorIndex =

                  Else

                     rng.Interior.ColorIndex =

                  End If

            Next

    'for...next语句：

            Dim i!, j!

            For i =  To  Step

                 j = j +

            Next i

            MsgBox "j=" & j

     'End与Exit语句：

          '1. Exit Do

          '2.Exit For

          '3.Exit Function

          '4.Exit Sub

            Dim r!

            For r =  To

              If Sheet1.Cells(r, ) = "非若" Then

            Exit For

              End If

            Next r

            MsgBox "非若（第一个）在第" & r & "行！"

         Sub button()

          '1.End

          '2.End Function

          '3.End If

          '4.End Select

          '5.End Sub

             Dim i!

              i =

            MsgBox "i=" & i

             End '直接停止程序

            MsgBox "退出le"

             End Sub

    '跳转语句：

    'GoTo line无条件转移程序中指定的程序行

         Dim str$, k!

         k =

      line:

         k = k +

         If k >  Then Exit Sub

              str = InputBox("请输入用户名！")

         If str <> "admin" Then GoTo line

   '错误分支语句：

         Dim i!

        'On Error Resume Next '当遇到错误的时候继续执行下去

         On Error GoTo ERROR:

             For i =  To

                  Cells(i, ) = Cells(i, ) + Cells(i4)

             Next i

             MsgBox "运行完毕"

ERROR: MsgBox "遇到错误！"

    'width语句：对某个对象执行一系列的语句是，不用重复指出对象的名称

           'a = Range("a1").Address

           'b = Range("a1").Parent.Name

      With Range("a1")

           a = .Address

           b = .Parent.Name

          MsgBox a '$A$1

          MsgBox b 'Sheet1

      End With

End Sub

'VBA 函数：

   Dim i%

   For i =  To  Step

   Sheet1.Cells(i, ) = "=sum(a" & i & ":b" & i & ")"

   Sheet1.Cells(i, ) = "=COUNTIF(A1:A11,"">12"")"

   Sheet1.Cells(i, ) = "=sum(INDIRECT(""a1:a10""))"

   Next i

Dim i%

   MsgBox Application.WorksheetFunction.CountIf(Range("a1:a10"), ) '3  统计3的14的个数 等价于：

   'MsgBox Application.CountIf(Range("a1:a10"), 14)

   'MsgBox WorksheetFunction.CountIf(Range("a1:a10"), 14)

    MsgBox VBA.Format(Range("b1"), "0.00")

    MsgBox Format(Range("b1"), "0.00")

 '自定义函数：

    Function sex(rng As Range)

     MsgBox sex = IIf(Mid(rng, , ) Mod , "男", "女")

   End Function