Excel 2010(x64) VBAで配列 public が役目をしない

Question

Public CEL_BUF As Variant

sub a()

CEL_BUF = WS1.Range(WS1.Cells(1, 1), WS1.Cells(R_Row, 26))

                  CEL_BUF(Rec_Row, 3) = Bok_BUF(i, 32) 

                  CEL_BUF(Rec_Row, 4) = Bok_BUF(i, 32)

                  CEL_BUF(Rec_Row, 6) = Bok_BUF(i, 32)

WS1.Range(WS1.Cells(1, 1), WS1.Cells(Rec_Row, 26)) = CEL_BUF 

End sub

はセルに表示する。

sub b()

CEL_BUF = WS1.Range(WS1.Cells(1, 1), WS1.Cells(R_Row, 26))

      CEL_BUF(Rec_Row, 3) = Bok_BUF(i, 32)

      CEL_BUF(Rec_Row, 4) = Bok_BUF(i, 32)

      CEL_BUF(Rec_Row, 6) = Bok_BUF(i, 32)

Call Brain(Rec_Row)

WS1.Range(WS1.Cells(1, 1), WS1.Cells(Rec_Row, 26)) = CEL_BUF

End sub

sub Brain(Rec_Row)

call xxxRec_Row()

end sub

    .

    .

    . 

    .

sub xxx()

call yyyRec_Row()

Set WS1 = Sheets(5) ←--------これが悪かった

end sub

と数回繰り返すとセルに表示しなくなる。

原因がわかりました。

Answer 1

DavidMicro さん、わざわざ返信をしていただきありがとうございます。

お手元の使用環境でメモリエラーが発生しているということなのですね。

確かに VBA が正常な動作しない原因の可能性があるので、もしお手元で進展があった場合やメモリエラーのトラブルで不明点があれば遠慮なく投稿してみてくださいね。

またお時間がありましたら返信をいただけると嬉しいです。

Answer 2

大沢　幸太郎さん、ありがとうございます

自分のバクでした。

メモリーエラーの問題がありますので、また質問しますのでよろしくお願いします。

Answer 3

DavidMicro さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

Excel 2010 (64 ビット) + Windows7 の環境の VBA で配列 public が正常に動作しないということなのですね。

確認なのですが、現状は原因が判明し、お手元で自己改善できたということなのでしょうか ?

ご自身で改善ができたようであれば嬉しく思うのですが、もし追加で質問がある場合は遠慮なく返信をしてみてくださいね。

もし VBA の詳細な内容についての質問であれば、こちらのフォーラムでは情報が集まりにくい場合があるので、 VBA フォーラムへ質問してみることで情報がより集まりやすくなるかもしれません。

Visual Basic for Application (VBA)

今回、追加の質問が必要が無いということであれば、よろしければ今後の参考にしてみてくださいね。

Answer 4

DavidMicro さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

Excel 2010 (64 ビット) + Windows7 の環境の VBA で配列 public が正常に動作しないということなのですね。

確認なのですが、現状は原因が判明し、お手元で自己改善できたということなのでしょうか ?

ご自身で改善ができたようであれば嬉しく思うのですが、もし追加で質問がある場合は遠慮なく返信をしてみてくださいね。

もし VBA の詳細な内容についての質問であれば、こちらのフォーラムでは情報が集まりにくい場合があるので、 VBA フォーラムへ質問してみることで情報がより集まりやすくなるかもしれません。

Visual Basic for Application (VBA)

今回、追加の質問が必要が無いということであれば、よろしければ今後の参考にしてみてくださいね。