工作表参考同一工作簿中的另一个工作表

Question

我有一张excel表，其中包含表格，图表等。我需要在同一工作簿或其他工作簿中复制相同的工作表。这是为了允许用户打印。只会更改重复工作表的格式，其余部分将从源保持不变。 希望我的问题很明确。 感谢您的帮助。

Answer 1

=＆＃39; {sheet name}＆＃39;！{cell ref}

将{sheet name}替换为实际的工作表名称，将{cell ref}替换为a1

要复制表格中的所有内容，请检查以下链接;

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/sheets-copy-method-excel

Answer 2

1. 开始录制宏
2. 复制源表
3. 更改新表格中的格式
4. 停止录制宏

Answer 3

以下代码是您可以做的一个示例。

将原始工作表复制到新工作簿中，并根据需要格式化工作表。

Sub CopySheetToNewAndFormat()

    'copy sheet 1
    ThisWorkbook.Sheets("Sheet1").Copy
    'set new workbook
    Set NewWorkbook = ActiveWorkbook

    With NewWorkbook
        With .Sheets("Sheet1")

            'formatting example with range
            With .Range(.Cells(1, 2), .Cells(5, 5))
                'borders
                .Borders(xlEdgeBottom).LineStyle = xlContinuous
                .Borders(xlEdgeBottom).Weight = xlThin
                'aligment
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter

                'color
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorAccent1
                    .TintAndShade = 0.799981688894314
                    .PatternTintAndShade = 0
                End With
            End With
        End With
    End With

End Sub

对于更多格式化选项，您可以在手动格式化工作表时记录宏，并查看生成的代码/参考。

编辑：因为您可能正在录制宏来检查格式选项，请仔细阅读 - How to avoid using select in excel-VBA

Answer 4

有很多方法可以做到这一点。在iO上制作副本，转到“文件”，然后单击“下一步管理凭据限制权限”。

根据需要自定义。