نرم افزارهای کاربردی تحت اکسل و اکسس

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

بازی Mine3D تحت اکسل
نویسنده : علی گنجی - ساعت ۱٢:٠٧ ‎ق.ظ روز سه‌شنبه ۳٠ خرداد ۱۳٩۱
 

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

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

کدهای برنامه قفل نشده است .

لینک دانلود :

Download From PersianGig 

ِِِِتصویری از محیط برنامه :


 
 
جدول مالیاتی سال 1391 کارکنان بخش خصوصی
نویسنده : علی گنجی - ساعت ٤:٤٢ ‎ب.ظ روز پنجشنبه ٢٥ خرداد ۱۳٩۱
 

با توجه به بررسی لایحه بودجه سال 91 در سال 91 !!! و با توجه به گذشت قریب به سه ماه از سال ، هنوز جدول مالیاتی ماده 131 قانون م .م از سوی سازمان امور مالیاتی کشور ابلاغ نشده است . 

در برخی سایتها جدول مالیاتی را با فرمت PDF  قرار داده اند که در قسمتی از جدول ، مالیات مشمول سالانه اشتباه محاسبه شده است و از همان ردیف به بعد محاسبه مالیات خطا دارد .

جدول تهیه شده بر مبنای تابع معرفی شده در پست قبلی می باشد و توسط همان تابع جدول مالیاتی در قالب یک فایل اکسل تهیه شده است . 

لینک دانلود :

Download From PersianGig


 
 
تابع Tax_91 برای محاسبه مالیات حقوق (ماهانه) سال 1391
نویسنده : علی گنجی - ساعت ۱٢:٥٧ ‎ب.ظ روز پنجشنبه ٢٥ خرداد ۱۳٩۱
 

Function Tax_91(Number)

Application.Volatile

Dim Range_1, Range_2, Range_3, Range_4, Range_5, Range_6, _
Range_7, Range_8, Range_9, Range_10, zarib_1, zarib_2, zarib_3, _
zarib_14, zarib_5, Tax_1, Tax_2, Tax_3, Tax_4, Tax_5

Range_1 = 5500000
Range_2 = 9000000
zarib_1 = (10 / 100)
Tax_1 = (Range_2 - Range_1) * zarib_1

Range_3 = 9000001
Range_4 = 13833333
zarib_2 = (20 / 100)
Tax_2 = (Range_4 - Range_3) * zarib_2

Range_5 = 13833334
Range_6 = 26333333
zarib_3 = (25 / 100)
Tax_3 = (Range_6 - Range_5) * zarib_3

Range_7 = 26333334
Range_8 = 88833333
zarib_4 = (30 / 100)
Tax_4 = (Range_8 - Range_7) * zarib_4

Range_9 = 88833334
Range_10 = 1000000000
zarib_5 = (35 / 100)
Tax_5 = (Range_10 - Range_9) * zarib_5

Select Case Number

Case Range_1 To Range_2
Tax_91 = (Number - Range_1) * zarib_1

Case Range_3 To Range_4
Tax_91 = ((Number - Range_3) * zarib_2) + Tax_1

Case Range_5 To Range_6
Tax_91 = ((Number - Range_5) * zarib_3) + Tax_1 + Tax_2

Case Range_7 To Range_8
Tax_91 = ((Number - Range_7) * zarib_4) + Tax_1 + Tax_2 + Tax_3

Case Range_9 To Range_10
Tax_91 = ((Number - Range_9) * zarib_5) + Tax_1 + Tax_2 + Tax_3 + Tax_4

End Select

End Function

دانلود فایل اکسل حاوی تابع Tax_91  با حجم 13 کیلوبایت :

Download From PersianGig


 
 
اضافه کردن توضیحات به توابع ایجاد شده توسط کاربر (UDF)
نویسنده : علی گنجی - ساعت ٥:٤٠ ‎ب.ظ روز دوشنبه ٢٢ خرداد ۱۳٩۱
 

آیا می خواهید برای توابع خود در محیط اکسل ، راهنما و توضیحات درج نمائید ؟

