Ｐａｇｅ 270 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼複数行を選択した場合の行の取得 ドキンちゃん 02/10/30(水) 10:11 ┗Re:複数行を選択した場合の行の取得 Taka-mk2 02/10/30(水) 10:24 ┗Re:複数行を選択した場合の行の取得 ドキンちゃん 02/10/30(水) 10:44 ─────────────────────────────────────── ■題名 ： 複数行を選択した場合の行の取得 ■名前 ： ドキンちゃん ■日付 ： 02/10/30(水) 10:11 -------------------------------------------------------------------------
| こんにちは！ いつもお世話になっております。 シート上で複数行を選択して、マクロを実行させたいのですが 選択された行位置を取得することは可能でしょうか？ 例えば、 Range("13:13,15:15,17:17").Select が選ばれた場合 '選択された行数だけ繰り返す For 選択行がある間 i 行目の処理を行うマクロを実行 Next という感じで．．．． どなたか、ご教授願います <m(__)m> |
| ▼ドキンちゃん さん： 東京は快晴です！ こんにちはぁ。 以下のような感じが参考になるのではないかと思いまして。 dim objSelect as object For Each objSelect In Selection.EntireColumn msgbox objSelect.Column Next これをコマンドボタンのイベントあたりに書いて実行していただけると 選択したColumnの番号が表示されます。 RowならEntireColumnをEntireRowにして、 objSelect.ColumnをobjSelect.Rowにすれば選択したRowが表示されます。 いじょ、参考になれば。 |
| Taka-mk2 さん こんにちは！ すご〜い♪ 感激しましたっ。 Rowにかえてテストしてみました。バッチリです！ ありがとうございました<m(__)m> 今後とも宜しくお願いいたします。 |