回答編集履歴
1
上書きと新規混在した場合、行が跳ぶので新規登録は毎回最終行を見に行くよう修正
answer
CHANGED
|
@@ -31,13 +31,13 @@
|
|
|
31
31
|
x = Application.Match(key, r, 0)
|
|
32
32
|
If IsError(x) Then
|
|
33
33
|
'無ければ新規
|
|
34
|
-
With ws.Cells(
|
|
34
|
+
With ws.Cells(ws.Rows.Count, 3).End(xlUp)
|
|
35
|
-
.Offset(, 0).Value = DateAdd("d", i, Date1)
|
|
35
|
+
.Offset(1, 0).Value = DateAdd("d", i, Date1)
|
|
36
|
-
.Offset(, 1).Value = txt社員番号.Text
|
|
36
|
+
.Offset(1, 1).Value = txt社員番号.Text '例)1234
|
|
37
|
-
.Offset(, 2).FormulaR1C1 = "=RC[-2]&RC[-1]"
|
|
37
|
+
.Offset(1, 2).FormulaR1C1 = "=RC[-2]&RC[-1]"
|
|
38
|
-
.Offset(, 3).Value = "新規"
|
|
38
|
+
.Offset(1, 3).Value = "新規"
|
|
39
|
-
.Offset(, 4).Value = "登録"
|
|
39
|
+
.Offset(1, 4).Value = "登録"
|
|
40
|
-
.Offset(, 5).Value = "しました"
|
|
40
|
+
.Offset(1, 5).Value = "しました"
|
|
41
41
|
End With
|
|
42
42
|
Else
|
|
43
43
|
If MsgBox("登録済ですが上書きしますか？", Buttons:=vbYesNo) = vbYes Then
|