ترفندها و گزیده های اکسل

کدنویسی در ویژوال بیسیک (VBA) برای کد ملی

Function ISMELLICODE(CodeMelli As String) As Boolean
' Code written by: Excel Iran Team - Amir Ghasemiyan
Dim first_number As Integer, num As Integer, counter As Integer, s As Integer, r As Integer, i As Integer
If IsNumeric(CodeMelli) And Len(CodeMelli) = 10 Then
first_number = Left(CodeMelli, 1)
For i = 1 To 9
num = Mid(CodeMelli, i, 1)
If num = first_number Then counter = counter + 1
s = s + num * (11 - i)
Next i
r = s Mod 11
If r > 2 Then r = 11 - r
If r = Val(Right(CodeMelli, 1)) And counter < 9 Then ISMELLICODE = True
End If
End Function