Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12897 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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という関数があることを知らなかったです。また何かありましたらよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12897 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free