[حل شده] بررسی کدملی

[sunstar]

سلام بر اساتید ارجمند
فرض کنید میخواهیم اطلاعات افراد را در یک شیت وارد کنیم که ستون a آن کد ملی افراد می باشد آیا کدی وجود دارد که در زمان تایپ کد ملی ، در صورت نامعتبر بودن کد ملی وارد شده ، کد ملی مذکور آناً حذف شود؟ با تشکر فراوان

[iranweld]

با سلام


این لینک را بررسی کنید

[sunstar]

از راهنمایی استادIranweld ممنونم
اگر پاسخ اساتید دقیقاً طبق نیاز بنده که در سئوال این حقیر مطرح شده است باشد ؛ خیلی ممنون و متشکر خواهم بود.

[Amir Ghasemiyan]

از راهنمایی استادiranweld ممنونم
اگر پاسخ اساتید دقیقاً طبق نیاز بنده که در سئوال این حقیر مطرح شده است باشد ؛ خیلی ممنون و متشکر خواهم بود.

پاسخ دوستمون دقیق هست دوست عزیز
شما به چه میزان با vba آشنایی دارید؟

[iranweld]

با کسب اجازه از مهندس قاسمیان

چون ایشان در ستون A مد نظرشون هست کدهای فایل اصلاح گردید

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then

Dim melicode
Dim a As Integer
Dim b As Integer
Dim c, j
melicode = Target
Application.EnableEvents = False

If Len(melicode) > 0 And Len(melicode) <> 10 Then
Target = ""
MsgBox "ÊÚÏÇÏ ÇÑÞÇã ˜Ï ÇÔÊÈÇå ÇÓÊ"
GoTo 0
End If

If melicode = 0 Or melicode = 1111111111 Or melicode = 2222222222# Or melicode = 3333333333# Or melicode = 4444444444# Or melicode = 5555555555# Or melicode = 6666666666# Or melicode = 7777777777# Or melicode = 8888888888# Or melicode = 8888888888# Then

Target = ""
MsgBox "˜Ï ãáí ÕÍíÍ äíÓÊ"
GoTo 0
End If
a = Mid(melicode, 10, 1)
b = Mid(melicode, 1, 1) * 10 + Mid(melicode, 2, 1) * 9 + Mid(melicode, 3, 1) * 8 + Mid(melicode, 4, 1) * 7 + Mid(melicode, 5, 1) * 6 + Mid(melicode, 6, 1) * 5 + Mid(melicode, 7, 1) * 4 + Mid(melicode, 8, 1) * 3 + Mid(melicode, 9, 1) * 2
j = (b \ 11)
c = b - j * 11
If (c = 0 And a = c) Or (c = 1 And a = 1) Or (c > 1 And a = 11 - c) Then
'MsgBox "˜Ï ãáí ÕÍíÍ ÇÓÊ"
Else

Target = ""
MsgBox "˜Ï ãáí ÕÍíÍ äíÓÊ"

End If

End If

0:

Application.EnableEvents = True
End Sub