پرسش و پاسخ های متداول vba excel

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

با سلام جناب barraie

يه فايل براتون ميزارم تو شيت 2 نوشتمش كاري كه ميخواي رو دقيقا انجام ميده و براشم مهم نيست كه چند تا سلول تكراري تو ستون A هست و اين تكراري ها تكسته يا عدد و اگر تكسته با حروف كوچيكه يا بزرگ يعني Amin با amin واسش فرق نداره چون هر دوش از نظر ما يكي و در ضمن اگرم كد رو اجرا كردين و بازم بعدن به اشتباه بازم تكراري وارد كردين دوباره دكمه رو بزنين مياد اونو چك ميكنه و سر جاش قرار ميده . ميبخشي يكم دير شد. چون قسمت دوم كه اخر مطرح كردم يعني در صورت اينكه بازم كد تكراري بعدن وارد بشه يه كم سخت بود . كلا كارتو راه ميندازه سوالي بود در خدمتم.

اينم لينك دانلود من 2010 سيو كردم. اگرم در دانلود مشكلي داشتين ميل بزنين ميل كنم



http://uplod.ir/vvor3snxs03o/Merge_Duplicate_cell_without_clear_other_column.xl sm.htm

با تشكر از استاد خوبم استاد احمد شمس العلما
در پناه خداوندگار ايران زمين باشيد و پيروز

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

پاسخ بدردتون خورد. كارتون راه افتاد

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

ممنون از لطفتون
بله ممنون فقط از کدایی که نوشتید هیچی نفهمیدم
اگه براتون مقدور بود یه توضیح کوچولو بدید ممنون میشم مضاعف

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

با درود فراوان به همه دوستان

يه درسي رو از استاد خوبم استاد شمس العلما ياد گرفتمم البته فك كنم ياد گرفتم كه به شما هم ميگم

دوستان سعي كنين پيش از هر كاري يه plan از برنامه يا كدي كه ميخواين بنويسين واسه خودتون توذهن يا كاغذ بكشين. خيلي كمك ميكنه و بدون برنامه ريزي نرين جلو چون ميبينين راه خيلي اسون تري هم بوده و داشتين لقمه رو دور سرتون ميچرخونين.

حالا بريم سر كد فوق: خوب اول اينكه در مورد پيدا كردن كد هاي تكرراري چند تا فايل تو تالار گذاشتم و دوستانم قبلا اين كارو انجام داده بودن. خوب تا اينجا ما ميتونستيم كه سل هاي تكراري رو پيدا كنيم. خوب عالي. بعدش ميموند كه اين سلول هاي تكراري رو مرج كنيم در نگاه اول مشكل به نظر ميرسه چون ممكن بود يكيش اول و ديگري اخر باشه . خوب مشكلي نيست ميگيم قبلش يه سورت انجام بده تا سلول هاي مرتب شده كنار هم بيان . خوب تا اينجا هم حل. حالا از خودت ميپرسي واي اين كدا رو چجور بنويسم. دوست خوب من. خوب منم مثل شما كه همه كد نويسي ها رو از بر نيستم كه. ما تو اكسل ماكرو رو داريم كه خيلي بهمون كمك ميكنه. يه ماكرو ظبط كردم و يه عمل سورت انجام دادم و كدشو پيدا كردم. با يه تغيير كوچيك اونو كلي ترش كردم. اينم از اين. خوب نكته بعد مرج كردن سل هاي تكراري بود. خوب مرج رو هم كه با ظبط يه ماكرو ديگه دستورش پيدا ميشد اما كجا بايد ميتنوشتمش. خوب دقيقا همن جا كه يه شرط ميزاريم كه اگر تكراري پيدا كرد چيكار كنه. اينم از اين.
اما ميموند يه مسئله ديگه كه شايد بعضي ها توجه نكنن اينم اينه كه اگه ما مرج رو انجام ميداديم و باز زير داده هامون همون ستون كه مرج انجام ميشه عدد اظافه ميشد و اون عددبازم با سلول هاي بالاي يكي بود به خاطر مرج بودن به مشكل بر ميخورديم.

