vba 判断数组是否为空_使用VBA代码完成判断工作簿是否存在及用数组来保存数据的方法...

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177内容是：

NO. 176：使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

NO. 177：使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

VBA过程代码176：使用自定义MyExistSh函数判断工作簿中是否存在指定名称的工作表

Sub mynz()

Dim Sh As String

Sh = InputBox("请输入查找的工作表名称：")

If Len(Sh) > 0 Then

If Not MyExistSh(Sh) Then

MsgBox "对不起,您查找的" & Sh & "工作表不存在!"

Else

Sheets(Sh).Select

End If

End If

End Sub

代码的解析说明：myn过程使用自定义的MyExistSh函数判断工作簿中是否存在指定名称的工作表，如果不存在则使用消息框进行提示.

VBA过程代码177：使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域

Option Base 1

Sub mynz ()

Dim arr As Variant

Dim i As Integer

arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")

For i = LBound(arr) To UBound(arr)

Sheets("59").Cells(i, 1) = arr(i)

Next

End Sub

代码的解析说明：mynz过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。Option Base语句声明数组下标的缺省下界为1，数组下标的缺省下界默认为0。代码使用Array函数创建数组用来保存数据。使用LBound函数和UBound函数取得数组的最小和最大下标。确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第三册的99讲。