Заявление о случае VBA

Заявление о регистре VBA в Excel

Заявление о случае VBA это одна из логических функций. Заявление случая проверяет несколько логических тестов и приходит к результату двумя способами, т.е. если результат или логический тест ИСТИНА — один набор результатов, а если результат или логический тест — ЛОЖЬ, то второй набор результатов.

VBA-Case-Заявление

Вы можете свободно использовать это изображение на своем веб-сайте, в шаблонах и т. Д. Пожалуйста, предоставьте нам ссылку с указанием авторстваКак указать авторство?Ссылка на статью должна содержать гиперссылку
Например:
Источник: Заявление по делу VBA (wallstreetmojo.com)

Логические тесты обычно проводятся с использованием формул IF, будь то формула рабочего листа или кодировка VBA; на обеих платформах эта функция помогает нам проводить множество сложных вычислений. Не многие из нас осознают, что у нас есть альтернатива Оператор IF в VBAЗаявление IF в VBAОператор If Else или If Then Else в VBA выполняет набор инструкций в зависимости от того, выполняется указанное условие или нет. Если условие (логическая проверка) истинно, выполняется один набор действий. Однако, если условие ложно, выполняется альтернативный набор действий.читать далее т. е. «Изложение дела». Эта статья предоставляет вам полную информацию об этом логическом утверждении.

Синтаксис

Ниже приведен синтаксис оператора «Выбрать регистр».

Select Case “Value to be Test”

       Case Is “Logical Test”

            Result if  Case 1 is TRUE

       Case Is “Logical Test”

            Result if Case 2 is TRUE

       Case Is “Logical Test”
 
            Result if Case 3 is TRUE

      Case Else

           If none of the results are TRUE

End Select

Это почти похоже на синтаксис оператора IF, но вместо использования ELSEIF мы используем случай 1, случай 2, случай 3 и так далее.

Примеры формулировки регистра VBA

Вы можете скачать этот шаблон Excel для заявления о делах VBA здесь — Шаблон заявления о регистре VBA в Excel

Пример # 1

В ячейке A1 я ввел число 240.

Пример 1.1 утверждения case

Теперь мы проверим это число, больше ли оно 200, используя Оператор SELECT CASE.

Шаг 1: Откройте оператор Select Case прямо сейчас.

Код:

Sub Select_Case_Example1()

    Select Case

End Sub
Пример инструкции case 1.2

Шаг 2: После открытия «Select Case» нам нужно указать, какое значение мы тестируем. В этом случае мы проверяем значения ячейки A1.

Код:

Sub Select_Case_Example1()

     Select Case Range("A1").Value

End Sub
Пример описания регистра 1.3

Шаг 3: После того, как значение, которое нужно протестировать, дано сейчас, нам нужно применять логические тесты в ExcelПрименить логические тесты в ExcelЛогический тест в Excel дает аналитический результат: истинный или ложный. Оператор равенства «=» является наиболее часто используемым логическим тестом.читать далее используя «Дело» слово.

Код:

Sub Select_Case_Example1()

     Select Case Range("A1").Value
     Case Is > 200

End Sub
Пример описания регистра 1.4

Шаг 4: Теперь, в следующей строке, нам нужно указать значение «результата», если примененный логический тест — ИСТИНА. В окне сообщения нам нужен результат «Число> 200».

Код:

Sub Select_Case_Example1()

     Select Case Range("A1").Value
     Case Is > 200
       MsgBox "Number is >200"

End Sub
Пример утверждения регистра 1.5

Шаг 5: В этом примере нам нужны только два результата, поэтому я не буду использовать больше операторов «Case Is». Затем я буду использовать слово «Case Else», чтобы закрыть оператор VBA «Select Case».

Код:

Sub Select_Case_Example1()

     Select Case Range("A1").Value
     Case Is > 200
        MsgBox "Number is >200"
     Case Else
        MsgBox "Number is <200"

End Sub
Пример 1.6

Шаг 6: После того, как все кейсы предоставлены, нам нужно закрыть оператор select case, используя слово «End Select».

Код:

Sub Select_Case_Example1()

     Select Case Range("A1").Value
     Case Is > 200
        MsgBox "Number is >200"
     Case Else
        MsgBox "Number is <200"
     End Select

End Sub
Пример 1.7