پس بايد يه كد اوله همه خط هاي برنامه ميزاشتيم كه اول از همه اگر مرج بودن از مرج خارجشون كن وو سلول هاي خالي پديد امده را با عددي كه قبلا باهاش مرج شده پر كن وو بقيه ماجرا اينجوري به مشكلي بر نمخوريم.

در اخر هم يه دستور ساده scolarbar رو خاموش تا سرعت برنامه بياد بالا. كه كد اين هم توي همه برنامه دوستان تغريبا هست.

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

خیلی خیلی ممنون

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

خواهش ميكنم اميدوارم تونسته باشم كمكي كنم و توضيحات بدردتون خورده باشه


در پناه خداوندگار ايران زمن باشيد و پيروز

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

با سلام
یه فرم دارم که یه مولتی پیج تو اون هست تو پیج اول لیست باکس دارم که توش اطلاعات هست چطوری میتونم با انتخاب هرکدام از ردیف های لیست باکس اطلاعات اون ردیف به پیج دو تو تکست باکس های مشخص بره.این کار یا با دوبار کلیک روی هر سطر لیست باکس و یا تک کلیک روی هر سطر و رفتن به پیج دوم صورت بگیره.
راستی یه سوال دیگه:
چه کدی بنویسم که با دوبار کلیک رو هر سطر از اطلاعات لیست باکس اتوماتیک به پیج دیگه بره
ممنون

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

اگر مقدوره یه نمونه فایل بزارین دوست عزیز

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

ممنون استاد اسماعیلی
http://s1.picofile.com/file/7670168602/listbox.xlsm.html

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

با درود
با دبل کلیک کردن روی لیست باکس نام ونام خانوادگی به page2 مولتی پیج انتقال پیدا میکنن
نمیدونستم شماره پلاک رو هم میخوایی یا نه اما اگر خواستس کافس این همون کد رو وارد کنی به جای textbox از combobox استفادهکنی اگه اشتبا ه نکنم پلاک توی لیست باکس ستون
اولته پس به جای اون 1 یا 2 که توی فرمول (اخرش میبینی) صفر بزار.یه دکمه هم داشتم تست میکردم گذاشتم یادم رفت پاکش کنم معذرت

http://www.uplooder.net/cgi-bin/dl.cgi?key=72f8bb05e5efd156ca3befb7b45d062b[hr]
کد دومین سوالتم نوشتم تو برنامه
البته اگه منظورتو فهمیده باشم
Me.MultiPage1.Value = P
Pاز صفر شروع میشه تا ..........
صفر در واقع page1و 1 page2و ...........

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

میشه رو فایل خودم پیدا سازی کنید انگار این فایلی که گذاشتید اون چیزی که من می خواستم نبوده

[امين اسماعيلي]

RE: پرسش و پاسخ های متداول vba excel

با درود

مگه همین فایلی نبود که خودتون گذاشتین.

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

با درود

مگه همین فایلی نبود که خودتون گذاشتین.

چرا همین بود ولی فایلی که شما گذاشته بودید فایل من نبود :huh:

[mokaram]

RE: پرسش و پاسخ های متداول vba excel

بوسیله فرم اطلاعات را به لیست باکس و هو چنین به شیت یک می فرستم و اطلاعات زمانی آپدیت میشه که من یه بار فرم را ببندم و بعد دوباره باز کنم چه جدی میتونم بنویسم که احتیاجی به بستن فرم نداشته باشه
ممنون

[mrdn66]

RE: پرسش و پاسخ های متداول vba excel

با سلام خدمت دوستان

هنگامی که password to open به فایل اکسل میدم دیگه کد زیر اجرا نمیشه و save as فعال میشه

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

از اساتید درخواست راهنمایی در مورد دلیل این موضوع و روش حل آن را دارم.
با تشکر


فرقی نمی کند گودال آب کوچکی باشی یا دریای بیکران ... زلال که باشی آسمان در توست.