|
▼kanabun さん:
なかなか仕事で打合せが多く返事できませんで申し訳ありません。
早速に書き直しました。
が実行させると、
”コンパイルエラー”
”同じ適用範囲内で重複してます”と絵アラー表示してしまいます。
どこが、違うのかご指摘お願いします。
構文は
Private Sub CommandButton36_Click()
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 With
End Sub
になります。よろしくお願いします。
|
|