質問編集履歴
2
不要なコードを削除しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
|
|
6
6
|
For c = 3 To 63 Step 2
|
|
7
7
|
For r = 3 To 15
|
|
8
|
-
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
8
|
+
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
9
9
|
|
|
10
10
|
Cells(c, r).Value = "〇"
|
|
11
11
|
End If
|
1
表のイメージを追加しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,8 @@
|
|
|
5
5
|
|
|
6
6
|
For c = 3 To 63 Step 2
|
|
7
7
|
For r = 3 To 15
|
|
8
|
-
If Cells(c, r).Offset(-1, 0).Value <> "" Then
|
|
8
|
+
If Cells(c, r).Offset(-1, 0).Value <> "" Then|列1|列2|列3|
|
|
9
|
+
|
|
9
10
|
Cells(c, r).Value = "〇"
|
|
10
11
|
End If
|
|
11
12
|
Next r
|
|
@@ -13,10 +14,8 @@
|
|
|
13
14
|
```
|
|
14
15
|
|
|
15
16
|
|
|
17
|
+
ifを
|
|
16
18
|
|
|
17
|
-
|
|
18
|
-
if部分を
|
|
19
|
-
|
|
20
19
|
```VBA
|
|
21
20
|
If Cells(c, r).Offset(-1, 0).Value = "" Then
|
|
22
21
|
Cells(c, r).Value = ""
|
|
@@ -26,4 +25,7 @@
|
|
|
26
25
|
```
|
|
27
26
|
にしたら動作しました。
|
|
28
27
|
動かす事は出来たのですが、何故動作しなかったのかがわかりません。
|
|
29
|
-
Excelのバージョンは2016です。よろしくお願い致します。
|
|
28
|
+
Excelのバージョンは2016です。よろしくお願い致します。
|
|
29
|
+
表は以下の様なものです。
|
|
30
|
+
上段が日勤、下段が夜勤で夜勤が入力されていると次の日の上段に夜勤明けと記載されるようにする物です。
|
|
31
|
+
|