جلسه ششم- ساختار برنامه SELECT CASE در اکسل

جلسه ششم:

 

Select CASE

 

دستور SELECT CASE دستوری با کاربردی مانند IF می باشد. در جهت استفاده از این دستور ما نیازمند تعریف متغیری مانند Xهستیم و سپس برای متغیر مورد اشاره شروط مورد نیاز را می گذاریم.

 

 

شکل کلی دستور Select Case

 

Select Case  نام متغیر

 Case           حالت اول

دستورات

 Case حالت دوم

دستورات

.

.

.

 

Case Else

دستورات

 End Select

 


در زیر برنامه ای نوشته شده است که برای مقادیر مختلف موجود در سل A1 یک شیت اکسل عبارات A , B, C, … را در سل مقابل آن می گذارد.

 Sub level( )

 x = Range("a1").Value

 Select Case x

 Case 17 To 20

Range("b1").Value = " A"

 Case 14 To 17

Range("b1").Value = " B"

            Case 12 To 14

Range("b1").Value = " C"

 Case 10 To 12

Range("b1").Value = " D"

            Case 0 To 10

Range("b1").Value = " E"

Case Else

Range("b1").Value = "false"

 End Select 

End Sub


ساختار حلقه ای FOREach - NEXT

حلقه ها دستوراتی هستند که می توان جهت انجام دستورات تکراری از آنها استفاده نمود. حلقه FOREach برای کار بر روی عضوهای(members) یک مجموعه(collection) استفاده می شود. مجموعه شامل تعدادی شیء یکسان است. به عنوان مثال Range("A1:A10") یک ‍collection ‌ است زیرا تعدادی عضو به نام سلول است که همگی از یک جنس هستند. worksheet های یک فایل اکسل مجموعه ای به نام Worksheets تشکیل می دهند. چارتهای یک فایل اکسل مجموعه ای به نام Charts تشکیل می دهند.

الگوی زیر الگوی استفاده از یک حلقه FOREach در برنامه نویسی می باشد:

 

 

For Each عضو In مجموعه

            دستورات

NEXT

 

 

 

در برنامه ای که در زیر نوشته شده عملیات مورد نظر بر روی ردیفهای 1 تا 10 ستون A  انجام می شود.برنامه به گونه ای نوشته شده است که اعداد کمتر از 10موجود در ستون اول، را Bold ‌کند

 

 

حال با استفاده و ترکیب دو دستور FOR-NEXTبه سادگی برنامه مورد اشاره به شرح ذیل نوشته می شود:

 

 Sub range_level ()

 

Sub a()

 

/ 3 نظر / 80 بازدید
سعید

سلام اقای بیرامی ضمن سپاس بیکران. می خواستم بدونم که چگونه می توان دستورات شرطی را بر کل دامنه یک ستون اعمال کرد.

محمد

تمام جلسات آموزشی عالی بود. تشکر

دخترباران

عالی، کار می کنه، تشکر