重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

おしえて

マクロ 最終行のセルに移動したとき

解決済

  • 質問者：chabindora
  • 質問日時：
  • 回答数：2件

いつもお世話になります。
WIN10 エクセル2016です。

下記のコードですと　「図1」　の様になりますがこれを、
「図2」　のようにしたいのですが可能でしょうか

もし可能ならば　「図2」　のようにするにはどんな構文を追加すればよいか
ご指導いただけませんか。


図1のコードです。
Sub Sample3()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

「マクロ 最終行のセルに移動したとき」の質問画像

質問者からの補足コメント

  • 追加します。
    A列は日付を　1～12月が入り月によって行数は変化します。
    現在は　A750 ですが必ずしも同じではありません

    最終行のマクロを実行したとき必ず　A3　がアクティブセルになると理想的です。

    ※図1ですとほぼ真ん中になるのが見にくいのです。

      補足日時：2018/10/15 13:27
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.1ベストアンサー

  • 回答者： poco_2
  • 回答日時：

Sub Sample3()


ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveWindow.ScrollRow = ActiveCell.Row - 1
End Sub

こういうことでしょうか？
    • good
    • 0
    • 件
通報する
この回答へのお礼

ありがとうございます。
うまくできました。
お陰様で。

先日もお世話になりました。

通報する
お礼日時：2018/10/15 13:38

No.2

  • 回答者： fujillin
  • 回答日時：

こんにちは



スクロールを制御したいという意味でしょうか？
　ActiveWindow.ScrollRow = Selection.Row - 1
を追加してみては？
    • good
    • 0
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報