質問編集履歴
7
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,11 +30,11 @@
|
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
-
通知のCells(36
|
|
33
|
+
通知のCells(2,36)に契約IDを転記し、通知の宛先部分に顧客リストからVLOOKUPで、Cells(2,36)の顧客を探し、住所を引っ張ってくる設定にしています。
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
37
|
-
If関数で通し番号が同一の場合は、Cells(36
|
|
37
|
+
If関数で通し番号が同一の場合は、Cells(2,36)の隣のセルに契約IDを転記する。この作業を最大10個の契約IDで繰り返す。異なる場合は、通知を印刷し、セルをクリアして次の顧客の通知を印刷する。という設定にしようと考えています。
|
|
38
38
|
|
|
39
39
|
|
|
40
40
|
|
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
|
|
76
76
|
|
|
77
|
-
Worksheets("通知").Cells(2,
|
|
77
|
+
Worksheets("通知").Cells(2,36) = Worksheets("顧客リスト").Cells(CStr(k), 2)
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|
6
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -82,11 +82,11 @@
|
|
|
82
82
|
|
|
83
83
|
|
|
84
84
|
|
|
85
|
-
If Worksheets("
|
|
85
|
+
If Worksheets("顧客リスト").Cells(CStr(k), 1) = Worksheets("顧客リスト").Cells(CStr(k) + CStr(i), 1) Then
|
|
86
86
|
|
|
87
87
|
|
|
88
88
|
|
|
89
|
-
Worksheets("
|
|
89
|
+
Worksheets("通知").Cells(2, 36 + CStr(i)) = Worksheets("顧客リスト").Cells(CStr(k) + CStr(i), 2)
|
|
90
90
|
|
|
91
91
|
|
|
92
92
|
|
|
@@ -94,15 +94,11 @@
|
|
|
94
94
|
|
|
95
95
|
|
|
96
96
|
|
|
97
|
-
Worksheets("
|
|
97
|
+
Worksheets("通知").PrintOut
|
|
98
98
|
|
|
99
99
|
|
|
100
100
|
|
|
101
|
-
Worksheets("申出書").PrintOut
|
|
102
|
-
|
|
103
|
-
|
|
104
|
-
|
|
105
|
-
Worksheets("
|
|
101
|
+
Worksheets("通知").Range("AJ2:AS2").ClearContents
|
|
106
102
|
|
|
107
103
|
|
|
108
104
|
|
5
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,7 +34,7 @@
|
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
37
|
-
If関数で通し番号が同一の場合は、Cells(36,2)の隣のセルに契約IDを転記する。異なる場合は、通知を印刷し、セルをクリアして次の顧客の通知を印刷する。という設定にしようと考えています。
|
|
37
|
+
If関数で通し番号が同一の場合は、Cells(36,2)の隣のセルに契約IDを転記する。この作業を最大10個の契約IDで繰り返す。異なる場合は、通知を印刷し、セルをクリアして次の顧客の通知を印刷する。という設定にしようと考えています。
|
|
38
38
|
|
|
39
39
|
|
|
40
40
|
|
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -19,6 +19,10 @@
|
|
|
19
19
|
3 契約ID Cさん 住所
|
|
20
20
|
|
|
21
21
|
3 契約ID Cさん 住所
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
※契約IDは、契約単位で異なるため、全て異なります。
|
|
22
26
|
|
|
23
27
|
|
|
24
28
|
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -22,19 +22,21 @@
|
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
|
-
複数人で分担して印刷するため、顧客リストのセルAZ3に印刷開始行、顧客リストのセルBA3に印刷終了行を手入力すると、印刷開始行から印刷終了
|
|
25
|
+
複数人で分担して印刷するため、顧客リストのセルAZ3に印刷開始行、顧客リストのセルBA3に印刷終了行を手入力すると、印刷開始行から印刷終了行までの間の顧客リストを一括印刷する設定にしています。
|
|
26
26
|
|
|
27
27
|
|
|
28
28
|
|
|
29
|
-
通知
|
|
29
|
+
通知のCells(36,2)に契約IDを転記し、通知の宛先部分に顧客リストからVLOOKUPで、Cells(36,2)の顧客を探し、住所を引っ張ってくる設定にしています。
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
+
If関数で通し番号が同一の場合は、Cells(36,2)の隣のセルに契約IDを転記する。異なる場合は、通知を印刷し、セルをクリアして次の顧客の通知を印刷する。という設定にしようと考えています。
|
|
33
34
|
|
|
34
35
|
|
|
35
|
-
For NextとIf関数を使用して、Aさんが終わったらBさん、Bさんが終わったらCさん、と順番に印刷するようにしようとしたのですが、ループ処理が上手くいかず、Aさんをひたすら印刷してしまいます。
|
|
36
36
|
|
|
37
|
+
しかし、ループ処理が上手くいかず、Aさんをひたすら印刷してしまいます。
|
|
38
|
+
|
|
37
|
-
どこを修正したら上手くループできるのか、色々試しましたが分からないため、教えていただけるとありがたいです。
|
|
39
|
+
どこを修正したら上手くループできるのか、Do While やDo Until等色々試しましたが分からないため、教えていただけるとありがたいです。
|
|
38
40
|
|
|
39
41
|
|
|
40
42
|
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
3 契約ID Cさん 住所
|
|
20
20
|
|
|
21
|
-
3 ID Cさん 住所
|
|
21
|
+
3 契約ID Cさん 住所
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
1
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
Excel VBAを用いて顧客リストから一括で通知印刷する設定で、同じ宛先の人に対し、まとめて
|
|
1
|
+
Excel VBAを用いて顧客リストから一括で通知印刷する設定で、同じ宛先の人に対し、まとめて契約IDを記載する
|
test
CHANGED
|
File without changes
|