shamsololama
2010/04/10, 14:40
با درود
نوشتن یک تابع جدید در اکسل زمانی انجام می دهیم که تابع های از پیش ساخته در اکسل
کا مورد نظر ما را انجام ندهد و یا از استفاده ترکیبی بعضی از تابع ها که طولانی می شود بپرهیزیم
برای اینکار با زدن Alt+F11 وارد صفحه ویژوال می شویم
ابتدا از مسیر Insert یک ماژول جدید(Module) را ایجاد می کنیم
و در این ماژول یک رویه Function ایجاد کرده و تابع مورد نظر را کد نویسی می کنیم بصورت زیر
می خواهیم تابعی را با نام Man بنویسیم که هرزمان آن را در اکسل بنویسیم مشخصات خودمان را نام و فامیل و سال تولد را به ما نشان دهد یعنی یک عبارت ثابت
Function man()
man = "FName:Ahmad LName: shamsololama Dat:1352"
End Function
زمانی که این کد را وارد کردیم اگر در صفحه اکسل بنویسیم
=man()
جواب ما FName:Ahmad LName: shamsololama Dat:1352 خواهد بود
*******
حال اگر بخواهیم یک تابع محاسبه گر بنویسیم که هر زمان سال تولد را بنویسیم سن ما را مشخص کند بصورت زیر عمل می کنیم
نام تابع را sen می گزاریم
Function man(dat(
man = 1389 - dat
End Function
که در این صورت تابه را مثلا به این صورت
=sen(1352) استفاده می کنیم
که در اینصورت 1352 را از 1389 کم می کند و سن را سال 1389 حساب می کند
همانطور که می بینید این دو مثال بسیار ساده است که هر چه خواسته ما و انتظارمان از نتیجه کار بیشتر باشد باید کد را کامل تر نوشت مثلا در مثال دو سن ما را تا امسال که 1389 است حساب می کند ولی اگر یک سال دیگه گذشت و شد 1390 تابع ما به روز نشده و همان 1389 را محاسبه می کندولی طرح کلی ساخت تابع همین چیزی است که در عین سادگی در این دو مثال می بینید.
و توجه داشته باشید که این تابع فقط در همان ورک بوکی که نوشته ایم کار می کند و اگر ورک بوک دیگری باز کنیم تابع ما قابل استفاده نیست که برای این که در تمام صفحات استفاده شود باید آن را بصورت Addin ذخیره کنید و به اکسل اضافه شود
بدرود
نوشتن یک تابع جدید در اکسل زمانی انجام می دهیم که تابع های از پیش ساخته در اکسل
کا مورد نظر ما را انجام ندهد و یا از استفاده ترکیبی بعضی از تابع ها که طولانی می شود بپرهیزیم
برای اینکار با زدن Alt+F11 وارد صفحه ویژوال می شویم
ابتدا از مسیر Insert یک ماژول جدید(Module) را ایجاد می کنیم
و در این ماژول یک رویه Function ایجاد کرده و تابع مورد نظر را کد نویسی می کنیم بصورت زیر
می خواهیم تابعی را با نام Man بنویسیم که هرزمان آن را در اکسل بنویسیم مشخصات خودمان را نام و فامیل و سال تولد را به ما نشان دهد یعنی یک عبارت ثابت
Function man()
man = "FName:Ahmad LName: shamsololama Dat:1352"
End Function
زمانی که این کد را وارد کردیم اگر در صفحه اکسل بنویسیم
=man()
جواب ما FName:Ahmad LName: shamsololama Dat:1352 خواهد بود
*******
حال اگر بخواهیم یک تابع محاسبه گر بنویسیم که هر زمان سال تولد را بنویسیم سن ما را مشخص کند بصورت زیر عمل می کنیم
نام تابع را sen می گزاریم
Function man(dat(
man = 1389 - dat
End Function
که در این صورت تابه را مثلا به این صورت
=sen(1352) استفاده می کنیم
که در اینصورت 1352 را از 1389 کم می کند و سن را سال 1389 حساب می کند
همانطور که می بینید این دو مثال بسیار ساده است که هر چه خواسته ما و انتظارمان از نتیجه کار بیشتر باشد باید کد را کامل تر نوشت مثلا در مثال دو سن ما را تا امسال که 1389 است حساب می کند ولی اگر یک سال دیگه گذشت و شد 1390 تابع ما به روز نشده و همان 1389 را محاسبه می کندولی طرح کلی ساخت تابع همین چیزی است که در عین سادگی در این دو مثال می بینید.
و توجه داشته باشید که این تابع فقط در همان ورک بوکی که نوشته ایم کار می کند و اگر ورک بوک دیگری باز کنیم تابع ما قابل استفاده نیست که برای این که در تمام صفحات استفاده شود باید آن را بصورت Addin ذخیره کنید و به اکسل اضافه شود
بدرود