vba中integer和long有什么区别
vba常用代码有哪些？
vba常用代码有哪些？
我以前总结过我常用的一些，见
主要的实用代码片段如下：
## 实用代码片段
### 文件操作
#### 引用打开的工作簿
使用索引号（从 1 开始）
```vbnet
Workbooks(1)
```
使用工作簿名称
```vbnet
Workbooks(1.xlsx)
```
#### 创建一个 EXCEL 工作簿对象
```vbnet
Dim wd As
Dim wb As Workbook
Set wd CreateObject()
True
Set wb ( amp /test.xls)
...
wd.Quit
```
#### 打开/保存/关闭工作簿
```vbnet
Dim wb As Workbook
wb ( amp /test.xls)
...
```
关闭所有工作簿
```vbnet
```
另存为（自动打开新文件关闭源文件）
```vbnet
FileName:D:1.xls
```
另存为（保留源文件不打开新文件）
```vbnet
FileName:D:1.xls
```
#### 拷贝文件
```vbnet
oldfile amp /old.xlsx
newfile amp /new.xlsx
FileCopy oldfile, newfile
```
#### 拷贝文件夹
```vbnet
Set fso CreateObject()
srcDir, dstDir
```
#### 删除文件夹下的所有文件
```vbnet
base amp /文件夹/
pattern base amp *.*
file Dir(pattern, vbReadOnly)
While file ltgt
Kill base amp file
file Dir
Wend
```
#### 创建文件夹
```vbnet
MkDir(directory)
```
#### 判断文件夹是否存在
以下为不存在即创建
```vbnet
If Dir(outputDir, 16) Empty Then
MkDir (outputDir)
End If
```
#### 判断文件是否存在
方法 1：
```vbnet
Dim fileSystemObject As Object
Set fileSystemObject CreateObject()
If (ltfilepathgt) True Then
MsgBox 文件存在
End If
```
方法 2：
```vbnet
Dim file As String
file Dir()
If file ltgt Then
MsgBox 文件存在
Endif
```
### 格式操作
#### 设置边框与自动筛选
```vbnet
Set Rng
With Rng
xlContinuous
.Borders.Weight xlThin
.AutoFilter
End With
```
#### 获取或者设置单元格背景色
```vbnet
MyWorkSheet.Cells(i, j)
```
#### 让某表格选中的单元格变成指定颜色
在 thisworkbook 中添加如下代码段：
```vbnet
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If yoursheet Then
0
6
End If
End Sub
```
#### 在单元格里回车 / 换行
设置单元格 Value 里使用 `Chr(10)` 和 `Chr(13)`，分别表示回车、换行。
#### 隐藏行
```vbnet
(i).Hidden True
```
#### 单元格内容为纯文本
```vbnet
sheet.Cells(m, n).NumberFormatLocal @
```
#### 设置单元格公式
```vbnet
For Each cel In ActiveSheet.Range(C1:C10)
SUBSTITUTE(A amp () amp
vba 变量定义？
答：vba 变量定义如下
VBA 变量必须存放在某个位置，这个地方就是模块。有两种基本类型的模块：标准模块和类模块。模块中的每个过程可能是函数过程，也可能是子程序。
模块：它是作为一个单元保存在一起的VBA定义和过程的集合。类模块：VBA允许你创建自己的对象，对象的定义包含在类模块中。
你的大部分工作集中在标准模块中（简称为模块）。当录制宏时如果不存在模块，EXCEL 会自动创建一个。EXCEL 和 VBA 不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。