Excel vba将组合框值设置为多张图纸中的多个单元格

Excel vba将组合框值设置为多张图纸中的多个单元格,excel,vba,Excel,Vba,我有3个组合框和一个OK按钮,我需要将多个工作表中多个单元格的值设置为组合框选择的值 Dim choice As String Dim x As Variant x = Array("STD BASE DD", "STD BASE CAB DOOR ONLY", "OPEN BASE CABINET", _ "1 DRAWER BASE & OPEN", "2 DRAWER BASE", "3 DRAWER BASE", "4 DRAWER BASE", _ "5 DR

我有3个组合框和一个OK按钮,我需要将多个工作表中多个单元格的值设置为组合框选择的值

Dim choice As String
Dim x As Variant

x = Array("STD BASE DD", "STD BASE CAB DOOR ONLY", "OPEN BASE CABINET", _
    "1 DRAWER BASE & OPEN", "2 DRAWER BASE", "3 DRAWER BASE", "4 DRAWER BASE", _
    "5 DRAWER BASE")

    choice = matsetup.ComboBox1.Value

   Worksheets(x).Range("H14,H15,H20").Value = choice
这导致错误对象不支持属性或方法

Worksheets(x).Range("H14,H15,H20").Value = choice
有人知道一个工作环境吗这行吗

Worksheets(x).Range("H14").Value = choice
Worksheets(x).Range("H15").Value = choice
Worksheets(x).Range("H20").Value = choice

也许你在找这样的东西

Dim choice As String
Dim x As Variant
Dim v As Variant

x = Array("STD BASE DD", "STD BASE CAB DOOR ONLY", "OPEN BASE CABINET", _
          "1 DRAWER BASE & OPEN", "2 DRAWER BASE", "3 DRAWER BASE", _
          "4 DRAWER BASE", "5 DRAWER BASE")

choice = matsetup.ComboBox1.Text

For Each v In x
    Worksheets(v).Range("H14,H15,H20").Value = choice
Next v

嗨,欢迎来到苏。我看没有问题。设置值时是否有问题,或者代码是否抛出错误?请阅读“如何提问”部分,我似乎没有链接来理解您应该如何提供以及提供什么样的信息我的道歉我编辑了我的原始帖子x一个在您的文件中存储工作表名称的数组?如果我假设它是正确的,您需要迭代x的元素以使其工作,如果这是您需要的,我可以帮助您处理代码行。no still gives object不支持属性或方法