ماکرو نویسی

[مجید]

سلام خدمت دوستان و اساتید و تبریک عید سعید غدیر خم
در فایل ضمیمه من سه تا ماکرو برای جدول مشخص کردم که دریکی print و یک ماکرو بریا Save و یک ماکرو برای List Cat تعریف شده
حال چهار سوال در رابطه با این فایل دارم
سوال اول- ماکرو برای کلید Print طوری تنظیم بشه که فقط سطر های که پر شده رو پرینت بگیره و ردیف های خالی در پرینت نباشه و بدون نشون دادن ویو کل جدول رو بدون ستون گزارش پرینت کنه
سوال دوم - هم در رابطه با تنظیمات Save هست که پنجره ای مانند Save As رو باز کنه و نام ذخیره و محل ذخیره رو از کاربر سوال کنه
و سوال سوم - هم شبیه سوال اول هست که لیست کات پس از ساخت شیت جدید از طول و عرض و تعداد فقط محدوده دارای عدد رو Selact کنه و بس
و سوال چهارم - در رابطه با ستون گزارش گیری است که با پر شدن سه سلول رنگ آن سبز میشود و اعلام کامل بودن ردیف رو انجام میدهد ، اما من نیاز دارم در صورت کامل بودن سلولهای طول و عرض و تعداد این سل سبز گردد و اعلام کامل بودن اطلاعات رو اعلام نماید
بازهم ممنون از توجه و لطف شما

فایل

[مجید]

RE: ماکرو نویسی

سلام
کسی نمیتونه راهنمائی کنه!!!

[s.cheraghi]

RE: ماکرو نویسی

سلام
سوال 1 و 4 رو تو فایل براتون انجام دادم
سوال 3 هم از روی جواب 1 میتونید حل کنید
و اما سوال 3، این مسئله با استفاده از API حل میشه
متأسفانه الان فرصت نمیکنم تابع موردنظر رو براتون پیدا کنم
از اساتید دیگه خواهش میکنم در صورت امکان این زحمت رو بکشن
سعی میکنم در اسرع وقت براتون پیدا کنم

[مجید]

RE: ماکرو نویسی

سلام
سوال 1 و 4 رو تو فایل براتون انجام دادم
سوال 3 هم از روی جواب 1 میتونید حل کنید
و اما سوال 3، این مسئله با استفاده از API حل میشه
متأسفانه الان فرصت نمیکنم تابع موردنظر رو براتون پیدا کنم
از اساتید دیگه خواهش میکنم در صورت امکان این زحمت رو بکشن
سعی میکنم در اسرع وقت براتون پیدا کنم

[مجید]

RE: ماکرو نویسی

سلام
سوال .......

سلام و ممنون از راهنمائی شما اما زمانی که بر روی باکس پرینت کلیک میکنم این ماکرو اجراء نمیشه و این سطر در ماکرو قرمز میشه

Set printarea = List Saiz.Range("a2", List Saiz.Range("r3").End(xlDown).End(xlUp))

و همینطور در زمان اجراء گزینه لیست کات نیز هیچ عددی در شیت جدید وارد نمیشود ؟

[مجید]

RE: ماکرو نویسی

سلام
آیا فایل مشکل داره و یا تنظیمات ش

[s.cheraghi]

RE: ماکرو نویسی

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

[s.cheraghi]

RE: ماکرو نویسی

سلام در مورد سوال دومتون بلاخره جوابش پیدا کردم
شما باید از متد GetSaveAsFilename که یک متد از شئ application است استفاده کنید
این متد همون پنجره save as رو باز میکنه و به کاربر اجازه میده که فایلی را برای ذخیره شدن بر روی آن انتخاب کنید و یا فایل جدیدی ایجاد کنید.
خروجی این متد آدرس و نام فایل مورد نظر است که در نهایت شما باید از این دو رشته و با استفاده از متد save، فایل رو ذخیره کنید
امیدوارم کامل بوده باشه
اگه بد گفتم، تو فرصت بعدی یه فایل نمونه براتون میذارم

[مجید]

RE: ماکرو نویسی

سلام در مورد سوال دومتون بلاخره جوابش پیدا کردم
شما باید از متد GetSaveAsFilename که یک متد از شئ application است استفاده کنید
این متد همون پنجره save as رو باز میکنه و به کاربر اجازه میده که فایلی را برای ذخیره شدن بر روی آن انتخاب کنید و یا فایل جدیدی ایجاد کنید.
خروجی این متد آدرس و نام فایل مورد نظر است که در نهایت شما باید از این دو رشته و با استفاده از متد save، فایل رو ذخیره کنید
امیدوارم کامل بوده باشه
اگه بد گفتم، تو فرصت بعدی یه فایل نمونه براتون میذارم

سلام و ممنون از راهنمائی خوب شما
توضیح شما خوب و کامل هست اما من در یادگیری اکسل هنوز در اول راهم وممنون میشم با نمونه فایلم من رو راهنمائی کنید

[s.cheraghi]

RE: ماکرو نویسی

سلام
این فایل نمونه خدمت شما

[مجید]

RE: ماکرو نویسی

سلام
این فایل نمونه خدمت شما

سلام وممنون از لطف شما
فقط راجع به سوال اول و چهارم که قبلاً فایل اون رو درست کردید به مشکل خوردم و ماکرو ها اجراء نمیشه
میشه راهنمائی بفرمائید

[s.cheraghi]

RE: ماکرو نویسی

با سلام و پوزش بابت تأخیر
فایل خدمت شما

[t@ranom]

RE: ماکرو نویسی

سلام دوستان
من میخوام برنامه ای بنویسم که بعضی از ستون داده ها از روی یه فایل اکسل دیگه خونده بشه و تو یه فایل اکسل دیگه پیست بشه
کسی میتونه کمکم کنه!؟
ممنون از همگی