0

Excel 2010では、誰かが[移動]または[新しいブックにコピー]をクリックした後、新しいブックで次のステートメントを実行する必要があります。

Sub CSAColorFormattingSSRS2008()
      ActiveWorkbook.Colors = Workbooks("Book4").Colors
End Sub

問題は、「Book4」がシートの元のワークブックであるということですが、このワークブックの名前は変更される可能性があります。コピー元のブック名を変更してこれを行う方法はありますか？このマクロをすべての人に実行するためのボタンを作成しようとしていますが、過去の本の名前はすべて常に異なります。

4

1 に答える 1

1

あなたはこのようなことをすることができます、そこでボタンはそれらのためにコピー操作をして、そして次に色を設定します。

Option Explicit

Sub CopySetColor()
Dim strWkb As String, strSheet As String
strWkb = ThisWorkbook.Name
strSheet = ActiveSheet.Name

'get Workbook name to copy to -> ensure that only 2 workbooks are open, this and the one you want to copy to
Dim wkb As Workbook, wkbCopyTo As Workbook

For Each wkb In Workbooks

    If wkb.Name <> strWkb Then

        Set wkbCopyTo = wkb
        Exit For

    End If

Next

Sheets(strSheet).Copy Before:=wkbCopyTo.Sheets(1)

CSAColorFormattingSSRS2008 strWkb

End Sub

Sub CSAColorFormattingSSRS2008(strName As String)

      ActiveWorkbook.Colors = Workbooks(strName).Colors

End Sub
于 2013-02-07T20:05:35.140 に答える