|
エクセルVBEの質問です。
現在、下記の様にユーザーホームのTextBox1に記入したものがSheet1のA列に、TextBox2に記入したものがSheet1のB列に順次記入されていくようにしているのですが、
TextBox1かTextBox2いずれかでもなにも入力されなかった場合CommandButton1を押してもSheet1に入力されず "入力されていない箇所があります"
と警告がでるようにしたいのですがどのようにすればよいでしょうか。
よろしくお願いします。
-----------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim lRow As Long
TextBox1.SetFocus
With Worksheets("Sheet1")
lRow = .Range("A" & Rows.Count).End(xlUp).Row
With .Range("A" & lRow + 1)
.Value = TextBox1.Value
If CheckBox1.Value = True Then
.Interior.ColorIndex = 3
End If
End With
End With
With Worksheets("Sheet1")
lRow = .Range("B" & Rows.Count).End(xlUp).Row
With .Range("B" & lRow + 1)
.Value = TextBox2.Value
If CheckBox1.Value = True Then
.Interior.ColorIndex = 3
End If
End With
End With
End Sub
-----------------------------------------------------------------
|
|