Excel VBA質問箱 IV

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

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


45916 / 76736 ←次へ | 前へ→

【35805】Re:数式、、、
発言  ponpon  - 06/3/13(月) 22:34 -

引用なし
パスワード
   こんばんは。

以下マクロは、シート2のA1にいろいろ書式設定し、
シート4のA1に値と、書式と列幅をコピペします。
参考になれば・・・・はずしたかな?

PasteSpecialを調べると良いと思います。

Sub test()
 
Sub test()
 
 With Sheets("Sheet2")
   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
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 お礼

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