質問編集履歴
4
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,8 +4,8 @@
|
|
|
4
4
|
p = 3
|
|
5
5
|
Worksheets("list").Select
|
|
6
6
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
7
|
+
yearF = Range("f" & p).Value
|
|
7
8
|
Debug.Print "F:" & p & " , " & yearF
|
|
8
|
-
yearF = Range("f" & p).Value
|
|
9
9
|
If WorksheetFunction.CountIf(Worksheets("年間集計").Range("7:7"), yearF) = 0 Then
|
|
10
10
|
With Worksheets("年間集計").Range("e7:e" & Cells(Rows.Count, 5).End(xlUp).Row)
|
|
11
11
|
.Copy
|
3
Debug.Print "F:" & p & " , " & yearF 追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,6 +4,7 @@
|
|
|
4
4
|
p = 3
|
|
5
5
|
Worksheets("list").Select
|
|
6
6
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
7
|
+
Debug.Print "F:" & p & " , " & yearF
|
|
7
8
|
yearF = Range("f" & p).Value
|
|
8
9
|
If WorksheetFunction.CountIf(Worksheets("年間集計").Range("7:7"), yearF) = 0 Then
|
|
9
10
|
With Worksheets("年間集計").Range("e7:e" & Cells(Rows.Count, 5).End(xlUp).Row)
|
2
画像差し替え
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,10 +18,10 @@
|
|
|
18
18
|
```
|
|
19
19
|
|
|
20
20
|
「list」シートからyearFを上から繰返し読込しています。
|
|
21
|
-
|
|
22
22
|
|
|
23
23
|
最後F5の際、p=5になっているのになぜかyearF=0となり、結果西暦年が0の列ができてしまします。
|
|
24
|
-
|
|
25
25
|
|
|
26
26
|
デバッグでF8ステップ実行しても結果は変わりません。
|
|
27
27
|
|
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,7 +3,6 @@
|
|
|
3
3
|
Dim yearF As Integer
|
|
4
4
|
p = 3
|
|
5
5
|
Worksheets("list").Select
|
|
6
|
-
'For p = 3 To WorksheetFunction.CountA(Range("f:f")) + 2
|
|
7
6
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
8
7
|
yearF = Range("f" & p).Value
|
|
9
8
|
If WorksheetFunction.CountIf(Worksheets("年間集計").Range("7:7"), yearF) = 0 Then
|