Excel VBA質問箱 IV

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

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


9209 / 13646 ツリー ←次へ | 前へ→

【28412】どう設定すれば・・・・? taka 05/9/6(火) 2:41 質問[未読]
【28413】Re:オートフィルタで表示されている範囲の... かみちゃん 05/9/6(火) 2:49 回答[未読]
【28496】Re:オートフィルタで表示されている範囲... taka 05/9/8(木) 0:55 お礼[未読]
【28549】Re:オートフィルタで表示されている範囲の... taka 05/9/9(金) 3:11 質問[未読]
【28551】Re:オートフィルタで表示されている範囲の... りん 05/9/9(金) 9:02 発言[未読]
【28744】Re:オートフィルタで表示されている範囲の... taka 05/9/13(火) 21:58 お礼[未読]
【28431】Re:どう設定すれば・・・・? Jaka 05/9/6(火) 16:05 回答[未読]

【28412】どう設定すれば・・・・?
質問  taka  - 05/9/6(火) 2:41 -

引用なし
パスワード
   教えてください

Set Lot_List = Selection
For Each Lot In Lot_List

を使用して 選択した範囲の文字列を取得していますが
オートフィルターで行数を縮めた時に使用すると
表示されていない行まで選択されてしまいます
これを表示されている範囲の文字列だけをを選択するには
どのように設定すればいいのでしょう?

CTRL+で選択するしかないのでしょうか?

【28413】Re:オートフィルタで表示されている範囲...
回答  かみちゃん  - 05/9/6(火) 2:49 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>これを表示されている範囲の文字列だけをを選択するには
>どのように設定すればいいのでしょう?

対象範囲全体を選択後、一般操作で「編集」−「ジャンプ」で「セル選択」をクリックして「可視セル」を選択する
ことと同じことでいいと思います。
それを「マクロの記録」で記録するとだいたいわかると思いますが、
以下のような感じでできるかと思います。

 Set Lot_List = Selection.SpecialCells(xlCellTypeVisible)

【28431】Re:どう設定すれば・・・・?
回答  Jaka  - 05/9/6(火) 16:05 -

引用なし
パスワード
   こんにちは。
どんな風にフィルタを掛けているのか解らないけど...。

ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select

【28496】Re:オートフィルタで表示されている範囲...
お礼  taka  - 05/9/8(木) 0:55 -

引用なし
パスワード
   かみちゃん/jakaさん
ありがとうございます
本当にたすかりました これで作業がしやすくなります <(_ _)>ペコッ

【28549】Re:オートフィルタで表示されている範囲...
質問  taka  - 05/9/9(金) 3:11 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>これを表示されている範囲の文字列だけをを選択するには
>>どのように設定すればいいのでしょう?
>
>対象範囲全体を選択後、一般操作で「編集」−「ジャンプ」で「セル選択」をクリックして「可視セル」を選択する
>ことと同じことでいいと思います。
>それを「マクロの記録」で記録するとだいたいわかると思いますが、
>以下のような感じでできるかと思います。
>
> Set Lot_List = Selection.SpecialCells(xlCellTypeVisible)


ごめんなさい 上記の設定にて思ったように出来たので良かったのですが
今度は逆に1つのセルを選択した時 選択セルとぜんぜん違う値を取得するように
なりました
これはどうすればいいのでしょう?

【28551】Re:オートフィルタで表示されている範囲...
発言  りん E-MAIL  - 05/9/9(金) 9:02 -

引用なし
パスワード
   taka さん、おはようございます。
かみちゃん さんもおはようございます。

>> Set Lot_List = Selection.SpecialCells(xlCellTypeVisible)
>今度は逆に1つのセルを選択した時 選択セルとぜんぜん違う値を取得するように
>なりました
>これはどうすればいいのでしょう?
 選択範囲のセルが一つの時は、シート全体をチェックする(通常の検索時と同じ動作)ようなので、Selection.Count = 1 の時はそのまま、それ以外はSpecialCellsを実行してLot_ListにSetするように If または Select Case で分岐したらいいと思います。

【28744】Re:オートフィルタで表示されている範囲...
お礼  taka  - 05/9/13(火) 21:58 -

引用なし
パスワード
   皆さんありがとうございます
これで完璧です
すごく便利になりました

「編集」−「ジャンプ」で「セル選択」をクリックして「可視セル」
Selection.Count = 1 etc.
思いもしませんでした
いい勉強になります

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