MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集
コードからの実行

SheetViewクラスメンバであるAutoFilterColumnメソッド呼び出しにより、任意のタイミング(ボタンクリックイベントなど)で行のフィルタリングを実行させることができます。また、解除を行う場合には同クラスメンバであるAutoFilterResetメソッド呼び出しを行います。

【実行例】

コードからの実行例

  • AutoFilterColumnメソッド呼び出しを行う場合、対象列のAllowAutoFilterプロパティをあらかじめTrueにしておく必要があります。
  • フィルタリング機能自体の有効化/無効化を切り替えたい場合には、同クラスメンバであるSetColumnAllowFilterメソッド/ClearRowFilterメソッド呼び出しを行います。
  • シート上にてフィルタリングされた行は一時的に非表示となるだけで、実際のデータには影響を与えません。そのため、Excelファイルへのエクスポート時には全ての行情報が出力されます。

 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

 

 


© MESCIUS inc. All rights reserved.