| |
▼kanabun さん：
毎回毎回すいません。
構文を修正してIfを追加したのですが
”コンパイルエラー”
”EndIfに対するIfブロックがありません”と表示されてしまいます。
修正後の構文は
Private Sub CommandButton36_Click()
Dim ss As String ←修正しました。
Dim lRow As Long
Number = TextBox3
With Worksheets("DATA")
Dim ss As String
'TextBox71のテキストをチェック
ss = TextBox71.Text
If IsDate(ss) Then '時間データか？
If TimeValue(ss) > 0 Then '有効な時間データか？
With Worksheets("DATA")
lRow = .Range("R" & Rows.Count).End(xlUp).Row
.Range("R" & lRow + 1).Value = ss
End With
End If
Dim ss As String
'TextBox53 のテキストをチェック
ss = TextBox53.Text
If IsDate(ss) Then '時間データか？
If TimeValue(ss) > 0 Then '有効な時間データか？
With Worksheets("DATA")
lRow = .Range("S" & Rows.Count).End(xlUp).Row
.Range("S" & lRow + 1).Value = ss
End With
End If
Dim ss As String
'TextBox54 のテキストをチェック
ss = TextBox54.Text
If IsDate(ss) Then '時間データか？
If TimeValue(ss) > 0 Then '有効な時間データか？
With Worksheets("DATA")
lRow = .Range("T" & Rows.Count).End(xlUp).Row
.Range("T" & lRow + 1).Value = ss
End With
End If
Dim ss As String
'TextBox55 のテキストをチェック
ss = TextBox55.Text
If IsDate(ss) Then '時間データか？
If TimeValue(ss) > 0 Then '有効な時間データか？
With Worksheets("DATA")
lRow = .Range("U" & Rows.Count).End(xlUp).Row
.Range("U" & lRow + 1).Value = ss
End With
End If
End If ←追加しました。
End Sub
になります。よろしくお願いします。
|
|
VBAでメール
- 08/7/4(金) 14:32 -
