R
Rao Ratan Singh
I m using User defined function in excel. it was working good in excel 2003
but not in excel 2007.
user defined function is -
Function GetDigit(Digit As String)
Dim CheckDigit As String
Dim looper
For looper = 1 To Len(Digit)
CheckDigit = Mid(Digit, looper, 1)
Select Case Val(CheckDigit)
Case 1: GetDigit = GetDigit & "G"
Case 2: GetDigit = GetDigit & "O"
Case 3: GetDigit = GetDigit & "L"
Case 4: GetDigit = GetDigit & "D"
Case 5: GetDigit = GetDigit & "E"
Case 6: GetDigit = GetDigit & "N"
Case 7: GetDigit = GetDigit & "C"
Case 8: GetDigit = GetDigit & "I"
Case 9: GetDigit = GetDigit & "T"
Case 0: GetDigit = GetDigit & "Y"
Case Else: GetDigit = ""
End Select
Next
End Function
why is not working in excel 2007. hope this platform will solve my proble.
RRS
but not in excel 2007.
user defined function is -
Function GetDigit(Digit As String)
Dim CheckDigit As String
Dim looper
For looper = 1 To Len(Digit)
CheckDigit = Mid(Digit, looper, 1)
Select Case Val(CheckDigit)
Case 1: GetDigit = GetDigit & "G"
Case 2: GetDigit = GetDigit & "O"
Case 3: GetDigit = GetDigit & "L"
Case 4: GetDigit = GetDigit & "D"
Case 5: GetDigit = GetDigit & "E"
Case 6: GetDigit = GetDigit & "N"
Case 7: GetDigit = GetDigit & "C"
Case 8: GetDigit = GetDigit & "I"
Case 9: GetDigit = GetDigit & "T"
Case 0: GetDigit = GetDigit & "Y"
Case Else: GetDigit = ""
End Select
Next
End Function
why is not working in excel 2007. hope this platform will solve my proble.
RRS