### VBA Projects

###### Full Access with Source Code
• Designed and Developed by PNRao

• Full Access with VBA Source Code

• Well Commented Codes Lines

• Creative and Professional Design

#### 120+ Project Management Templates

Seamlessly manage your projects with our powerful & multi-purpose templates for project management.

###### 120+ PM Templates Includes:
• 50+ Excel Templates

• 50+ PowerPoint Templates

• 25+ Word Templates

Share Post

VBA Sgn function, which stands for “Sign”. This function is used to return the sign of a number, whether it is positive, negative, or zero.

## VBA Sgn Function – Purpose, Syntax and Arguments

### Purpose

The Sgn function is mainly used for conditional statements and calculations. It helps identify the sign of a number in order to perform specific tasks based on its positive or negative value. This function is particularly useful when working with mathematical formulas or when dealing with user input, as it allows for more accurate calculations and decision-making in programming.

### Syntax

The syntax for the Sgn function is as follows:

```Sgn(number)
```

Where number is the required argument and can be any numerical value.

### Arguments

• number: This is a required argument and refers to the number whose sign you want to determine.

### Example

Suppose we have a variable x with the value of -5. We want to check if the sign of x is positive, negative, or zero. We can use the Sgn function in the following way:

```Dim x As Integer
x = -5
If Sgn(x) = 1 Then
' do something if x is positive
MsgBox "x is positive."

ElseIf Sgn(x) = -1 Then
' do something if x is negative
MsgBox "x is negative."

Else
' do something if x is zero
MsgBox "x is zero."
End If
```

In this example, the Sgn function returns a value of -1, indicating that the sign of x is negative, and the corresponding message is displayed.

### Remarks and Important Notes

• The Sgn function returns an integer value (-1, 0, or 1) based on the sign of the given number.
• If the number is positive, the function returns a value of 1.
• If the number is negative, the function returns a value of -1.
• If the number is zero, the function returns a value of 0.
• If the number is a non-numeric value, the function returns an error.

It is important to note that the Sgn function does not return the magnitude of a number, only its sign. This means that the function will always return a value of 1 (positive) for any positive number, even if it is a large value. Similarly, it will always return a value of -1 (negative) for any negative number, regardless of its magnitude.
Additionally, the Sgn function is not limited to just whole numbers. It can also be used with decimal numbers, where a positive decimal value will return a value of 1 and a negative decimal value will return a value of -1.

The Sgn function in VBA is a useful tool for identifying the sign of a number in order to make conditional decisions or perform calculations. Understanding its purpose, syntax, arguments, and important notes can help improve the efficiency and accuracy of code written in VBA.

## Understanding VBA Sgn Function with Examples

### Example 1: Calculate the Sign of a Number

The Sgn function in VBA is used to determine the sign of a given number. It returns -1 if the number is negative, 0 if the number is zero and 1 if the number is positive. This can be used for various mathematical calculations where the behavior of the function changes based on the sign of the input number. Let’s see an example to understand this better:

```Sub Calculate_Sign()
Dim x As Integer
x = InputBox("Enter a number:")
Dim sign As Integer
sign = Sgn(x)
MsgBox "The sign of " & x & " is " & sign
End Sub
```
1. First, we declare a variable x of type Integer to store the user input number.
2. Next, we use the InputBox function to prompt the user to enter a number.
3. The value entered by the user is then stored in the x variable.
4. Then, we declare another variable sign of type Integer to store the output of the Sgn function.
5. The Sgn function is used to determine the sign of the input number x.
6. The resulting sign value is then stored in the sign variable.
7. Finally, a MsgBox displays the result by concatenating the input number and the sign value.

If the user enters the value 5, the output of the MsgBox would be “The sign of 5 is 1” indicating that the sign of 5 is positive. Similarly, if the user enters -5, the output would be “The sign of -5 is -1” indicating that the sign of -5 is negative. Lastly, if the user enters 0, the output would be “The sign of 0 is 0” indicating that the sign of 0 is zero, as expected.

### Example 2: Check If a Number is Positive or Negative

The Sgn function can also be used to determine whether a given number is positive or negative. This can be helpful when dealing with conditional statements where different actions need to be taken based on the sign of the number. Let’s see an example:

```Sub Check_Sign()
Dim x As Integer
x = InputBox("Enter a number:")
If Sgn(x) = 1 Then
MsgBox "The number " & x & " is positive."
ElseIf Sgn(x) = -1 Then
MsgBox "The number " & x & " is negative."
Else
MsgBox "The number " & x & " is zero."
End If
End Sub
```
1. First, we declare a variable x of type Integer to store the user input number.
2. Next, we use the InputBox function to prompt the user to enter a number.
3. The value entered by the user is then stored in the x variable.
4. Then, we use the Sgn function in an If-ElseIf statement to check the sign of the input number x.
5. If the sign is positive, a message is displayed stating that the number is positive.
6. If the sign is negative, a message is displayed stating that the number is negative.
7. If the sign is zero, a message is displayed stating that the number is zero.
8. Finally, the MsgBox displays the result based on the sign of the input number.

For example, if the user enters 10, the output would be “The number 10 is positive.” If the user enters -10, the output would be “The number -10 is negative.” And if the user enters 0, the output would be “The number 0 is zero.”

### Example 3: Use of Sgn Function in Looping

The Sgn function is commonly used in looping structures to determine the direction of the loop. It helps in controlling the increment or decrement of the loop variable based on the sign of the input number. Let’s see an example to understand this:

```Sub Looping_Sign()
Dim x As Integer
x = InputBox("Enter a number:")
Dim i As Integer
For i = 1 To 10 * Sgn(x) Step Sgn(x)
MsgBox i
Next i
End Sub
```
1. First, we declare a variable x of type Integer to store the user input number.
2. Next, we use the InputBox function to prompt the user to enter a number.
3. The value entered by the user is then stored in the x variable.
4. Then, we declare another variable i of type Integer to act as the loop variable.
5. The For loop is used to loop from 1 to 10, with the Step value being equal to the sign of the input number x.
6. This ensures that the loop increments or decrements based on the sign of x.
7. Finally, a MsgBox displays the value of the loop variable i, which would be displayed from 1 to 10 if the input number is positive and from 10 to 1 if the input number is negative.

If the user enters 5, the output would be a series of message boxes displaying the values 1, 2, 3, 4, 5. If the user enters -5, the output would be 5, 4, 3, 2, 1. This can be helpful in situations where a loop needs to be controlled based on the sign of a number.

### Conclusion

The Sgn function in VBA is a highly useful function when it comes to determining the sign of a given number. It can be used in various situations where the behavior of the function changes based on the sign of the input number. The examples discussed above are just a few applications of this function, and there are many other use cases that can be explored.

Effortlessly Manage Your Projects and Resources
120+ Professional Project Management Templates!

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

Save Up to 85% LIMITED TIME OFFER

###### Project Portfolio Management Templates
Categories: VBA FunctionsLast Updated: September 30, 2023