質問編集履歴
3
表示エラーを修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,6 +10,9 @@
|
|
|
10
10
|
```
|
|
11
11
|
|
|
12
12
|
### 該当のソースコード
|
|
13
|
+
|
|
14
|
+
```VBA
|
|
15
|
+
|
|
13
16
|
Sub 検索テスト()
|
|
14
17
|
With Application
|
|
15
18
|
.ScreenUpdating = False
|
|
@@ -54,8 +57,7 @@
|
|
|
54
57
|
.Calculation = xlCalculationAutomatic
|
|
55
58
|
End With
|
|
56
59
|
End Sub
|
|
57
|
-
|
|
60
|
+
|
|
58
|
-
VBA
|
|
59
61
|
```
|
|
60
62
|
|
|
61
63
|
### 試したこと
|
2
Ifステートメントの不備を修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -37,7 +37,7 @@
|
|
|
37
37
|
For j = 2 To 5670
|
|
38
38
|
On Error Resume Next
|
|
39
39
|
If 検索シート.Cells(i, 7).Value = データシート.Cells(j, 2).Value _
|
|
40
|
-
And 検索シート.Cells(i, 8) = データシート.Cells(j, 26)
|
|
40
|
+
And 検索シート.Cells(i, 8) = データシート.Cells(j, 26) Then
|
|
41
41
|
検索シート.Cells(i, 9).Value = Application.WorksheetFunction. _
|
|
42
42
|
Index(データシート.Cells(j, 27), Application.WorksheetFunction. _
|
|
43
43
|
Match(検索シート.Cells(i, 7), Range(データシート.Cells(2, 2), データシート.Cells(5670, 2)), 0))
|
1
ツールのバージョンを追記。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -64,4 +64,4 @@
|
|
|
64
64
|
|
|
65
65
|
### 補足情報（FW/ツールのバージョンなど）
|
|
66
66
|
|
|
67
|
-
|
|
67
|
+
Excel 2010を使用しています。
|