質問編集履歴
3
表示エラーを修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -21,6 +21,12 @@
|
|
|
21
21
|
|
|
22
22
|
|
|
23
23
|
### 該当のソースコード
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
```VBA
|
|
28
|
+
|
|
29
|
+
|
|
24
30
|
|
|
25
31
|
Sub 検索テスト()
|
|
26
32
|
|
|
@@ -110,9 +116,7 @@
|
|
|
110
116
|
|
|
111
117
|
End Sub
|
|
112
118
|
|
|
113
|
-
```ここに言語名を入力
|
|
114
119
|
|
|
115
|
-
VBA
|
|
116
120
|
|
|
117
121
|
```
|
|
118
122
|
|
2
Ifステートメントの不備を修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -76,7 +76,7 @@
|
|
|
76
76
|
|
|
77
77
|
If 検索シート.Cells(i, 7).Value = データシート.Cells(j, 2).Value _
|
|
78
78
|
|
|
79
|
-
And 検索シート.Cells(i, 8) = データシート.Cells(j, 26)
|
|
79
|
+
And 検索シート.Cells(i, 8) = データシート.Cells(j, 26) Then
|
|
80
80
|
|
|
81
81
|
検索シート.Cells(i, 9).Value = Application.WorksheetFunction. _
|
|
82
82
|
|
1
ツールのバージョンを追記。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -130,4 +130,4 @@
|
|
|
130
130
|
|
|
131
131
|
|
|
132
132
|
|
|
133
|
-
|
|
133
|
+
Excel 2010を使用しています。
|