Question

我有一张Excel工作表，我正在尝试制作一个演练类型的东西，用于培训新员工。从本质上讲，我希望有一个下拉菜单（已经有）填充了选项，然后是一个命令按钮，它将检查下拉单元格的内容，并将表格从隐藏的工作表复制粘贴到主工作表上。出于某种原因，我无法让按钮工作。这是我到目前为止所得到的：

Private Sub button_desk_Click()
Application.ScreenUpdating = False
'Create Table
If Worksheets("Walkthrough").Range("A2").Value2 = "Getting your desk set up" Then
    Sheets("Settings").Select
    Range("lookup_desksetup[[#All],[Getting your desk setup]]").Select
    Selection.Copy
    Sheets("Walkthrough").Select
    Range("B5").Select
    ActiveSheet.Paste
End If
Application.ScreenUpdating = True
End Sub

我为此尝试了一些不同的方法，包括不使用.Select命令，但我似乎无法正常工作。

Answer 1

Sheets("Settings").Select
Range("lookup_desksetup[[#All],[Getting your desk setup]]").Select
Selection.Copy
Sheets("Walkthrough").Select
Range("B5").Select
ActiveSheet.Paste

是一种冗长的说法

Sheets("Settings").Range("lookup_desksetup[[#All],[Getting your desk setup]]").copy _
               destination:= Sheets("Walkthrough").Range("B5")

但我怀疑你的问题是＆＃34; lookup_desksetup [[＃All]，[让你的桌面设置]]＆＃34;是一个非常有趣的范围名称，可能实际上不存在该表中的有效名称？

命令按钮根据单元格值粘贴表

1 个答案: