| |
▼yuu さん：
こんばんは。
>VBAにて日付をコピーして、別なシートに貼り付けると文字が数字で出ます。
>例えば、2005/2/28(金)をコピーして、別なシートへ貼り付けるＶＢＡを実行
>すると0.3958333とかの数字で表示されてしまいます。セルの書式は日付に設定しているのですが、教えてください。
そのＶＢＡコードを記述して下さい。
以下のコードは、
アクティブシートのセルＡ１に2005/2/28を設定し（書式設定により
2005/2/28(月)と表示されます）、
このセルＡ１の値を右隣のシートのセルＣ１に移行します。
この時、Ｃ１に書式は曜日を削除した日付に設定しています。
よって、アクティブシートの右隣にシートが存在しなければ
なりません。
新規ブックの標準モジュールに
'==========================================
Sub test()
With ActiveSheet.Range("a1")
.NumberFormatLocal = "yyyy/m/d(aaa)"
.Value = #2/28/2005#
ActiveSheet.Next.Range("c1").Value = .Value
End With
With ActiveSheet.Next.Range("c1")
.NumberFormatLocal = "yyyy/m/d"
End With
End Sub
上記のコードでうまく行くようならご自分のコードと比較してください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
