MESCIUS SPREAD for Windows Forms 17.0J
Move メソッド (IRangeSupport)

切り取りを開始する行インデックス
切り取りを開始する列インデックス
セル範囲を貼り付ける行インデックス
セル範囲を貼り付ける列インデックス
移動する行の数
移動する列の数
セル範囲を切り取って、指定した位置のセル範囲に貼り付けます。
構文
'Declaration
 
Sub Move( _
   ByVal fromRow As Integer, _
   ByVal fromColumn As Integer, _
   ByVal toRow As Integer, _
   ByVal toColumn As Integer, _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) 

パラメータ

fromRow
切り取りを開始する行インデックス
fromColumn
切り取りを開始する列インデックス
toRow
セル範囲を貼り付ける行インデックス
toColumn
セル範囲を貼り付ける列インデックス
rowCount
移動する行の数
columnCount
移動する列の数
次のサンプルコードは、指定した範囲から指定した位置にデータを移動します。
FarPoint.Win.Spread.Model.IRangeSupport irs;
DialogResult dlg;
Random r = new Random();
int i, j;
for (i = 0; i<=2; i++)
{
for (j = 0; j<=2; j++)
fpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString());
}
irs = (FarPoint.Win.Spread.Model.IRangeSupport)fpSpread1.ActiveSheet.Models.Data;
dlg = MessageBox.Show("Do you want to move some data?", "Move", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Move(0, 0, 4, 0, 2, 2);
}
Dim irs As FarPoint.Win.Spread.Model.IRangeSupport
Dim dlg As DialogResult
Dim r As New Random()
Dim i, j As Integer
For i = 0 To 2
For j = 0 To 2
FpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString())
Next j
Next i
irs = FpSpread1.ActiveSheet.Models.Data
dlg = MessageBox.Show("Do you want to move some data?", "Move", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Move(0, 0, 4, 0, 2, 2)
End If
参照

IRangeSupport インタフェース
IRangeSupport メンバ

 

 


© MESCIUS inc. All rights reserved.