Excel VBA質問箱 IV

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

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


34717 / 76738 ←次へ | 前へ→

【47227】Re:テキストボックスを使った日付入力
質問  初心者 E-MAIL  - 07/3/5(月) 17:25 -

引用なし
パスワード
   ▼Blue さん:
返事がおそくなりました。


-------------------------------------------------------------------------
'主プロで日付を入力させる
UserForm1.Show
-------------------------------------------------------------------------

'ユーザフォームでボタンの定義をする
Private Sub CommandButton1_Click()

'sheet1のd1に日付を入れる       
  Sheets("sheet1").Select
  Range("d1").Select
  Selection.ClearContents
  Range("d1") = UserForm1.TextBox1.Text
  Unload Me
 
  
End Sub
-------------------------------------------------------------------------

'キャンセルボタンを押したらsheet2をクリアする
Private Sub CommandButton2_Click()
  Unload Me
  Sheets("sheet2").Select
  Cells.Select
  Selection.ClearContents
  Rows("3:65536").Select
  Selection.Delete Shift:=xlUp
  Range("a3").Select
  End
End Sub
-------------------------------------------------------------------------

'入力値のチェックをする
Private Sub kijyunbi()

'日付の妥当性のチェック
If Not IsDate(Range("d1")) Then
    MsgBox "有効な日付ではありません。再度入力して下さい。"
    UserForm1.Show
End If


'文字数が半角10文字かチェック

  If Len(Range("d1")) <> 10 Then
    MsgBox ("日付を yyyy/mm/dd の形式で入力して下さい")
    UserForm1.Show
  End If

' 形式チェック
If Not Range("d1") Like "####/##/##" Then
    MsgBox "日付のフォーマットではありません。再度入力して下さい。"
    UserForm1.Show
End If
  

'日付に変換できる値かチェック
If IsDate(Range("d1")) <> True Then
    MsgBox ("正しい日付を入力して下さい")
    UserForm1.Show
End If

End Sub
-------------------------------------------------------------------------

上のコードだと次のような問題がでます。
1.「123」のように入力しても「1900/5/2」のようにsheet1のd1に入力されてしまう。
2.「vba」と5回入力すると、チェックをすり抜け、型が一致しないと言われる。
チェックを繰り返したいのに、繰り返しになっていない。
3.「123456789123456789123456789」と入力するとオーバーフローする。

ちょっと自分ではどうすることも出来なくて・・・。
すいませんが、どなたかお願いします。

0 hits

【46901】テキストボックスを使った日付入力 初心者 07/2/21(水) 11:40 質問
【46902】Re:テキストボックスを使った日付入力 ひげくま 07/2/21(水) 11:50 発言
【46903】Re:テキストボックスを使った日付入力 初心者 07/2/21(水) 12:47 回答
【46904】Re:テキストボックスを使った日付入力 Blue 07/2/21(水) 13:02 回答
【46905】Re:テキストボックスを使った日付入力 Blue 07/2/21(水) 13:10 発言
【47227】Re:テキストボックスを使った日付入力 初心者 07/3/5(月) 17:25 質問
【47228】Re:テキストボックスを使った日付入力 Blue 07/3/5(月) 17:36 発言
【47230】Re:テキストボックスを使った日付入力 Blue 07/3/5(月) 17:48 回答
【47233】Re:テキストボックスを使った日付入力 初心者 07/3/5(月) 18:31 お礼

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