質問編集履歴
2
修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -17,14 +17,14 @@
|
|
17
17
|
```VBA
|
18
18
|
Dim chkName(8) As String, i As Long, x As Long
|
19
19
|
Dim worksheet As Worksheets
|
20
|
-
|
20
|
+
For x = 0 To 8
|
21
|
-
|
21
|
+
For i = 5 To 14
|
22
|
-
|
22
|
+
If Worksheets("勤怠確認加減算シート").Cells(i, 9).Value = True Then
|
23
|
-
|
23
|
+
chkName(x) = Worksheets("勤怠確認加減算シート").Cells(i, 10).Value
|
24
|
-
|
24
|
+
Range(i, 7) = chkName(x)
|
25
|
-
|
25
|
+
End If
|
26
|
-
|
26
|
+
Next
|
27
|
-
|
27
|
+
Next
|
28
28
|
```
|
29
29
|
|
30
30
|
### 補足情報(FW/ツールのバージョンなど)
|
1
修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -15,15 +15,16 @@
|
|
15
15
|
### 該当のソースコード
|
16
16
|
|
17
17
|
```VBA
|
18
|
-
Dim chkName(8) As String, i As Long, x As Long
|
18
|
+
Dim chkName(8) As String, i As Long, x As Long
|
19
|
-
|
19
|
+
Dim worksheet As Worksheets
|
20
|
+
|
20
21
|
For i = 5 To 14
|
21
|
-
If Cells(i, 9).Value =
|
22
|
+
If Worksheets("勤怠確認加減算シート").Cells(i, 9).Value = True Then
|
22
|
-
|
23
|
+
chkName(8) = Worksheets("勤怠確認加減算シート").Cells(i, 10).Value
|
23
|
-
|
24
|
+
Range(i, 7) = chkName(8)
|
24
25
|
End If
|
25
|
-
|
26
|
+
Next
|
26
|
-
|
27
|
+
|
27
28
|
```
|
28
29
|
|
29
30
|
### 補足情報(FW/ツールのバージョンなど)
|