teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

追記

2020/02/21 04:54

投稿

Y.H.
Y.H.

スコア7918

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

追記

2020/02/21 04:54

投稿

Y.H.
Y.H.

スコア7918

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