Excelマクロで貼り付けエラー時に特定セルへカーソルを移動する方法

Visual Basic

Excel 365で、SharePoint上のファイルを操作している際に「コピー領域と貼り付け領域のサイズが違うため、貼り付けることができません」というエラーが出た場合、自動的に特定セルにカーソルを移動させるマクロを作成することが可能です。これにより、操作者がすぐにエラー原因の確認や対応を行えるようになります。

貼り付け処理とエラーハンドリングの組み合わせ

まず、貼り付け処理をマクロで実行し、On Errorステートメントを使用してエラー発生時に処理を分岐させます。エラーが発生した場合には、対象のシートとセルにカーソルを移動します。

サンプルマクロ

Sub PasteWithErrorCheck()
    On Error GoTo PasteError
    Sheets("貼付先").Range("A1").PasteSpecial Paste:=xlPasteAll
    Exit Sub

PasteError:
    MsgBox "コピー領域と貼り付け領域のサイズが違います。"
    Sheets("エラー理由と対策").Activate
    Range("A1").Select
End Sub

マクロの仕組み

  • On Error GoTo PasteErrorで貼り付け時のエラー発生を監視
  • エラー発生時にはMsgBoxで警告表示
  • Sheets("エラー理由と対策").Activateで対象シートをアクティブ化
  • Range("A1").SelectでセルA1を選択

運用上の注意

SharePoint上のファイルを操作する場合、メール添付直後のローカルファイルではエラーが出やすいため、必ずSharePointに保存・同期された後に貼り付けを行うことが推奨されます。また、貼り付けエラー時にこのマクロを使用することで、操作者がすぐにエラー原因を確認できるため、作業効率が向上します。

まとめ

このマクロにより、Excel 365で貼り付けエラーが発生した際に、自動的に「エラー理由と対策」シートのA1セルにカーソルを移動させることが可能です。エラーハンドリングとセル選択の組み合わせにより、作業者が迅速にエラー対応できる環境を整えることができます。

コメント

タイトルとURLをコピーしました