共通の値を持つ座標の組み合わせについて

質問

• 共通の値を持つ座標の組み合わせを表示するVBAの作成方法について考えています。
• 表の特定の座標に共通の値を持つ組み合わせを表示するVBAを作成したいです。
• VBAに詳しい方からのアドバイスを頂けると助かります。

回答No.9

nag0720

Long型に変えたのは、Count変数でしょうか。

Countは組み合わせの総数です。
Integer型は32767までですから、それを超えるならLongにしなければなりません。

このプログラムで一番メモリを使っているのは、TBL(SIZE, 10000)ですが、これはチェック用に行ごとの組み合わせを登録している配列で、TBLCountはその数です。
例えば、質問の図の１０×１０で言えば、１行目の組み合わせの２通りが最大数なので、TBL(SIZE, 2)としても十分です。
132×132の場合でもたぶん１行目の組み合わせが最大になると思いますが、それが10000もいかないならもっと減らしてもいいし、足りなければ増やさなければいけません。
もし処理中に「インデックスが有効範囲にありません」のエラーが出たら、その数をもっと大きくしてください。
TBLCountは、その数が32767を超えなければIntegerのままで大丈夫です。

Longに変えていいのはCountとTBLCountだけですし、この程度のメモリ消費では処理時間にはそんなに影響はないでしょう。

もしこの処理を定期的に行なうのなら、やはりVBAよりVBかCで作ったほうがいいではないでしょうか。
VBAで１時間かかるの処理なら、VBならたぶん５分くらいで終わると思います。Cならもっと速いかもしれません。
VB、Cのコンパイラは両方とも無償でダウンロードできます。

お礼

アドバイスありがとうございます。評価だけは先に入れさせていただきましたが、返信ができていませんでした。

C言語は昔使ったことがあり、コンパイラのDLもできましたが、当然にこのようなプログラムを私に組むことができないために本当に図々しいことは承知しているのですが、お時間があるときにプログラムを教えていただいたら幸いです。

ちなみに、上述のプログラムを１１２×１１２で動かしてみますと１の入っているセルのパターンによって1時間程度で終わる場合もあれば、5,6時間動かしても完了しない場合があります。C言語が早く処理ができるならば、プログラムがどのような動きをするのかも興味があります。

可能でしたらお付き合いいただけるとありがたいです。よろしくお願いします。