VBA 指定セルに表示されない

質問

VBAで2次元配列に格納した数字を指定のセルに表示させたいのですが、
途中から表示場所がズレていきます。しかし、ちゃんと指定のセルに表示されるものもあります。
原因が不明で困っております。全文ではありませんが、以下がコードです。
よろしくお願いいたします。

Dim j As integer, k As integer
Dim map As Worksheet
Dim map_mode(23, 26) as integer

Set map = Worksheets("マップ")

For j = 0 to 23
For k = 0 to 26
If map_mode(j, k) <> 0 then
map.Cells(j + 1, k + 1) .offset(12, 2) = map_mode(j, k)
End if
Next k
Next j

回答No.1

keithin · ベストアンサー

＞途中から表示場所がズレていきます

ふつーに考えると、map_modeにデータを格納するところからズレてると考えるのが妥当です。
（ご相談に掲示されてない＝ご質問の範疇ではない）元データから見直して下さい。

参考：
sub macro1()
　dim map_mode(23, 26) as integer
’中略
　with worksheets("マップ").cells(13, 3).resize(24, 27)
　’.numberformat = "#"
　　.value = map_mode
　end with
end sub

お礼

ご回答ありがとうございます。
元データは問題ありませんでした。
参考のコードを試してみたら指定のセルに表示させることができました。

回答No.2

WindFaller

こんにちは。

>途中から表示場所がズレていきます。
そのコードから、表示自体が、ずれる要素はありません。

>map.Cells(j + 1, k + 1).Offset(12, 2) = map_mode(j, k)
ただ、コードとしては、全体がそんな調子だとすれば、どこかにミスが生じやすいコードです。私も、昔、そのようなコードを書いて、手が付けられなくなったことがあります。
それに、map_mode(23, 26)　このような配列に格納する訳があるのでしょうか？
質問のレベルからすると、そのような配列を作る理由が分からないのです。

お礼

ご回答ありがとうございます。
初心者であるためコードに至らない点があることはご容赦ください。keithinさんのコードを試してみたらちゃんと指定のセルに表示できました。