|
こんにちは。
無頼斎です。また、よろしくお願いします。
データタブの集計により、集計されたシートに誤って
別シートからコピーされないようにするためには、
どのようなマクロを入れたら良いでしょうか?
下は、コピーのマクロです。
よろしく、ご教示下さい。
Sub コードコピー3()
'
' コードコピー3 Macro
' マクロ記録日 : 2006/4/28 ユーザー名 : 無頼斎
'
'
Range("G2:M2291").Select
Selection.Copy
Sheets(Array("code(3)", "受験級(3)", "総金額(3)")).Select
Sheets("受験級(3)").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Array("code(3)", "受験級(3)", "総金額(3)")).Select
Sheets("総金額(3)").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Array("code(3)", "受験級(3)", "総金額(3)")).Select
Sheets("code(3)").Activate
Application.CutCopyMode = False
Range("A2").Select
Sheets("code(3)").Select
Range("A2").Select
End Sub
|
|