在vba中错误代码“无法查找项目或库”

Question

我正在制作一个带有一些用户表单的vba项目。我希望人们点击宏按钮，然后需要选择他们的首字母，然后通过togglebutton点击他们想去度假的周，然后点击转移。到目前为止，我已经完成了，如果他们点击一个首字母，那么该值将打印到一个单元格。下一个用户窗体（userform2）将需要查找值，以确定将打印值的行。

但是我在选择案例代码时遇到错误。

Private Sub CommandButton1_Click()

Dim score As Integer, result As String
    score = ActiveSheet.Range("A19").Value

    Select Case score
        Case Is = "CTK"
            result = Something
        Case Is = "MogM"
            result = Something1
        Case Is = "KSJI"
            result = Something2
        Case Is = "TSLR"
            result = Something3
        Case Is = "JOHQ"
            result = Something4
        Case Is = "OLGJ"
            result = Something5
        Case Is = "CBJN"
            result = Something6
        Case Is = "JVLK"
            result = Something7
        Case Is = "JFP"
            result = Something8
        Case Is = "EVAD"
            result = Something9
        Case Is = "TKUP"
            result = Something10
        Case Else
        MsgBox ("Didn't find anyone with these init")
Range("A20").Value = result
End Select

End Sub

Private Sub ToggleButton1_Click()

End Sub

我解决了编码问题，但现在我遇到了一个新问题。是否有可能简化它？

Private Sub CommandButton1_Click()

Dim score As Integer, result As String
    score = ActiveSheet.Range("A19").Value

         Select Case score
            Case Is = "1"
                result = "CTK"
            Case Is = "2"
                result = "MogM"
            Case Is = "3"
                result = "KSJI"
            Case Is = "4"
                result = "TSLR"
            Case Is = "5"
                result = "JOHQ"
            Case Is = "6"
                result = "OLGJ"
            Case Is = "7"
                result = "CBJN"
            Case Is = "8"
                result = "JVLK"
            Case Is = "9"
                result = "JFP"
            Case Is = "10"
                result = "EVAD"
            Case Is = "11"
                result = "TKUP"
            Case Else
            MsgBox ("Didn't find anyone with these init")
End Select
Range("A20").Value = result

'CTK opportunities
If result = "CTK" And ToggleButton1 = True Then Range("B4").Value = "X"
If result = "CTK" And ToggleButton2 = True Then Range("C4").Value = "X"
If result = "CTK" And ToggleButton3 = True Then Range("D4").Value = "X"
If result = "CTK" And ToggleButton4 = True Then Range("E4").Value = "X"
If result = "CTK" And ToggleButton5 = True Then Range("F4").Value = "X"
If result = "CTK" And ToggleButton6 = True Then Range("G4").Value = "X"
If result = "CTK" And ToggleButton7 = True Then Range("H4").Value = "X"
If result = "CTK" And ToggleButton8 = True Then Range("I4").Value = "X"
If result = "CTK" And ToggleButton9 = True Then Range("J4").Value = "X"
If result = "CTK" And ToggleButton10 = True Then Range("K4").Value = "X"
If result = "CTK" And ToggleButton11 = True Then Range("L4").Value = "X"
If result = "CTK" And ToggleButton12 = True Then Range("M4").Value = "X"

'Next person


Unload Me
End Sub