خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را
آموزش برنامه نویسی اکسل : If…Then…ElseIf
زبان برنامه نویسی VBA برای مواقعی که قرار است در ساختار تصمیم گیری If…Then…Else بیش از دو شرط ارزیابی شود، یک روش قابل گسترش دیگر نیز ارائه داده است. فرض کنید که شما می خواهید برای هر کدام از 5 روز کاری سنتی در هفته یک پیغام اختصاصی را نمایش بدهید. شما به روشی نیاز خواهید داشت که همۀ شرایط خود را در یک ساختار if یکسان با 5 شرط داشته باشید و برای هر کدام از این شرطها امکان نوشتن کد اختصاصی داشته باشید.
یک روش برای به انجام رساندن این کار اینست که ساختار If…Then…ElseIf را مشابه مثال زیر مورد استفاده قرار دهید. توجه داشته باشید که در 5 شرط اول که از روز Monday تا Friday می باشد تطابق داشتن روز شرط قرار گرفته است. در شرط آخر با استفاده از اپراتور منطقی OR برای شناسایی روزهای Saturday یا Sunday استفاده شده است.
آموزش قبلی : آموزش برنامه نویسی اکسل : ساختارهای تصمیم گیری: If…Then…Else
آموزش بعدی : آموزش برنامه نویسی اکسل : Select Case
یک روش برای به انجام رساندن این کار اینست که ساختار If…Then…ElseIf را مشابه مثال زیر مورد استفاده قرار دهید. توجه داشته باشید که در 5 شرط اول که از روز Monday تا Friday می باشد تطابق داشتن روز شرط قرار گرفته است. در شرط آخر با استفاده از اپراتور منطقی OR برای شناسایی روزهای Saturday یا Sunday استفاده شده است.
Sub WeekdayTest()
‘Monday
If Weekday(VBA.Date) = 2 Then
MsgBox “Ugghhh - - Back to work.”, , “Today is Monday”
‘Tuesday
ElseIf Weekday(VBA.Date) = 3 Then
MsgBox “At least it’s not Monday anymore!”, , “Today is Tuesday”
‘Wednesday
ElseIf Weekday(VBA.Date) = 4 Then
MsgBox “Hey, we’re halfway through the work week!”, , “Today is Wednesday”
‘Thursday
ElseIf Weekday(VBA.Date) = 5 Then
MsgBox “Looking forward to the weekend.”, , “Today is Thursday”
‘Friday
ElseIf Weekday(VBA.Date) = 6 Then
MsgBox “Have a nice weekend!”, , “Today is Friday!”
‘Saturday or Sunday
ElseIf Weekday(VBA.Date) = 7 Or Weekday(VBA.Date) = 1 Then
MsgBox “Hey, it’s currently the weekend!”, , “Today is a weekend day!”
End If
End Sub
آموزش قبلی : آموزش برنامه نویسی اکسل : ساختارهای تصمیم گیری: If…Then…Else
آموزش بعدی : آموزش برنامه نویسی اکسل : Select Case
نمایش دیدگاه ها (0 دیدگاه)
دیدگاه خود را ثبت کنید: