用於在整個工作簿中填充單元格的Excel封面

-1

我正在嘗試爲Excel工作簿創建封面，用戶將填充這些單元格，然後宏將其粘貼到工作簿中的所有工作表中。用於在整個工作簿中填充單元格的Excel封面

封面要求提供D列和I列單元格中的信息，這些信息可能在整個工作簿中很常見。我正在嘗試儘快填寫此工作簿。

我對Excel VBA有基本的瞭解，但需要幫助寫這個，謝謝。

2016-06-28 A. Reid

這是非常廣闊的。如果您對Excel VBA有基本的瞭解，那麼您肯定已經爲此任務編寫了一些代碼？聽起來好像你只需要在表格中循環並填充一些單元格。輸入數據的用戶表單也可能是一個解決方案（取決於輸入的數據）。 – arcadeprecinct

對不起，我很抱歉。我只有我從這個網站獲得的代碼，比如'Set targetRange = newSheet。[A1]''ActiveWorkbook.Sheets（1）.Range（「A1：Q1」）。Copy targetRange' 所以我明白了複製在活動工作表上，但我不確定如何複製可能不活動的多個工作表。 –

你說你知道如何使用'ActiveSheet'，但不知道如何引用其他工作表，但是你的示例包含多個對工作表的引用（不必是活動的）。 '表單（1）'和'newSheet'用於指定特定表單上的範圍，而「ActiveSheet」根本不用。 – arcadeprecinct

您的代碼使用像這樣

Sub Main 
    Dim cellsToCopy As Range 
    Dim shtNames as Variant, shtName As Variant 

    Set cellsToCopy = Worksheets("CoverSheet").Range("D5, D11, I3, I12") '<--| change both "CoverSheet" name and its cells address list to fit your needs 

    shtNames = Array("firstSheet", "secondSheet", "thirdSheet") '<--| change sheets names to paste cellsToCopy values into 

    For Each shtName in shtNames 
    Worksheets(shtName).Range(cellsToCopy.Address).Value = cellsToCopy.Value 
    Next shtName 

End Sub

來源

2016-06-28 09:32:52 user3598756

用於在整個工作簿中填充單元格的Excel封面

回答

相關問題