SPREADが提供する「ExcelのVBA互換のAPIセット」のメリット

Private Sub SetValue()
    With Worksheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Value = "ABC"
        
        ' インデックス番号でセル範囲を指定する方法
        .Range(Cells(3, 3), Cells(4, 4)).Value = "XYZ"
    End With
End Sub

Private Sub SetValueA()
    With FpSpread1.Sheets(0).AsWorksheet()
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Value = "ABC"

        ' インデックス番号でセル範囲を指定する方法
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 3, 3)}).Value = "XYZ"
    End With
End Sub

Private Sub SetValueB()
    With FpSpread1.Sheets(0)
        ' 文字列でセル範囲を指定する方法
        .Cells("A1:B2").Value = "ABC"

        ' インデックス番号でセル範囲を指定する方法
        .Cells(2, 2, 3, 3).Value = "XYZ"
    End With
End Sub

Private Sub SetStyle()
    With Worksheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Interior.Color = RGB(230, 230, 250)
        .Range("A1:B2").Font.Color = RGB(0, 0, 255)
        
        ' インデックス番号でセル範囲を指定する方法
        .Range(Cells(3, 3), Cells(4, 4)).Interior.ColorIndex = 3
        .Range(Cells(3, 3), Cells(4, 4)).Font.ColorIndex = 2
    End With
End Sub

Private Sub SetStyleA()
    With FpSpread1.Sheets(0).AsWorksheet()
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Interior.Color = GrapeCity.Spreadsheet.Color.FromArgb(Color.Lavender.ToArgb())
        .Range("A1:B2").Font.Color = GrapeCity.Spreadsheet.Color.FromArgb(Color.Blue.ToArgb())

        ' インデックス番号でセル範囲を指定する方法
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 3, 3)}).Interior.ColorIndex = (3 - 1)
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 3, 3)}).Font.Color = GrapeCity.Spreadsheet.Color.FromIndexedColor(2 - 1)
    End With
End Sub

Private Sub SetStyleB()
    With FpSpread1.Sheets(0)
        ' 文字列でセル範囲を指定する方法
        .Cells("A1:B2").BackColor = Color.Lavender
        .Cells("A1:B2").ForeColor = Color.Blue

        ' インデックス番号でセル範囲を指定する方法
        .Cells(2, 2, 3, 3).BackColor = Color.Red
        .Cells(2, 2, 3, 3).ForeColor = Color.White
    End With
End Sub

Private Sub CopyCell()
    With Worksheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Copy Destination:=.Range("A3")
        
        ' インデックス番号でセル範囲を指定する方法
        .Range(Cells(3, 3), Cells(4, 4)).Copy Destination:=.Cells(5, 3)
    End With
End Sub

Private Sub CopyCellA()
    With FpSpread1.Sheets(0).AsWorksheet()
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B2").Copy(destination:= .Range("A3"))

        ' インデックス番号でセル範囲を指定する方法
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 3, 3)}).Copy(destination:= .Range({New GrapeCity.Spreadsheet.Reference(4, 2, 4, 2)}))
    End With
End Sub

Private Sub CopyCellB()
    With FpSpread1.Sheets(0)
        ' 文字列でセル範囲を指定する方法
        .Cells("A3:B4").Value = .Cells("A1:B2").Value
        .Cells("A3:B4").BackColor = .Cells("A1:B2").BackColor
        .Cells("A3:B4").ForeColor = .Cells("A1:B2").ForeColor

        ' インデックス番号でセル範囲を指定する方法
        .CopyRange(2, 2, 4, 2, 2, 2, False)
    End With
End Sub

Private Sub ClearCell()
    With Worksheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B4").Clear
        
        ' インデックス番号でセル範囲を指定する方法
        .Range(Cells(3, 3), Cells(6, 4)).Clear
    End With
End Sub

Private Sub ClearCellA()
    With FpSpread1.Sheets("Sheet1").AsWorksheet()
        ' 文字列でセル範囲を指定する方法
        .Range("A1:B4").Clear()

        ' インデックス番号でセル範囲を指定する方法
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 5, 3)}).Clear()
    End With
End Sub

Private Sub ClearCellB()
    With FpSpread1.Sheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Cells("A1:B4").ResetValue()
        .Cells("A1:B4").ResetBackColor()
        .Cells("A1:B4").ResetForeColor()

        ' インデックス番号でセル範囲を指定する方法
        .ClearRange(2, 2, 4, 2, False)
    End With
End Sub

Private Sub SelectCell()
    With Worksheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        .Range("C3:D4").Select
        
        ' インデックス番号でセル範囲を指定する方法
        '.Range(Cells(3, 3), Cells(4, 4)).Select
    End With
End Sub

Private Sub SelectCellA()
    With FpSpread1.Sheets("Sheet1").AsWorksheet()
        '' 文字列でセル範囲を指定する方法
        '.Range("C3:D4").Select()

        ' インデックス番号でセル範囲を指定する方法
        .Range({New GrapeCity.Spreadsheet.Reference(2, 2, 3, 3)}).Select()
    End With
End Sub

Private Sub SelectCellB()
    With FpSpread1.Sheets("Sheet1")
        ' 文字列でセル範囲を指定する方法
        ' 該当する機能はありません

        ' インデックス番号でセル範囲を指定する方法
        '.SetActiveCell(2, 2) ' <== 明示的なアクティブ枠の設定
        .AddSelection(2, 2, 2, 2)
    End With
End Sub

Private Sub CopySheet()
    With Worksheets("Sheet1")
        .Copy Before:=Worksheets("Sheet1")
    End With
End Sub

Private Sub CopySheetA()
    With FpSpread1.Sheets("Sheet1").AsWorksheet()
        ' ユニークなシート名が自動的に設定されます
        .Copy(position:=0)
    End With
End Sub

Private Sub CopySheetB()
    With FpSpread1.Sheets("Sheet1")
        ' ユニークなシート名を明示的に設定しないと例外が発生します
        Dim sheet = DirectCast(.Clone(), FarPoint.Win.Spread.SheetView)
        sheet.SheetName = "Sheet2"
        FpSpread1.Sheets.Insert(0, sheet)
        'FpSpread1.ActiveSheetIndex = 0 ' アクティブシートの指定
    End With
End Sub