Excel VBA質問箱 IV

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

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


75107 / 76732 ←次へ | 前へ→

【6073】Re:IsDate関数
質問  りょう  - 03/6/15(日) 17:00 -

引用なし
パスワード
   Hirofumiさん、わざわざ考えていただいて大変ありがとうございます。
私がやりたいのは月日のみそれぞれ2桁づつ入力するTextBoxで、
年は入力しなくてもよいようなものです。
例えば、2月3日ならば0203、10月30日なら1030のような形の4桁のTextBoxです。
入力のあとから、その4桁のみで他の処理が必要なため、年の2桁は出力したくないのです。
年の入出力なしで、日付のみのチェックは可能なのでしょうか???

>例えばこんなやり方をしたら?
>一応、UserFormのTextBoxのBeforeUpdateイベントで考えて見ました
>年の部分を仮にDate(システムの日付 今日)引っ張ってきて
>日付の体裁にしてIsDataで調べています
>また、必要ないかも知れませんがOkなら、TextBoxにOkの文字列を戻しています
>ただ、年の部分をDateで取得しているので、
>今年が閏年で無いと0229は日付と見とめられませんが?
>
>Private Sub TextBox1_BeforeUpdate(ByVal Cancel _
>                  As MSForms.ReturnBoolean)
>
>  Dim strTmp As String
>  
>  With TextBox1
>    If .Value <> "" Then
>      strTmp = Year(Date) & "/" _
>            & Left(.Value, 2) _
>              & "/" & Mid(.Value, 3)
>      If Not IsDate(strTmp) Then
>        Beep
>        MsgBox "日付と認識できません"
>        Cancel = True
>      Else
>        .Value = strTmp
>      End If
>    End If
>  End With
>  
>End Sub

1 hits

【6059】テキストボックスの数値をチェックする りょう 03/6/14(土) 13:16 質問
【6063】IsDate関数 ねこ@京都 03/6/15(日) 4:00 回答
【6064】Re:IsDate関数 りょう 03/6/15(日) 10:30 質問
【6065】Re:IsDate関数 Hirofumi 03/6/15(日) 11:57 回答
【6073】Re:IsDate関数 りょう 03/6/15(日) 17:00 質問
【6074】Re:IsDate関数 Hirofumi 03/6/15(日) 17:59 回答
【6075】Re:IsDate関数 Hirofumi 03/6/15(日) 19:20 回答
【6077】Re:IsDate関数 りょう 03/6/16(月) 0:02 お礼

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