PowerTools ActiveReports for .NET 9.0J
Cells メソッド
使用例 

始点のセル位置を示すDDCell
終点のセル位置を示すDDCell
指定した範囲の DDCells オブジェクトを返します。
構文
'宣言
 
Public Function Cells( _
   ByVal start As DDCell, _
   ByVal end As DDCell _
) As DDCells
public DDCells Cells( 
   DDCell start,
   DDCell end
)

パラメータ

start
始点のセル位置を示すDDCell
end
終点のセル位置を示すDDCell
使用例
private void Form1_Load(object sender, System.EventArgs e)
{
    // ワークブックのシートコレクションにシートを追加します。
    GrapeCity.SpreadBuilder.Workbook sb = new GrapeCity.SpreadBuilder.Workbook();
    sb.Sheets.AddNew();
    // 列、行およびセルに対し、プロパティや値を設定します。
    sb.Sheets[0].Name = "Customer Call List";
    sb.Sheets[0].Columns(0).Width = 2 * 1440;
    sb.Sheets[0].Columns(1).Width = 1440;
    sb.Sheets[0].Columns(2).Width = 1440;
    sb.Sheets[0].Rows(0).Height = 1440/4;
    // ヘッダ行
    sb.Sheets[0].Cell(0,0).SetValue("会社名");
    sb.Sheets[0].Cell(0,1).SetValue("部署名");
    sb.Sheets[0].Cell(0,2).SetValue("電話番号");

    // 最初の行のデータ
    sb.Sheets[0].Cell(1,0).SetValue("グレープシティ");
    sb.Sheets[0].Cell(1,1).SetValue("営業部");
    sb.Sheets[0].Cell(1,2).SetValue("(022) 777-8210");
    
    //セル範囲を指定して書式を設定します
    sb.Sheets[0].Cells(sb.Sheets[0].Cell(0, 0), sb.Sheets[0].Cell(0, 2)).FontBold = true;
    sb.Sheets[0].Cells(sb.Sheets[0].Cell(0, 0), sb.Sheets[0].Cell(1, 2)).FontName = "MS UI Gothic";
    
    // ワークブックをExcelファイルへ保存します。
    sb.Save (Application.StartupPath + @"\x.xls");
    MessageBox.Show(Application.StartupPath + @"\x.xls" + "へ保存しました。");
}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' ワークブックのシートコレクションにシートを追加します。
    Dim sb As New GrapeCity.SpreadBuilder.Workbook()
    sb.Sheets.AddNew()
    ' 列、行およびセルに対し、プロパティや値を設定します。
    With sb.Sheets(0)
        .Name = "Customer Call List"
        .Columns(0).Width = 2 * 1440
        .Columns(1).Width = 1440
        .Columns(2).Width = 1440
        .Rows(0).Height = 1440 / 4
        ' ヘッダ行
        .Cell(0, 0).SetValue("会社名")
        .Cell(0, 1).SetValue("部署名")
        .Cell(0, 2).SetValue("電話番号")

        ' 最初の行のデータ
        .Cell(1, 0).SetValue("グレープシティ")
        .Cell(1, 1).SetValue("営業部")
        .Cell(1, 2).SetValue("(022) 777-8210")
    End With
    
    ' セル範囲を指定して書式を設定します
    sb.Sheets(0).Cells(sb.Sheets(0).Cell(0, 0), sb.Sheets(0).Cell(0, 2)).FontBold = True
    sb.Sheets(0).Cells(sb.Sheets(0).Cell(0, 0), sb.Sheets(0).Cell(1, 2)).FontName = "MS UI Gothic"
    
    ' ワークブックをExcelファイルへ保存します。
    sb.Save(Application.StartupPath & "\x.xls")
    MsgBox(Application.StartupPath & "\x.xls" & "へ保存しました。")
End Sub
参照

関連項目

DDSheet クラス
DDSheet メンバ

 

 


©2003-2015 GrapeCity inc. All rights reserved.