質問編集履歴
2
あってたので元に戻しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
それぞれ下記のデータが格納されているとします。
|
|
8
8
|
```VBA
|
|
9
9
|
Dim FileName As Variant
|
|
10
|
-
FileName = Array(2,2)
|
|
10
|
+
FileName = Array(0,1,2)(0,1,2)
|
|
11
11
|
FileName(0,0) = "a\b\c"
|
|
12
12
|
FileName(0,1) = "a\e\f\k\s\t\h"
|
|
13
13
|
FileName(0,2) = "b\f\g\a"
|
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
tmpの宣言を二次元配列とした場合、
|
|
39
39
|
```VBA
|
|
40
40
|
Dim Tmp As Variant
|
|
41
|
-
Tmp = Array(2,2)
|
|
41
|
+
Tmp = Array(0,1,2)(0,1,2)
|
|
42
42
|
For i = 0 To 3
|
|
43
43
|
For j = 0 To 3
|
|
44
44
|
tmp(i,j) = Split(FileName(i, j), "\")
|
1
配列の宣言を修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
それぞれ下記のデータが格納されているとします。
|
|
8
8
|
```VBA
|
|
9
9
|
Dim FileName As Variant
|
|
10
|
-
FileName = Array(
|
|
10
|
+
FileName = Array(2,2)
|
|
11
11
|
FileName(0,0) = "a\b\c"
|
|
12
12
|
FileName(0,1) = "a\e\f\k\s\t\h"
|
|
13
13
|
FileName(0,2) = "b\f\g\a"
|
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
tmpの宣言を二次元配列とした場合、
|
|
39
39
|
```VBA
|
|
40
40
|
Dim Tmp As Variant
|
|
41
|
-
Tmp = Array(
|
|
41
|
+
Tmp = Array(2,2)
|
|
42
42
|
For i = 0 To 3
|
|
43
43
|
For j = 0 To 3
|
|
44
44
|
tmp(i,j) = Split(FileName(i, j), "\")
|