Question

我已经在一个由宏更新的单元格中写入了数据 - 它根据某人所谓的新工作表附加了一个引用。

在Cell A1中，我最终得到了使用新工作表名称更新的宏代码。目前，用户必须复制此文本并打开另一个宏并粘贴代码，但是他们仍然做错了并打破了它。

我想要做的是编写一个宏来复制Cell A1的内容并将它们粘贴到原始宏中。

是否可以这样做？

Answer 1

Sub aaa()
    For i = 1 To Application.VBE.CodePanes.Count
    Application.VBE.CodePanes(i).CodeModule.ReplaceLine 1, "alert('Yo')  ' New code"
Next i

Answer 2

我知道这不是你问题的答案，但我只是提供一些信息。我建议您没有用户在每个工作表中创建一个宏。您可以从模块访问任何工作表上的任何内容。我不确定你的整个过程是什么，但你可以更多地考虑寻找你想要改变的床单。

Public sub ProcessSheets()
    Dim ws As Excel.Worksheet
    Dim iIndex As Integer

    'Loop through all the worksheets in the workbook.
    For iIndex = 1 To ActiveWorkbook.Worksheets.count

        'Activate the current sheet, if you need to.
        Set ws = Worksheets(iIndex)
        ws.Activate

        'Check the name of the worksheet.
        If Left(ws.Name, 2) = "HD" or Left(ws.Name, 2) = "ER" Then

            'Call the function that changes the worksheet here.
            'Maybe feed it the worksheet name.
            UpdateWorksheet ws.Name

        End if

    Next iIndex
End Sub

是否可以将数据从单元格复制到宏中？

2 个答案: