Кейс без выбора кейс для строковых кейсов - PullRequest
Новая
       22

Кейс без выбора кейс для строковых кейсов

0 голосов
/ 04 мая 2018

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

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

Я сейчас получаю сообщение об ошибке:

Ошибка компиляции: регистр без выбора регистра

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

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

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

1 Ответ

0 голосов
/ 04 мая 2018

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

If RF.DollarPerWar < Cells(i, 8).Value Then Set RF = AssignPlayer(RF, CurrentPlayer)
...