Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9228 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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.
思いもしませんでした
いい勉強になります
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9228 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free