'Declaration
Public Function New( _
ByVal As SheetView, _
ByVal As Integer, _
ByVal column As Integer, _
ByVal As Integer, _
ByVal columnCount As Integer, _
ByVal As Integer, _
ByVal targetColumn As Integer, _
ByVal As Boolean _
)
'使用法
Dim sheetView As SheetView
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
Dim targetRow As Integer
Dim targetColumn As Integer
Dim copy As Boolean
Dim instance As New CellDragDropUndoAction(sheetView, row, column, rowCount, columnCount, targetRow, targetColumn, copy)