Dim instance As ExcelSheet
Dim col1 As Integer	'1から始まる開始列番号
Dim row1 As Integer	'1から始まる開始行番号
Dim col2 As Integer	'1から始まる終了列番号
Dim row2 As Integer	'1から始まる終了行番号
Dim format As String

instance.RangeFormat(col1, row1, col2, row2, format)

'ExcelSheetクラス RangeFormatメソッド

Public Class AddIn

    Private es As ExcelSheet

    Public Sub New()
        es = New ExcelSheet()
		es.SelectSheet(1)
		es.RangeValue(1, 1, 5, 5, 12)		'A1:E5
		es.RangeFormat(1, 1, 5, 1, "0")			'A1:E1
		es.RangeFormat(1, 2, 5, 2, "0.0")		'A2:E2
		es.RangeFormat(1, 3, 5, 3, "0.00")		'A3:E3
		es.RangeFormat(1, 4, 5, 4, "0.000")		'A4:E4
		es.RangeFormat(1, 5, 5, 5, "G/標準")	'A5:E5
		es.Save("D:\tmp\sample2.xlsx")
		es.Dispose()
    End Sub

End Class