Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
　　' クライアント側の変更を確定
　　FpSpread1.SaveChanges()

　　' 選択範囲を取得する
　　Dim enu As IEnumerator = FpSpread1.Sheets(0).SelectionModel.GetEnumerator()
　　Dim cr As FarPoint.Web.Spread.Model.CellRange
　　Dim log As String = ""

　　While enu.MoveNext
　　　　cr = CType(enu.Current, FarPoint.Web.Spread.Model.CellRange)
　　　　If cr.Row = -1 Then
　　　　　　log += "<BR>" + (cr.Column + 1).ToString() + "列目から" + cr.ColumnCount.ToString() + "列、列全体が選択されています" + "<BR>"
　　　　ElseIf cr.Column = -1 Then
　　　　　　log += "<BR>" + (cr.Row + 1).ToString() + "行目から" + cr.RowCount.ToString() + "行、行全体が選択されています" + "<BR>"
　　　　Else
　　　　　　log += "<BR>" + "Cell:(" + CStr(cr.Row) + "," + CStr(cr.Column) + "): RowCount=" + CStr(cr.RowCount) + " ColCount=" + CStr(cr.ColumnCount)
　　　　End If
　　End While

　　Label1.Text = log
End Sub

protected void Button1_Click(object sender, EventArgs e)
{
　　// クライアント側の変更を確定
　　FpSpread1.SaveChanges();

　　// 選択範囲を取得する
　　System.Collections.IEnumerator enu = FpSpread1.ActiveSheetView.SelectionModel.GetEnumerator();
　　FarPoint.Web.Spread.Model.CellRange cr;
　　string log = "";

while (enu.MoveNext())
　　{
　　　　cr = ((FarPoint.Web.Spread.Model.CellRange)(enu.Current));
　　　　if(cr.Row == -1)
　　　　{
　　　　　　log +="<BR>" +　(cr.Column + 1).ToString() + "列目から" + cr.ColumnCount.ToString() + "列、列全体が選択されています" + "<BR>";
　　　　}
　　　　else if(cr.Column == -1)
　　　　{
　　　　　　log +="<BR>" +　(cr.Row + 1).ToString() + "行目から" + cr.RowCount.ToString() + "行、行全体が選択されています" + "<BR>";
　　　　}
　　　　else
　　　　{
　　　　　　log +="<BR>" + "Cell: (" + cr.Row.ToString() + ", " + cr.Column.ToString() + "), RowCount = " + cr.RowCount.ToString() + ", ColCount = " + cr.ColumnCount.ToString() + "<BR>";
　　　　}
　　}
　　
　　Label1.Text = log;
}