EXCELVBA学习笔记

b = .Parent.Name .Value = \ End With End Sub Sub with嵌套()

Range(\？\ Range(\ Range(\ Range(\End Sub Sub with嵌套2() With Range(\ .Value = \ .Parent.Name = \ With .Font .Size = 20 .Bold = True End With End With End Sub 1-26 VBA与公式

'在VBA中也可以像在工作表中一样录入公式

Sub vba中的做法() Dim i% For i = 1 To 10

Range(\Next End Sub Sub 普通公式()

Sheets(1).Cells(1, 3) = \End Sub Sub 批量计算() Dim i As Integer For i = 1 To 10

Sheets(1).Cells(i, 4) = \Next i End Sub Sub 数组公式()

Range(\End Sub

Sub 带工作表函数的计算() Dim i As Integer For i = 1 To 10

Sheets(1).Cells(i, 3) = \

Next i End Sub

Sub 公式带引号的计算()

Cells(2, 5) = \Cells(3, 5) = \End Sub '借用工作表函数 Sub 运用工作表函数()

MsgBox Application.WorksheetFunction.CountIf(Range(\\钢笔\

MsgBox WorksheetFunction.CountIf(Range(\钢笔\MsgBox Application.CountIf(Range(\钢笔\End Sub 'VBA函数 Sub VBA函数()

MsgBox VBA.Format(Range(\年m月d日\MsgBox Format(Range(\年m月d日\End Sub '自定义函数（） Function sex(rng As Range)

sex = IIf(Mid(rng, 15, 3) Mod 2, \男\女\End Function

'定义：运算符是代表VBA某种运算功能的符号 '⑴赋值运算符：＝

'②数学运算符：&（字符连接符）、＋、－、mod（取余）、\\(整除)、*、/、－（负号）、^(指数)

'③逻辑运算符：not（非）、and（与）、or（或）、xor（异或）、eqv（相等）、imp（隐含）

'④关系运算符：＝（相同）、<>（不等）、>（大于）、<（小于）、>=、<=、like

'like用来比较两个字符串 '?任何单一字符 '*零个或多个字符 '#任何一个数字（0-9）

'[charlist]charlist中的任何单一字符 '[!charlist]不在charlist中的任何单一字符 *### *E* NED#

最后三个是数字 包含E字

以NED开始，然后接一个数字

[A-Z][A-Z]### 两个任意字母开始，再接三个任意数字 ????

编号为四个字符

1-32、综合运用(盘点清单核对) Sub 核对清单()

Dim rng As Range, rngs As Range, k%