質問編集履歴
2
不要なコードを削除しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
For r = 3 To 15
|
|
14
14
|
|
|
15
|
-
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
15
|
+
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
1
表のイメージを追加しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,9 @@
|
|
|
12
12
|
|
|
13
13
|
For r = 3 To 15
|
|
14
14
|
|
|
15
|
-
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
15
|
+
If Cells(c, r).Offset(-1, 0).Value <> "" Then|列1|列2|列3|
|
|
16
|
+
|
|
17
|
+
|
|
16
18
|
|
|
17
19
|
Cells(c, r).Value = "〇"
|
|
18
20
|
|
|
@@ -28,11 +30,7 @@
|
|
|
28
30
|
|
|
29
31
|
|
|
30
32
|
|
|
31
|
-
|
|
32
|
-
|
|
33
|
-
|
|
34
|
-
|
|
35
|
-
if
|
|
33
|
+
ifを
|
|
36
34
|
|
|
37
35
|
|
|
38
36
|
|
|
@@ -55,3 +53,9 @@
|
|
|
55
53
|
動かす事は出来たのですが、何故動作しなかったのかがわかりません。
|
|
56
54
|
|
|
57
55
|
Excelのバージョンは2016です。よろしくお願い致します。
|
|
56
|
+
|
|
57
|
+
表は以下の様なものです。
|
|
58
|
+
|
|
59
|
+
上段が日勤、下段が夜勤で夜勤が入力されていると次の日の上段に夜勤明けと記載されるようにする物です。
|
|
60
|
+
|
|
61
|
+
|