۱- راهنمای جامع  اکسل ۲۰۰۰ ترجمه آقای مهدوی  ( توجه کنید که راهنمای جامع باشد )

۲- راهنمای كاربردي تجاری اکسل ترجمه آقای مهدوی ( ویژه عملیات مالی و آماری  anova)

۳- مدل سازی در اکسل ( توابع و فرمول ها ) تالیف مهندس مهدی شهناز

۴- آموزش تصویری اکسل ۲۰۰۷ ( ترجمه پرستو محمد پور - عالیه ) به همراه سی دی تمرین حدود ۵۰۰۰ تومان

۵-  توابع  و فرمول ها در اکسل ترجمه خانم فریبا معلمی ( ویژه کار تجاری و مالی )

6- ترفند هاي اكسل تاليف آقاي كيانوش حسني نژاد

7- خود آموز گام به گان اكسل 2007 ترجمه مهندس رامين مولانا پور ( تقريبا كامل )

8- سري كتاب هاي آموزش اكسل مهندس بهرام صمديان ( amar80.blogfa.com  )

9- نمودارهاي اكسل ترجمه مهندس امير حسين رضوي ( در زمينه ي نمودار ها عاليه )

10 - كتاب جديد آموزش vba  در اكسل تاليف مهندس مهدي شهناز

در اكسل 2007 ( و همينطور 2003)  از قسمت DATA  گزينه TEXT TO COLUMNS را انتخاب مي كنيم .

توجه داشته باشيد كه بايد ابتدا متن مورد نظر را انتخاب كرده باشيد ، به طور مثال عبارت " I AM ALI TOZIH " را مي خواهيم در سلول هاي جدا قرار دهيم.

همانطور كه در شكل مشخص است عبارت " I AM ALI TOZIH " به كلمات جدا تبديل شده است ، جدا كننده SPACE است و هر كلمه در يك ستون مجاور قرار مي گيرد.

FOR    انتها        تو          ابتدا = شمارنده           STEP گام

عمليات

NEXT

مثال : در ساختار زير سلول هاي ستون A  تا A100 از 1 تا 100 پر مي شوند:

FOR  I=1 TO 100

CELLS(I,1)=I

NEXT

مثال : جدولي در كاربرگ 1 طراحي كنيد كه شامل ستون نام و دريافتي و ماه دريافت باشد ، سپس اسامي چند نفر را در آن وارد نماييد ( تكراري هم داشته باشد ) آنگاه ماكرويي طراحي كنيد كه نام فرد را دريافت كرده سپس جمع كل دريافتي هاي وي را نمايش دهد .

SELECT CASE  متغير

CASE  محدوده 1

عمليات 1

CASE  محدوده 2

عمليات 2

CASE ELSE

عمليات

END SELECT

به طور مثال ساختاري طراحي كنيد كه عددي را از كاربر گرفته و سپس رده ي آنرا مشخص كند:

1-اگر عدد 1 يا 2 يا 3 باشد رده A

2- اگر عدد بزرگتر از 3 و كوچكتر از 7 باشد رده ي B

3-  اگر عدد بزرگتر از 7 باشد رده ي C

4- در غير اين صورت پيام خطا صادر كند.

نمايش داده شود:

SUB TEST()

DIM X!

X=INPUTBOX("X:")

SELECT CASE X

CASE 1,2,3

MSGBOX " A"

CASE 3 TO 7

MSGBOX " B"

CASE IS > 7

MSGBOX "C"

CASE ELSE

MSGBOX " ERROR"

END SELECT

END SUB

اكسل قادر است دو نوع گزارش كلي از ليستهايش تهيه كند:

1- ليست هايي كه آيتم هاي تكراراي دارند. مثل حقوق دستمزد كه يك نفر قادر است بارها پول دريافت كند .

2- ليست هايي كه اجازه ي تكرار ندارند. مثل مشخصات فردي درون اداره كه يكنفر نبايد دوبار ثبت شده باشد.

در مورد اول ابزار هايي چون

1-تابع  SUBTOTAL

2- SUMIF, SUMIFS

3- تركيب آرايه اي SUM & IF

