نوشتن ماژول در اکسل و تطبیق با اطلاعات موجود در یک ستون

**hamedkhan66** · 2014/08/03

با سلام و احترام

پیشاپیش از اینکه بدلیل کمبود وقت نرسیدم همه مطالب موجود در فروم رو بخونم عذر میخوام .

سوالی داشتم ؛ بنده یه فایل اکسل حاوی 5000 سطر داده دارم .

اطلاعات 5000 نفر در این اکسل هست و کد ملی هاشون وارد شده . اما معلوم نیست درست وارد شده یا نه .

لطفا بگید چطور میشه یه مازول نوشت که اون ماژول حاوی برنامه صحت کد ملی باشه و بتونم با اون مشخص بکنم چند نفر از این افراد موجود در لیست ، کد ملی شون اشتباه وارد شده .

منظورم اینه که اون ماژول روی ستون حاوی کد ملی همه افراد اعمال بشه و مشخص کنه این افراد کد ملیشون غلط وارد شده .

ممنونم

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**shamsololama** · 2014/08/03

بادرود فراوان

برای اینکار هم میشه یک تابع نوشت که عملیات صحت کد ملی رو انجام بده و که از ترکیب توابع استفاده میشه و یک مقدار طولانی خواهد شد و هم میشه این کار رو در وی بی انجام داد و یک تابع جدید تعریف کنید که کوتاه باشد

نمونه ترکیب توابع برای صحت کد ملی

کد:

=IF(IF(MOD((MID(A7,1,1)*10+MID(A7,2,1)*9+MID(A7,3,1)*8+MID(A7,4,1)*7+MID(A7,5,1)*6+MID(A7,6,1)*5+MID(A7,7,1)*4+MID(A7,8,1)*3+MID(A7,9,1)*2),11)>1,11-MOD((MID(A7,1,1)*10+MID(A7,2,1)*9+MID(A7,3,1)*8+MID(A7,4,1)*7+MID(A7,5,1)*6+MID(A7,6,1)*5+MID(A7,7,1)*4+MID(A7,8,1)*3+MID(A7,9,1)*2),11),MOD((MID(A7,1,1)*10+MID(A7,2,1)*9+MID(A7,3,1)*8+MID(A7,4,1)*7+MID(A7,5,1)*6+MID(A7,6,1)*5+MID(A7,7,1)*4+MID(A7,8,1)*3+MID(A7,9,1)*2),11))*1=MID(A7,10,1)*1,TRUE,FALSE)

این برای زمانی است که کد ملی در سل a1 نوشته شده و کد ملی بودن خط تیره هست