過去ログ

                                Page     878
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼テキストボックスの日付入力を正しく反映  EBI 03/3/16(日) 10:51
   ┣Re:テキストボックスの日付入力を正しく反映  ichinose 03/3/16(日) 11:42
   ┗Re:テキストボックスの日付入力を正しく反映  Hirofumi 03/3/16(日) 11:48
      ┗Re:テキストボックスの日付入力を正しく反映  EBI 03/3/16(日) 12:38

 ───────────────────────────────────────
 ■題名 : テキストボックスの日付入力を正しく反映
 ■名前 : EBI <ebi@gctv.ne.jp>
 ■日付 : 03/3/16(日) 10:51
 -------------------------------------------------------------------------
   テキストボックスから日付を入力して、該当セルへ自動入力させているのですが正しく反映されていません。
該当セルの書式は、日付で[H15.3.16]というようにしています。

テキストボックスへ03/6/10と入力するとH22.3.6 (2010/3/6)
03/5/25と入力するとH37.3.5 (2025/3/5)
03/5/1と入力するとH13.3.5 (2001/3/5)
というふうに入力されてしまいます。

2003/6/10というように入力すると、正しくH15.6.10で入力されます。
どうも、年月日の年を2桁で入力すると「月日年」として認識しているようですが、2桁で正しく反映させる方法を教えてください。
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの日付入力を正しく反映  ■名前 : ichinose  ■日付 : 03/3/16(日) 11:42  -------------------------------------------------------------------------
   ▼EBI さん:
こんにちは。
>テキストボックスから日付を入力して、該当セルへ自動入力させているのですが正しく反映されていません。
>該当セルの書式は、日付で[H15.3.16]というようにしています。
>
>テキストボックスへ03/6/10と入力するとH22.3.6 (2010/3/6)
>03/5/25と入力するとH37.3.5 (2025/3/5)
>03/5/1と入力するとH13.3.5 (2001/3/5)
>というふうに入力されてしまいます。
>
>2003/6/10というように入力すると、正しくH15.6.10で入力されます。
>どうも、年月日の年を2桁で入力すると「月日年」として認識しているようですが、2桁で正しく反映させる方法を教えてください。

cells(1,1).value=cdate(textbox1.text)
cdate関数を使うと正しく表示されています。
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの日付入力を正しく反映  ■名前 : Hirofumi <hirofumi@venus.dti.ne.jp>  ■日付 : 03/3/16(日) 11:48  -------------------------------------------------------------------------
   ここでは行っていませんが、TextBoxの値が日付かどうかのチェックを
するでしょうから、同時に、TextBoxに値を日付に直し、代入し直したら?

Private Sub TextBox1_AfterUpdate()

  With TextBox1
    .Text = CDate(.Text)
  End With
  
End Sub
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの日付入力を正しく反映  ■名前 : EBI <ebi@gctv.ne.jp>  ■日付 : 03/3/16(日) 12:38  -------------------------------------------------------------------------
   いつもお世話になっています。ありがとうございました。
正しく反映させることができました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 878