Excel VBA質問箱 IV

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

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


25904 / 76732 ←次へ | 前へ→

【56165】Re:Index と Join の使い方
発言  kanabun  - 08/6/6(金) 18:05 -

引用なし
パスワード
   あと、どんなふうに入力していくかですが、
列方向にLoopしてcheck してもいいですね
(配列に入れずに Range を使ってますが。)

 Set r1 = Me.Range("B2").Resize(K, K)  '手作業の結果
 Set r2 = Sheet2.Range("B2").Resize(K, K)  '答え
 For i = 1 To K
  S1 = Join(Application.Transpose(r1.Columns(i)))  'JoinでString型に収める
  S2 = Join(Application.Transpose(r2.Columns(i)))
  If S1 <> S2 Then Exit Sub
 Next
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 お礼

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