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

質問

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

回答No.10

nag0720

＃６～＃８のプログラムにバグがありました。
パブリック変数の初期設定を充分にしていなかったので、エクセルを再起動せずに１の場所だけ変えて再実行してもうまくいかないようです。

バグ修正およびスピードアップした改良版です。

Option Explicit
Option Base 1

Const SIZE = 10
Dim C(SIZE, SIZE) As Boolean
Dim S(SIZE) As Integer
Dim T(SIZE) As Integer
Dim TCount As Integer
Dim Count As Long

Sub Combination()
Dim i As Integer, j As Integer

For i = 1 To SIZE
For j = 1 To SIZE
C(i, j) = 0
Next
Next
For i = 1 To SIZE - 1
For j = i + 1 To SIZE
C(i, j) = Cells(i + 1, j + 1)
C(j, i) = C(i, j)
Next
Next

Worksheets("Sheet2").Select
Count = 0
For i = 1 To SIZE - 1
TCount = 0
For j = i + 1 To SIZE
If C(i, j) Then
TCount = TCount + 1
T(TCount) = j
End If
Next
S(1) = i
AddCombin 1, 1
S(1) = 0
Next
End Sub

Sub AddCombin(n As Integer, k As Integer)
Dim i As Integer, j As Integer, i0 As Integer, j0 As Integer
Dim ExistNext As Boolean, CheckFlag As Boolean

ExistNext = False
For j = k To TCount
CheckFlag = True
For i = 2 To n
If Not C(S(i), T(j)) Then
CheckFlag = False
Exit For
End If
Next
If CheckFlag Then
ExistNext = True
S(n + 1) = T(j)
AddCombin n + 1, j + 1
S(n + 1) = 0
End If
Next
If n = 1 Or ExistNext Then Exit Sub

j0 = 1
For i0 = 1 To n
For j = j0 To S(i0) - 1
CheckFlag = True
For i = 1 To n
If Not C(S(i), j) Then
CheckFlag = False
Exit For
End If
Next
If CheckFlag Then Exit Sub
Next
j0 = S(i0) + 1
Next

Count = Count + 1
For i = 1 To n
Worksheets("Sheet2").Cells(Count + 1, i + 1) = S(i)
Next
Worksheets("Sheet2").Cells(Count + 1, 2).Select
End Sub

これをＣ言語にするとつぎのようになります。

#include <stdio.h>

#define SIZE 10

void add_combin(int n, int k, char c_data[][SIZE], int s_data[], int t_data[], int *pt_count, long int *pcount, FILE *fp) {
int exist_next = 0;
for (int j = k; j < *pt_count; j++) {
int check_flag = 1;
for (int i = 1; i < n; i++) {
if (c_data[s_data[i]][t_data[j]] == 0) {
check_flag = 0;
break;
}
}
if (check_flag == 1) {
exist_next = 1;
s_data[n] = t_data[j];
add_combin(n + 1, j + 1, c_data, s_data, t_data, pt_count, pcount, fp);
s_data[n] = 0;
}
}
if (n == 1 || exist_next == 1) return;

int j0 = 0;
for (int i0 = 0; i0 < n; i0++) {
for (int j = j0; j < s_data[i0]; j++) {
int check_flag = 1;
for (int i = 0; i < n; i++) {
if (c_data[s_data[i]][j] == 0) {
check_flag = 0;
break;
}
}
if (check_flag == 1) return;
}
j0 = s_data[i0] + 1;
}

(*pcount)++;
printf("%d\n", *pcount);
fprintf(fp, "%d", s_data[0] + 1);
for (int i = 1; i < n; i++)
fprintf(fp, " %d", s_data[i] + 1);
fprintf(fp, "\n");
}

void main() {
char c_data[SIZE][SIZE];
int s_data[SIZE];
int t_data[SIZE];
int t_count;
long int count = 0;

char str[256];
FILE *fp;

for (int i = 0; i < SIZE; i++) {
for (int j = 0; j < SIZE; j++)
c_data[i][j] = 0;
c_data[i][i] = 1;
}

fp = fopen("data.txt", "r");
for (int i = 0; i < SIZE - 1; i++) {
fgets(str, 256, fp);
for (int j = i + 1; j < SIZE; j++) {
if (str[j - i - 1] == '1') {
c_data[i][j] = 1;
c_data[j][i] = 1;
}
}
}
fclose(fp);

fp = fopen("out.txt", "w");
for (int i = 0; i < SIZE - 1; i++) {
t_count = 0;
for (int j = i + 1; j < SIZE; j++) {
if (c_data[i][j] == 1)
t_data[t_count++] = j;
}
s_data[0] = i;
add_combin(1, 0, c_data, s_data, t_data, &t_count, &count, fp);
s_data[0] = 0;
}
fclose(fp);
}

セルが使えませんので、表データと組み合わせ結果はファイルになります。
表データは次のようなファイルにしてください。

ファイル名は、data.txt
ファイル内容は、表の右上の三角の領域の部分を、行ごとに0,1をつなげた文字列にしてください。
例えば、質問の図の１０×１０の場合は、
100101100
00101000
0001000
101000
01101
0000
110
11
0
というように、９行のデータファイルになります。
（１１２×１１２の表なら、１１１行のデータファイルになります）

組み合わせ結果はout.txtに出力されます。
実行中はコンソールに件数が表示されます。

上記のプログラムは標準的なＣのコードです。
お使いのコンパイラによっては変更すべき点もあると思いますので、適宜修正してください。

本来なら、エラー処理をしたり、SIZEを可変にしたりすべきでしょうが、長くなるので割愛しています。
必要なら御自分で組み込んでください。

お礼

再度のアドバイスありがとうございます。

上述のＣ言語のコードをVisual Studio 2008のC++、win32コンソールにて入力後、ビルドしましたらexeファイルができました。exeファイルをdosモードで起動data.txtファイルを読み込ませようとしました（方法は、ローカルディスク（D:)にexeファイルおよびdata.txtファイルを入れまして、dosモードにて、d:\>program.exeと入力しました）がout.txtが出力されなくてどのようにすればいいか困ってしまいました。exeファイルの起動方法もしくはexeファイルの作成の工程についてアドバイスをいただけたら幸いです。
（初歩的な質問になりまして申し訳ありません。お時間あるときに教えていただけるとありがたいです）

また、VBAのコードを１１２×１１２で実行しましたら約３時間程度かかりまして処理が完了しました。プログラムのすごさを実感しました。改めてお礼申し上げます。