в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:21Z

1 версия

Новая страница

==Use Call to invoke another sub module==



<source lang="vb">

Sub Func1()
Dim intTemp As Integer
intTemp = 10
Debug.Print "We Are Now In Func1()"
Debug.Print intTemp
Call Func2
End Sub
Sub Func2()
Dim strName As String
strName = "Bill Gates"
Debug.Print "We Are Now In Func2()"
Debug.Print strName
Call Func3
End Sub
Sub Func3()
Debug.Print "We Are Now In Func3()"
msgBox "Hi There From The Func3() Sub Procedure"
End Sub
</source>

==Using Parameter Arrays==



<source lang="vb">

Sub GetAverageSalary(strDepartment As String, _
ParamArray currSalaries() As Variant)
Dim sngTotalSalary As Single
Dim sngAverageSalary As Single
Dim intCounter As Integer
For intCounter = 0 To UBound(currSalaries())
sngTotalSalary = sngTotalSalary + currSalaries(intCounter)
Next intCounter
sngAverageSalary = sngTotalSalary / (UBound(currSalaries()) + 1)
msgBox strDepartment & " has an average salary of " & _
sngAverageSalary
End Sub
Sub ParaArray()
Call GetAverageSalary("Accounting", 6, 2, 3, 2, 8)
End Sub
</source>

==Using Procedures and Subprocedures==



<source lang="vb">

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
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Language Basics/Call - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия