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

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

  RSS