teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問VBA 簡易に繰り返し処理が書きたい。

編集履歴

質問編集履歴

8

修正

2020/03/30 02:35

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -5,6 +5,12 @@
5
5
 
6
6
 
7
7
  ```VBA
8
+
9
+ '接続文字列
10
+
11
+ Const CONNECTION = "DRIVER={Microsoft ODBC for Oracle};CONNECTSTRING=XE;UID=system;PWD=systemsss;"
12
+
13
+
8
14
 
9
15
  '指定した場所のみ更新
10
16
 

7

修正

2020/03/30 02:35

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -1,8 +1,4 @@
1
- DBに接続して、ExcelにDBの情報をExcelに全件表示させて、Excelから一部書き換えて書き換えた所のみ、DBに書き込みしたいのですが、いちよプログラムは動くのですが、ループ(繰り返し)処理が更新するたび動くようにコードを書いてしまって、一回で書くことができません。色々考えたのですが進めないのでご質問させて頂きました。
1
+ DBに接続して、ExcelにDBの情報をExcelに全件表示させて、Excelから一部書き換えて書き換えた所のみ、DBに書き込みしたいのですが、いちよプログラムは動くのですが、ループ(繰り返し)処理が更新するたび動くようにコードを書いてしまって、一回で書くことができません。色々考えたのですが進めないのでご質問させて頂きました。お手数をおかけしますが、アドバイスよろしくお願い致します。
2
-
3
- 下記の太文字の所が関係している箇所です。
4
-
5
- お手数をおかけしますが、アドバイスよろしくお願い致します。
6
2
 
7
3
 
8
4
 
@@ -72,25 +68,25 @@
72
68
 
73
69
 
74
70
 
75
- **For j = 1 To n**
71
+ For j = 1 To n
76
72
 
77
- ** For i = 1 To 3**
73
+ For i = 1 To 3
78
74
 
79
75
 
80
76
 
81
- ** If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then**
77
+ If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then
82
78
 
83
79
 
84
80
 
85
- ** strSQL = "update 社員テーブル1 set " _**
81
+ strSQL = "update 社員テーブル1 set " _
86
82
 
87
- ** + " 名前 ='" + Cells(j, 2).Value + "'" _**
83
+ + " 名前 ='" + Cells(j, 2).Value + "'" _
88
84
 
89
- ** + ",住所 ='" + Cells(j, 3).Value + "'" _**
85
+ + ",住所 ='" + Cells(j, 3).Value + "'" _
90
86
 
91
- ** + ",電話 ='" + Cells(j, 4).Value + "'" _**
87
+ + ",電話 ='" + Cells(j, 4).Value + "'" _
92
88
 
93
- **+ " where 社員NO = '" + CStr(j) + "'"**
89
+ + " where 社員NO = '" + CStr(j) + "'"
94
90
 
95
91
 
96
92
 

6

修正

2020/03/30 02:34

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -72,25 +72,25 @@
72
72
 
73
73
 
74
74
 
75
- For j = 1 To n
75
+ **For j = 1 To n**
76
76
 
77
- For i = 1 To 3
77
+ ** For i = 1 To 3**
78
78
 
79
79
 
80
80
 
81
- If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then
81
+ ** If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then**
82
82
 
83
83
 
84
84
 
85
- strSQL = "update 社員テーブル1 set " _
85
+ ** strSQL = "update 社員テーブル1 set " _**
86
86
 
87
- + " 名前 ='" + Cells(j, 2).Value + "'" _
87
+ ** + " 名前 ='" + Cells(j, 2).Value + "'" _**
88
88
 
89
- + ",住所 ='" + Cells(j, 3).Value + "'" _
89
+ ** + ",住所 ='" + Cells(j, 3).Value + "'" _**
90
90
 
91
- + ",電話 ='" + Cells(j, 4).Value + "'" _
91
+ ** + ",電話 ='" + Cells(j, 4).Value + "'" _**
92
92
 
93
- + " where 社員NO = '" + CStr(j) + "'"
93
+ **+ " where 社員NO = '" + CStr(j) + "'"**
94
94
 
95
95
 
96
96
 

5

コード修正

2020/03/30 02:33

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -72,25 +72,25 @@
72
72
 
73
73
 
74
74
 
75
- **For j = 1 To n**
75
+ For j = 1 To n
76
76
 
77
- ** For i = 1 To 3**
77
+ For i = 1 To 3
78
78
 
79
79
 
80
80
 
81
- ** If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then**
81
+ If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then
82
82
 
83
83
 
84
84
 
85
- ** strSQL = "update 社員テーブル1 set " _**
85
+ strSQL = "update 社員テーブル1 set " _
86
86
 
87
- ** + " 名前 ='" + Cells(j, 2).Value + "'" _**
87
+ + " 名前 ='" + Cells(j, 2).Value + "'" _
88
88
 
89
- ** + ",住所 ='" + Cells(j, 3).Value + "'" _**
89
+ + ",住所 ='" + Cells(j, 3).Value + "'" _
90
90
 
91
- ** + ",電話 ='" + Cells(j, 4).Value + "'" _**
91
+ + ",電話 ='" + Cells(j, 4).Value + "'" _
92
92
 
93
- ** + " where 社員NO = '" + CStr(j) + "'"**
93
+ + " where 社員NO = '" + CStr(j) + "'"
94
94
 
95
95
 
96
96
 

4

修正

2020/03/30 02:28

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -8,9 +8,7 @@
8
8
 
9
9
 
10
10
 
11
-
12
-
13
- **VBA**
11
+ ```VBA
14
12
 
