Question

我有一个带有破折号的部件列表（例如1230-921），我想找到与列表中的部件有关的某些信息来进行操作。具体来说，我想将零件中的值复制并粘贴到另一个工作表中。我有一个包含部件列表的下拉菜单。我有一张纸上的数据按照之前提到的部件号排序。在另一张纸上，我想输入PN和veiw从数据表中选择存储的信息

Sub Recommend_2()

Dim somearray(28) As Variant
Dim i As Integer
Dim ALT As Variant
For i = 1 To 28
    ALT = Worksheets(3).Range("B15").Value
        Select Case ALT
            Case "1230-921"
                Worksheets(3).Range("C16").Copy
                Worksheets(3).Range("B5").PasteSpecial
            Case Else
                MsgBox "Error"
        End Select
Next i

End Sub

到目前为止，这对我来说是最好的。问题是它无法找到Case并返回28个错误。我已经改变了Dimension变量，整个九码的范围位置。任何帮助都是受欢迎的，即使是一个新想法。

总结）

我想从下拉菜单中找到该部分
我希望能够从列表中的部分内操作值
我想为28个部分做这个

Answer 1

如果没有实际的电子表格，我不确定会发生什么，但我建议您在错误中加入ALT。

   ALT = Worksheets(3).Range("B15").Value
    Select Case ALT
        Case "1230-921"
            Worksheets(3).Range("C16").Copy
            Worksheets(3).Range("B5").PasteSpecial
        Case Else
            MsgBox "Error: Value Found was:" & ALT
   End Select

为什么赢得我的选择案例会找到价值？

1 个答案: