Excel VBA質問箱 IV

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

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


19934 / 76732 ←次へ | 前へ→

【62223】Re:Forで、条件に当てはまらない場合次の処理へ
発言  SS  - 09/7/2(木) 14:37 -

引用なし
パスワード
   ▼チューリップ さん:

こんにちは、質問への直接の回答ではないのですが

貼付け列設定をする際にt - startを使っていますがこれをもう一つ新しい変数を使うというのはいかがですか?
For文で一回りするたびにi=i+1で、3の倍数ごとにさらに+1(空白分)という感じで
出来ると思うのですが

  i = 0
>  For t = start To last
   If ActiveCell.Column Mod 3 <> 0 Then
     i = i + 2
   Else
     i = i + 1
   End If:
>  Selection.Offset(, i).Select
>  'オートフィルターで抽出した行数分右にコピーしていきます。
>

0 hits

【62220】Forで、条件に当てはまらない場合次の処理へ チューリップ 09/7/2(木) 13:29 質問
【62221】Re:Forで、条件に当てはまらない場合次の処... kanabun 09/7/2(木) 14:10 発言
【62222】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:34 発言
【62224】Re:Forで、条件に当てはまらない場合次の処... つん 09/7/2(木) 14:46 発言
【62226】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 15:27 お礼
【62223】Re:Forで、条件に当てはまらない場合次の処... SS 09/7/2(木) 14:37 発言
【62225】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:54 お礼

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