4- توابع پايگاه داده  يا DSUM

5-PIVOTTABLE يا جداول محوري ( بسيار مهم )

6- ابزار  SUBTOTAL

را مي توان استفاده كرد، كه تمامي آنها را در آرشيو مي توانيد بيابيد.

اما مورد دوم ليست هاي غير تكراري است كه ابزار هاي آن عبارتند از :

توابع  INDEX و MATCH و VLOOKUP , HLOOKUP

 اين توابع در ليست هاي تكراري استفاده ي چنداني ندارد

ساختار آن به شرح زير است:

if   شرط   then

عمليات 

elseif شرط then

عمليات

else

عمليات

endif

مثال - دو عدد را از كاربر گرفته اگر مساوي باشند كلمه مساوي و درغير اين صورت نامساوي را نمايش دهد.

sub test1()

dim a!

dim b!

a=inputbox("a")

b=inputbox("b")

if a=b then

 msgbox "equal"

else

 msgbox " not equal"

endif

end sub

مثال 2- دو عدد درون a1 , b1  را مقايسه كند و هر كدام كه كوچكتر است را پاك كند .

مثال 3- اسامي و حقوق مبناي چند كارمند را دريافت كرده اگر حقوق بيش از 400$ باشد ماليات 10 درصد محاسبه شود در غير اين صورت 7 درصد محاسبه شود.

مثال ۴- میانگین اعداد درون ستون A  از كاربرگ 1 را با همين ستون از كاربرگ 2 مقايسه كرده هر كدام كه بزرگتر بود نام آن كاربرگ به MAX  تغيير يابد.

نكات اين تمرين :براي تغيير نام مثلا كابرگ 1 :

SHEETS(1).NAME="MAX"

براي استفاده از يك تابع درون وي بي اي از

   APPLICATION.WORKSHEETFUNCTION. نام تابع

I = APPLICATION.WORKSHEETFUNCTION.AVERAGE(RANGE("A:A"))

(اين فرمول ميانگين تمام اعداد درون ستون A  را به درون متغيير  I  مي ريزد.)

استفاده مي كنيم . توجه داشته باشيد كه توابع مشخص هستند و مقادير آنها بايد درون يك متغيير ريخته شود.

توجه كنيد براي  انتخاب  كاربرگ يك مي توان از دستور زير استفاده كرد :

SHEETS(1).SELECT

DIM A(2,4,5) AS LONG

يك ارايه سه بعدي با بعد اول 2 بعد دوم 4 و بعد سوم 5 است كه عناصر آن از جنس لانگ مي باشند

A={ 1 , 2.57 , 17 , "ALI" , 122 }

آرايه ها يا يك بعدي هستند يا چند بعدي

تعريف يك آرايه يك بعدي در وي بي اي مانند تعريف يك متغير انجام مي پذيرد :مثال

DIM A(5) AS STRING

كه در آن پس از كلمه ديم نام آرايه و انتهاي آن ذكر مي گردد و در انتها نوع داده هاي آن

آرايه ها هميشه از ابتداي صفر آغاز مي كنند به تصاوير زير دقت كنيد

توجه كنيد كه دو عنصري از آرايه كه مقدار دهي نشده اند صفر در نظر گرفته شده اند .

براي اينكه يك آرايه يك بعدي از  ابتداي يك آغاز كند مي توان در تعريف آن به روش زير اقدام كرد

DIM ALIARR(1 TO 7) AS SINGLE

  كه 7 عنصر از جنس سينگل دارد با ابتداي يك aliarr يك آرايه يك بعدي با نام  

براي پر كردن يك آرايه كافي است عناصر آنرا پر كنيم

A(1)="ALI"

A(2)=22

A(3)="ALI TOZIH"

A(6)="REZA"

تمرين - فرض كنيد ليستي داريد به شكل زير ، كه از سلول A2  آغاز شده است . حال قصد داريم تابعي طراحي كنيم كه با ارسال سلول آغازين ليست به آن تعداد سطر هاي ليست محاسبه شود .

خرید کتاب الکترونیکی Excel VBA Professional Projects

موفق باشيد .

  RSS