Ｐａｇｅ 521 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼日付の変換 みの 03/1/9(木) 18:45 ┗Re:日付の変換 ポンタ 03/1/9(木) 19:04 ┗Re:日付の変換 みの 03/1/9(木) 19:21 ┗Re:日付の変換 こうちゃん 03/1/9(木) 19:47 ┗Re:日付の変換 みの 03/1/9(木) 21:15 ─────────────────────────────────────── ■題名 ： 日付の変換 ■名前 ： みの ■日付 ： 03/1/9(木) 18:45 -------------------------------------------------------------------------
| textBoxから得たデータ 例 i=2003（年） j=5（月） を変換して2003年5月1日を セル A1 をセットするにはどうすればよいのでしょうか よろしくお願いします |
| こういうことですか？ Sub test() Range("A1").Value = TextBox1.Value & "年" & TextBox2.Value & "月1日" End Sub |
| ▼ポンタ さん： >こういうことですか？ > >Sub test() > Range("A1").Value = TextBox1.Value & "年" & TextBox2.Value & "月1日" >End Sub レスありがとうございます。 Range("A1").Value の値を数字（シリアル値）に変換し 例場合 2003年5月1日は 37742を格納したいのですが どうすればよいのでしょうか |
| みの さん、ポンタ さん、こんばんは 横レス失礼しますね。 テキストボックスの値を使って日付文字列を作って、CDate関数でシリアルに変換します。 こんな感じです・・ Range("A1").Value = CDate(TextBox1.Value & "/" & TextBox2.Value & "/1") |
| ▼こうちゃん さん： >みの さん、ポンタ さん、こんばんは >横レス失礼しますね。 > >テキストボックスの値を使って日付文字列を作って、CDate関数でシリアルに変換します。 >こんな感じです・・ > > Range("A1").Value = CDate(TextBox1.Value & "/" & TextBox2.Value & "/1") こうちゃん さん,ポンタ さん ありがとうございます 無事に目的を果たすことができました。 今後ともよろしくお願いします。 |