Writing VBA Function Procedures : Function « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Function

Writing VBA Function Procedures

 
Private Sub Main2()
    Dim num1 As Double
    Dim myRoot As Double
    num1 = 10
    myRoot = SqRoot(num1)
    myRoot = Format(myRoot, "#0.00")
    MsgBox "The square root of " & num1 & "is " & myRoot
End Sub
Public Function SqRoot(ByVal num1 As Double) As Double
    num1 = Sqr(num1)
    SqRoot = num1
End Function








Related examples in the same category

1.A function returns a value to whomever called it. We can recast the previous sub into a function as follows:
2.Call user-defined function in MsgBox
3.Executing a Function Procedure from a Subroutine
4.A function returns a value to whomever called it.
5.One of simplest possible custom functions
6.function takes two arguments's length and width's and calculates the total area by multiplying them together
7.Convert Fahrenheit To Celsius
8.Use ElseIf in a function
9.Select Case in a function
10.A function with one argument