excel - 简化 if 语句

Question

我有几个 if 语句，如下面的一个。我假设这是一种非常糟糕/长期的编码方式，但不确定我应该做些什么不同的事情。有人有什么建议吗？

谢谢

For a = 1 To Leagues
     If a = 1 Then
    SheetName = "E0"
    ElseIf a = 2 Then
        SheetName = "E1"
     ElseIf a = 3 Then
        SheetName = "E2"
      ElseIf a = 4 Then
        SheetName = "E3"
       ElseIf a = 5 Then
        SheetName = "EC"
        ElseIf a = 6 Then
            SheetName = "SC0"
         ElseIf a = 7 Then
            SheetName = "SC1"
          ElseIf a = 8 Then
            SheetName = "SC2"
           ElseIf a = 9 Then
            SheetName = "SC3"
            ElseIf a = 10 Then
                SheetName = "D1"
             ElseIf a = 11 Then
                SheetName = "D2"
              ElseIf a = 12 Then
                SheetName = "SP1"
               ElseIf a = 13 Then
                SheetName = "SP2"
                ElseIf a = 14 Then
                    SheetName = "I1"
                 ElseIf a = 15 Then
                    SheetName = "I2"
                  ElseIf a = 16 Then
                    SheetName = "F1"
                   ElseIf a = 17 Then
                    SheetName = "F2"
                    ElseIf a = 18 Then
                        SheetName = "N1"
                     ElseIf a = 19 Then
                        SheetName = "B1"
                      ElseIf a = 20 Then
                        SheetName = "P1"
                       ElseIf a = 21 Then
                        SheetName = "T1"
                        ElseIf a = 22 Then
                        SheetName = "G1"
    End If

Answer 1

当您将多个选项与单个变体(在您的情况下为 a )进行比较时，它更简单，同时还通过使用 Select Case 提高了可读性而不是 If...Then .

看一看:

Sub test()

    Select Case a
        Case 1
            SheetName = "E0"
        Case 2
            SheetName = "E1"
        Case 3
            SheetName = "E2"
        Case 4
            SheetName = "E3"
        Case 5
            SheetName = "EC"
        Case 6
            SheetName = "SC0"
        Case 7
            SheetName = "SC1"
        Case 8
            SheetName = "SC2"
        Case 9
            SheetName = "SC3"
        Case 10
            SheetName = "D1"
        Case 11
            SheetName = "D2"
        Case 12
            SheetName = "SP1"
        Case 13
            SheetName = "SP2"
        Case 14
            SheetName = "I1"
        Case 15
            SheetName = "I2"
        Case 16
            SheetName = "F1"
        Case 17
            SheetName = "F2"
        Case 18
            SheetName = "N1"
        Case 19
            SheetName = "B1"
        Case 20
            SheetName = "P1"
        Case 21
            SheetName = "T1"
        Case 22
            SheetName = "G1"
    End Select

End Sub

我应该补充一下 Select Case也可以在这种语法中使用(在您的实例中不起作用，但将来要记住一些事情):

Select Case a
    Case 1 To 5
        sheetname = "E0"
    Case 6, 8 To 9
        sheetname = "E1"
    Case 7
        sheetname = "E2"
    Case Else
        sheetname = "Blah"
End Select