当你大VBA程序得越来越大，要很好地维护这么多的代码行是很困难的。要让你的程序容易编写、理解和改变，你就应该使用井井有条的结构化程序。你只要简单地将大问题分成一些可以同时执行的小问题就行。在VBA中，你可以通过创建一个主过程和一个或多个子过程来实现它。因为主过程和子过程都是子程序下面的例子显示过程AboutUser。该过程要求用户姓和名，并且将姓和名从全名中分离出来。最后的语句显示用户的姓，随后是逗号和名。你再读下去，该过程将被分割成几个任务，以示范使用主过程，子过程和函数的概念。

Sub AboutUser()
    Dim fullName As String
    Dim firstName As String
    Dim lastName As String
    Dim space As Integer
    'get input from user 从用户获取信息
    fullName = InputBox("Enter first and last name:")
    'get first and last name strings 获得姓和名字符串
    space = InStr(fullName, " ")
    firstName = Left(fullName, space - 1)
    lastName = Right(fullName, Len(fullName) - space)
    'display last name, first name 显示姓和名
    MsgBox lastName & ", " & firstName
End Sub
Sub AboutUserMaster()
    Dim first As String, last As String, full As String
    Call GetUserName(full)
    first = GetFirst(full)
    last = GetLast(full)
    Call DisplayLastFirst(first, last)
End Sub
 
上面显示的主过程通过调用适当的子程序和函数来控制程序的主流程。该主过程以变量生命开始，第一条语句Call GetUserName (full)调用子过程GetUserName并且传递给一参数——变量full的内容。
 因为变量在执行调用语句之前没有赋与任何值，所以它的值是一个空字符串（“ ”）。注意，子过程的名称在Call之后。尽管你在调用过程时并没有要求使用关键字Call，但是，你在调用一个需要参数的过程时就必须使用它。参数列表必须包括在括号里面。
 
Sub GetUserName(fullName As String)
    fullName = InputBox("Enter first and last name:")
End Sub
 
过程GetUserName示范了两个非常重要的VB编程概念：如何传递参数给一子程序以及如何将值从子程序传递回给主调过程。
 
在主过程（见第二步）中，你调用了过程GetUserName，并且将其作为一参数传递：变量full。该变量被参数fullName接收，该参数子过程GetUserName的Sub语句里声明了。因为在VB调用子过程GetUserName的时候，变量full包含一空字符串，参数fullName同样也接收了这个空字符串。当VB显示对话框并且获得用户的姓名时，这个姓名将赋给参数fullName。赋给参数的值被传递回给子过程执行后的匹配参数。因此，当VB返回主过程时，变量full就回包含用户的姓名。
 
传递给子过程的自变量将被其参数接收。注意，参数名称（fullName）后面紧跟着数据类型的声明（AsString）。虽然，参数的数据类型必须和相匹配的自变量的数据类型一致，但是，不同的名称还是可以使用给一个自变量和它相应的参数。
 
技巧：自变量（Arguments）和参数（Parameters）
 
①自变量是传递给一个子过程的变量，常量或表达式
 
 ②参数则只是接收值并传递给子过程的变量
 
Sub AboutUserMaster()
    Dim first As String, last As String, full As String
    Call GetUserName(full)
    first = GetFirst(full)
    last = GetLast(full)
    Call DisplayLastFirst(first, last)
End Sub
Sub GetUserName(fullName As String)
    fullName = InputBox("Enter first and last name:")
End Sub
Function GetFirst(fullName As String)
    Dim space As Integer
    space = InStr(fullName, " ")
    GetFirst = Left(fullName, space - 1)
End Function
Function GetLast(fullName As String)
    Dim space As Integer
    space = InStr(fullName, " ")
    GetLast = Right(fullName, Len(fullName) - space)
End Function
Sub DisplayLastFirst(firstName As String, lastName As String)
    MsgBox lastName & ", " & firstName
End Sub
 
技巧：使用子过程的好处
 ①维护多个子过程要比维护一个大过程要容易得多
 ②由一个子过程执行的任务可以给好几个过程使用
 ③每个子过程再放入主过程里之前就被单独测试
 ④多个程序员可以负责各自的子过程，这些子过程再构建一个大的程序
                    当你大VBA程序得越来越大，要很好地维护这么多的代码行是很困难的。要让你的程序容易编写、理解和改变，你就应该使用井井有条的结构化程序。你只要简单地将大问题分成一些可以同时执行的小问题就行。在VBA中，你可以通过创建一个主过程和一个或多个子过程来实现它。因为主过程和子过程都是子程序下面的例子显示过程AboutUser。该过程要求用户姓和名，并且将姓和名从全名中分离出来。最后的语句显示用户的姓，随后是逗号和名。你再读下去，该过程将被分割成几个任务，以示范使用主过程，子过程和函数的概念。Sub AboutU
				
VBA函数传递参数值时分为Byval（值传递）和Byref（地址传递），用法上，分别相当于C/C++的值传递使用方法和引用传递使用方法。在VBA中，参数传递的默认方式是Byref，因为本质想法是对于相同命名的参数，在系统中采用同一个数值。
'获取非空行
Function GetNotNullRow(ByVal iStartRow, ByRef iRow)
    Dim Rng As Ran
  在VBA编程中，经常需要反复实现某种相同的数据处理，而其数据处理的触发机制却是多样化的，可能通过事件，也可能通过单击按钮。如图所示，该表为某公司2009年和2010
年的工资明细，制作了查询表，插入了两个按钮，通过单击这两个按钮分别查询2009年与201 0年按部门汇总的工资表。
				
背景：计划用VBA写一个xml文件（开发工具 源 不能满足需求）整个脚本要很多次写入动作，所以做一个子程序直接调用。
解读：1.定义公共变量 str xmlfile 为字符串2.定义I为数字（还未使用到）
sub shishi赋值 <groups> 到变量 str
调用 xiexml 并带变量 str
sub xiexml（接收任意字符串）赋值文件路径到变量 xmlfile追加写入的...
    mainValue = 10
    Debug.Print "Main value before change: " & mainValue
    ChangeMainValue mainValue
    Debug.Print "Main value after change: " & mainValue
End Sub
Sub ChangeMainValue(ByRef value As Integer)
    value = 20
End Sub
在上面的代码中，我们首先定义了一个名为 mainValue 的整数变量，并将其设置为 10。然后，我们调用一个名为 ChangeMainValue 的子程序，并将 mainValue 作为参数传递给它。在子程序中，我们使用 ByRef 关键字将参数声明为引用类型，这意味着我们可以在子程序中更改主程序中的变量值。在子程序中，我们将 value 的值更改为 20。最后，我们返回到主程序，并输出 mainValue 的值，以验证它是否已更改为 20。
请注意，我们在主程序中调用子程序时，不需要使用 Call 关键字。这是因为 VBA 允许我们省略它，以使代码更简洁。
				Keras 报错AttributeError: ‘Sequential‘ object has no attribute ‘predict_classes‘解决方法（亲测正确解决方法）
					17187