当前位置: 首页 > 办公技巧 > 正文

vba编程办公技巧(利用VBA实现个人小型办公自动化过程中的数据批处理)

  • 叁碗诸角 叁碗诸角
  • 办公技巧
  • 2023-08-09 08:47:35
  • 0

大家好,今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录,来源于我多年的经验。今日分享的是NO.225-NO.226,内容是:

NO. 225:数组的赋值和回填工作表

NO. 226:将数组的值批量回填给工作表的办法

VBA过程代码225:数组的赋值和回填工作表

Sub Mynz ()

'创建数组,并赋值

Dim arr(1 To 60000), i As Long

For i = 1 To 60000

arr(i) = i

Next i

Sheets("112").Select

'将数组的值写入单元格(C列)

[C1:C65536].Clear '清除原有数据

Dim irow As Long

Dim startime As Double

startime = Timer

For irow = 1 To 60000

Cells(irow, 3) = arr(irow)

Next irow

MsgBox "数组写入共用了" & Timer - startime & "秒!"

End Sub

代码解析:mynz过程将1到60000的数赋值给数组arr,赋值完成后将数组的值回填到工作表中,回填的区域是C列,回填用的语句是循环语句,直接提取每个数组的值给单元格。过程中计算所用的时间提示给用户Timer - startime & "秒!"

VBA过程代码226:将数组的值批量回填给工作表的办法

Sub Mynz ()

'创建数组,并赋值

Dim arr(1 To 60000), i As Long

For i = 1 To 60000

arr(i) = i

Next i

Sheets("113").Select

'将数组的值写入单元格(c列)

[C1:C65536].Clear '清除原有数据

Dim startime As Double

startime = Timer

[C1:C60000] = Application.WorksheetFunction.Transpose(arr)

MsgBox "数组写入共用了" & Timer - startime & "秒!"

End Sub

代码解析:mynz过程将1到60000的数赋值给数组arr,赋值完成后将数组的值回填到工作表中,回填的区域是C列,回填用的语句是[C1:C60000] = Application.WorksheetFunction.Transpose(arr)直接批量将数组的值给单元格区域。过程中计算所用的时间提示给用户Timer - startime & "秒!"对于数组的批量写入,用一条语句就可以完成。将数组的内容写入单元格区域中,即:单元格区域=数组名。

VBA是利用OFFICE实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,总结了四部VBA学习资料,是我"积木编程"思想的体现。

第一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;

第二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。

第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。

第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

VBA真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。


最新文章