回答編集履歴
1
コード修正
test
CHANGED
|
@@ -9,21 +9,14 @@
|
|
|
9
9
|
Dim j As Long
|
|
10
10
|
|
|
11
11
|
Worksheets("form1").Select
|
|
12
|
-
|
|
13
|
-
|
|
12
|
+
|
|
14
|
-
For j = 1 To 4
|
|
15
|
-
If Cells(i, j).Value = "" Then
|
|
16
|
-
End If
|
|
17
|
-
Next
|
|
18
|
-
Next
|
|
19
13
|
If WorksheetFunction.CountBlank(Range(Cells(2, 5), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 10))) > 0 Then
|
|
20
14
|
MsgBox "form1に抜けがあります。正しく入力してください。"
|
|
21
15
|
Exit Sub
|
|
22
16
|
End If
|
|
23
17
|
|
|
24
|
-
|
|
25
18
|
If Not IsDate(TextBox1.Value) Then
|
|
26
|
-
MsgBox "年月日が正しく入力されません
|
|
19
|
+
MsgBox "年月日が正しく入力されてません"
|
|
27
20
|
Exit Sub
|
|
28
21
|
End If
|
|
29
22
|
|