قرارداد در اکسل۱۳۹۵-۱۲-۱۵ ۱۵:۲۵:۳۹ +۰۳:۳۰
0
0

سلام

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

که هم به صورت تکی و هم بصوررت یکجا پرینت گرفته شود

بدون استفاده از ورد و در خود اکسل

با تشکر

0
0

سلام

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

1- ابتدا یک لیست از مشخصات قرارداد افراد رو بصورت عمودی داشته باشید. مثلاً کد قرارداد در ستون اول، نام و نام خانوادگی فرد در ستونهای دوم و سوم و مدت قرار داد در ستون چهارم و …..

2- حالا یک برگه رو مخصوص قرار داد تکی قرار بدید که فرم قرار داد هر فرد رو بصورت دلخواه در اون طراحی میکنید بطوریکه با هر بار چاپ قرار داد یکنفر فقط چاپ بشه.

3- در برگه قرارداد فردی همه مشخصات متغیری که قراره در قرارداد بیاد رو بوسیله تابع Vlookup استخراج کنید به نحوی که با تغییر کد قرارداد همه مشخصات این برگه تغییر کنه

4- حالا با هر بار تغییر کد قرارداد یک قرارداد جدید داریم که میتونید براحتی چاپش کنید اما اگر میخواید از این هم سریعتر باشه باید بریم سراغ کد نویسی vba

5- برای چاپ اتومات تعدادی فیش در برگه فیش فردی سه سلول رو در نظر بگیرید (که اینجا بهشون نیاز داریم). الف- سلول کد قرارداد C1 ب- سلول شروع کد قرارداد CF1 ج- سلول انتهای کد قرارداد CT1 (دو سلول آخر برای این هستند که راحت بتونیم تعریف کنیم از چه کدی تا چه کدی رو قصد داریم چاپ بگیریم

6- یک دکمه هم برای این برگه (از تب developer) قرار بدید.

7- نهایتاً برای دکمه کد vba‌زیر رو بنویسید که بصورت اتوماتیک شروع به چاپ کنه

 

Sub ContPrint()
Dim Row As Integer
For Row = Range(“CF1”).Value To Range(“CT1”).Value
Range(“C1”).Value = Row
Sheet1.PrintOut
Next Row
End Sub

نمایش 1 نتیجه
پاسخ شما

لطفا کنید