Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7718 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37434】飛び飛びのセルの選択 HIRO 06/5/5(金) 21:57 質問[未読]
【37435】Re:飛び飛びのセルの選択 かみちゃん 06/5/5(金) 22:04 回答[未読]
【37436】Re:飛び飛びのセルの選択 HIRO 06/5/5(金) 22:17 質問[未読]
【37437】Re:飛び飛びのセルの選択 Kein 06/5/5(金) 22:21 回答[未読]
【37439】Re:飛び飛びのセルの選択 HIRO 06/5/5(金) 22:25 お礼[未読]
【37438】Re:飛び飛びのセルの選択 かみちゃん 06/5/5(金) 22:22 回答[未読]
【37440】Re:飛び飛びのセルの選択 HIRO 06/5/5(金) 22:31 お礼[未読]
【37434】飛び飛びのセルの選択
質問  HIRO  - 06/5/5(金) 21:57 -
引用なし
パスワード
   マクロの記録では
　　Range("A12,C12:N12").Select
となるのですが、これをアクティブなセルの行で
A列とC列からN列までを選択したいのですが、

Dim myRow As Integer
Dim Rng As Range
myRow = ActiveCell.Row
Set Rng = Range(Cells(myRow, 3), Cells(myRow, 14))

Range(Cells(myRow, 1), Rng).Select

と書いてみたのですが、A列からN列まで連続して
選択されてしまいます。
いろいろと調べては見ても解決できずにおります。
よろしくお願いいたします。
【37435】Re:飛び飛びのセルの選択
回答  かみちゃん  - 06/5/5(金) 22:04 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>マクロの記録では
>　　Range("A12,C12:N12").Select
>となるのですが、これをアクティブなセルの行で
>A列とC列からN列までを選択したいのですが、

　Range("A12,C12:N12").EntireColumn.Select
か
　Union(Columns("A"), Columns("C:N")).Select
でいかがでしょうか？
【37436】Re:飛び飛びのセルの選択
質問  HIRO  - 06/5/5(金) 22:17 -
引用なし
パスワード
   ▼かみちゃん さん：
かみちゃんありがとうございます。

以上のコードではA列とC列からN列の1行目から65536行目まで全てが
選択されてしまいます。
アクティブなセルの行のA列とC列からN列を選択したいので
（5行目の？列がアクティブなとき）→A5,C5:N5
（17行目の？列がアクティブなとき）→A17,C17:N17
といった感じなのですが？この説明で分かっていただけますでしょうか？
【37437】Re:飛び飛びのセルの選択
回答  Kein  - 06/5/5(金) 22:21 -
引用なし
パスワード
   Intersect(ActiveCell.EntireRow, Range("A:A, C:N")).Select

で、出来ます。
【37438】Re:飛び飛びのセルの選択
回答  かみちゃん  - 06/5/5(金) 22:22 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>以上のコードではA列とC列からN列の1行目から65536行目まで全てが
>選択されてしまいます。
>アクティブなセルの行のA列とC列からN列を選択したい

すみません、質問を勘違いしました。
以下のような感じでいかがでしょうか？
　With ActiveCell
　　Union(Cells(.Row, 1), Range(Cells(.Row, 3), Cells(.Row, 14))).Select
　End With
【37439】Re:飛び飛びのセルの選択
お礼  HIRO  - 06/5/5(金) 22:25 -
引用なし
パスワード
   ▼Kein さん：
Kein　さん　ありがとうございます。
ばっちり選択できました。
こんな一行で出来るとは、感心と勉強させていただき
ありがとうございました。
【37440】Re:飛び飛びのセルの選択
お礼  HIRO  - 06/5/5(金) 22:31 -
引用なし
パスワード
   ▼かみちゃん さん：
かみちゃん　さん　ありがとうございます。
思うような選択が出来ました。
IntersectとUnionのコードの書き方の違いを
勉強するのにまた少し悩みそうですが、
大変ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7718 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free