セルの固定をしていると うまくいかない ので放棄した #If VBA7 And Win64 Then 'マウスカーソルの位置を取得するAPI Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'マウスイベントを取得するための決まり文句的なもの Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare PtrSafe Sub mouse_event Lib "user32" ( _ ByVal dwFlags As Long, _ Optional ByVal dx As Long = 0, _ Optional ByVal dy As Long = 0, _ Optional ByVal dwDate As Long = 0, _ Optional ByVal dwExtraInfo As Long = 0 _ ) #Else '32bit用 'マウスカーソルの位置を取得するAPI Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'マウスイベントを取得するための決まり文句的なもの Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare Sub mouse_event Lib "user32" ( _ ByVal dwFlags As Long, _ Optional ByVal dx As...