Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13565 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4815】日付データのコピー auxo 03/4/8(火) 21:10 質問
【4817】Re:日付データのコピー りん 03/4/8(火) 21:22 発言
【4824】Re:日付データのコピー auxo 03/4/9(水) 15:23 お礼
【4815】日付データのコピー
質問  auxo  - 03/4/8(火) 21:10 -
引用なし
パスワード
   日付データを含む数式データの一覧を値データに置き換える為
下記のようにしてみたのですが、日付データがおかしくなってしまいます。

N_data = Range("A5:N14")
Range("A5:N14") = N_data

上記実行後、「2003/4/1」→「4/1/2003」となってしまいます。
書式設定は「yyyy/m/d」のままなので、
「4/1/2003」では日付データとして認識されないようです。
※ システムの日付設定も「yyyy/MM/dd」になっています。

Excel2000だと問題ないのですが、Excel2002(SP2)では上記のように
変換されてしまいます。
Selection.PastSpesial Paste:=xlValues を使っても同様の現象になるのですが
なんとかする方法はないでしょうか。
【4817】Re:日付データのコピー
発言  りん E-MAIL  - 03/4/8(火) 21:22 -
引用なし
パスワード
   auxo さん、こんにちわ。

>日付データを含む数式データの一覧を値データに置き換える為
>下記のようにしてみたのですが、日付データがおかしくなってしまいます。
　気になったので便乗質問です。

Sub TEST()
　　N_data = Range("A5:N14").Value2
　　Range("A5:N14").Value2 = N_data
End Sub

これではどうですか？ちなみに WinMe & XL97 では何もおきませんでした。
【4824】Re:日付データのコピー
お礼  auxo  - 03/4/9(水) 15:23 -
引用なし
パスワード
   りん さんこんにちは。

Value2を使用してみたらうまくいきました。
大変助かりました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13565 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free