Calling Functions and Sub Procedures : Sub « Language Basics « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Language Basics » Sub 
Calling Functions and Sub Procedures
 
     Sub Master()
           SalesData = GetInput("Enter Sales Data")
           If SalesData = False Then Exit Sub
           PostInput SalesData, "B3"
     End Sub

     Function GetInput(Message)
           Data = InputBox(Message)
           If Data = "" Then GetInput = False Else GetInput = Data
     End Function

     Sub PostInput(InputData, Target)
           Range(Target).Value = InputData
     End Sub

 
Related examples in the same category
1.Declare sub
2.Creating Procedures
3.Passing Arguments to Subroutines and Functions
4.Passing Elements of an Array to Another Procedure
5.Private (module-level) variables can be seen by any routine in the module they were declared in, but not from other modules.
6.Public Variables
7.Use If and ElseIf to check the parameter
8.Pass double to sub module
9.The Call Statement
10.Only place parentheses around the arguments when calling a function and making use of the return value from the function procedure
11.Calling the function from a Sub procedure
12.an Exit Sub just before the error label, which forces the subroutine to exit immediately, without erroneously running the error code.
13.Optional parameters
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.