回答編集履歴
2
追記
answer
CHANGED
@@ -1,3 +1,6 @@
|
|
1
|
+
> TaYoRange(i, 1) = Asm & "OK"にて
|
2
|
+
「実行時エラー 13」「型が一致しません。」のエラーが出てしまいます。
|
3
|
+
|
1
4
|
`TaYoRange`が配列になっていないのでエラーになります。
|
2
5
|
2次元配列で扱おうとしてますが、最終的にB列のみに設定するのだから
|
3
6
|
1次元配列で構いません。
|
1
追記
answer
CHANGED
@@ -8,8 +8,10 @@
|
|
8
8
|
Dim TaYoRange(1 to 5000) As Variant
|
9
9
|
|
10
10
|
'・・・略・・・
|
11
|
+
' ↓ TaYoRange(i, 1)= ""
|
11
12
|
TaYoRange(i) =""
|
12
13
|
'・・・略・・・
|
14
|
+
' ↓ TaYoRange(i, 1)= As & "OK"
|
13
15
|
TaYoRange(i)= As & "OK"
|
14
16
|
'・・・略・・・
|
15
17
|
Range("B1:B5000") = TaYoRange
|