Шаг 7: Теперь запустим код и посмотрим, какой результат мы получим в Окно сообщения VBAОкно сообщения VBAФункция VBA MsgBox — это функция вывода, которая отображает обобщенное сообщение, предоставленное разработчиком. Этот оператор не имеет аргументов, и персонализированные сообщения в этой функции записываются в двойных кавычках, а для значений предоставляется ссылка на переменную.читать далее является.

Excel Case Statement, выход 1

В результате мы получили «Число> 200», потому что в ячейке A1 значение 240, то есть> 200.

Пример # 2

Теперь мы увидим несколько практических примеров результатов тестирования в реальном времени. Посмотрите на ниже Код VBAКод VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее.

Код:

Sub Select_Case_Example2()

     Dim ScoreCard As Integer

     ScoreCard = Application.InputBox("Score should be b/w 0 to 100", "What is the score you want to test")

     Select Case ScoreCard
         Case Is >= 85
             MsgBox "Distinction"
         Case Is >= 60
             MsgBox "First Class"
         Case Is >= 50
             MsgBox "Second Class"
         Case Is >= 35
             MsgBox "Pass"
         Case Else
             MsgBox "Fail"
     End Select
End Sub
Пример 2.1

Позвольте мне объяснить код построчно, чтобы лучше понять.

Во-первых, у меня есть объявил переменнуюОбъявлена ​​переменнаяОбъявление переменной необходимо в VBA для определения переменной для определенного типа данных, чтобы она могла содержать значения; любая переменная, не определенная в VBA, не может содержать значения.читать далее как целое число, и для этой переменной я назначил InputBox в VBAInputBox в VBAVBA InputBox — это встроенная функция, используемая для получения значения от пользователя, и у нее есть 2 основных аргумента, то есть заголовок и вопрос. Как только вы нажмете кнопку ENTER или OK, он вернет строку, содержащую содержимое текстового поля. читать далее, где пользователь должен ввести оценку от 0 до 100.

Когда вы запустите код, вы увидите поле ввода, подобное приведенному ниже, и в этом поле ввода вам необходимо ввести оценку.

Пример 2.2

Теперь все, что мы вводим в поле ввода, будет сохранено в переменной ScoreCard.

В следующей строке я применил оператор select case, чтобы проверить этот результат.

Во-первых, он проверит ScoreCard> = 85 или нет. Если это ИСТИНА, то мы получим значение в окне сообщения как «Отличие».

Select Case ScoreCard
    Case Is >= 85
        MsgBox "Distinction"

Точно так же в следующих строках я применил второй тест как ScoreCard> = 60. Если это ИСТИНА, то результат будет отображаться как «Первый».

Case Is >= 60
    MsgBox "First Class"

Подобно этому, я применил и другие тесты, и, в конце концов, я использовал оператор «Case Else». Если все примененные логические тесты — ЛОЖЬ, то мы получим результат «Не пройден».

Case Else
    MsgBox "Fail"

Теперь я ввел 68 в качестве оценки, и мы должны получить результат как «Первый класс» в окне сообщения.

Excel Case Statement, результат 2

Пример № 3 — Использование ключевого слова «Кому»

В приведенном выше примере мы использовали оценки учащихся, чтобы получить результат. Тот же тест можно провести, используя слово «Кому» для определения нижнего и верхнего пределов логического теста.

Код:

Sub Select_Case_Example3()

  Dim ScoreCard As Integer

  ScoreCard = Application.InputBox("Score should be b/w 0 to 100", "What is the score you want to test")

     Select Case ScoreCard
         Case 85 To 100
             MsgBox "Distinction"
         Case 60 To 84
             MsgBox "First Class"
         Case 50 To 59
             MsgBox "Second Class"
         Case 35 To 49
             MsgBox "Pass"
         Case Else
             MsgBox "Fail"
     End Select
End Sub
Пример 3.1

Я использовал тот же код, что и выше, но единственную область желтого цвета, которую я здесь изменил. На основе числа, которое мы вводим в поле ввода, мы получим результат.

Excel Case Statement, результат 3

То, что нужно запомнить

  • Select Case — это альтернатива оператору IF.
  • Выбор случая доступен только с VBA.
  • В первой строке «Select Case» нам нужно указать только то значение, которое необходимо протестировать. Затем в строке «Дело» нам нужно применить логический тест. Это не похоже на наше условие ЕСЛИ.

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *