phpvba技巧_代码优化与视觉效果的兼顾VBA进修筹划系列讲座之35讲

《如何学习VBA》，是我对初学职员学习方法的辅导，在个中，我讲到了很多有关VBA的学习方法及在教程中一些知识构造的补充解释。
虽然是赞助教材，但也突出了我编程思想：积木编程；及我对付VBA的运用定义：VBA是实现个人小型数据自动化的有效工具（手段）。
今日的内容是第35讲：VBA代码程序运行韶光的优化与视觉效果的兼顾。

3.3.1 VBA代码程序运行韶光的优化与视觉效果的兼顾

在《VBA代码办理方案》第二册的85讲到89讲，我讲了程序优化的问题，其实在这些章节中，我也一贯在讲视觉和程序运行韶光的兼顾问题。
我在做程序的时候，每每看重的是前者，而不是后者，为什么呢？实在VBA带给我们的便是实用，真正哀求做到节约韶光每每是那些大型程序考虑的范畴。
正如我在讲到VBA地位时的比喻，那些大型程序是城市与城市之间的高铁啊、火车啊、飞机啊，而VBA只是连接车站到家之间的汽车、电动车，当你考虑大型数据处理时最好要借助大型程序，如Python、PHP、GO、JAVA等等，从严格意义上讲，VBA不能称之为一种独立的措辞体系，只是寄生于OFFICE的一条寄生虫，但你不要鄙视它，这部分交通运行不顺畅，也会引起城市的拥堵，事情效率的低下。
以是，我们在事情中紧张考虑的是视觉的效果，其次才是韶光的节约。
如何做到视觉的愉悦呢？下面我就来就一段实际的程序和大家分享。
本日的程序读者也可以作为一个工具利用。

需求：建立一个事情薄1，写入代码，代码实行首先打开其余一个指定事情薄2，把个中事情表sheet1中A,B列的内容写入数组，然后关闭事情薄2，回到事情薄1，把数组数据保存到事情表1的CD列中。

这个案例在实际事情中会常常用到，或者类似的运用非常多，大家可以记住下面的代码。

要利用到的知识点：

1 事情薄的打开；

2 数据写入数组；

3 数组数据的导出。

本日我利用到了《方案》第三册第113讲的内容，将一个事情薄中事情表的数据写入数组，然后导出，看下面的代码截图：

代码：

Sub mynzkk()

Dim a(5000, 2)

Workbooks.Open Filename:=ThisWorkbook.Path & "\事情表.xlsx" '打开一个指定存储数据的事情薄

Workbooks("事情表.xlsx").Activate '让数据的事情表处在激活状态

MsgBox ("数据已经打开，是否连续？") '判断是否连续

Sheets("SHEET1").Select

k = 0

i = 1

'数组，并赋值

Do While Cells(i, 1) <> ""

k = k + 1

Cells(i, 1).Select

a(k, 1) = Cells(i, 1) '写入数组

a(k, 2) = Cells(i, 2)

i = i + 1

Loop

Workbooks("事情表.xlsx").Close '关闭数据事情薄

Workbooks("事情簿1.xlsm").Activate '让主程序的事情薄处在激活状态

Sheets("SHEET1").Select

[C1:D65536].Clear '打消原有数据

MsgBox ("下面将写入数据，请确认！
")

For i = 1 To k

Cells(i, 3).Select

Cells(i, 3) = a(i, 1)

Cells(i, 4) = a(i, 2)

Next

MsgBox ("OK!")

End Sub

代码讲解：上述代码中，为了照顾到视觉，我加了四条语句如下所示：

目的：

1 让程序的运行可视，操作者可以随时知道程序运行到了哪里。

2 让运用这个程序的人有个主动的觉得，彷佛是自己在操控着程序的运行。
这也是从生理上来媚谄程序的利用者。
实在不加这些都是可以的。

第7套教程：VBA之EXCEL运用

第1套教程：VBA代码办理方案

【第4套教程：VBA代码办理方案之视频（第一套的视频讲解）】

第3套教程：VBA数组与字典办理方案

第2套教程：VBA数据库办理方案

第6套教程：VBA信息获取与处理

第5套教程：VBA中类的解读和利用

第8套教程：VBA之Word运用（2021年5月份推出）

上述教程的学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8