ナレッジベース

Private Function IsMerged(ByVal TargetPosition As GrapeCity.Views.ElTabelle.Position) As Boolean

　　Dim objRange, objRanges() As GrapeCity.Views.ElTabelle.Range
　　'マージされているセル範囲をすべて取得する
　　objRanges = Sheet1.GetBlocks(GrapeCity.Views.ElTabelle.BlocksType.Merge)
　　For Each objRange In objRanges
　　　　'指定したセルを含むセル範囲がないか確認する
　　　　If objRange.Contains(TargetPosition) = True Then
　　　　　　Return(True)
　　　　　　Exit Function
　　　　End If
　　Next

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　If IsMerged(Sheet1.ActivePosition) = True Then
　　　　Debug.WriteLine("選択されたセルはマージされています")
　　Else
　　　　Debug.WriteLine("選択されたセルはマージされていません")
　　End If
End Sub

private bool IsMerged(GrapeCity.Views.ElTabelle.Position targetPosition)
{
　　GrapeCity.Views.ElTabelle.Range[] objRanges;
　　//マージされているセル範囲をすべて取得する
　　objRanges = sheet1.GetBlocks(GrapeCity.Views.ElTabelle.BlocksType.Merge);
　　foreach(GrapeCity.Views.ElTabelle.Range objRange in objRanges)
　　{
　　　　//指定したセルを含むセル範囲がないか確認する
　　　　if(objRange.Contains(targetPosition) == true)
　　　　{
　　　　　　//含むセルがある場合
　　　　　　return true;
　　　　}
　　}
　　return false;
}

private void button1_Click(object sender, System.EventArgs e)
{
　　if(IsMerged(sheet1.ActivePosition) == true)
　　{
　　　　System.Diagnostics.Debug.WriteLine("選択されたセルはマージされています");
　　}
　　else
　　{
　　　　System.Diagnostics.Debug.WriteLine("選択されたセルはマージされていません");
　　}
}