Excel VBA腳本索引錯誤

Question

我現在正在尋找修復程序的半小時。我得到了3個可能的值（低，中，高），我希望d是從1到3的值。我運行腳本時出現錯誤。

Sub GetStructure() 

Dim d As Integer 
Dim i As Integer 
Dim z As Integer 
Dim k As Integer 
Dim o As Integer 
Dim o2 As Integer 

    i = Worksheets("Control").Cells(14, 2).Value 
    d = Worksheets("Control").Cells(9, 2).Value 

    If d = "High" Then 
    d = 3 
    End If 

    If d = "Mid" Then 
    d = 2 
    End If 

    If d = "Low" Then 
    d = 1 

    End If 

Answer 1

您定義Dim d As Integer

一個Integer是一個數字。如果你寫If d = "High"你比較一個Integer和String

所以定義另一個變量Dim v As String那麼你可以分配v = Worksheets("Control").Cells(9, 2).Value與If v = "High" Then的所有情況進行檢查。