VBA Random Numbers (RND) – Table of Contents
Random Numbers in VBA
We can generate random numbers in VBA by using a formula called “RND”. This works exactly the same as the excel function “RAND”. As I told in the worksheet function “RAND”, in VBA “RND” too will generate VBA random numbers which are greater than 0 but less than 1.
Now take a look at the syntax of the “RND” function in VBA.
[Number]: We can pass the argument in three ways.
- If we pass the number as <0, it keeps generating the same random number every time.
- If we pass the number as 0, it will repeat the most recent number it has given.
- If we pass the number >0, it keeps giving you different random numbers i.e. the next random number in the sequence.
Examples of RND Function in VBA
Now we will see the simple example of using the “RND” function in VBA. Follow the below steps to write the VBA code on your own.
Step 1: Declare the variable as “Integer” in VBA
Sub Rnd_Example1() Dim K As Integer End Sub
Step 2: Now assign the value to the variable “k” through VBA “RND” function.
Sub Rnd_Example1() Dim K As Integer K = Rnd() End Sub
Step 3: Show the value returned by the variable “k” in the message box.
Sub Rnd_Example1() Dim K As Integer K = Rnd() MsgBox K End Sub
Now run the excel macro and see what the result is.
Look what has happened.
It is showing the result as 1 where “RND” function can return only numbers which are greater than zero but less than 1.
You must be thinking about what the wrong thing here is.
The wrong thing here is the kind of data type we have assigned to the variable “k”.
If you look back at the variable we have declared we have assigned the data type as Integer. Since we have assigned the variable as Integer, it can only show the whole numbers between -32768 to 32767.
Whenever RND returns the decimal number VBA converts the decimal number to the nearest integer i.e. 1.
So, to make the formula work properly declare the variable as “Double”.
“Double” is the data type which can hold decimal values.
Sub Rnd_Example1() Dim K As Double K = Rnd() MsgBox K End Sub
Now the code and see what the result is.
Click on ok and run one more time and see what the result is.
This time we got a different result. Since “RND” is a volatile function in nature it reproduces different results every time you execute the code.
Get Same RND Number Every Time
As we have seen the previous example “RND” function reproduces the result every time we execute the code. In order to get the same random number, again and again, we need to pass the argument as zero.
Sub Rnd_Example2() Dim K As Double K = Rnd(0) MsgBox K End Sub
This will produce the same number again and again when we execute the code.
Generate Whole Random Number Using RND Function
As I told RND function can return numbers from 0 to 1. But what if we need whole numbers?
We can also generate whole numbers by using other VBA function or other input numbers. For an example look at the below code.
Sub Rnd_Example3() Dim K As Double K = 1 + Rnd * 100 MsgBox K End Sub
This code will generate random whole numbers with decimal points every time we execute the code.
If you are looking at the whole numbers without decimal points then we can use below code.
Sub Rnd_Example3() Dim K As Double K = CInt(1 + Rnd * 100) MsgBox K End Sub
This will keep generating the whole numbers from 1 to 100.
You can download this VBA Random Numbers here. VBA Random Numbers Excel Template
This has been a guide to VBA Random Numbers. Here we learned how to Generate VBA Random Numbers in Excel using RND Formula along with some practical examples and downloadable excel template. Below are some useful excel articles related to VBA –
- Examples to Insert New line in Excel VBA
- VBA Split Function | Split String
- VBA Data Type
- Count Function in VBA
- AutoFill in VBA
- Format Number in VBA
- VBA Enumerations
- Value Property in VBA
- Integer Data Types in VBA
- 35+ Courses
- 120+ Hours of Videos
- Full Lifetime Access
- Certificate of Completion
- Basic Microsoft Excel Training
- MS Excel 2010 Training Course: Advanced
- Microsoft Excel Basic Training
- Microsoft Excel 2013 – Advanced
- Microsoft Excel 2016 – Beginners
- Microsoft Excel 2016 – Advanced