• 网站首页
• 网站建设
• 短视频
• 网站推广
• 网站模板
• 客户案例
• 资讯动态
• 关于我们

vba常用代码有哪些_CSS学习

当前位置：网站建设 > 技术支持

vba常用代码有哪些？

我以前总结过我常用的一些，见

https://github.com/mzlogin/learn-vba-the-hard-way

主要的实用代码片段如下：

## 实用代码片段

### 文件操作

#### 引用打开的工作簿

使用索引号（从 1 开始）

```vbnet

Workbooks(1)

```

使用工作簿名称

```vbnet

Workbooks("1.xlsx")

```

#### 创建一个 EXCEL 工作簿对象

```vbnet

Dim wd As Excel.Application

Dim wb As Workbook

Set wd = CreateObject("excel.application")

wd.Visible = True

Set wb = wd.Workbooks.Open(ThisWorkbook.Path & "/test.xls")

' ...

wb.Close

wd.Quit

```

#### 打开/保存/关闭工作簿

```vbnet

Dim wb As Workbook

wb = Workbooks.Open(ThisWorkbook.Path & "/test.xls")

' ...

wb.Save

wb.Close

```

关闭所有工作簿

```vbnet

Workbooks.close

```

另存为（自动打开新文件关闭源文件）

```vbnet

ThisWorkbook.SaveAs FileName:="D:\1.xls"

```

另存为（保留源文件不打开新文件）

```vbnet

ThisWorkbook.SaveCopyAs FileName:="D:\1.xls"

```

#### 拷贝文件

```vbnet

oldfile = ThisWorkBook.Path & "/old.xlsx"

newfile = ThisWorkBook.Path & "/new.xlsx"

FileCopy oldfile, newfile

```

#### 拷贝文件夹

```vbnet

Set fso = CreateObject("Scripting.FileSystemObject")

fso.copyfolder srcDir, dstDir

```

#### 删除文件夹下的所有文件

```vbnet

base = ThisWorkBook.Path & "/文件夹/"

pattern = base & "*.*"

file = Dir(pattern, vbReadOnly)

While file <> ""

Kill base & 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("Scripting.FileSystemObject")

If fileSystemObject.FileExists(<filepath>) = True Then

MsgBox "文件存在"

End If

```

方法 2：

```vbnet

Dim file As String

file = Dir("E:\MyPictures\Pic\logo.gif")

If file <> "" Then

MsgBox "文件存在"

Endif

```

### 格式操作

#### 设置边框与自动筛选

```vbnet

Set Rng = MyWorkSheet.UsedRange

With Rng

.Borders.LineStyle = xlContinuous

.Borders.Weight = xlThin

.AutoFilter

End With

```

#### 获取或者设置单元格背景色

```vbnet

MyWorkSheet.Cells(i, j).Interior.ColorIndex

```

#### 让某表格选中的单元格变成指定颜色

在 thisworkbook 中添加如下代码段：

```vbnet

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "yoursheet" Then

ActiveSheet.UsedRange.Interior.ColorIndex = 0

Target.Interior.ColorIndex = 6

End If

End Sub

```

#### 在单元格里回车 / 换行

设置单元格 Value 里使用 `Chr(10)` 和 `Chr(13)`，分别表示回车、换行。

#### 隐藏行

```vbnet

MyWorkSheet.Rows(i).Hidden = True

```

#### 单元格内容为纯文本

```vbnet

sheet.Cells(m, n).NumberFormatLocal = "@"

```

#### 设置单元格公式

```vbnet

For Each cel In ActiveSheet.Range("C1:C10")

cel.Formula = "=SUBSTITUTE(A" & cel.Row() & ", ""."", CHAR(10) & ""."")"

Next

```

### 选择

#### 引用单元格 / 区域

```vbnet

Range("A1") '表示 A1 单元格

Range("A2:D1") '表示 A2 到 D1 区域

Range("A2:D1")(3) '表示该区域里的第三个单元格

Range("D" & i) 'i 为变量

Range("D3:F4,G10") '引用多个区域

Range("2:2") '引用第二行

Range("2:12") '引用第二行到第十二行

Range("D:A") '引用第 A 到 D 列

Rows(2) '引用第二行

Rows("2:4") '引用第二到四行

Columns("B")

Columns("B:D")

Range(Clee1, Cell2) '左上与右下

Range(Range1, Range2) '取最大范围

```

#### 选中单元格 / 区域

```vbnet

Range("1:1").Select '选中第一行

```

#### 获取当前选中区域

```vbnet

MyWorkSheet.Application.Selection

```

### 数据结构

#### Dictionary

```vbnet

Dim dict

Set dict = CreateObject("Scripting.Dictionary")

' 新增，各种类型都可以，包括 Dictionary

dict.Add "hello", "world"

' 数量

dict.Count

' 删除

dict.Remove("hello")

' 判断是否存在

dict.exists("hello")

' 取值，需要先判断存在再取

dict.Item("hello")

' 修改、新增

dict.Item("hello") = "world"

' 循环

k = dict.Keys

v = dict.Items

For i = 0 to dict.count - 1

key = k(i)

value = v(i)

Next

' 清空

dict.RemoveAll

```

参考：[Excel vba map/dictionary](http://www.cnblogs.com/zhjh256/p/6428333.html)

### 语言基础

#### String to Integer、Double

```vbnet

CInt(MyWorkSheet.Cells(1,7))

CDbl(MyWorkSheet.Cells(1,7))

```

#### 字符串分割/获取数组长度

```vbnet

Dim arr() As String

arr() = Split(ws.Cells(a, b).Value, "-")

alen = UBound(arr) - LBound(arr) + 1

```

#### 字符串替换

```vbnet

s1 = Replace(s2, ".", Chr(10) & ".")

```

#### 判断单元格是否为空

判断单元格的 value 是否为 ""。

#### 退出

主要使用 Exit 表达式。

```

Exit { Do | For | Function | Property | Select | Sub | Try | While }

```

参见 [Exit Statement (Visual Basic)](

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/exit-statement)

进入

https://github.com/mzlogin/learn-vba-the-hard-way

另外，我的一个建议是楼主也可以关注下用 Python 代替 VBA 处理 Excel 等文档里的数据，更加高效和通用，编程体验也更加好。

版权说明：
本网站凡注明“广州京杭 原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。