VBA 常用语法、API

Dim arr()　　'定义arr数组

Dim wb As Workbook　　'定义wb工作簿

 

LBound(arr)/UBound(arr)　　'数组起始/结束 下标

 

Application.DisplayAlerts = False　　'关闭提示 伴随打开提示

on error resume next　　'跳过错误往下执行

i = InputBox("显示文本")　　'输入弹框

IsNumberic(i)　　'判断是否数字 返回true、false

-------------------------------------单元格操作-------------------------------------------------------

[a10]　　'固定单元格

cells(10,1)　　'固定单元格

range("a10:b11")　　'单元格 可用变量

range("a10").value　　'单元格内容

range("a1").offset(10,0)　　'相对位移位置

range("a10").End(xlUp).row　　'上边界单元格行数

range("a10").EntireRow　　'所在整行(a1开始往后数)

range("a10").resize(1,10)　　'所在区域

range("a10").copy　　'复制

range("a1:a2").merge　　'合并

range("a1:a2").clearcontent　　'清空内容

Call function　　'调用function函数

 

------------------------------------工作表操作--------------------------------------------------------

With sheet1　　End With　　'指定在sheet1下的操作，内部sheet1.可省略为.

Sheets.Add after:=Sheets(Sheets.Count)　　'所有表后新增工作表

 

------------------------------------文件/窗口操作----------------------------------------------------------

str = Application.GetOpenFilename　　'打开windows文件窗口（返回窗口选择文件路径）

Set wk = Workbooks.Open (str)　　　'打开对应路径文件（返回对应文件）

Set wk = Workbooks.Add　　　'新建文件（返回对应文件）