msgbox無効にするたびにオフセットセルを1ずつインクリメントするが、エラーが表示されるmsgbox 1行目の場合は

Question

ボタンを押すたびにactivecell.offsetを1つ上に移動するコマンドボタンがあります。

ActiveCell.Offset(-1, 0).Select 

細胞が最初の行に到達するたびにしかし、それは次のエラーが押下される次回表示：

「実行時エラー 『1004』： アプリケーション定義またはオブジェクト定義エラー」

行が1より大きいか、列が1より大きいかどうかを調べるコードを実装する必要がありますか？

この機能が何もしないのであれば、私はmsgboxを表示したくありません。私が気づいていない簡単な方法はありますか？

Answer 1

ソルセリがこの質問に答えました。

彼のコード：

If ActiveCell.Row > 1 then ActiveCell.Offset(-1, 0).Select 

はあなたの先生ありがとうございました！