Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45912 / 76736

←次へ　｜　前へ→


	【35809】Re:数式、、、

わか - 06/3/13(月) 23:09 -


	引用なし

	パスワード

レスありがとうございます。

>こんばんは。
>
>以下マクロは、シート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

0 hits

▼

【35797】数式、、、 わか 06/3/13(月) 21:53