دستورهای شرطی(if then else)

[ali.b]

ساختار اولیه وساده:
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 

منبع:

دوست عزیز اقای بیرامی
اینم ادرس سایت

http://persianblog.ir