目录
VBA相关设置
1 如何设置VBA相关功能
把开发选中
2 excel中调出vba
方法1：Alt+F11
方法2：
3 无法使用vba
4 保存格式
如果想要vba保存后，下一次打开没有把信息覆盖掉，最好保存成xlsm格式文件
5 注释
单行 '
单行 Rem
多行
6 输出日志
Debug.Print fileNo
Debug内容会显示下界面的下方，生成的内容可以随时全部选中后清空
7 录制宏和设计控价
8 乱码问题
无论是中文还是日语乱码，有两种解决方法：
1）乱码是因为在复制的时候，没有选择和文档一致的语言。比如语言是日语，但复制是电脑的输入法是中文，如果统一成日语，就不会出现粘贴乱码
2）设置excel的vba语言格式。
语法
0 常用语法
| 功能 | 方法 | 备注 |
|---|---|---|
| 注释 | ’或者上方菜单可以多条注释 |  |
| 判断相等 | == | - |
| 判断不等 | <> | - |
| 判断为空 | “” | - |
| 单元格引用 | If Cells(n, 1) = Cells(n, 3) Then | - |
| 获取当前活动sheet | fname = ActiveSheet.Name ActiveSheetName = "" & fname & "" Debug.Print ActiveSheetName |
- |
| 选中当前活动sheet | Sheets(ActiveSheetName).Cells(n, 1) <> "" | - |
| 选中整行 | Cells(n, 1).EntireRow.Select | - |
| 赋值 | x = Range("C5").Value Range("C5").Value=Cells(n, 1).Value Range("J10").Value= "333" |
- |
| 连接字符串 | a & b a + b |
- |
| 如何调用函数/功能 | CreateSql (text) CreateSql () CreateSql 参数1,参数2,参数3 |
1个参数可以写在括号里，大于1个参数不写括号 |
| 如何调用函数/功能 | CreateSql (text) CreateSql () |
- |
1 定义变量
dim 变量名 as 变量类型 'eg:Dim file As String
Const
- 数据类型
| 序号 | 内容 | 说明 |
|---|---|---|
| 1 | Integer | 整数 |
| 2 | Double | 小数 |
| 3 | String | 字符串 |
| 4 | Array | 数组 |
| 5 | Dictionary | 字典 |
| 6 | Boolean | 布尔 |
| 7 | Date | 日期 |
| 8 | Object | 对象 |
如何获取知道数据属于什么类型，可以通过 Debug.Print vartype(变量名) 得到，反馈的是
2 控制流
- If……elseif……else分支
If Item = 1 Then '障害発生日
copy_range = "I20:K20"
ElseIf Item = 2 Then '名前
copy_range = "F13:G15"
EeIf Item = 13 Then '障害解消日2（実績）
copy_range = "E39:F39"
End If
- Do While循环
Do While file <> "" '当指定路径中由文件时进行循环
Set WB = Workbooks.Open(Path & file) '打开符合要求的文件
fileNo = fileNo + 1
Call Click2(file, fileNo) '调用你的另一端对每个excel文件进行具体操作的宏，也可以直接写到这个宏中
Workbooks(file).Close savechanges:=False
file = Dir '找寻下一个excel文件
Loop
- For循环
For Item = 1 To 24 Step 1
Debug.Print Item
Next
- For each循环
For Each sheet In book.Worksheets
text = text & sheet.Name & vbNewLine
Next
- Switch分支
- While……Wend循环
3 常用内置函数
1 特殊类
| 函数 | 说明 |
|---|---|
| inputBox | 输入框 |
| msgbox | 消息框 |
| rnd | 随机数 |
| timer | 计时器 |
| RGB | RGB取色 |
2 数组
| 函数 | 说明 |
|---|---|
| Lbound，Ubound | 下限 上限 |
3 字符串
| 函数 | 说明 |
|---|---|
| Len | 返回长度 |
| join，split | 拼接和分割 |
| left right mid | 取子串 |
| instr inStrRev | 找子串位置 |
| Trim，LTrim，RTrim | 去空格 |
| Format | 格式化 |
| Asc Chr | ASC转换 |
| LCase UCase | 大小写转换 |
| 4 数字 | |
| 函数 | 说明 |
| - | - |
| IsNumeric | 类型确认 |
| Round Fix | 四舍五入 |
5 时间与日期
| 函数 | 说明 |
|---|---|
| Date Time Now | 获取系统时间 |
| DateAdd DateDiff | 时间加减 |
| DatePart month day hour | 时间 |
4 excel交互
- excel
Windows("COMITX本番障害票&調査依頼書_登录工具.xlsm").Activate - sheet
Sheets("システム障害報告書").Select - 单元格
Range(select_range).Select
Range("A1").Select
Cells.Select
Cells(n, 2)
select_range = "A100:A101"
Selection.Copy
ActiveSheet.Paste
5 其他
过程和函数
Sub 过程名()
……
End Sub
函数
Function 函数名(一堆变量)
……
End Function
运算符
| 算术运算符 | 说明 | 比较运算符 | 说明 | 逻辑运算符 | 说明 | 连接运算符 | 说明 |
|---|---|---|---|---|---|---|---|
| + | 加 | = | 等于 | And | 且 | + | 连接 |
| - | 减 | <> | 不等于 | Or | 或 | & | 连接 |
| * | 乘 | > | 大于 | Not | 非 | - | - |
| / | 除 | < | 小于 | Xnot | 或非 | - | - |
| % | 模 | >= | 大于等于 | - | - | - | - |
| ^ | 幂 | <= | 小于等于 | - | - | - | - |
如何debug
CTRL+G显示debug窗口
debug.print testcontext
清空debug窗口内容的时候，选中Ctrl+A delete即可
连接数据库
解决：
找到报错位置，怀疑是连接ADODB错误，关键词检索，提供方案添加对应的库
但是在日语环境下怎么都找不到配置的位置，后来多文件查询，对应到下图位置，但是功能是置灰的
当报错说没有定义的时候，尤其是这个定义的类型是一个比较特殊的类型时，很可能是因为没有添加对应的库
怎么安装ODBC驱动
如果按照文档操作后，没有postpgeSQL，需要安装文件driver
https://www.postgresql.org/ftp/odbc/versions/msi/
如何返回电脑设置
local x32 x64
Public Const sPostgresIDx32 = "DRIVER={PostgreSQL Unicode};DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=postgres;"
Public Const sPostgresIDx64 = "DRIVER={PostgreSQL Unicode(x64)};DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=postgres;"
Sub SetpostgresID()
ExclVer = Application.OperatingSystem
If ExclVer Like "*Windows (32-bit)*" Then
If wCompName Like "*HK-PCB*" Then
sPostgresID = sPostgresIDx32_HK
Else
sPostgresID = sPostgresIDx32
End If
Else
If wCompName Like "*HK-PCB*" Then
sPostgresID = sPostgresIDx64_HK
Else
sPostgresID = sPostgresIDx64
End If
End If
End Sub
常用功能
1 编列excel的sheet表
功能说明：遍历sheet表，并且弹出msgbox返回所以所以结果
Sub mynzH() '遍历循环
Dim book As Workbook, sheet As Worksheet, text As String
For Each book In Workbooks
text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
For Each sheet In book.Worksheets
text = text & sheet.Name & vbNewLine
Next
text = text & vbNewLine
Next
MsgBox text
End Sub
应用场景
Sub mynzH()
Dim book As Workbook, sheet As Worksheet, text As String
For Each book In Workbooks
For Each sheet In book.Worksheets
text = sheet.Name
Debug.Print text
'调用其他函数 otherFunction（text）
Next
Next
End Sub