回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -10,13 +10,13 @@
|
|
|
10
10
|
ary = Range(データ開始セル,データ終了セル).Value
|
|
11
11
|
|
|
12
12
|
i=0
|
|
13
|
-
Do until oraRs.EOF
|
|
13
|
+
Do until oraRs.EOF '最終レコードまでループ
|
|
14
|
-
If ary(i, 0).Value <> oraRs
|
|
14
|
+
If ary(i, 0).Value <> oraRs!名前.Value Or
|
|
15
|
-
|
|
15
|
+
ary (i, 1).Value <> oraRs!住所.Value Or
|
|
16
|
-
|
|
16
|
+
ary (i, 2).Value <> oraRs!電話.Value Then
|
|
17
|
-
oraRs
|
|
17
|
+
oraRs!名前.Value = ary(i, 0).Value
|
|
18
|
-
oraRs
|
|
18
|
+
oraRs!住所.Value = ary(i, 1).Value
|
|
19
|
-
oraRs
|
|
19
|
+
oraRs!電話.Value = ary(i, 2).Value
|
|
20
20
|
oraRs.Update
|
|
21
21
|
End If
|
|
22
22
|
i = i+1
|
1
コード修正
answer
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
Dim aty() As Variant
|
|
10
10
|
ary = Range(データ開始セル,データ終了セル).Value
|
|
11
11
|
|
|
12
|
-
i=0
|
|
12
|
+
i=0
|
|
13
13
|
Do until oraRs.EOF
|
|
14
14
|
If ary(i, 0).Value <> oraRs(0).Value Or
|
|
15
15
|
Cells(i, 1).Value <> oraRs(1).Value Or
|