回答編集履歴
2
追記
test
CHANGED
|
@@ -1,3 +1,29 @@
|
|
|
1
|
+
以下のようにすると`findRange`に`Nothing`などが入ってないでしょうか？
|
|
2
|
+
|
|
3
|
+
`Cells.Find`は検索したけど見つからなかった場合に、`Nothing`を返すので`Activate`がエラーになります。
|
|
4
|
+
|
|
5
|
+
|
|
6
|
+
|
|
7
|
+
```VBScript
|
|
8
|
+
|
|
9
|
+
'Cells.Find(What:=strImgName).Activate
|
|
10
|
+
|
|
11
|
+
'↓
|
|
12
|
+
|
|
13
|
+
Dim findRange as Range
|
|
14
|
+
|
|
15
|
+
Set findRange = Cells.Find(What:=strImgName)
|
|
16
|
+
|
|
17
|
+
findRange.Activate
|
|
18
|
+
|
|
19
|
+
```
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
----
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
1
27
|
> >B4セル には具体的にどのような値が入っているのでしょうか？C:\work\01_実作業
|
|
2
28
|
|
|
3
29
|
> >最後に"\"は付けてますか？
|
1
表現修正
test
CHANGED
|
@@ -22,6 +22,10 @@
|
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
|
+
`C:\work\01_実作業*.bmp`というファイルを探さなければなりません。
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
25
29
|
B4セルの値の最後に`\`を付けるか、以下のようにしてください。
|
|
26
30
|
|
|
27
31
|
```VBScript
|
|
@@ -36,8 +40,4 @@
|
|
|
36
40
|
|
|
37
41
|
End If
|
|
38
42
|
|
|
39
|
-
|
|
40
|
-
|
|
41
|
-
|
|
42
|
-
|
|
43
43
|
```
|