| |
▼Abebobo さん：
こんにちは
> For i = 1 To j
> x1 = x1 & Join(Application.Index(v1, i, 0)) & " " 'JoinでString型に収める
> x2 = x2 & Join(Application.Index(v2, i, 0)) & " "
> Next
> If x1 = x2 Then '答えがあっていれば
> （何でも良いです）
とのことなので、ぼくなら
(1) まず対象範囲に数値がすべて入っているか、COUNT関数で調べます。
(2) すべてのセルに数値が入っていたら、
行単位で答えが合っているか、チェックします。
このとき、合っていない行があれば、その後の処理はしません。
For i = 1 To K
x1 = Join(Application.Index(v1, i, 0)) 'JoinでString型に収める
x2 = Join(Application.Index(v2, i, 0))
If x1 <> x2 Then Exit Sub
Next
PS.九九が苦手なので、途中で挫折しました(ToT)
どんなテキストボックスなのか 見てみたかったけど(^^
|
|
kanabun
- 08/6/6(金) 17:57 -
