SheetViewクラスメンバであるAutoFilterColumnメソッド呼び出しにより、任意のタイミング(ボタンクリックイベントなど)で行のフィルタリングを実行させることができます。また、解除を行う場合には同クラスメンバであるAutoFilterResetメソッド呼び出しを行います。
|
private void Form1_Load(object sender, System.EventArgs e) { // 自動フィルタリング機能を有効にします fpSpread1.ActiveSheet.Columns[0].AllowAutoFilter = true; // 自動フィルタのフィルタガジェットを表示します fpSpread1.ActiveSheet.AutoFilterMode = FarPoint.Win.Spread.AutoFilterMode.FilterGadget; fpSpread1.ActiveSheet.Cells[0, 0].Value = "North"; fpSpread1.ActiveSheet.Cells[1, 0].Value = "South"; fpSpread1.ActiveSheet.Cells[2, 0].Value = "East"; fpSpread1.ActiveSheet.Cells[3, 0].Value = "South"; fpSpread1.ActiveSheet.Cells[4, 0].Value = "North"; fpSpread1.ActiveSheet.Cells[5, 0].Value = "North"; fpSpread1.ActiveSheet.Cells[6, 0].Value = "West"; fpSpread1.ActiveSheet.Columns[0].Width = 80; } private void button1_Click(object sender, System.EventArgs e) { //1列目を"North"でフィルタリングします fpSpread1.ActiveSheet.AutoFilterColumn(0, "North", 0); } private void button2_Click(object sender, System.EventArgs e) { //1列目のフィルタリングを解除します fpSpread1.ActiveSheet.AutoFilterReset(0); }
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load ' 自動フィルタリング機能を有効にします FpSpread1.ActiveSheet.Columns(0).AllowAutoFilter = True ' 自動フィルタのフィルタガジェットを表示します FpSpread1.ActiveSheet.AutoFilterMode = FarPoint.Win.Spread.AutoFilterMode.FilterGadget FpSpread1.ActiveSheet.Cells(0, 0).Value = "North" FpSpread1.ActiveSheet.Cells(1, 0).Value = "South" FpSpread1.ActiveSheet.Cells(2, 0).Value = "East" FpSpread1.ActiveSheet.Cells(3, 0).Value = "South" FpSpread1.ActiveSheet.Cells(4, 0).Value = "North" FpSpread1.ActiveSheet.Cells(5, 0).Value = "North" FpSpread1.ActiveSheet.Cells(6, 0).Value = "West" FpSpread1.ActiveSheet.Columns(0).Width = 80 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '1列目を"North"でフィルタリングします FpSpread1.ActiveSheet.AutoFilterColumn(0, "North", 0) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '1列目のフィルタリングを解除します FpSpread1.ActiveSheet.AutoFilterReset(0) End Sub