发布时间 : 2024/6/16 22:21:54 星期日 文章EXCELVBA学习笔记更新完毕开始阅读0a60a009941ea76e59fa048f

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中的任何单一字符

21 / 62

*### *E* NED#

最后三个是数字 包含E字

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

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

编号为四个字符

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

Dim rng As Range, rngs As Range, k% For Each rng In [a2:a27] For Each rngs In [b2:b7] If rng = rngs Then GoTo 100 End If Next k = k + 1

Cells(k + 1, 3) = rng 100: Next End Sub

Sub 按钮1_Click()

Dim rng As Range, rngs As Range, k! [c2:c400].Clear

22 / 62

For Each rng In [a2:a400]

For Each rngs In Range(\\& [b2].End(4).Row)

If rng = rngs Then GoTo 100 End If Next rngs k = k + 1

Cells(k + 1, 3) = rng 100:

Next rng End Sub

第二章EXCEL工作簿和工作表操作 2-0 工作簿与工作表基础知识 Sub 拆分到工作簿()

Dim wk As Workbook, ss$, k% Application.DisplayAlerts = False

For Each sht In Workbooks(\工作簿名称\ Set wk = Workbooks.Add k = k + 1

Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)

23 / 62

ss = ThisWorkbook.Path & \\

wk.SaveAs ss wk.Close Next

Application.DisplayAlerts = True MsgBox \拆分工作簿完成！\End Sub

2-1 工作簿表示方法 Sub 工作簿名称表示法()

MsgBox ThisWorkbook.Name

MsgBox Workbooks(ThisWorkbook.Name).Parent End Sub

Sub 工作簿索引号表示法() MsgBox Workbooks(2).Name End Sub

Sub 窗口表示法()

MsgBox Windows.Count

MsgBox Windows(1).Parent.Name End Sub

Sub 工作簿实例workbooks法() Dim i

24 / 62