برنامه نويسي در محيط ويژوال بيسيك كاربرد در اكسل(VB)


+ جلسه پنجم- دستور شرطی IF در محیط ویژوال بیسیک

جلسه پنجم                   دستورهای شرطی(if then else)

ساختار اولیه وساده: 

if       شرط         then

دستورات

end if

 

 

مثال: در سلول A1 عددی قرار دارد که سن شخصی را نشان میدهد. میخواهیم با توجه به سن در سلول B1 پیغامی بنویسیم

Sub grade()

 

If Range("a1") >= 17 Then

Range("b1") = "good"

End If

 

End Sub

 

 ساختار کامل دستور شرطی If

If شرط1 then

دستورات

Elseif 2شرط  then

دستورات

 

Elseif شرط آخر  then

دستورات

 

 

Else

       دستورات

Endif

 

 

مثال:برنامه ای بنویسید که برای نمرات بالای 17 عبارت A بین 17 تا 14 عبارت B  و کمتر از 14 عبارت Cرا تایپ نماید.

 

جواب:

Sub grade()

 

If Range("a1").Value >= 17 Then

\           Range("b1").Value = "A"

ElseIf Range("a1").Value < 17 And Range("a1").Value >= 14 Then

Range("b1") = "B"

Else

Range("b1").Value = "C"

End If

End Sub

نویسنده : حامد بیرامی ; ساعت ۱۱:٢٥ ‎ق.ظ ; ۱۳۸۸/۱٠/٢۱
تگ ها:
comment نظرات () لینک