WedX - журнал о программировании и компьютерных науках

Регистр без выбора регистра для строковых регистров

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

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

В настоящее время я получаю сообщение об ошибке:

Ошибка компиляции: случай без выбора случая

Я предполагаю, что это какая-то ошибка форматирования, но я не смог найти в Интернете ничего, что бы это исправило.

Position = "test"
        Select Case Position
            Case "C"
                If C.DollarPerWar < Cells(i, 8).Value Then
                    Set C = AssignPlayer(C, CurrentPlayer)
            Case "1B"
                If B1.DollarPerWar < Cells(i, 8).Value Then
                    Set B1 = AssignPlayer(B1, CurrentPlayer)
            Case "2B"
                If B2.DollarPerWar < Cells(i, 8).Value Then
                    Set B2 = AssignPlayer(B2, CurrentPlayer)
            Case "3B"
                If B3.DollarPerWar < Cells(i, 8).Value Then
                    Set B3 = AssignPlayer(B3, CurrentPlayer)
            Case "SS"
                If SS.DollarPerWar < Cells(i, 8).Value Then
                    Set SS = AssignPlayer(SS, CurrentPlayer)
            Case "LF"
                If LF.DollarPerWar < Cells(i, 8).Value Then
                    Set LF = AssignPlayer(LF, CurrentPlayer)
            Case "CF"
                If CF.DollarPerWar < Cells(i, 8).Value Then
                    Set CF = AssignPlayer(CF, CurrentPlayer)
            Case "RF"
                If RF.DollarPerWar < Cells(i, 8).Value Then
                    Set RF = AssignPlayer(RF, CurrentPlayer)
        End Select

Любая помощь будет оценена по достоинству!

excel vba case select-case
04.05.2018

  • Ни у одного из ваших If нет End If. Либо добавьте End If к каждому, либо сделайте весь оператор if в одну строку. 04.05.2018
  • как упоминал @VictorK, добавьте End if к своим IF или используйте этот оператор условия `IF` THEN:. 04.05.2018
  • Или вы можете продолжить строку, поставив `_` после каждого Then и сделать If одной строкой, если. 04.05.2018
  • FWIW с использованием индентера (примечание: эта онлайн-демонстрация требует реальной области действия, т. е. вам потребуется Sub...End Sub, чтобы она работать) сделало бы проблему сразу очевидной ;-) 04.05.2018

Ответы:


1

Убейте свою новую строку в своем операторе if. Они должны быть одной строкой, как показано ниже:

If RF.DollarPerWar < Cells(i, 8).Value Then Set RF = AssignPlayer(RF, CurrentPlayer)
04.05.2018
  • Или добавьте End If в строку ниже. 04.05.2018
  • Да, но это не нужно, если нет другого. Меньше красиво ???? 04.05.2018
  • Я думаю, что использование продолжения строки _ вместо того, чтобы делать все одной длинной строкой, будет легче читать, если вы не собираетесь использовать End If. 05.05.2018
    • Новые материалы
    Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что это выглядит сложно…
    Просто начните и учитесь самостоятельно Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что он кажется мне сложным, и я бросил его. Это в основном инструмент..
    Лицензии с открытым исходным кодом: руководство для разработчиков и создателей
    В динамичном мире разработки программного обеспечения открытый исходный код стал мощной парадигмой, способствующей сотрудничеству, инновациям и прогрессу, движимому сообществом. В основе..
    Объяснение документов 02: BERT
    BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..
    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
    Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
    Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
    Для любых предложений по сайту: [email protected]