エクセルの学校：全文検索：Hyper Estraier：日付

Results of 1 - 1 of about 13164 for 日付 (0.003 sec.)

[[20201117104449]]: #score: 2423; @digest: 45df144ca35bf764467d8c04ce5decc3; @id: 85801; @mdate: 2020-11-17T03:24:50Z; @size: 3972; @type: text/plain; #keywords: csvname (14900), 付+ (7613), 型( (6669), lastcol (6181), 刻日 (5390), 刻[ (4888), 付型 (4758), 時刻 (4070), 貨型 (3685), 付時 (2864), 型と (2499), currency (2311), 2018 (2214), 力. (2017), 出力 (2014), ロパ (1841), 列日 (1768), 日付 (1695), 刻の (1646), パテ (1644), mypath (1225), 通貨 (1168), lastrow (1149), csv (1112), ティ (1001), タ型 (993), プロ (988), ・ω (947), ・` (912), 認識 (829), シリ (770), ファ (762); 『エクセルからCSV出力で時刻の取り扱い』（tora）
現在、VBAでCSVファイルを作っています。出力するシートには、日付（シリアル値）、時刻、日付付き時刻（日付+時刻としている）があります。サンプルデータ [A] [B] [C] [D] [1] 文字列日付時刻日付+時刻 [2] AA1 2018/5/1 10:00:00 2018/5/1 10:00 [3] AA2 2018/5/2 11:00:00 2018/5/2 11:00 [4] AA3 2018/5/3 12:00:00 2018/5/3 12:00 [5] AA4 2018/5/4 13:00:00 2018/5/4 13:00 このデータを下記のコードでCSVファイルを作りました。 Sub CSV_出力() Dim csvName As String '保存するCSVファイルの名前 Dim myPath As String 'このブックのパス Dim ws As Worksheet 'CSV出力するシート Dim lastRow As Long '出力するデータの最終行 Dim lastCol As Long '出力するデータの最終列 Dim i As Long Dim n As Long myPath = ThisWorkbook.Path & "¥" Set ws = Sheets("CSV出力") lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column csvName = "CSV出力.csv" Open myPath & csvName For Output As #1 For i = 1 To lastRow For n = 1 To lastCol If n <> lastCol Then Print #1, ws.Cells(i, n).Value & ","; Else Print #1, ws.Cells(i, n).Value End If Next n Next i Close #1 End Sub このCSVファイルを確認してみると、このようになっています。。次の表はCSVファイルをメモ帳でひらき、わかりやすくするために間隔をあけたものです。文字列, 日付, 時刻, 日付+時刻 AA1, 2018/05/01, 0.416666666666667, 2018/05/01 10:00:00 AA2, 2018/05/02, 0.458333333333333, 2018/05/02 11:00:00 AA3, 2018/05/03, 0.5, 2018/05/03 12:00:00 AA4, 2018/05/04, 0.541666666666667, 2018/05/04 13:00:00 日付や日付+時刻はエクセルと同じ表示になっていますが、時刻のみ小数になりますが何故でしょうか? 実務上、差しさわりがあるわけではありませんが疑問に思い質問しました。＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- ＞ Print #1, ws.Cells(i, n).Value & ","; ＞ Else ＞ Print #1, ws.Cells(i, n).Value Valueプロパティにしているからじゃないですか? 1.Textプロパティにするか 2.シート上にチャンと表示されていないなら、 Format関数を使って確実に文字列変換するかじゃないですか。（半平太） 2020/11/17(火) 11:03 ---- 早速のご回答、ありがとうございます。 Valueプロパティが原因なら、なぜ日付はシリアル値にならないのでしょうか? （tora） 2020/11/17(火) 11:10 ---- Valueプロパティの型をチェックすると、時刻データは、Double型となっていますが、日付データは、DATE型となっているので、その違いかと思います。（半平太） 2020/11/17(火) 11:17 ---- もろかぶりしましたが、そのまま書きますなぜと理由を聞かれると困ります「そういう仕様だから」としか言いようがないので。 VBAには日付型(Date型)はありますが、時刻型(Time型?)はありません。セルの書式を日付を含むようにしていれば、セルの値を日付型と認識してくれますが、セルの書式を日付時刻のみにしていると、セルの値がDouble型と認識してしますようです。 C列の書式も yyyy/m/d hh:mm:ss としておくと、日付型と認識されて、なぜかCSVファイルには時刻のみが出力されますよくわかりません。原因はわかりませんが、対処はできるので、ちゃんと書式をコントロールして書き出せばいいのでは? （´・ω・`） 2020/11/17(火) 11:27 ---- 仕様らしき説明では「Value2 プロパティでは、通貨型 (Currency) および日付型 (Date) のデータ型を使用しない点のみが、Value プロパティと異なります。」とあるので、経験則と照らし合わせると、Valueプロパティが日付型になるには、セルの書式に日付ファクタが入っている必要があると言うことなんでしょうね。（半平太） 2020/11/17(火) 11:49 ---- 最初の質問に書いたようにこれで特別不都合があるわけではありません。 Value を書き出したのに、エクセルの書式が反映される場合とそうじゃない場合があるのが不思議だったので質問させていただきました。半平太さん、´・ω・`さん、いろいろとありがとうございました。。（tora） 2020/11/17(火) 12:24 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202011/20201117104449.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