Excel VBA質問箱 IV

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

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


12895 / 13644 ツリー ←次へ | 前へ→

【8098】日付の取得 こうき 03/9/30(火) 13:56 質問
【8099】Re:日付の取得 INA 03/9/30(火) 14:13 回答
【8100】Re:日付の取得 こうき 03/9/30(火) 14:23 質問
【8108】Re:日付の取得 INA 03/9/30(火) 17:56 回答
【8110】Re:日付の取得 こうき 03/9/30(火) 18:49 お礼

【8098】日付の取得
質問  こうき  - 03/9/30(火) 13:56 -

引用なし
パスワード
   CSVファイルに20030930(yyyymmdd)という形式で日付のデータがあるのですが、
これをエクセル上に2003/09/30(yyyy/mm/dd)という形式で表記したいと思っています。
下のようなコードを書いて動くことは動くのですが、できればinputで日付を読み込んだ後、セルで計算するのではなくVBAの中で日付をyyyy/mm/ddの形式で取得したいと考えています。
これは分析ツールを使わずに行うことができるのでしょうか?

Range("A1") = "yyyymmdd" '日付
Range("A2").Select
ActiveCell.FormulaR1C1 = "=LEFT(R[-1]C,4)"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=MID(R[-2]C,5,2)"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-3]C,2)"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=DATE(R[-3]C,R[-2]C,R[-1]C)"

【8099】Re:日付の取得
回答  INA  - 03/9/30(火) 14:13 -

引用なし
パスワード
   dim mydata as string
myData="20030930"
myData=left(myData,4) & "/" & mid(myData,5,2) &"/"& Right(myData,2)

この様なことでよいのでしょうか?

【8100】Re:日付の取得
質問  こうき  - 03/9/30(火) 14:23 -

引用なし
パスワード
   ▼INA さん:
>dim mydata as string
>myData="20030930"
>myData=left(myData,4) & "/" & mid(myData,5,2) &"/"& Right(myData,2)
>
>この様なことでよいのでしょうか?

早速のご返事ありがとうございます。
INAさんのコードを試したところ、エクセルに表示された日付は文字列になっていました。実はこの日付を元にグラフも作成するつもりだったのですが、文字列だとうまくいきません。説明が足りず申し訳ありませんが、Date型、あるいはシリアル値での日付取得はできないでしょうか?

【8108】Re:日付の取得
回答  INA  - 03/9/30(火) 17:56 -

引用なし
パスワード
   そのままDate型に変換するのでは、ダメでしょうか?

Dim mydata As String

mydata = "20030930"
mydata = Left(mydata, 4) & "/" & Mid(mydata, 5, 2) & "/" & Right(mydata, 2)

Range("A1").Value = CDate(mydata)

【8110】Re:日付の取得
お礼  こうき  - 03/9/30(火) 18:49 -

引用なし
パスワード
   ▼INA さん:
>そのままDate型に変換するのでは、ダメでしょうか?
>
>Dim mydata As String
>
>mydata = "20030930"
>mydata = Left(mydata, 4) & "/" & Mid(mydata, 5, 2) & "/" & Right(mydata, 2)
>
>Range("A1").Value = CDate(mydata)

できました!ありがとうございます。
CDateという関数があることを知らなかったです。また何かありましたらよろしくお願いします。

12895 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free