# Excel-VBA Solutions

Want to become an expert in VBA? So this is the right place for you. This blog mainly focus on teaching how to apply Visual Basic for Microsoft Excel. So improve the functionality of your excel workbooks with the aid of this blog. Also ask any questions you have regarding MS Excel and applying VBA. We are happy to assist you.

## Pages

### BESSELI Function

This Excel tutorial explains how to use an Engineering function in Excel. Excel BESSELI function returns the modified Bessel functions In(x).

Syntax of the BESSELI function is BESSELI(x,n). So this function has two arguments. Both of them are mandatory. x is the value at which to evaluate the function. n represents the order of the function. And n should be positive. Function will return an error if n is less than 0.

And this is how you can use the function in the Excel.

In the above example I have passed the arguments by cell addresses. However you can pass the arguments like this as well

=BESSELI(-5,1)

This table shows the In(x) for x values from -5 to 5. Order of the function is 1.

And here is the graph for above table.

Then I changed the order of the function to 2 and calculated the In(x).

This is the graph for order 2.

### DateSerial Function (VBA)

In this post I will explain how to use DateSerial function in VBA. DateSerial function is a quite useful function we can use in VBA. If we input year, month and day this function returns the relevant date.

So we need to input three parameters to the function. All of them are mandatory.

Year - Integer type value which represents the year (ex - 2020)
Month - Integer type value which represents the month (ex - 10)
Day - Integer type value which represents the day (ex - 20)

Below example shows you how you can use this function in VBA

 Sub DateSerialExample() Dim SalesDataDate As Date Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer iYear = 1965 iMonth = 10 iDay = 25 SalesDataDate = DateSerial(iYear, iMonth, iDay) Debug.Print SalesDataDate End Sub

You will get this result if you run above macro

And if you want to change the format of the date then you can do it like this.

 Sub DateSerialExample() Dim SalesDataDate As Date Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer iYear = 1965 iMonth = 10 iDay = 25 SalesDataDate = DateSerial(iYear, iMonth, iDay) Debug.Print Format(SalesDataDate, "dd-mmm-yyyy") End Sub

So you will get following result.

In this post, I will show you how to add additional controls such as Windows Media Player, Adobe PDF Reader and Microsoft ListView Control in Excel VBA.

So here are the steps you need to follow. First create a blank workbook.

Then click somewhere in the excel sheet and press Alt+F11 to open the VBA editor. Then click on the Insert menu and select Userform.

Once you select the Userform, a new userform will be created like this.

Also the Toolbox will appear to the side of the form as well.

Some of the controls are already in this toolbox such as Textbox, Label and ListBox etc. Now let’s look at how to add additional controls to it. To do that we need to click on the Tools menu and click on Additional Controls...

It will open the Additional Controls Window like this.

Now you can add any additional control you like. For this example let’s add Windows Media Player. Select the checkbox in front of the Windows Media Player and then click OK.

This will add Windows Media Player icon to our Toolbox like this.

Now we can add Windows Media Player to our userform.

### How to use preserve keyword in arrays

Today I’m going to teach you how to use preserve keyword effectively. We use preserve keyword to resize arrays without loosing existing data. But you should use it carefully. Because if you use it unwisely, then it may have huge impact on run time of the program. For an example it is inadvisable to use preserve inside the loops.

So now I will show you how you can avoid using preserve keyword inside loops. Consider following example. This excel sheet has list of names in column A. Assume we have names up to 30,000 rows. If you look at the list carefully you will notice that this list has duplicate names. Our goal is to get unique names to an array.

Here is a one method you can use to do that.

 Sub GetUniqueNames() Dim WS As Worksheet Dim AllNames(1 To 30000) As String Dim UniqueNames() As String Dim i As Long Dim j As Long Dim Counter As Long Dim NameFound As Boolean Set WS = ActiveSheet For i = 1 To 30000      AllNames(i) = WS.Range("A" & i).Value Next i ReDim UniqueNames(1 To 1) UniqueNames(1) = AllNames(1) Counter = 1 For i = 1 To 30000      NameFound = False      For j = 1 To Counter           If StrComp(AllNames(i), UniqueNames(j), vbTextCompare) = 0 Then               NameFound = True          End If      Next j      If NameFound = False Then           Counter = Counter + 1           ReDim Preserve UniqueNames(1 To Counter)           UniqueNames(Counter) = AllNames(i)      End If Next i End Sub

If you look at above code you will notice that there is a nested for loop in above subroutine. And I have placed preserve keyword inside the outer for loop. So when we execute the code, program goes through all the values from 1 to 30000. For each value, it checks whether this current name is already in the UniqueNames array or not. If the value is not in the UniqueNames array then program resize the UniqueNames array copying existing data. Then program add that new name to the end of the array. So this means that when ever there is new name, program need to resize UniqueNames array copying existing data. But this is an expensive operation. So we should try to find different approach for this.

So our goal here is to remove the preserve keyword from the For Loop. To do that, first we need to identify the highest possible size UniqueNames array can have. So in this example it should be 30000. Now we resize the array to it’s highest possible size at the beginning.
ReDim UniqueNames(1 To 30000)

Then we can change the nested For Loop section like this.

 Counter = 1 For i = 1 To 30000      NameFound = False      For j = 1 To Counter          If StrComp(AllNames(i), UniqueNames(j), vbTextCompare) = 0 Then              NameFound = True          End If      Next j      If NameFound = False Then          UniqueNames(Counter) = AllNames(i)          Counter = Counter + 1      End If Next i ReDim Preserve UniqueNames(1 To Counter - 1)

Here we loop through the values and add new names to UniqueNames array. We calculate the number of unique names using Counter variable. So at then end, we use preserve keyword once to resize the UniqueNames array to it’s correct size.

So the complete code of the second method is as follows.

 Sub GetUniqueNames_Method2() Dim WS As Worksheet Dim AllNames(1 To 30000) As String Dim UniqueNames(1 To 30000) As String Dim i As Long Dim j As Long Dim Counter As Long Dim NameFound As Boolean Set WS = ActiveSheet For i = 1 To 30000      AllNames(i) = WS.Range("A" & i).Value Next i Counter = 1 For i = 1 To 30000      NameFound = False      For j = 1 To Counter          If StrComp(AllNames(i), UniqueNames(j), vbTextCompare) = 0 Then              NameFound = True          End If      Next j      If NameFound = False Then          UniqueNames(Counter) = AllNames(i)          Counter = Counter + 1      End If Next i ReDim Preserve UniqueNames(1 To Counter - 1) End Sub

Name

Email *

Message *