Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25905 / 76732 ←次へ | 前へ→

【56164】Re:Index と Join の使い方
発言  kanabun  - 08/6/6(金) 17:57 -

引用なし
パスワード
   ▼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)
どんなテキストボックスなのか 見てみたかったけど(^^

0 hits

【56162】Index と Join の使い方 Abebobo 08/6/6(金) 17:07 質問
【56164】Re:Index と Join の使い方 kanabun 08/6/6(金) 17:57 発言
【56165】Re:Index と Join の使い方 kanabun 08/6/6(金) 18:05 発言
【56168】Re:Index と Join の使い方 Abebobo 08/6/6(金) 18:42 お礼
【56169】Re:Index と Join の使い方 n 08/6/6(金) 19:11 発言
【56170】Re:Index と Join の使い方 kanabun 08/6/6(金) 22:59 発言
【56177】Re:Index と Join の使い方 Abebobo 08/6/7(土) 13:09 お礼
【56219】Re:Index と Join の使い方 Abebobo 08/6/9(月) 10:16 お礼
【56220】Re:Index と Join の使い方 kanabun 08/6/9(月) 11:06 発言
【56222】Re:Index と Join の使い方 Abebobo 08/6/9(月) 11:58 お礼
【56227】Re:Index と Join の使い方 kanabun 08/6/9(月) 16:23 発言
【56228】Re:Index と Join の使い方 Abebobo 08/6/9(月) 17:08 お礼

25905 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free