セルの書式設定

質問

ＶＢＡで時刻の列を別シートにＣＯＰＹしたところ、
セルの書式設定まではコピーされず、
ハチャメチャな数字が表示されてしまいました。

セルの書式設定もコピーできないでしょうか？

Sheets("Sheet3").Columns(1).Value = Sheets("Sheet1").Columns(1).Value
でやってます。

回答No.1

imogasi · ベストアンサー

NumberFormatLocalプロパティを使えば良いでしょう。
私のクセでValueは省略。
．NumberFormatLocal = "yyyy/m/d"で日付書式を指定も
できます。
Columns(1)でも出来るでしょう。
Sub test01()
Worksheets("sheet2").Cells(1, 1).NumberFormatLocal = _
Worksheets("sheet1").Cells(1, 1).NumberFormatLocal
Worksheets("sheet2").Cells(1, 1) = Worksheets("sheet1").Cells(1, 1)
End Sub

お礼

なるほど！
できました！