• ベストアンサー

VBA

VBA の 日付 20110601 を 2011/6/1 に VBAのプログラムで変換するにはどうしたらいいのですか? 教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.3

NO2です。 投降後、NO1様と同様の回答していましたので別案に訂正します。 a = "20110601" Range("A1").Value = CDate(Format(a, "@@@@/@@/@@"))

okwave1322
質問者

お礼

完璧な答えありがとうございます

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.2

一例です。 a = 20110601 Range("A1").Value = Format(DateSerial(Left(a, 4), Mid(a, 5, 2), Right(a, 2)), "yyyy/m/d")

okwave1322
質問者

お礼

ありがとうございます

全文を見る
すると、全ての回答が全文表示されます。
  • ShowMeHow
  • ベストアンサー率28% (1424/5027)
回答No.1

strDate = "20110601" (スペースが入っている可能性があるなら、次の一行を加えておく) strDate = trim(strDate) dteDate = datesrial(left(strDate,4),mid(strDate,5,2),right(strdate,2))

okwave1322
質問者

お礼

ありがとうございます

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excel VBAについて教えて下さい。

    VBAについて2点ほど質問があります。 (1)複数セル(例:A2:A40)に入力されている文字列を一括で数値に変換するVBAはありますか? (2)複数セル(例:A2:A40)に日付と時間が入力されていて(例:2019/09/12 16:00)、それを一括で日付と時間それぞれ別々のセルへ表示させるVBAはありますか? 現状、1つのセルしか変換できず複数一度には難しいのでしょうか? お分かりの方いましたら、是非ご教示お願い致します。

  • excel vba 一番効率の良い方法を教えてください。

    こんにちは。よろしければ教えてください。 VBAで、テキストデータから読み込んだ日付「20080825」を、 エクセルシートに貼り付ける際(又は貼り付けた後)に、 「2008/08/25」と表示すると同時に「日付」として認識できる形 にしたいのです。(つまりシリアル値に変換したいということに なるのかな?) ○読み込むデータは8ケタの数値です。 ○当然ながら、セル1つにつき1つの日付です。 ○データが多いので、一つ一つ変換すると時間がかかります。   (しかしこの方法しか思いつきません;) ○VBAでもワークシート関数でも…方法は問いません。 一番適している方法を教えてください。 よろしくお願い致します。

  • エクセルVBAにつきまして

    詳しい方ご教示ください。 エクセルのセルに、数字で1220と入っていて、 それを日付の2011/2/20に変換したいのですが、VBA必要でしょうか。 それとも何か便利な関数ありますでしょうか? 詳しい方、よろしくお願い致します。

  • Excel VBAで日付を曜日に変換したい。

    Excel VBAで日付を曜日に変換したい。 A1セル:2010/6/2 を B1セル:水 とするには、Excel VBA ではどうすればいいのでしょうか?

  • エクセル VBAで困っています

    エクセル VBA初心者です。プログラムの管理をしたいのですが。2つのブック(前月と当月)を比較して削除されたもの、追加されたもの変更されたものを調べたいのですが。Book1のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。同様にBook2のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。この二つのシートを比べてプログラムが増えたもの、減ったもの、変更日が変わったものの3点をBook3のSheetに書き出したいのですが。何卒宜しくお願いします。

  • エクセル VBA

    エクセル VBA初心者です。プログラムの管理をしたいのですが。2つのブック(前月と当月)を比較して削除されたもの、追加されたもの変更されたものを調べたいのですが。Book1のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。同様にBook2のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。この二つのシートを比べてプログラムが増えたもの、減ったもの、変更日が変わったものの3点をBook3のSheetに書き出したいのですが。何卒宜しくお願いします。

  • Access2000 :VBAプログラムからフォーム(テキスト部)に値を代入

    VBAプログラムで日付を算出し、その日付データを フォームのテキスト部に代入するプログラム? 方法はありますか? よろしくお願いいたします。

  • エクセルVBA 日付の評価、大小を比べるには

    エクセルのセルに日付データーが入っています。 その値を取得して、他のセルに入っている日付と比べたいのですが、 日付データをどの形に変換して比べればいいか分かりません。 ___|_____A_________|_____B___________|______C_____ 1_|_2007/6/1__|__2007/7/1__|____________ 2_|_2007/7/1__|__2007/7/23_|____________ 例えば上の表があったとして、A列とB列にある日付を比べて、大きい 方をC列に記入するということをVBAでしようとするとき、セルに入って いるデーター形式をどの形に変換して評価すればいいでしょうか? 日付データーをシリアル値に変換する方法とかあるのでしょうか? どなたか教えていただけないでしょうか?

  • VBAに詳しい方に質問です。

    VBAに詳しい方に質問です。 私はVBA初心者です、お力添えのほどよろしくお願いいたします。 前回の質問の続きなのですが、 エクセルで入力し、それを一覧表に転記し、最終的に出力フォームにデータを呼び出し印刷するプログラムを作成しています。 そこで、一覧表から出力フォームに呼び出すVBAについて教えてください。 ☆シート2 これまでに入力したデータをすべて一覧表があります。    1     2     3   4… 1 日付    名前    年齢  電話番号 22010/06/28 山田太郎  33才 090-×× 42010/07/01 石川花子   12才  090-×× 52010/07/01 岡田君子   15才  090-××   6  7 ・ ・ ・ ☆シート3 出力.cells(1,1)に日付を入力しボタンを押すと、その日付を基準にその日付の項目すべてを出力します。     1   2    3 12010/07/01 2  3  名前  年齢  電話番号 4 石川花子 12才  090-××  5 岡田君子 15才  090-××    6  7 ・ ・ ・ このようなVBAを作り出す場合、どのような文を書いたらよいのでしょうか。 VBAに詳しい方、アドバイスのほど宜しくお願い致します。

  • エクセルVBAでPDF化できますか??

    Excel VBAで取得したデータをPDF変換ソフトを使わずPDF化するプログラムはあるのでしょうか? インターネットで「VBA PDF変換」等と様々な形で検索をかけてみたのですが、ヒットしません。。。 既存のプログラムは、取得したデータをエクセルに出力し、メールを送信するものなのですが、更にPDF化してメール送信したいのです。 どなたかアドバイスよろしくお願いいたします! <PC環境> Windows XP Pro Ver.2002 Excel 2003 SP3 Adobe Reader8.1.2