Excel VBA脚本索引错误

我现在正在寻找一个半小时的修复程序。 我得到了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

整数是一个数字。 如果你写If d = "High"你比较整数与string

所以定义另一个variablesDim v As String然后你可以赋值v = Worksheets("Control").Cells(9, 2).Value并用If v = "High" Then检查它。