🔙 Back to Menu

ClipBoardのPaste

🟢 Excel VBA
投稿日: 2026年4月10日17:22 
Public Sub PasteClipBoard
    Dim strSave As String
    Cells(targetRow, targetClm).Select
    strSave = ActiveCell.Value
    ActiveCell.Value = ""
    On Error GoTo errHandle:
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Exit Sub
errHandle:
    On Error GoTo 0
    ActiveCell.Value = strSave
End Sub
対象セル(targetRow,targetClm)に
クリップボードの内容を貼り付ける。
リンク文字列をコピーして、目的の場所にOneClickでセットできる。
対象セルの内容をセーブしておいて、もし失敗したら元に戻せるようにする。

クリップボードにコピーされてないと不具合が起きる。