Excel VBA質問箱 IV

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

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


45908 / 76732 ←次へ | 前へ→

【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 質問
【35799】Re:数式、、、 Kein 06/3/13(月) 22:14 回答
【35808】Re:数式、、、 わか 06/3/13(月) 23:03 お礼
【35810】Re:数式、、、 Kein 06/3/13(月) 23:10 回答
【35811】Re:数式、、、 わか 06/3/13(月) 23:42 お礼
【35812】Re:数式、、、 Kein 06/3/14(火) 0:29 発言
【35814】Re:数式、、、 わか 06/3/14(火) 2:18 お礼
【35805】Re:数式、、、 ponpon 06/3/13(月) 22:34 発言
【35809】Re:数式、、、 わか 06/3/13(月) 23:09 お礼

45908 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free