Bookmarked IT

GetFormat converts the referenced cell format to text. This code was taken from here. I changed it to use NumberFormatLocal as NumberFormat wasn’t producing the expected results e.g. where I was expecting #,##0;[Red]-#,##0, GetFormat was returning #,##0_);[Red](#,##0)

Function GetFormat(Cell as Range) as String
	GetFormat = cell.NumberFormatLocal
End Function

How to use:

1. Copy code.
2. Open workbook to copy code to.
3. In Excel, press Alt + F11 to open the VIsual Basic Editor (VBE).
4. Click the Insert menu.
5. Click Module.
6. Paste code in right window.
7. Press Alt + Q to close the VBE.

GetFormula converts the formula referenced by ‘cell’ to text. This code was taken from here.

Function GetFormula(f As Range)
    If f.HasFormula Then
        GetFormula = f.Formula
    Else:
        GetFormula = f
    End If
End Function

How to use:

1. Copy code.
2. Open workbook to copy code to.
3. In Excel, press Alt + F11 to open the VIsual Basic Editor (VBE).
4. Click the Insert menu.
5. Click Module.
6. Paste code in right window.
7. Press Alt + Q to close the VBE.