Макросы в Excel написаны на языке, который называется Visual Basic для приложений (VBA). Как и любой другой язык программирования, VBA включает определенные структуры программирования, которые используются для управления выполнением программы. Одна из таких структур — структура Select Case. Эта структура имеет следующий синтаксис:

Select Case expression Case expression     program statements Case expression     program statements Case Else     program statements End Select

Когда выполняется макрос и встречается эта структура, Excel использует expression для проверки каждого последующего оператора Case, чтобы увидеть, должен ли выполняться код под оператором Case. Например, рассмотрим следующий код:

Select Case DayOfWeek Case 1     DayName = "Monday"

Case 2     DayName = "Tuesday"

Case 3     DayName = "Wednesday"

Case 4     DayName = "Thursday"

Case 5     DayName = "Friday"

Case 6     DayName = "Saturday"

Case 7     DayName = "Sunday"

Case Else     DayName = "Unknown day"

End Select

Этот код предполагает, что вы вводите его с уже установленным DayOfWeek числовым значением. Скажем (например, ради) значение равно 4. В этой структуре единственный код, который будет выполняться, — это код под оператором Case 4 — другими словами, макрос установит DayName на «четверг». Если DayOfWeek был установлен на какое-то другое значение, не учитываемое операторами Case (вне диапазона от 1 до 7), то будет выполнен код в Case Else, и макрос установит DayName в «Unknown day».

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2262) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Understanding_the_Select_Case_Structure [Общие сведения о структуре Select Case].