teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

修正

2020/11/10 06:13

投稿

退会済みユーザー
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
- For i = 5 To 14
21
+ For i = 5 To 14
22
- If Worksheets("勤怠確認加減算シート").Cells(i, 9).Value = True Then
22
+ If Worksheets("勤怠確認加減算シート").Cells(i, 9).Value = True Then
23
-   chkName(8) = Worksheets("勤怠確認加減算シート").Cells(i, 10).Value
23
+ chkName(x) = Worksheets("勤怠確認加減算シート").Cells(i, 10).Value
24
-    Range(i, 7) = chkName(8)
24
+ Range(i, 7) = chkName(x)
25
- End If
25
+ End If
26
- Next
26
+ Next
27
-
27
+ Next
28
28
  ```
29
29
 
30
30
  ### 補足情報(FW/ツールのバージョンなど)

1

修正

2020/11/10 06:12

投稿

退会済みユーザー
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
- For x = 0 To 8
19
+ Dim worksheet As Worksheets
20
+
20
21
  For i = 5 To 14
21
- If Cells(i, 9).Value = "True" Then
22
+ If Worksheets("勤怠確認加減算シート").Cells(i, 9).Value = True Then
22
- chkName(x) = Cells(i, 10).value
23
+   chkName(8) = Worksheets("勤怠確認加減算シート").Cells(i, 10).Value
23
- Range(i, 7) = chkName(x)
24
+    Range(i, 7) = chkName(8)
24
25
  End If
25
- Next
26
+ Next
26
- Next
27
+
27
28
  ```
28
29
 
29
30
  ### 補足情報(FW/ツールのバージョンなど)