15
13
  '指定した場所のみ更新
16
14
 
@@ -70,9 +68,11 @@
70
68
 
71
69
  n = Cells(Rows.Count, "A").End(xlUp).row
72
70
 
73
-
74
71
 
72
+
73
+
74
+
75
- ** For j = 1 To n**
75
+ **For j = 1 To n**
76
76
 
77
77
  ** For i = 1 To 3**
78
78
 
@@ -125,3 +125,5 @@
125
125
 
126
126
 
127
127
  End Sub
128
+
129
+ ```

3

修正

2020/03/30 02:26

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -10,11 +10,7 @@
10
10
 
11
11
 
12
12
 
13
-
14
-
15
-
16
-
17
- **コード**
13
+ **VBA**
18
14
 
19
15
  '指定した場所のみ更新
20
16
 

2

修正

2020/03/30 02:21

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -80,7 +80,7 @@
80
80
 
81
81
  ** For i = 1 To 3**
82
82
 
83
- '行' '列' '列' '行'
83
+
84
84
 
85
85
  ** If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then**
86
86
 

1

コード修正

2020/03/30 01:48

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -1,8 +1,10 @@
1
1
  DBに接続して、ExcelにDBの情報をExcelに全件表示させて、Excelから一部書き換えて書き換えた所のみ、DBに書き込みしたいのですが、いちよプログラムは動くのですが、ループ(繰り返し)処理が更新するたび動くようにコードを書いてしまって、一回で書くことができません。色々考えたのですが進めないのでご質問させて頂きました。
2
2
 
3
- 以下の太文字の所どのように改善したらよろしいでしょうか。
3
+ 下記の太文字の所が関係している箇所です。
4
4
 
5
5
  お手数をおかけしますが、アドバイスよろしくお願い致します。
6
+
7
+
6
8
 
7
9
 
8
10
 
@@ -74,25 +76,25 @@
74
76
 
75
77
 
76
78
 
77
- ** For j = 1 To n
79
+ ** For j = 1 To n**
78
80
 
79
- For i = 1 To 3
81
+ ** For i = 1 To 3**
80
82
 
81
- '行' '列' '列' '行'
83
+ '行' '列' '列' '行'
82
84
 
83
- If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then
85
+ ** If Cells(j, i + 1).Value <> arrRcd(i, j - 1) Then**
84
86
 
85
87
 
86
88
 
87
- strSQL = "update 社員テーブル1 set " _
89
+ ** strSQL = "update 社員テーブル1 set " _**
88
90
 
89
- + " 名前 ='" + Cells(j, 2).Value + "'" _
91
+ ** + " 名前 ='" + Cells(j, 2).Value + "'" _**
90
92
 
91
- + ",住所 ='" + Cells(j, 3).Value + "'" _
93
+ ** + ",住所 ='" + Cells(j, 3).Value + "'" _**
92
94
 
93
- + ",電話 ='" + Cells(j, 4).Value + "'" _
95
+ ** + ",電話 ='" + Cells(j, 4).Value + "'" _**
94
96
 
95
- + " where 社員NO = '" + CStr(j) + "'"**
97
+ ** + " where 社員NO = '" + CStr(j) + "'"**
96
98
 
97
99
 
98
100