Excel VBA开发基本语句说明

前言

VBA(Visual Basic for Applications)是一种用于编写宏的编程语言,它广泛应用于Microsoft Office套件中的各种应用程序,如Excel、Word、Access和PowerPoint等。在这些应用程序中,VBA可用于自动化任务、定制功能、数据处理和报告生成等。

虽然VBA已经存在很长时间,并且被广泛应用于许多组织和行业,但是随着时间的推移,它的使用正在逐渐减少。原因可以归结为以下几点:

  1. 跨平台兼容性:VBA是一种Windows环境下的宏语言,对于其他操作系统,如Mac和Linux,并不完全适用。因此,随着人们对跨平台兼容性的需求增加,其他更通用的编程语言(如Python和JavaScript)在处理类似任务时更受欢迎。
  2. 功能限制:VBA虽然功能强大,但与其他现代编程语言相比,它的功能和性能受到一定的限制。人们对更高效、更灵活的解决方案的需求也推动了其他语言的发展和应用。
  3. Office 365的出现:随着Office 365的发展,微软逐渐将注意力转向了更先进的工具和技术。例如,Power Automate
    和Power Apps等工具提供了更强大和易于使用的方式来自动化任务和定制功能。

尽管如此,VBA仍然在某些特定的行业和组织中得到广泛使用,特别是在那些长期依赖VBA开发的企业和机构

最近在做一些excel vba开发 总结了开发过程操作单元格语法,希望能帮助需要的人

实战总结

访问工作簿:

vbnet 复制代码
Dim wb As Workbook
Set wb = ThisWorkbook

访问工作表:

vbnet 复制代码
Dim ws As Worksheet
Set ws = wb.Worksheets("Sheet1")

引用单个单元格:

vbnet 复制代码
Dim cell As Range
Set cell = ws.Range("A1")

引用单元格范围:

vbnet 复制代码
Dim range As Range
Set range = ws.Range("A1:B5")

引用整行:

vbnet 复制代码
Dim row As Range
Set row = ws.Rows(1)

引用整列:

vbnet 复制代码
Dim column As Range
Set column = ws.Columns(1)

确定工作表中最后一个有数据的单元格所在行数

vbnet 复制代码
ws.Cells(ws.Rows.count, 1).End(xlUp).Row
  • ws.Rows.Count:表示工作表的总行数。
  • 1:表示要访问的列号,这里是列号为1的列(即第一列)。
  • End(xlUp):这是一个定位方法,用于从指定单元格向上搜索,直到找到第一个非空单元格为止。在这个例子中,它会从工作表最后一行向上搜索,找到第一个非空单元格。
  • Row:表示找到的最后一个非空单元格所在的行号。

确定工作表中指定行中最后一个有数据的单元格所在的列数

vbnet 复制代码
scheduleSheetLastColumn = ws.Cells(8, ws.Columns.count).End(xlToLeft).Column
  • 8:表示要访问的行号,这里是第8行。
  • ws.Columns.Count:表示工作表的总列数。
  • End(xlToLeft):这是一个定位方法,用于从指定单元格向左搜索,直到找到第一个非空单元格为止。在这个例子中,它会从指定行的最后一列向左搜索,找到第一个非空单元格。
  • Column:表示找到的最后一个非空单元格所在的列号。

第一列插入一列,并将现有的数据向右移动

vbnet 复制代码
ws.Columns(1).Insert Shift:=xlToRight

引用单元格 K8

vbnet 复制代码
Set tableStartCell = ws.Range("K8")

引用范围对象(K8~K18)

vbnet 复制代码
ws.Range(tableStartCell, tableStartCell.Offset(0, 10))

取消合并单元格

vbnet 复制代码
tableStartCell.UnMerge

设置范围(K8~K18)背景色

将其内部颜色设置为 RGB(255, 255, 0),即黄色

vbnet 复制代码
ws.Range(tableStartCell, tableStartCell.Offset(0, 10)).Interior.Color = RGB(255, 255, 0)

获取单元格地址代码

vbnet 复制代码
ws.Cells(8, 10).Address

合并单元格(K8~K10)

vbnet 复制代码
ws.Range(tableStartCell, tableStartCell.Offset(0, 2)).Merge

● 单元格范围公式复制

获取第 10 行第 11 列和第 10 行第 12 列的单元格的内容

vbnet 复制代码
Dim rangeToCopy1 As Range
Set rangeToCopy1 = ws.Range(ws.Cells(10, 11), ws.Cells(10,  12))

获取第 20 行第 11 列和第 20 行第 12 列的单元格的内容

vbnet 复制代码
Dim destinationRange1 As Range
Set destinationRange1 = ws.Range(ws.Cells(20, 11), ws.Cells(20, 12))

将第 10 行第 11 列和第 10 行第 12 列的单元格的内容复制到第 20 行第 11 列和第 20 行第 12 列的单元格中。

vbnet 复制代码
rangeToCopy1.Copy Destination:=destinationRange1

设置单元格文字样式

获取A1 到 H1 范围内的单元格

vbnet 复制代码
Set rng = ws.Range("A1:H1")

With rng
	.Font.Color = RGB(0, 0, 0)
	.HorizontalAlignment = xlLeft
	.Font.Size = 9
	.Font.Bold = False
End With
  • .Font.Color = RGB(0, 0, 0) 设置字体颜色为黑色。
  • .HorizontalAlignment = xlLeft 设置水平对齐方式为左对齐。
  • .Font.Size = 9 设置字体大小为9号。
  • .Font.Bold = False 取消粗体设置。

大鹏一日同风起 扶摇直上九万里 加油!!!!

End

相关推荐
葡萄城技术团队2 天前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
QQ3596773453 天前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋5 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公5 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb5 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面5 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88385 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1485 天前
json文件转excel
json·excel
shizidushu5 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue6 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel