|
▼yuu さん:
こんばんは。
>VBAにて日付をコピーして、別なシートに貼り付けると文字が数字で出ます。
>例えば、2005/2/28(金)をコピーして、別なシートへ貼り付けるVBAを実行
>すると0.3958333とかの数字で表示されてしまいます。セルの書式は日付に設定しているのですが、教えてください。
そのVBAコードを記述して下さい。
以下のコードは、
アクティブシートのセルA1に2005/2/28を設定し(書式設定により
2005/2/28(月)と表示されます)、
このセルA1の値を右隣のシートのセルC1に移行します。
この時、C1に書式は曜日を削除した日付に設定しています。
よって、アクティブシートの右隣にシートが存在しなければ
なりません。
新規ブックの標準モジュールに
'==========================================
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
上記のコードでうまく行くようならご自分のコードと比較してください。
|
|