取介于A和B之间的随机正数C,公式:C=Int((B-A+1)*Rnd+A) 条件(B》A) 子程序和自定义函数 Sub StrSubName Function StrFunName(arg[1],。。) 子程序体 函数体 Exit Sub 中途跳出 Exit Function 中途跳出 End Sub StrFunName=value 返回值 End Function [call] StrSubName 引用子程序 Var=StrFunName(arg...
[ Private | Public][Static ] Sub name [ (arglist) ] [ statements] [Exit sub] [ statements] End sub 函数 从其它过程调用一个过程(Sub)时,必须键入过程名称以及任何需要的参数值。Call语句可有可无,如果使用它,则参数必须以括号括起来。 [ Public | Private] [static] Function name [ (arglist) ...
Sub testCallPassValue() 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语句语法 C...
Sub sub_test(var As Integer, Optional s As String = "Hello, World") Debug.Print var Debug.Print s End Sub 只传入必选参数: Sub test() Call sub_test(50) End Sub 输出: 50 Hello, World 同时传入可选参数与必选参数: Sub test() Call sub_test(50, "Hi, Meinv") End Sub 输出: 50 H...
Call testYour(my) Debug.Print my End Sub Sub testYour(ByRef your As Long) your = your + 8 End Sub 运行testMy过程后的结果如下图1所示,打印出变量my的值为9。 图1 所谓引用传递,就是将调用过程的变量的引用传递给了被调用过程的...
)MySub End Sub Sub MySub()'代码 End Sub 如果子过程需要输入参数，多个参数只需用逗号（,）分开即可。Sub Main()MySub 2019,"年"End Sub Sub MySub(val1 As Integer, val2 As String)'代码 End Sub 使用关键词 Call 调用 使用 Call 关键词调用时，Call 后接过程名。Sub Main()Call MySub ...
与Function过程一样,Sub过程是一个单独的过程,可接受参数、执行一系列语句以及更改参数的值。 但是,与可以返回值的Function过程不同的是,Sub过程不能在表达式中使用。 通过使用过程名称后跟参数列表来调用Sub过程。 有关如何调用Sub过程的具体信息,请参阅Call语句。
计算两个日期的整周数,然后乘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") ...
例子 class Animal(object): __call__(self, words): print "Hello: ", words if ...
Call SUB1 Else Call SUB2 End If Next Private Sub TextZ_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '如果离开TextZ,按"回车"则转移焦点到TextX If KeyCode = 13 Then With Me.TextX .SetFocus If .Value <> "" Then ...