برنامه نويسي در محيط ويژوال بيسيك كاربرد در اكسل(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