投稿日 | : 2005/09/15(Thu) 18:33 |
投稿者 | : ダンボ |
URL | : |
タイトル | : VBAで「型が一致しません」 |
EXCEL2002のVBAです。txt1はテキストボックスです。これを実行してtxt1_AfterUpdate内で
DateCheckを呼び出したところでエラー13「型が一致しません」と言われます。なんで?
Private Sub txt1_AfterUpdate()
txt1.Text = Format(txt1.Text, "Long Date")
DateCheck txt1 <-ここでエラー
End Sub
Private Sub txt2_AfterUpdate()
txt2.Text = Format(txt2.Text, "Long Date")
DateCheck txt2
End Sub
Private Sub DateCheck(TBOX As TextBox)
If Not IsDate(TBOX.Text) Then MsgBox ("正しい日付を入力してください")
'TBOX.Select
End Sub
もひとつ。不正日付のテキストボックスの文字を反転させたいのですが、SelStart,SelLengthが
無いので、どうしたらよいでしょうか?