Ｐａｇｅ 774 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フィルターモードでセル選択 PJ 03/2/17(月) 15:53 ┣Re:フィルターモードでセル選択 Jカーター 03/2/17(月) 16:08 ┗自己解決しました。 PJ 03/2/20(木) 10:34 ─────────────────────────────────────── ■題名 ： フィルターモードでセル選択 ■名前 ： PJ ■日付 ： 03/2/17(月) 15:53 -------------------------------------------------------------------------
| こんにちは フィルタモード状態で、一番新しい行を選択する方法が分かりません。 例えばa1〜a10行目にデータが入っているとします。 オートフィルタである条件の元、1〜5行目のデータが表示され6〜10行目は 折りたたまれました。 一番新しい行（＝11行目）を選択したいのですが、 フィルタモードでは、range("a1").end(xldown).offset(1).select range("a65536").end(xlup).offset(1).select どちらでやっても左上のセル番地はa6と表示され、可視状態のoffset(1)には なってくれず、折りたたまれているセルを選択してしまうのです。 どうしたら11行目を選択することができますか？ 教えて下さい！お願いします〜 |
| こんにちは。 オートフィルターモードがオフの時はエラーになるので 分岐処理をしてください。 Sub test() With ActiveSheet.AutoFilter.Range .Cells(.Rows.Count + 1).Select End With End Sub 的はずれでしたらすいません。 |
| Jカーターさんありがとうございました。 悶々と考えた結果、自己解決できました。 >例えばa1〜a10行目にデータが入っているとします。 >オートフィルタである条件の元、1〜5行目のデータが表示され6〜10行目は >折りたたまれました。 >一番新しい行（＝11行目）を選択したいのですが、 >フィルタモードでは、range("a1").end(xldown).offset(1).select >range("a65536").end(xlup).offset(1).select >どちらでやっても左上のセル番地はa6と表示され、可視状態のoffset(1)セルには >なってくれず、折りたたまれているセル（a6）を選択してしまうのです。 >どうしたら(a11)を選択することができますか？ >教えて下さい！お願いします〜 Range("a5").Offset(WorksheetFunction.CountA(Columns(1)) - 2).Select 要は、A列で空白で無いセル数をカウント、offsetすれば ちゃんと最新行に行ってくれました。 目の付け所をかえたら解決。私って天才！…なんて思っちゃいました。単純…(^^; |