Excel VBA質問箱 IV

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

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


7697 / 13644 ツリー ←次へ | 前へ→

【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のコードの書き方の違いを
勉強するのにまた少し悩みそうですが、
大変ありがとうございました。

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