|
それと、ちぇっくするのはD1転記に転記前なのではないでしょうか?
つまり
'ユーザフォームでボタンの定義をする
Private Sub CommandButton1_Click()
'sheet1のd1に日付を入れる
Sheets("sheet1").Select
Range("d1").Select
Selection.ClearContents
<ここでちぇっくする!!!>
Range("d1") = UserForm1.TextBox1.Text
Unload Me
End Sub
つまりまとめると、
' テキストボックスに入力された文字列をチェックする関数
Private Function IsDateText(ByVal inputText As String) As Boolean
' 形式チェック
If Not inputText Like "####/##/##" Then
MsgBox "日付のフォーマットではありません。再度入力して下さい。"
Exit Function
End If
'日付に変換できる値かチェック
If Not IsDate(inputText) Then
MsgBox ("正しい日付を入力して下さい")
Exit Function
End If
' 日付の形式として正しい
IsDateText = True
End Function
'ユーザフォームでボタンの定義をする
Private Sub CommandButton1_Click()
' テキストボックスに入力された文字列をチェックする
If IsDateText(Me.TextBox1.Text) Then
' 正しいのでD1に転記
Worksheets("sheet1").Range("D1").Value = Me.TextBox1.Text
Unload Me
End If
End Sub
となります。
|
|