Excel VBA質問箱 IV

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

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


75115 / 76732 ←次へ | 前へ→

【6065】Re:IsDate関数
回答  Hirofumi E-MAIL  - 03/6/15(日) 11:57 -

引用なし
パスワード
   例えばこんなやり方をしたら?
一応、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 お礼

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