PowerTools ActiveReports for .NET 11.0J
IsMerged プロパティ
使用例 

セルがマージされたグループに属するかどうかを示す値を設定するまたは返します。
構文
'宣言
 
Public ReadOnly Property IsMerged As Boolean
public bool IsMerged {get;}

プロパティ値

ブール値。デフォルト値はFalseです。
使用例
private void btnSpread_Click(System.Object sender, System.EventArgs e)
{
	//ワークブックの次元を設定し、そのワークブックのSheetsコレクションにシートを追加する
	GrapeCity.SpreadBuilder.Workbook sb = new GrapeCity.SpreadBuilder.Workbook();
	sb.Sheets.AddNew();

	//列、行、およびセルのプロパティと値を、必要に応じて設定する
	{
		sb.Name = "Customer Call List";
		sb.Columns(0).Width = 2 * 1440;
		sb.Columns(1).Width = 1440;
		sb.Columns(2).Width = 1440;
		sb.Rows(0).Height = 1440 / 4;
		//ヘッダー行
		sb.Cell(0, 0).SetValue("Company Name");
		sb.Cell(0, 0).FontBold = true;
		sb.Cell(0, 1).SetValue("Contact Name");
		sb.Cell(0, 1).FontBold = true;
		sb.Cell(0, 2).SetValue("Phone");
		sb.Cell(0, 2).FontBold = true;
		//データの最初の行
		sb.Cell(1, 0).SetValue("GrapeCity");
		sb.Cell(1, 1).SetValue("Mortimer");
		sb.Cell(1, 2).SetValue("(614) 895-3142");
	}
	if (sb.Sheets(0).IsMerged(0, 0)) {
		sb.Sheets(0).Cell(0, 0).UnMerge();
	}

	//ワークブックをExcelファイルに保存する
	sb.Save(Application.StartupPath + "\\x.xls");

	Interaction.MsgBox("Your Spreadsheet, " + sb.Sheets(0).Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\\x.xls");
}
Private Sub btnSpread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpread.Click
    'ワークブックの次元を設定し、そのワークブックのSheetsコレクションにシートを追加する
    Dim sb As New GrapeCity.SpreadBuilder.Workbook
    sb.Sheets.AddNew()
        
    '列、行、およびセルのプロパティと値を、必要に応じて設定する
    With sb.Sheets(0)
        sb.Name = "Customer Call List"
        sb.Columns(0).Width = 2 * 1440
        sb.Columns(1).Width = 1440
        sb.Columns(2).Width = 1440
        sb.Rows(0).Height = 1440 / 4
        'ヘッダー行
        sb.Cell(0, 0).SetValue("Company Name")
        sb.Cell(0, 0).FontBold = True
        sb.Cell(0, 1).SetValue("Contact Name")
        sb.Cell(0, 1).FontBold = True
        sb.Cell(0, 2).SetValue("Phone")
        sb.Cell(0, 2).FontBold = True
        'データの最初の行
        sb.Cell(1, 0).SetValue("GrapeCity")
        sb.Cell(1, 1).SetValue("Mortimer")
        sb.Cell(1, 2).SetValue("(614) 895-3142")
     End With
 If sb.Sheets(0).IsMerged(0, 0) Then
        sb.Sheets(0).Cell(0, 0).UnMerge()
    End If
   
    'ワークブックをExcelファイルに保存する
    sb.Save(Application.StartupPath & "\x.xls")

    MsgBox("Your Spreadsheet, " & sb.Sheets(0).Columns(0).OwnerSheet.Name & ", has been saved to " & Application.StartupPath & "\x.xls")
End Sub
参照

関連項目

DDCell クラス
DDCell メンバ

 

 


©2003-2017 GrapeCity inc. All rights reserved.