質問編集履歴
4
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
strDefaultPath = Range("D1").Value
|
|
17
17
|
```
|
|
18
18
|
|
|
19
|
-
パスを指定したい場所の参考画像（この画像のD1:F1の位置）
|
|
19
|
+
パスを指定したい場所の参考画像（この画像のD1:F1の位置でパスを指定）
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
3
HCno追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,5 +16,8 @@
|
|
|
16
16
|
strDefaultPath = Range("D1").Value
|
|
17
17
|
```
|
|
18
18
|
|
|
19
|
+
パスを指定したい場所の参考画像（この画像のD1:F1の位置）
|
|
20
|
+
|
|
19
21
|
|
|
22
|
+
|
|
20
23
|
申し訳ありませんが、宜しくお願いします。
|
2
内容の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,15 +4,17 @@
|
|
|
4
4
|
Const strDefaultPath As String = "パスの指定"
|
|
5
5
|
```
|
|
6
6
|
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
それを、Excelのセル上に記載したパスをstrDefaultPathの値に代入し、マクロのパスをいじらなくても、Excel上にフォルダのパスを指定すれば正常に動作するようにしたいのですが、どのようにソースを修正すれば良いでしょうか。
|
|
10
|
+
|
|
11
|
+
今回の場合、フォルダのパスを指定するのはD1セルとします。
|
|
12
|
+
|
|
7
13
|
以下のように書いて見てもうまくできませんでした
|
|
8
14
|
```VBA
|
|
9
15
|
Dim strDefaultPath As Variant
|
|
10
16
|
strDefaultPath = Range("D1").Value
|
|
11
17
|
```
|
|
12
18
|
|
|
13
|
-
それを、Excelのセル上に記載したパスをstrDefaultPathの値に代入し、マクロのパスをいじらなくても、Excel上にフォルダのパスを指定すれば正常に動作するようにしたいのですが、どのようにソースを修正すれば良いでしょうか。
|
|
14
19
|
|
|
15
|
-
今回の場合、フォルダのパスを指定するのはD1セルとします。
|
|
16
|
-
|
|
17
|
-
|
|
18
20
|
申し訳ありませんが、宜しくお願いします。
|
1
内容の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,9 +4,15 @@
|
|
|
4
4
|
Const strDefaultPath As String = "パスの指定"
|
|
5
5
|
```
|
|
6
6
|
|
|
7
|
+
以下のように書いて見てもうまくできませんでした
|
|
8
|
+
```VBA
|
|
9
|
+
Dim strDefaultPath As Variant
|
|
10
|
+
strDefaultPath = Range("D1").Value
|
|
11
|
+
```
|
|
12
|
+
|
|
7
13
|
それを、Excelのセル上に記載したパスをstrDefaultPathの値に代入し、マクロのパスをいじらなくても、Excel上にフォルダのパスを指定すれば正常に動作するようにしたいのですが、どのようにソースを修正すれば良いでしょうか。
|
|
8
14
|
|
|
9
|
-
今回の場合、フォルダのパスを指定するのは
|
|
15
|
+
今回の場合、フォルダのパスを指定するのはD1セルとします。
|
|
10
16
|
|
|
11
17
|
|
|
12
18
|
申し訳ありませんが、宜しくお願いします。
|