|
レスありがとうございます。
>こんばんは。
>
>以下マクロは、シート2のA1にいろいろ書式設定し、
↑こちらもシート3ではないですか?
>シート4のA1に値と、書式と列幅をコピペします。
>参考になれば・・・・はずしたかな?
>
>PasteSpecialを調べると良いと思います。
>
>Sub test()
>
>Sub test()
>
> With Sheets("Sheet2")
↑こちらもSheet3ではないですか?
> With .Range("A1")
> .Formula = "=1+3"
> .BorderAround Weight:=xlThick
> .Interior.ColorIndex = 3
> End With
> .Range("A1").Copy
> End With
> With Sheets("Sheet4")
> With .Range("A1")
> .PasteSpecial Paste:=xlPasteValues
> .PasteSpecial Paste:=xlPasteColumnWidths
> .PasteSpecial Paste:=xlPasteFormats
> End With
> End With
> Application.CutCopyMode = False
>
>End Sub
試してみた所、Sheet2とSheet4のA1に赤いセルで4と表示されただけでした。
丁寧に書いていただいたのですが、マクロに関してはかなりの初心者なので、理解できませんでした。
もうちょっとしっかり勉強しますm(__)m
|
|