質問編集履歴
4
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,9 +10,9 @@
|
|
|
10
10
|
|
|
11
11
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
12
12
|
|
|
13
|
+
yearF = Range("f" & p).Value
|
|
14
|
+
|
|
13
15
|
Debug.Print "F:" & p & " , " & yearF
|
|
14
|
-
|
|
15
|
-
yearF = Range("f" & p).Value
|
|
16
16
|
|
|
17
17
|
If WorksheetFunction.CountIf(Worksheets("年間集計").Range("7:7"), yearF) = 0 Then
|
|
18
18
|
|
3
Debug.Print "F:" & p & " , " & yearF 追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -9,6 +9,8 @@
|
|
|
9
9
|
Worksheets("list").Select
|
|
10
10
|
|
|
11
11
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
12
|
+
|
|
13
|
+
Debug.Print "F:" & p & " , " & yearF
|
|
12
14
|
|
|
13
15
|
yearF = Range("f" & p).Value
|
|
14
16
|
|
2
画像差し替え
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -38,13 +38,13 @@
|
|
|
38
38
|
|
|
39
39
|
「list」シートからyearFを上から繰返し読込しています。
|
|
40
40
|
|
|
41
|
-
|
|
42
42
|
|
|
43
43
|
|
|
44
44
|
|
|
45
45
|
最後F5の際、p=5になっているのになぜかyearF=0となり、結果西暦年が0の列ができてしまします。
|
|
46
46
|
|
|
47
|
-
|
|
48
48
|
|
|
49
49
|
|
|
50
50
|
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -7,8 +7,6 @@
|
|
|
7
7
|
p = 3
|
|
8
8
|
|
|
9
9
|
Worksheets("list").Select
|
|
10
|
-
|
|
11
|
-
'For p = 3 To WorksheetFunction.CountA(Range("f:f")) + 2
|
|
12
10
|
|
|
13
11
|
For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2
|
|
14
12
|
|