خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را
آموزش برنامه نویسی اکسل : Select Case


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

رفع ارور You are trying to open a file type در نرم افزار Visio
مدیریت لیست auto-complete در outlook
حذف آدرس ایمیل از لیست Autocomplete در Outlook
نمودار میله ای در اکسل - نحوه ایجاد نمودار نواری برای نمایش اطلاعات در excel
نحوه تهیه پوستر در پاورپوینت - راهکاری مناسب برای جذب مخاطب
آموزش نرم افزار آفیس - کاربردی ترین نرم افزارهای Microsoft Office
بهترین کتاب آموزش اکسل — معرفی جامع ترین کتاب های Excel
نمودار میله ای در اکسل + آموزش ایجاد و شخصی سازی
آزمون آنلاین icdl1 + دانلود نمونه سوالات آزمون ICDL
آموزش داشبورد مدیریتی در اکسل — همراه با نکات کاربردی + مثال
نحوه پنهان یا نمایش دادن سرچ دسکتاپ در ویندوز 11
نحوه سوئیچ کردن بین اسپیکر و هدفون در ویندوز
نحوه انتقال taskbar ویندوز 10 به هر طرف صفحه نمایش
نحوه انتقال Taskbar به بالا، چپ، راست ویندوز 11
نحوه تغییر ضخامت و پهنای اسکرول بار در ویندوز 10/11
افزودن، حذف و تغییر چیدمان آیتم ها در Quick settings ویندوز 11

دیدگاه ها(0)
دیدگاه خود را ثبت کنید: