ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

VBA 笔记

2020-11-10 23:03:50  阅读:177  来源: 互联网

标签:Dim VBA arr 笔记 A1 Range B1


等于 =
不等于<>

宏就是一种批量处理的称谓
宏 开发者工具-(使用)宏/录制宏
宏执行的步骤不能撤销
不会写的VBA代码可以通过录制宏,然后查看代码
用VBA代码执行宏 call 宏名
自定义功能区 开始-选项-自定义功能区

Dim i as Integer //定义整型变量
For i=1 To 10 //for循环
For i=1 To 10 Step 3 //Step关键字

Dim i As Range
For Each i in Range(“A1”:”A5”) … Next //For Each 循环

Sub fun() … End Sub //VBA定义宏

Range(“A3”) 单元格A3
VBA中字符串连接符为& (and) 如Range(“A”&i)

//定义数组
Dim arr(2) as integer
Dim mat(2,3) as integer
VBA的数组可以从0开始,也可以从1开始
例如Dim arr(3) As Integer 则 arr(0)到arr(3)都可以用

//if的用法
If Range(“A1”)=”男” Then
Range(“B1”)=”先生”
ElseIf Range(“B1”)=”男士” Then
Range(“B1”)=”先生”
Else
Range(“B1”)=”女士”
End If

Exit For //退出for循环

目标定位
Sheet1,2,3 / Sheets(“表名”)
[A1] [A2] Range(“A3”) Range(“A”&4)
Cells(2,3) 第二行第三列(从1开始)

动作
Select
Add
Sheets.Add after:=Sheet1
Delete
Copy

属性
Count 数量
Name 名字

单元格操作
表示方法:range(“a1”) [a1] cells(2,3)
Range(“A1”)=10 其实是Range(“A1”).value=10 因为默认是value属性
Offset(2,3) 移位,下移2行,右移3列
End( ) 移动至已有数据的边界
参数 xldown xlup xltoleft xltoright 如range(“A3”).End(xlDown).select
Resize() 选定区域
Merge 合并
copy 复制到,,, Range("B2:B4").Copy Range("C2:C4")
Selection 选区
EntireColumn() 选定
EntireRow( )

Workbooks工作簿对象
Application.DisplayAlerts = False 取消提示
Application.ScreenUpdating = False //取消屏幕刷新

Open 打开文件 workbooks.open filename := ”d:\a.xlsx”
Add 新建工作簿
Save 保存 SaveAs 另存为
Close 关闭

Workbooks.Add //新建excel文件
Activeworkbook 当前激活的excel文件

注释:半角下的单引号
‘ 注释内容
长按esc停止程序执行

标签:Dim,VBA,arr,笔记,A1,Range,B1
来源: https://www.cnblogs.com/dreaminheart/p/13956514.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有