با سلام

**امين اسماعيلي** · 2013/03/12, 12:09

RE: با سلام

با درود
خوب اگه یه کدی رو کپی میکنین. یه سری چیزارو حتما یاد بگیرین. حداقل یه قسمتیشو بخونین.
خوب بریم سر اصل مطلب شما.
کد زیر به فارسی سلیس داره میگه برای هر C (نام خانوادگی) در رنج موردنظر که گفتین اگر مقدار اون C با تکست باکس 1 که دارین توش نام و نام خانوادگی رو وارد میکنین برابر بود خطا بده. یعنی قبلا بوده . شاید بپرسی c<>"" یعنی چی : خوب ما میدونیم که تو رنجمون خونه های خالی زیاده و اگر این شرط رعایت نشه بازم ارور داریم( البته اگر تکست باکس 1 خالی باشه) و end if هم که شرط مارو تموم میکنه و next هم که پیش شرط for هستش

For Each c In Range("A1:a1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "ÎØÇ"
Exit Sub
End If
next
همین خط ها رو فقط پاک کن .
dimc رو پاک نکنی یا . چون متغییر تونو باهاش تعریف کردی (البته نه کامل ولی خوب خودش میفهمه )
در ضمن این کد برای زمانیه که نمیخوای موارد تکراری ثبت بشه. البته به اشتباه برای نام خانوادگی تعریف شده بود . باید یا برای کد پرسنلی یا کد ملی که همواره منحصر به فرد بود ثبت میشد. در ضمن چون گفتی اگر textbox1 خالی نبود این کارا رو انجام بده موردی برای اون c که خیلی رنج ها خالی هستش پیش نمیاد
Next[hr]
در ضمن اگه فارسی تایپ میکنی اون textbox هایی رو که فارسی مینویسی حداقل راست چینشون کن.
مورد دیگه هم که میبینم ابتدای کد ملی اگه صفر باشه صفرهاش ثبت نمیشه . که این قضیه هم به کرات بحث شده. در قسمت فرمت سل ستون کد ملی باید یه کارایی بکنی که اینو میزارم بر عهده خودت ببینم چیکار میکنی یا؟
خبر کن ببینم چیکار کردی

**dorzadeh** · 2013/03/12, 13:48

RE: با سلام

به ما تازه وارد ها خرده نباید گرفت و انسان که نمی تونه تو تمام علوم علامه دهر باشه و همه چیزو یاد داشته باشه همین قدر هم که من دارم کار می کنم به واسطه نیازم مجبور شدم یاد بگیرم مثل این می مونه من به شما بگم باید نرم افزار های تخصصی که من بلدم شما هم یاد بگیرید .
بریم سراغ تشکر دوست عزیز
ممنون از راهنمایی ما بسیار سودمند بود البته یادتون رفته بود بگید next رو هم پاک کنم
ولی با این کار بنده رو مدیون خدتون کردید تو زمینه GIS , و نرم افزار های لرزه ای اگر کاری داشتید با کمال میل خوشحال می شم کمکتون کنم

**امين اسماعيلي** · 2013/03/12, 15:24

RE: با سلام

با درود

اگه باعث ناراحتیتون شدم معذرت می خوام . هدف این بود که با کد ها اشنا بشین. ولی درسته حرفتون کاملا منطقی هستش.

سر فراز و سربلند باشید . در پناه خداوندگار ایرامن زمین

با سلام

با سلام

کامنت

کامنت

کامنت