Sub StrSubName Function StrFunName(arg[1],。。) 子程序体 函数体 Exit Sub 中途跳出 Exit Function 中途跳出 End Sub StrFunName=value 返回值 End Function [call] StrSubName 引用子程序 Var=StrFunName(arg[1],。。) 引用函数
调用子过程有两种方法，直接调用和使用 Call 关键词调用。两种方法对子过程的参数有不同的要求。直接调用 直接调用，直接写过程名，即可调用过程。Sub Main()MySub End Sub Sub MySub()'代码 End Sub 如果子过程需要输入参数，多个参数只需用逗号（,）分开即可。Sub Main()MySub 2019,"年"End Sub Sub MySub...
Option Explicit Option Base 1 '观察传值和传址 Sub callSub1() Dim BestValue As Double, BadValue As Double '定义两个实数 Dim Best() As Double, Bad() As Double '定义两个可变长度实数数组 ReDim Best(2) '重新定义数组长度 BestValue = 100 '传值(浅拷贝),给数赋值 BadValue = BestValue '传...
Dim str As String str = ActiveCell.Parent.Name Call MyPro(str) End Sub Sub MyPro(wks As String) MsgBox "当前工作表是:" & wks End Sub 运行testCallPassValue过程,结果如下图2所示。 图2 Call语句语法 Call语句的语法如下: [Call...
VBA 过程(Sub) 入门教程和实例(组织代码的容器) VBA 过程以 Sub 语句开始,以 End Sub 语句结束,包含一个或多个语句,完成一个特定的目标。 无参数过程 无参数的 VBA 过程的基本语法如下: Sub [过程名]() 语句1 语句2 ... 语句n End Sub 1. ...
计算两个日期的整周数,然后乘5,在加上前后不够整周的零头。 Sub m2() For i = 2 To 5000 If Range("b" & i) <> "" And Range("c" & i) <> "" Then Dim d1, d2 As Date d1 = Cells(i, "b") d2 = Cells(i, "c") ...
Exit Sub关键字可导致立即退出Sub过程。 程序将继续执行调用Sub过程的语句后面的语句。 任意数目的Exit Sub语句可出现在Sub过程中的任意位置。 与Function过程一样,Sub过程是一个单独的过程,可接受参数、执行一系列语句以及更改参数的值。 但是,与可以返回值的Function过程不同的是,Sub过程不能在表达式中使用。
Private Sub Workbook_Open() Call 读取打开次数 End Sub Sub 读取打开次数() Dim Otime As Integer Otime = Evaluate(ThisWorkbook.Names("opentimes").RefersTo) Otime = Otime + 1 If Otime > 4 Then Call 启动自毁 Else ThisWorkbook.Names("opentimes").RefersTo = Otime ...
Private Sub CommandButton1_Click() Call 相对模式 End Sub 在工作表Sheet2中成功添加一个名为“表单控件”的表单按钮控件,并为其指定宏“相对模式”。单击该控件运行宏“相对模式”,如图1-20所示。图1-20 通过命令ActiveX控件运行宏1.2.5 快速访问工具栏方式当某个宏的使用频率很高时,可以在“快速访问工具栏...
Public Sub OPEN_WJ(LJ, WJ As String)On Error GoTo X: Dim M4, Y3 As String Dim LJWJ As String LJWJ = LJ & WJ If OPEN_YN(WJ) <> "Y" Then '如果未被其它引用并打开 Workbooks.Open Filename:=LJWJ L3 = ThisWorkbook.Sheets("设置").Range("N2").Value ...