وقتی برای فرمول نویسی بر روی FX کلیک می کنیم ، در پنجره باز شده  (Insert Function) برای هر تابع توضیحاتی مختصر وجود دارد که ما را در مقدار دهی آرگومانهای توابع یاری می کند و همچنین با مقدار دهی آرگومانها ، خروجی تابع را نیز نمایش می دهد .

در تابع های ایجاد شده توسط کاربر (UDF) این توضیحات وجود ندارد و سایر کاربران را در استفاده از آنها با مشکل مواجه می کند .

برای اضافه کردن توضیحات به توابع ایجاد شده توسط کاربر ، به یکی از روشهای زیر عمل می کنیم :

روش اول :

1- ابتدا تابع خود را ایجاد کنید .

2- کد های زیر را محیط Module برنامه کپی نمائید :

Sub Insert_Help_For_Function ()

Application.MacroOption Macro:= " نام تابع",Description:= " توضیحات تابع "

End sub

3- مقادیر  " نام تابع " و " توضیحات تابع " را به دلخواه تغییر دهید و کلید F5 فشار دهید . (Run Sub) 

نام تابعی که نوشته می شود باید قبلا ایجاد شده باشد .

روش دوم :

1- ابتدا تابع خود را ایجاد کنید .

2- از منوی Developer گزینه Macros را انتخاب نمائید .

3- در پنچره باز شده و در قسمت Macro Name نام تابع ایجاد شده را وارد نمائید . اگر تابعی با نام وارد شده قبلا ایجاد شده باشد ، گزینه Options فعال می گردد و می توانید بر روی آن کلیک نمائید .

4- بر روی گزینه Options کلیک نمائید . در پنجره باز شده و در قسمت Description توضیحات مربوط به تابع را وارد نموده و بر روی گزینه Ok کلیک و سپس پنجره Macro را ببندید .

 

پس از انجام هر یک از روشها ، چنانچه از طریق FX تابع خود را انتخاب نمائید ، راهنمای درج شده را خواهید دید .

اگر هم می خواهید توضیحات شما به صورت کاملا حرفه ای و با فایل Help و دارای مثال و ... باشد ( مانند توابع خود اکسل ) سری به سایت http://www.ec-software.com بزنید . 

 


 
 
ایجاد تابع Separate در اکسل
نویسنده : علی گنجی - ساعت ۱٢:٤٩ ‎ق.ظ روز دوشنبه ٢٢ خرداد ۱۳٩۱
 

از این تابع برای جدا کردن اعداد از حروف استفاده می کنیم .

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

"پرداخت چک شماره 123476 به شرکاء بابت قسمتی از طلب دفتری"

و بخواهیم فقط اعداد را از این سلول استخراج کنیم ، از تابع Separate استفاده می کنیم .

چون این تابع در لیست توابع اکسل وجود ندارد ، باید ابتدا آن را به لیست توابع اضافه کنیم . برای این کار کافی است وارد محیط ویژوال بیسیک ( Visual Basic ) اکسل شده و در قسمت VBAProject بر روی فایل انتخابی راست کلیک نموده و گزینه Insert\Module  را انتخاب نمائیم .

اکنون کدهای زیر را در Module ایجاد شده کپی نمائید :

(Function Separate(TEXT
Application.Volatile
If TEXT = "" Then GoTo 1

(len_text = Len(TEXT
For i = 1 To len_text
(ch1 = Mid(TEXT, i, 1
If ch1 = 0 or Val(ch1) > 0 Then Separate = Separate & ch1
Next i

Exit Function
 : 1
"Separate = "Cell Is Null

End Function
 
فایل خود را با فرمت Xlsm  ذخیره نمائید . ( Excel Macro-Enabled Workbook )
با این کار این تابع فقط با باز کردن فایل مذکور قابل استفاده خواهد بود .
و یا فایل زیر را دانلود نموده و از طریق Add-ins تابع Separate را به اکسل اضافه نمائید :
 
 Download From PersianGig