'Declaration
Public Sub Swap( _
ByVal As Integer, _
ByVal fromColumn As Integer, _
ByVal As Integer, _
ByVal toColumn As Integer, _
ByVal As Integer, _
ByVal columnCount As Integer _
)
'使用法
Dim instance As ConditionalFormattingModel
Dim fromRow As Integer
Dim fromColumn As Integer
Dim toRow As Integer
Dim toColumn As Integer
Dim rowCount As Integer
Dim columnCount As Integer
instance.Swap(fromRow, fromColumn, toRow, toColumn, rowCount, columnCount)