
データを別シートに転記するVBAコードを書いていて気付きました。
日付データをバリアント型の配列に入れて、再度書き出すと 21/2/2005 のように表示され、さらに日付ではなく、文字列になってしまいました。
具体的には下記のような内容です。Sheet1 の A1:A10 に 2005/2/21 のような日付が入力されています。
1. セル範囲のデータをバリアント型の配列に格納
2. 1.を別のセルへ一括転記を行う
Sub TestMacro()
Dim Buf As Variant
With Sheets("Sheet1").Range("A1:A10")
Buf = .Value '・・・(1)
.Offset(0, 3) = Buf '・・・(2)
End With
End Sub
ウォッチ式で変数を確認すると(1)および(2)の時点では #05/02/21# Variant/Date型 と正しく日付として扱われているようです。しかし、転記されたセルを見てみると、「文字列で 21/2/2005 」となっているのです。
2005/2/21 が返されるものと思うのですが、なぜ、このような現象が起こるのでしょうか?何かとんでもない勘違いをしているのでしょうか?
テスト環境は Win98SE + EXCEL2002 です。よろしくお願いします。
No.5ベストアンサー
- 回答日時:
#3です。
#4の補足は、Win95 + Excel97 の環境では下記の通りとなりました。
1.新規シートでそのまま実行する。
全て 2005/2/25(セル書式:日付)
2.新規シートで .NumberFormat = "yyyy/m/d" を全てコメントアウトして実行
直接 2005/2/25(セル書式:日付)
Variant型変数 2005/2/25(セル書式:日付)
DATE型配列 38408(セル書式:標準)
Variant型配列 2/25/05(セル書式:日付)
最初のレス(#3)は WinXP Home + Excel2000 の環境で書き、問題なかったので
Excel2002というのがポイントなのかも。
この回答への補足
お礼欄が2つ無いので、補足欄ですが、お礼申し上げます。
会社の Windows98SE + EXCEL2000 の環境では、本質問の現象は発生しませんでした。したがって、papayuka さんのご指摘どおり、EXCEL2002の問題のようです。
【Microsoft サポートオンライン】より抜粋
XL2002: 1 つの範囲からプログラムでほかにデータを移動すると、日付書式が失われます。
http://support.microsoft.com/default.aspx?scid=k …
上記のMSサイトで、EXCEL2002の問題であることを確認しました。OFFICEのサービスパック3で修正されているとのことでしたので、本質問は解決です。
日付が文字列にデータ型が変わるのではなく、「日付書式が失われる」トラブルでした。余談ですが、EXCEL97でも同様のトラブルがあるみたいです。#5のご回答で、
>2.新規シートで .NumberFormat = "yyyy/m/d" を全てコメントアウトして実行
> Variant型配列 2/25/05(セル書式:日付)
というコードの実行結果をいただきましたが、本来は、転記先のセル表示形式が「標準」であっても、2005/2/1と日本語表記の日付となるはずです。papayuka さんの結果を見ると、これが原因みたいですね。
ありがとうございました。
papayuka さま
何度もご回答いただき、ありがとうございます。また、貴重な情報のご提供感謝いたします。
>最初のレス(#3)は WinXP Home + Excel2000 の環境で書き、問題なかったので
Excel2002というのがポイントなのかも。
早速、会社のPCで試してみます。
No.4
- 回答日時:
#3です。
参考ですが、 Win95 + Excel97 ではOKでしたよ。
この回答への補足
自宅PC(WinXPpro+Excel2002)で以下のコードを実行すると、やはりダメですね。バリアント型の配列に代入し、一括転記すると日付が英語表記になり、文字列となります。バリアント型の変数へ代入した場合は、大丈夫でした。混乱してます。
Sub TestMacro2()
Dim myDate As Date
Dim VarDate As Variant
Dim datBuf(0 To 9) As Date
Dim varBuf(0 To 9) As Variant
myDate = #2/25/2005#
'直接転記
Range("A1").Value = "直接"
With Range("A2:A10")
.NumberFormat = "yyyy/m/d"
.Value = myDate
End With
'Variant型変数経由で転記
Range("B1").Value = "Variant型 変数"
VarDate = myDate
With Range("B2:B10")
.NumberFormat = "yyyy/m/d"
.Value = myDate
End With
'DATE型配列に代入し転記
Range("C1").Value = "DATE型 配列"
For i = 0 To 9
datBuf(i) = myDate
Next i
With Range("C2:C10")
.NumberFormat = "yyyy/m/d"
.Value = datBuf
End With
'Variant型配列に代入し転記
Range("D1").Value = "Variant型 配列"
For i = 0 To 9
varBuf(i) = myDate
Next i
With Range("D2:D10")
.NumberFormat = "yyyy/m/d"
.Value = varBuf
End With
Columns("A:D").AutoFit
End Sub
No.3
- 回答日時:
#1さんの回答で良いと思うのですが、、、
元のセルと転記するセルのフォーマットを調べましたか?
Sub TestMacro()
Dim Buf As Variant
With Sheets("Sheet1").Range("A1:A10")
Debug.Print .NumberFormat
Buf = .Value
' .Offset(0, 3).NumberFormat = .NumberFormat '(※)
Debug.Print .Offset(0, 3).NumberFormat
.Offset(0, 3) = Buf
End With
End Sub
C列を文字列にして実行した場合、イミディエイトウィンドウには
m/d/yyyy
@
と返され、セルには 2/1/2005 のように文字列で返されました。
※を有効にした場合は
m/d/yyyy
m/d/yyyy
となり、セルも 2005/2/1 となりましたよ。
ご回答ありがとうございます。
>元のセルと転記するセルのフォーマットを調べましたか?
はい、調べました。試した内容は
1. セルの表示形式を標準または日付に手動設定してからマクロを実行してみる
2. マクロで、転記先セルにNumberFormatでyyyy/m/dに設定してから転記する
です。結果はともにダメでした。ご教示いただいたコードも結果変わらずで、表示形式はyyyy/m/d になっていましたが、値はやはり2/1/2005 文字列でした。英語圏の日付表示形式ですから、日本語版EXCELで文字列として認識されてしまうのは止むを得ないとしても、なぜd/m/yyyy形式で転記されるのか?が疑問です。
No.2の方の補足欄でご報告いたしたましたが、別のPC(Win2000 + Excel2000)では、ちゃんと日付(yyyy/m/d)でセルに転記されました。当方で調べた範囲では、
Windows2K、XP ---> OK
Windows9X、ME ---> NG
でしたので、OSの問題なのかなと思うのですが、これといった確証がありません。
No.2
- 回答日時:
コントロールパネルの地域設定の中の「日付」の書式に影響される場合があります。
設定はどのようになっていますか?
参考URL:http://www.bsl-jp.com/support/rakuda/kyoutuu/sup …
この回答への補足
ご回答ありがとうございます。
コントロールパネルの[地域]-[日付]タブで
短い形式: yy/MM/dd
となっていました。参考URL先に従い、
短い形式: yyyy/MM/dd
としてみましたが、結果変わらずでした。これから、OSを再起動してみます(TT)
OSを再起動してみましたが、結果変わらずでした。
ところがです。Win2000 + Excel2000 の別のPCで試したら、ちゃんと日付で返されました。
ということは、、Windows98の問題なのでしょうか?
Windows Updateはちゃんと行っています。
No.1
- 回答日時:
Buf = .Value '・・・(1)
.Offset(0, 3).NumberFormatLocal = "yyyy/mm/dd"
.Offset(0, 3) = Buf '・・・(2)
書式が文字列に先に定義されているからでしょう。データ転記の前に書式を日付にしてしまえばよいのではないかと。
早速ありがとうございます。
アドバイス頂いたとおり、やってみましたが、結果は変わらずでした。
結果:日付型 2005/2/21 --> 文字列型 21/2/2005
現在作成しているデータ転記プロシージャは、データ型を問わず対応できる汎用的なものにしたいと考えています。つまり、どのフィールドにどの型のデータが代入されるかは不明ですから、転記された文字列 21/2/2005 を後から日付データに変換するような方法をとれません。
EXCEL(VBA)の仕様なのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
VBAで○○:○○と表示させたいのに小数で0.53125のように表示さ
Access(アクセス)
-
-
4
配列のペースト出力結果の書式について
Visual Basic(VBA)
-
5
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
6
VBAでシート書式の自動変換を作動させない方法
Excel(エクセル)
-
7
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
8
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
9
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
10
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
11
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
押したボタンの位置取得(共通のマクロ)
Excel(エクセル)
-
14
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
15
Excel VBAでCSVファイルを読込むと何故か文字列が日付に変換さ
その他(Microsoft Office)
-
16
読み込みで一行おきに配列に格納
Visual Basic(VBA)
-
17
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
20
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
特定の色のついたセルを削除
-
VBA:日付を配列に入れ別セルに...
-
Excel UserForm の表示位置
-
C# DataGridViewで複数選択した...
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
【VBA】【ユーザーフォーム_Lis...
-
エクセルのカーソルを非表示に...
-
エクセルVBAで、セル内のテキス...
-
入力規則のリスト選択
-
データグリッドビューの結合セ...
-
マクロ初心者です。 マクロで範...
-
マクロのコマンドボタンの位置...
-
複数指定セルの可視セルのみを...
-
DataGridViewでグリッド内に線...
-
EXCEL VBA 文中の書式ごと複写...
-
【エクセルVBA】FindNextで検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excelで空白セル直前のセルデー...
-
エクセルVBA 配列からセルに「...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
【VBA】【ユーザーフォーム_Lis...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA:日付を配列に入れ別セルに...
-
C# DataGridViewで複数選択した...
-
Excel UserForm の表示位置
-
入力規則のリスト選択
-
Excel 範囲指定スクショについ...
-
エクセル、マクロで番号を読込...
-
DataGridViewでグリッド内に線...
-
Excel VBAで特定の範囲の空白セ...
-
CellEnterイベント仕様について
-
Excel VBAでCheckboxの名前を変...
-
【ExcelVBA】値を変更しながら...
-
データグリッドビューの結合セ...
-
下記のマクロの説明(意味)を...
おすすめ情報