جلسه پنجم- دستور شرطی 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 شرط1then
دستورات
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
ممنون از مطالب مفیدتان.اگر امکان دارد جلسات اول و دوم را هم روی سایت قرار دهید و منابع دیگری نیز در این زمینه معرفی نمایید.با تشکر
خیلی این مطلب برای من مفید بودتشکر به خاطر وبلاگ خوبتون