تابع قرارداد صفر قبل از عدد در اکسل

Function AddLeadingZeroes(ref As Range, Length As Integer)
Dim i As Integer
Dim Result As String
Dim StrLen As Integer
StrLen = Len(ref)
For i = 1 To Length
 If i <= StrLen Then
 Result = Result & Mid(ref, i, 1)
 Else
 Result = "0" & Result
 End If
Next i
AddLeadingZeroes = Result
End Function