回答編集履歴
1
修正
test
CHANGED
@@ -14,7 +14,9 @@
|
|
14
14
|
|
15
15
|
(見にくかったので一部整形)
|
16
16
|
|
17
|
+
```
|
18
|
+
|
17
|
-
|
19
|
+
--VBA
|
18
20
|
|
19
21
|
Public Sub 顧客一覧更新()
|
20
22
|
|
@@ -36,15 +38,9 @@
|
|
36
38
|
|
37
39
|
I = 1
|
38
40
|
|
39
|
-
|
40
|
-
|
41
41
|
Do Until Cells(I, 1) = "" '<== 1列目(A列)が【空になるまで】ループ処理を続行します(Untilキーワードで判定)
|
42
42
|
|
43
|
-
|
44
|
-
|
45
43
|
'ループ内で繰り返し処理される内容です
|
46
|
-
|
47
|
-
|
48
44
|
|
49
45
|
If Sheets("移動データ").Range("A" & I) = 顧客番号 Then
|
50
46
|
|
@@ -54,15 +50,11 @@
|
|
54
50
|
|
55
51
|
I = I + 1
|
56
52
|
|
57
|
-
|
58
|
-
|
59
53
|
Loop
|
60
54
|
|
61
55
|
|
62
56
|
|
63
57
|
'③対象の顧客番号が顧客一覧に登録済かどうか確認する
|
64
|
-
|
65
|
-
|
66
58
|
|
67
59
|
'描画OFF
|
68
60
|
|
@@ -106,13 +98,9 @@
|
|
106
98
|
|
107
99
|
End If
|
108
100
|
|
109
|
-
|
110
|
-
|
111
101
|
Else
|
112
102
|
|
113
103
|
編集対象行 = 検索_cell.Row
|
114
|
-
|
115
|
-
|
116
104
|
|
117
105
|
End If
|
118
106
|
|
@@ -121,8 +109,6 @@
|
|
121
109
|
Range("B" & 編集対象行) = Trim(.Range("B6")) & " " & Trim(.Range("D6")) '氏名
|
122
110
|
|
123
111
|
Range("C" & 編集対象行) = Trim(.Range("B5")) & " " & Trim(.Range("D5")) 'カナ氏名
|
124
|
-
|
125
|
-
|
126
112
|
|
127
113
|
End With
|
128
114
|
|
@@ -136,4 +122,6 @@
|
|
136
122
|
|
137
123
|
End Sub
|
138
124
|
|
125
|
+
|
126
|
+
|
139
127
|
```
|