force leading 0 in excel code example

Example: excel add leading zeros to existing values

'Three ways to left-pad an existing value with zeros:

'1.) Number Format
Select Cell Range-->Format Cells-->Number-->Custom-->00000
'Use this when it is important to keep the actual values numeric but
'you need padded zeros for display.


'2.) Worksheet Formula:
=TEXT(A1,"00000")
'Use this when it is important to change the actual values to text.


'3.) VBA Function
Function Pad(s$, Optional padChr = "0", Optional num = 5)
    Pad = String(num - Len(s), padChr) & s
End Function
'Use this when it is important to change the actual values to text.