前言
今年刚入职,工作几乎都是要在黄光区做实验,用不太到电脑。
有些时候需要用到的EXCEL是前辈们做的,那个土法炼钢的程度自己是有点受不了,所以决定跳下去改的方便一点。
所以决定开始学VBA。
其实我需要的功能好像EXCEL内建的函数就能解决九成,但想说还是做个没几个同事看得懂的巨集,来增加一些自己的不可取代性(大概吧...)
而自己因为非常金鱼脑,工作的电脑又只能连内网,只好逼自己写笔记加深印象。本来要写在 Notion 上,可是打开后发现好像要写得好看还要学一些东西,发懒的我只好转写到这里了。
因为本人是工学院毕业的,很多用语应该非常不精确,见者见谅XD
开始使用
excel我的版本是2019,但应该跟2016差不多吧
总之先把开发人员的标籤弄出来档案>选项>自订功能区
把开发人员勾起来
就会出现了
到该标籤按下visual basic,开个模组就能开始用啦~~
开始写
写给自己看的,记录一些自己写错、容易忘记的东西
Sub FunctionName()内容End Sub
内容
cells里面的数字栏列我是用矩阵的m,n去想的,第一个数字是往下,第二个数字是往右
.
有变数就只能宣告他一下?
用九九乘法为例:
Sub MultiplicationTable() Dim i As Integer, j As Interger For i = 1 To 9 For j = 1 TO 9 Cells(i, j) = i* j Next j Next iend Sub
迴圈
For~Next以删除空白列为例,得用倒序的方式去跑迴圈,不然会删不完全。
(123列都空白,1删了2会递补上去,但迴圈跑到2了,就只会删到原本的3,就会留下一列空白)
Sub test1() For i = 13 To 1 Step -1 If Cells(i, 1) = 0 Then Rows(i).Delete End If Next iEnd Sub
For Each~NextWorksheets
吐多张分页写法Sub testn()Dim k As Integer For k = 1 To 3 Worksheets.Add after:=Worksheets(Worksheets.Count) Next kEnd Sub
我还不知道after:在干嘛的,猜是加在最后面吧