Question

我实际上是以编程方式创建工作表，并以编程方式添加带有与这些工作表关联的宏的按钮。我想要做的是，当我点击按钮时，包含该按钮的工作表内容被复制到另一个工作表。

实际上有两件事令我困惑：首先我不明白我与该按钮关联的宏是否位于创建工作表的文件中（我的意思是其代码所在位置）或在创建的工作表中。

以下是我创建的用于添加带有关联宏的按钮的代码：

 With newWorkBook.Worksheets(1).Buttons
        .Add 350, 75, 173.25, 41.25
        .OnAction = "'" & ThisWorkbook.FullName & "'!export_Click"
        .Caption = "Exporter la fiche"
      End With

      newWorkBook.Worksheets("Feuil1").Name = "Valeurs"

checkPVC_Click Sub位于用于生成工作表的Excel文件中的模块中。

其次，在应该将工作表内容复制到另一个工作表的宏中，我不知道如何在代码中不同地引用两个工作表（源和目标）。

在下面的代码中：

Dim newWorkBook As Workbook
Dim createdSheetColumnsTab(100) As String
Dim col As Integer
col = Cells(1, 8).Value

Set newWorkBook1 = Workbooks.Add

newWorkBook1.Worksheets("Feuil1").Cells(1, 1).Value = "Stat"

newWorkBook1.Worksheets("Feuil1").Cells(2, 1) = ActiveWorkbook.Worksheets("Valeurs").Cells(12, 1)

在col = Cells(1, 8).Value行中，我访问了要复制的内容的工作表内容，在newWorkBook1.Worksheets("Feuil1").Cells(1, 1).Value = "Stat"行中我访问了“目标”工作表的内容，我不知道我不知道如何在代码的下面引用第一个工作表的内容来复制内容。

我希望我很清楚，如果有必要，我可以增加更多的精确度，抱歉，我不掌握英语，所以我很难解释这个问题。

Answer 1

您可以将<p><img src="http://placehold.it/100x100"> Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam rhoncus luctus odio, sed sagittis dolor volutpat ut. Pellentesque efficitur orci at nunc fermentum, nec feugiat erat gravida. <a href="about.html">Continue reading</a></p>保留在原始工作簿中。只需确保提供具有该宏的文件的完整路径和名称。例如。请确保您运行此宏的文件至少保存一次。

Sub checkPVC_Click

关于您的第二个问题，您需要完全限定Sub Sample() Dim NewWorkbook As Workbook Set NewWorkbook = Workbooks.Add With NewWorkbook.Worksheets(1).Buttons .Add 350, 15, 173.25, 41.25 .OnAction = "'" & ThisWorkbook.FullName & "'!checkPVC_Click" End With End Sub Sub checkPVC_Click() MsgBox "a" End Sub对象，以便它知道您指的是哪个单元格

Cells将引用托管代码的工作簿中的单元格。

ThisWorkbook将引用当前处于活动状态的工作簿中的单元格。

修改：来自评论的跟进。这是你在尝试什么？

Activeworkbook

Answer 2

要访问包含宏的工作簿的第一个工作表的内容，您需要使用：

Thisworkbook.sheets(1).range("a1:a100") ' range as an example you can input anything

希望它有所帮助。

使用以编程方式添加的宏从工作表写入另一个工作表

2 个答案: