How do I find the exact match in Excel VBA?

How do I use exact function in Excel VBA?

I have a sub in Excel that uses two functions from 2 modules that need to calculate different values in the final results.

Function GetFirst(). 'Return the value of the first item entered. End Function. Function GetSecond(). 'Return the value of the second item entered. So I tried the following code: Function Add(first() As Double, second() As Double) As Double. 'Return the sum of first and second. Please help! Functions such as add, average, etc all take two arguments, so you will need a two argument function. You are probably looking for the two argument Add function: Function Add(first As Double, second As Double) As Double. EDIT: So the basic problem is that your functions return a value but you don't know how to extract the value from them. You will probably need to return a class. Here is an example using Class Module and Application.Evaluate which should work as long as you only ever have one instance of the function:
Sub TestAdd(). Dim c As New Class1. Dim total As Double. Total = c.Add(4, 6) Cells(1, 1).

How to find value from range using VBA?

In VBA we have several way to find value from a range.

One way is using Index(). In example below, the Index() returns the value of A1 in case the cell is found on sheet 1. Another way is using Match(), but in this case the function returns the index of the matching cell.

My question is, is there any different between these 2? Thanks. There's one major difference - the Match function also searches backward to find a match whereas the Index function doesn't search back. So for Dim value As Variant. Value = WorksheetFunction.Index(Range("A"),0,False) The Value field of the WorksheetFunction class would be set to the value in cell A1. The Match function does something a bit different: it checks cell A1's contents against the entire range A and returns the position of the first instance of the contained text.

Index(Range("A"), 0, False) returns -1 ' no match found. Index(Range("A"), 1, False) returns -1 ' match found but backwards. ' return value is a valid reference to match object on an Excel instance. Dim r As Range. Set r = ActiveCell.Resize(, 1).Offset(-1)
Debug.Print r.Address, r.Address2
If that doesn't make enough sense, try this code to see what I'm talking about: Sub Test(). Set r = Range("A").Resize(, 1).Offset(-1)
Debug.Address2 End Sub. The range A can now be considered the "candidate pool" for the match function.