دستورهای شرطی(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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.