پرسش در خواست کد ویژوال برای چاپ از شیت خاص برای شرط خاص

[armey]

عرض ادب و تحترام خدمت دوستان عزیز و اعضای محترم

یه فایل دارم که پیوست میکنم خدمتتون

درخواستم یمقدار نیاز به توضیح داره
پیشاپیش از زحمت و بذل مرحمتی که میدارید سپاسگذارم

این فایل بابت چاپ قرار داد استفاده می شود
فایل قرارداد ها بصورت روزانه از سامانه استخراج می شود

و در شیت " تخصیصی روز" وارد می شود

شیت " فرم نصب" صفحه اصلی است که کار *چاپ قرار داد* را انجام می دهد

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


با اینگونه بگویم که
هر ردیف از اطلاعات شیت "تخصیصی روز" اطلاعات یک قرارداد است
صفحه " فرم نصب" هر ردیف را یکبار در فرم قرار داد جاگذاری میکند و چاپ میگیرد
نکته اینکه "فرم نصب" اطلاعاتی کلی را از شیت " تخصیصی روز" میخواند و دو مورد انتهای صفحه * قفسه و ردیف* را از شیت آدرس



حالا تغییری جدید رخ داده که توضیحشم شاید یمقدار سخت باشه

هر قرارداد مربوط به یک نوع دستگاه است که هر نوع یک آموزش متمم آن شده
ا هر ردیف شامل یک آموزش میشود بسته به نوع آن که در ستون "g" شیت "تخصیصی روز" . و در شیت "آدرس" با فرمولی مشخص میشود { ردیف اول شیت "تخصیصی روز" معادل سلول اول شیت "آدرس" ستون "G"}

--- هر آموزش در یک شیت پیوست شده است
حالا درخواست :
اگر فرم نصب ردیف اول چاپ شد
آموزش آن از شیت مخصوص آن نیز چاپ شود

https://s19.picofile.com/file/8433637176/%D9%81%D8%B1%D9%85_%D9%86%D8%B5%D8%A8_V7_%D8%AC%D9%87%D8%AA_%D8%A7%DA%A9%D8%B3%D9%84_%D8%A7%DB%8C%D8%B1%D8%A7%D9%86_.zip.html

https://s19.picofile.com/file/843363...9%86_.zip.html
* عرض پوزش فراوان بابت حجم فایل پیوست *

- قسمت تنظیمات فایل ها پیوست حجمم پر شده 15 مگ چجوری می تونم پاک کنم تا فضا آزاد بشه

[مرتضی حسینی]

با سلام علت حجیم بودن فایل و کند بودن ان استفاده زیاد از توابع اکسل مخصوصا در شیت ادرس می باشد که تا اخرین سلول بسط دادید توجه کنید توابع از حدود 100 سلول اضافه تر بشه برنامه کند و حجیم میشود بایستی از توابع وی بی استفاده کنید. برای مشکل دوم اگر کد های وی بی را خودتان نوشتید میتوانید با گذاشتن شرط از هر شیتی هر موقع که خواستید اطلاعات را وارد کنید. معذرت منظورتان را درست متوجه نشدم قدم به قدم جلو برید تا برنامه کامل بشه
حسینی 1400/2/27

[armey]

با سلام
در خصوص فرمول بله حق با شماست دقت نکرده بودم

کد هم خیر با پرس و جو اسمبل کردم

در خصوص درخواست
موضوع اینه برای اعمال دستور باید یه شرط گذاشته بشه

وقتی سطر اول از شیت "تخصیصی روز" رو داخل "فرم نصب" میزاره
و دستور چاپ رو میده قبل از رفتن سراغ سطر بعد
بره در شیت "آدرس" ستون آموزش رو نگاه کنه از روی اسم شیت همنام اش رو دستور چاپ بده

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

بعد بره سراغ سطر بعدی تخصیصی روز و سلول بعدی آدرس
به همین ترتیب تا تمام شده
سطرهای شیت "تخصیصی روز"