
No.2ベストアンサー
- 回答日時:
こんにちは!
VBAでの一例です。
オートフィルタが設定されていて、絞り込まれていない場合のみ動作するようにしてみました。
選択されているセルをダブルクリックする方法です。
↓のコードをシートモジュールにし、選択されているセルをダブルクリックしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ActiveSheet
If .AutoFilterMode = True Then '//←オートフィルタが設定されていて・・・//
If .AutoFilter.FilterMode = False Then '//←絞り込まれていない場合・・・//
Cancel = True
.Cells(Rows.Count, Target.Column).End(xlUp).Select
End If
End If
End With
End Sub
※ オートフィルタが設定されていない場合(項目行セルの右側に「▼」が表示されていない場合)は何も変化しません。
単純に常に最終行をアクティブにしたい場合は
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ActiveSheet
Cancel = True
.Cells(Rows.Count, Target.Column).End(xlUp).Select
End With
End Sub
だけで動くと思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
複数のセルの入力内容を一度に...
-
エクセル 画面上の行数を調節...
-
エクセルで任意のセルをクリッ...
-
Excel 小さくなったスクロール...
-
エクセルでハイパーリンクのU...
-
EXCEL アルファベットと数字の...
-
エクセル 数値を全て「1」にす...
-
エクセルでカーソルが四方に矢...
-
excelで1行ごとに一気に削除す...
-
セルをクリックすると付箋のよ...
-
ピポットテーブルエラー解決方法
-
フィルタを解除した後の表示位置
-
エクセルで、結合したセルを選...
-
エクセルでウインドウ枠を固定...
-
Excelで表のデータを並び替えた...
-
エクセル グラフ作成について
-
マウスを動かすと勝手にセルが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
Excel 小さくなったスクロール...
-
複数のセルの入力内容を一度に...
-
セルをクリックすると付箋のよ...
-
エクセルの画面で十字マークが...
-
エクセル 画面上の行数を調節...
-
excelで1行ごとに一気に削除す...
-
EXCEL アルファベットと数字の...
-
エクセルでハイパーリンクのU...
-
エクセルで任意のセルをクリッ...
-
エクセル 数値を全て「1」にす...
-
エクセルで、結合したセルを選...
-
ピポットテーブルエラー解決方法
-
Excelで表のデータを並び替えた...
-
エクセルVBA 複数行にまたがっ...
-
エクセルで0を除いて昇順に並...
-
エクセルでカーソルが四方に矢...
-
Excel選択を繰り返すとセルの色...
-
列選択で勝手に広範囲に範囲選...
おすすめ情報
すいません!
一番下というのは、入力されているセルの一番下というニュアンスです。
Ctrl+↓で対処できることは把握していますが、それも面倒でして・・・。
私自身の質問の補足ですよ(^_^;)