![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2
- 回答日時:
#1の回答者です。
>ただ見える場所にカーソルを移動させたいだけなのですが、もう少し簡単な表現方法はございますでしょうか?
失礼しました。質問を読み違えてしまったようです。
見えるセルに移動する、というのは、簡単ではあっても、めったに出会わないマクロだと思います。Sendkeys を使う方法があります。
'//
Sub TestFilterMoveCell()
With ActiveSheet
.Range("A1").Select '左端上のオートフィルタに移動
Do
Selection.Offset(1).Select
Loop Until ActiveCell.EntireRow.Hidden = False
End With
End Sub
'Sendkeys を使った方法
'これは、他のWindow画面を開いていると、うまくいきません。
'//あまりお勧めしません。
Sub TestFilterMoveCell2()
With ActiveSheet
.Range("A1").Select '左端上のオートフィルタに移動
Application.SendKeys "{DOWN}"
End With
End Sub
No.1
- 回答日時:
一般的には、以下のように、そのままコピーすれば、見えないセルは選択しないはずです。
もしかしたら、バージョンの違いがあると思います。
その場合は、**の印の部分に替えてください。
Sub TestFilter()
Dim FilRange As Range
With ActiveSheet
'オートフィルターの状態の確認
If .AutoFilterMode = False Then
.Range("A1").AutoFilter
ElseIf .FilterMode Then
'フィルターで見えない行がある場合は一度全部だす。
.AutoFilter.ShowAllData
End If
'オートフィルターの範囲を設定 オートフィルターの選択
Set FilRange = .AutoFilter.Range
FilRange.AutoFilter _
Field:=1, _
Criteria1:="0"
'一列目のフィルターを使う
With FilRange
'Offset を使って1行下げて、行を縮める
.Resize(.Rows.Count - 1).Offset(1).Copy Worksheets("Sheet2").Range("A2")
''**.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Sheet2").Range("A2")
End With
End With
End Sub
添付画像は、そのオートフィルターの状態
![「VBA オートフィルター状態から見えるセ」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/1138040_5b7302c7dbe4d/M.jpg)
ご回答ありがとうございました。
ただ見える場所にカーソルを移動させたいだけなのですが、もう少し簡単な表現方法はございますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) Excel アクティブセルのみ条件付き書式の色を他の色にしたい。 4 2022/06/11 22:19
- Visual Basic(VBA) VBA リストボックス複数選択からセルへの反映についての質問です。 リストボックス1では1つ選択 リ 6 2023/02/24 12:51
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) エクセルでの行列の選択について 1 2022/06/01 17:01
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
-
4
エクセルVBA ひとつ下の行を選択したい
Excel(エクセル)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
ExcelVBA:オートフィルタをかけたシート上でのセル内の値参照について
Visual Basic(VBA)
-
8
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
11
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
12
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
13
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
マクロでセルを1行下に移動する方法
Excel(エクセル)
-
16
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
17
Excel-vba 文字列と変数を連結して更に変数として扱いたい
その他(プログラミング・Web制作)
-
18
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
19
End Sub が必要です。
Access(アクセス)
-
20
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ティッシュペーパーは空気を通...
-
ソフトバンクのあんしんフィル...
-
レンジフードのフィルター
-
エアコンの吸込口に氷が・・・。
-
レンジフードフィルタの訪問販...
-
エクセルでフィルターをかけた...
-
部屋をどれだけ綺麗に掃除して...
-
空気清浄機でシンナーは除去で...
-
最近暑くなってきたので常に窓...
-
空気清浄機の赤いランプがつい...
-
イオン式空気清浄機がなくなっ...
-
酒臭い部屋の空気をキレイにし...
-
空気清浄機の中にピン留めがは...
-
空気清浄機と換気扇どっちがいい?
-
100Vで1500Wの延長コード使用可...
-
料理の匂いとか部屋にのこるの...
-
隣人の薪ストーブの匂いに悩ま...
-
家電:量販店とネット通販の家...
-
空気清浄機の置き場所
-
ベープと空気清浄機と赤ちゃん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 名簿の検索…検索項目だけ...
-
VBA オートフィルター状態から...
-
ティッシュペーパーは空気を通...
-
レンジフィルターの訪問販売
-
RFフィルタ、IFフィルタについ...
-
エアコンの吸込口に氷が・・・。
-
エクセルでフィルターをかけた...
-
エンジン ポンプが途中でとま...
-
レンジフードフィルタの訪問販...
-
ピペットからのコンタミの確率
-
エクセルのマクロでフィルター...
-
ソフトバンクのあんしんフィル...
-
お風呂の循環アダプターカバー...
-
PCケースのファン前面フィルタ...
-
システミキッチンのガスレンジ...
-
24時間換気口の黒ずみ
-
乾燥機 フィルター交換したけ...
-
乾燥機のスポンジ状の部分につ...
-
エアコンのフィルターは、写真...
-
ソレアード2cupコーヒーメーカ...
おすすめ情報