vba function 可以不设置返回值 vba 自定义function返回值

分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的简单“积木”，第61-65的过程。简单的过程组合起来就是一个复杂的过程，越简单的事物往往越容易理解，我们要认真掌握这些简单的过程，可以为我们复杂的工程服务。这也是我“搭积木”编程的重要思想。

下面是我根据自己20多年的VBA实际利用经验，编写的四部经验教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率，选择好积木，搭好积木。

第一套：《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。

第二套：《VBA数据库解决方案》是数据处理的利器；

第三套：《VBA数组与字典解决方案》中讲解VBA的精华----字典。

第四套：面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。 “每天20分钟，半年精进VBA”活动正在火热进行中，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册58讲的课程。

上述教程中第一、二、三是PDF教程，第四套教程是视频教程。其中视频教程的优惠活动正在进行中。

VBA过程代码61：工作簿的一些通用属性示例3

Sub MyNZ()
 Dim SaveTime As String
 On Error Resume Next
 SaveTime = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
 If SaveTime = "" Then
 MsgBox ActiveWorkbook.Name & "工作簿未保存."
 Else
 MsgBox "本工作簿已于" & SaveTime & "保存", , ActiveWorkbook.Name
 End If
End Sub

代码的解析说明：上面过程利用BuiltinDocumentProperties属性，返回工作薄的保存信息，类似于在Excel中选择菜单“文件——属性”命令时将会显示一个“属性”对话框，该对话框中包含了当前工作簿的有关信息。

VBA过程代码62：新建一个工作表”HH”

Sub MyNZ()
 On Error Resume Next 
 Worksheets("HH").Activate
 If Err.Number <> 0 Then
 Worksheets.Add after:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = "HH"
 Else
 ActiveSheet.Clear
 End If 
End Sub

代码的解析说明：上面过程利用Worksheets.Add after:=Worksheets(Worksheets.Count)添加一个工作表，并将工作表命名为"HH"，如果这个工作表是已经存在的，那么将清空这个工作表。

VBA过程代码63：测试工作簿中是否包含指定工作表

Sub MyNZ()
 MsgBox "测试工作簿中是否存在指定名称的工作表"
 Dim b As Boolean
 b = SheetExists("<指定的工作表名>")
 If b = True Then
 MsgBox "该工作表存在于工作簿中."
 Else
 MsgBox "工作簿中没有这个工作表."
 End If
End Sub
Private Function SheetExists(sname) As Boolean
 Dim x As Object
 On Error Resume Next
 Set x = ActiveWorkbook.Sheets(sname)
 If Err = 0 Then
 SheetExists = True
 Else
 SheetExists = False
 End If
End Function

代码的解析说明：上面的过程利用了一个自定义的函数SheetExists判断是否存在一个指定的工作表。

自定义的函数SheetExists中将指定名称的工作表赋值给变量x，通过赋值过程的错误的返回值来判断是否存在这个工作表。

VBA过程代码64：对未打开的工作簿进行重命名(Name方法)

Sub MyNZ()
 Name "<工作簿路径>/<旧名称>.xlsx" As "<工作簿路径>/<新名称>.xlsx"
End Sub
代码的解析说明：代码中<>中的内容为需要重命名的工作簿所在路径及新旧名称。该方法只是对未打开的文件进行重命名，如果该文件已经打开，使用该方法会提示错误。
VBA过程代码65：设置数字精度(PrecisionAsDisplayed属性)
Sub MyNZ()
 Dim pValue 
 ActiveCell.Value = 1 / 3
 ActiveCell.NumberFormatLocal = "0.00"
 pValue = ActiveCell.Value * 3
 MsgBox "当前单元格中的数字乘以3等于：" & pValue
 ActiveWorkbook.PrecisionAsDisplayed = True
 pValue = ActiveCell.Value * 3
 MsgBox "此时,当前单元格中的数字乘以3等于：" & pValue ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

代码的解析说明：ActiveCell.NumberFormatLocal = "0.00"，是设置单元格的格式，PrecisionAsDisplayed属性的值设置为True，则表明采用单元格中所显示的数值进行计算。

上面的例子中可以看出单元格的数值和和单元格的显示值的不同。