Posted by Mark Withall: 2016-09-16

Every so often, I have contemplated the idea of TDD for Microsoft Excel VBA. Finally, I got around to trying it out.

The Fibonacci Sequence Kata

As a test case, I’m using the Fibonacci Sequence kata by Jason Gorman of Codemanship; as it’s one of the simplest katas out there.

The task is as follows:

Write a [VBA] script that writes out the number for a given position in the Fibonacci Sequence.

Step-By-Step

To getting going with TDD in Microsoft Excel VBA we take the following steps:

  • Launch Excel
  • Create new blank workbook
  • Open the Macro Editor (Alt+F11)
  • Right-click on current workbook in Macro Editor and insert new module

Now we have everything we need we can write our first failing test. We enter the following in the worksheet:

Input Expected Output Actual Output Test Result
0 0 =Fibonacci(A2) =IF(B2=C2,"PASS","FAIL")

Conditional formatting can be added to the Test Result column to better highlight PASS and FAIL.

Now we have our first failing test, we can add code to make the test pass in the macro editor:

Function Fibonacci(n)
    Fibonacci = 0
End Function

Switching back to the worksheet and pressing F9 refreshes the test results. We can now see the first test pass.

We now add the next test:

Input Expected Output Actual Output Test Result
0 0 =Fibonacci(A2) =IF(B2=C2,"PASS","FAIL")
1 1 =Fibonacci(A3) =IF(B3=C3,"PASS","FAIL")

And update code to make it pass:

Function Fibonacci(n)
    Fibonacci = n
End Function

Repeat until no more failing tests can be added.

Worksheet table with failing 3rd test

Input Expected Output Actual Output Test Result
0 0 =Fibonacci(A2) =IF(B2=C2,"PASS","FAIL")
1 1 =Fibonacci(A3) =IF(B3=C3,"PASS","FAIL")
2 1 =Fibonacci(A4) =IF(B4=C4,"PASS","FAIL")
Function Fibonacci(n)
    If n < 2 Then
        Fibonacci = n
    Else
        Fibonacci = 1
    End If
End Function
Input Expected Output Actual Output Test Result
0 0 =Fibonacci(A2) =IF(B2=C2,"PASS","FAIL")
1 1 =Fibonacci(A3) =IF(B3=C3,"PASS","FAIL")
2 1 =Fibonacci(A4) =IF(B4=C4,"PASS","FAIL")
3 2 =Fibonacci(A5) =IF(B5=C5,"PASS","FAIL")
Function Fibonacci(n)
    If n < 2 Then
        Fibonacci = n
    Else
        Fibonacci = n - 1
    End If
End Function

Skipping 4, as it already passes:

Input Expected Output Actual Output Test Result
0 0 =Fibonacci(A2) =IF(B2=C2,"PASS","FAIL")
1 1 =Fibonacci(A3) =IF(B3=C3,"PASS","FAIL")
2 1 =Fibonacci(A4) =IF(B4=C4,"PASS","FAIL")
3 2 =Fibonacci(A5) =IF(B5=C5,"PASS","FAIL")
5 5 =Fibonacci(A6) =IF(B6=C6,"PASS","FAIL")
Function Fibonacci(n)
    If n < 2 Then
        Fibonacci = n
    Else
        Fibonacci = Fibonacci(n - 1) + Fibonacci(n - 2)
    End If
End Function

Completed happy path worksheet table

That completes the “Happy Path”. One can continue with negative numbers and other invalid input.

Conclusions

We’ve shown that it is possible to do TDD in Microsoft Excel VBA (at least for simple functions that return a value).

More complex tests might require something more from our test setup. Perhaps writing test functions in VBA that return “PASS” or “FAIL” (and details) and calling them from cells in the worksheet.