VBA Excel 2016-运行时错误'1004'

Question

我正在尝试基于母版上的5个下拉列表（使用数据验证）将代码从一张纸复制和粘贴到同一工作簿中的母版的代码，并为此编写了以下代码，但是每次我收到运行时1004错误，不知道如何解决，有没有办法解决？

Private Sub GO_Click()
Worksheets("Dashboard").Select
If Worksheets("Dashboard").Range(B3) = "National Gallery" And 
Worksheets("Dashboard").Range(B4) = "unframed" And 
Worksheets("Dashboard").Range(B7) = "Product Costings" And 
Worksheets("Dashboard").Range(B5) = "N/A" And 
Worksheets("Dashboard").Range(B6) = "N/A" Then
Worksheets("(7b)").Activate
Worksheets("(7b)").Range(A8, F23).Copy_
Destination = Worksheets("Dashboard").Range(D11)

Else: MsgBox ("No Data")

End If

End Sub

Answer 1

复制行后，将以下内容放入：

Worksheets("Dashboard").activate
range("D11").pasteSpecial xlpastevalues 'or just paste depends on your need

别忘了将“放在range（” x“）内希望它能起作用

Answer 2

Jean-Pierre Oosthuizen是正确的。 在范围内添加逗号将为您解决1004问题。 现在，以下代码将为您工作。

Private Sub GO_Click()
Worksheets("Dashboard").Activate
If Worksheets("Dashboard").Range("B3") = "National Gallery" And _
Worksheets("Dashboard").Range("B4") = "unframed" And _
Worksheets("Dashboard").Range("B7") = "Product Costings" And _
Worksheets("Dashboard").Range("B5") = "N/A" And _
Worksheets("Dashboard").Range("B6") = "N/A" Then
Worksheets("(7b)").Activate
Worksheets("(7b)").Range("A8", "F232").Copy_
Destination = Worksheets("Dashboard").Range("D11")

Else: MsgBox ("No Data")

End If

End Sub

Answer 3

除非B3 ， B4等是全局变量，否则您要求的是.Range(null)无效。 正如@ Jean-PierreOosthuizen所说 ，您需要.Range("B3") 。

同样，除非您有一个名为 “（7b）”的Worksheets("(7b)")包括括号“（）”），否则对Worksheets("(7b)")引用将接下来失败。

---

奖金代码审查：

请正确的缩进工作-它使你的代码更具可读性！ 未来的您（从现在开始一个星期便会如此）将感谢您的光临。 Rubberduck VBA ^*将为您做到这一点，并指出许多其他可以使您的代码更好的东西，例如：

• 消除Worksheets("Dashboard").Select出色地完成了显式指定所有工作表引用的工作，因此您无需.Select一个。
• 消除Worksheets("(7b)").Activate -与上面相同
• 消除多行Else: MsgBox ("No Data") ，并用两行代码替换它-更具可读性。

^*我还不是Rubberduck项目的贡献者，但是我是一个快乐的用户，并且从他们那里学到了很多关于更好编码的知识