[[20060922203731]]　『オートフィルタの件数表示』（みーこ）　ページの最後に飛ぶ

『オートフィルタの件数表示』（みーこ）

 オートフィルタの件数表示がいままで、でていなのですがでなくなりました。
 共有ファイルになっているものをある操作をするため外しましたといってるにもかかわらず
 あけられた後、フィールタの個数が出なくなりました。必ずずっとでていたらしいので、
「必ずでるようにしてほしいと」と宿題をもらってしまいまいした。
 このサイト検索で同じ質問項目からサイトを探し、理由はわかりましたが、
 個数が必ずでるようにはできないのでしょうか？
 あのサイトをみて個人的には納得できなのですが、上司を説得する材料にはなりそうには
 ありません。
 私は、個人的にはフィルタを使用したときに件数がでている事があまりなかったので気にはしていなっかたのですがそのようになってしまいました。
 ファイルタをかける場所は特定してません。
 共有ファイルのため、下のような状態で使用しています。
 WindowsXP　Windows2000　 Excel2002

 何か協力出来ればいいのですが・・・
 仰っていることが、第三者には全然わかりません。。。
　
 >フィールタの個数が出なくなりました。
 フィルターの個数とは何処に、どのように出ていたのでしょう？
　
 >このサイト検索で同じ質問項目からサイトを探し、理由はわかりましたが、
 そちらは、どのスレッドでしょう？
　
 >あのサイトをみて個人的には納得できなのですが、
 どのサイトでしょう？
　
 う～ん。。。
 どうしたものでしょうね＾＾；
　
 コレかな？
 [よくある質問・オートフィルタの件数表示がでない]
https://www.excel.studio-kazu.jp/tips/0023/
　
 ツール → オプション
 【計算方法】の計算方法を「手動」にするとか
 SUBTOTAL関数で
 =SUBTOTAL(3,範囲)　等とするのはいかがでしょう？
　
 （キリキ）（〃⌒o⌒)b

 A列にフィルタしてあるものとします。
Private Sub Worksheet_Calculate()
Dim myRange As Range
Dim SubCount As Long, Blank_Count As Long, myCount As Long
Dim myRowsCount As Long
Dim myMode As Boolean
Const lng_Col As Long = 1　'A列の場合
myMode = ActiveSheet.AutoFilterMode
If myMode = True Then
    Set myRange = Range(Cells(2, lng_Col), Cells(Rows.Count, lng_Col).End(xlUp))
    myRowsCount = Columns(lng_Col).Rows.Count - 1
    Blank_Count = Application.WorksheetFunction.CountBlank(Columns(lng_Col))
    myCount = myRowsCount - Blank_Count
    SubCount = Application.WorksheetFunction.Subtotal(3, myRange)
    If myCount > SubCount Then
        Application.StatusBar = myCount & " レコード中 " & _
                                SubCount & " 個が見つかりました。"
    Else
        Application.StatusBar = False
    End If
Else
Application.StatusBar = False
End If
Set myRange = Nothing
End Sub

 書き忘れ：該当シートのシートモジュールに書き込みます。
 それと空白セルで抽出には対応してません＿/￣|○ il||li

 （川野鮎太郎）どこでフィルタしてもできるようには？？？です。(^_^A;

 説明不足で申し訳ありません。サイトからのコピーした内容ですが、下記の１の状態が今まで常に表示されていましたが、今は３の状態にすぐ以降してしまいます。
 常に１が表示されていたためこの数字がなくなることに困っています。

 1. オートフィルタの処理を実行する。ステータスバーに「xx レコード中 x 個が見つかりました」と表示する。  
 3. 再計算が終了しステータスを書き直す。ステータスバーに「フィルタ モード」と表示する。

 川野鮎太郎さんのありがとうございます。フィルタをかける列は随時変化します。
 内容が見たい列を複数で検索しその結果の数字がほしいという状態です。

 説明が下手くそで大変申し訳ありませんが、お助けください。

 (みーこ）

 説明は判っているのですが、上で書いたようにどの列でも結果を出すには、
 どの列でフィルタを掛けたかが判断できなければ出来ないのです。
 その方法がわかれば、
 Const lng_Col As Long = 1　'A列の場合　の部分を
 変数に変えてやるだけで良いはずなんですよね(^_^A;

 （川野鮎太郎）

 キリキさんご呈示の方法では解決出来ませんでしたか？

 >ツール → オプション
 >【計算方法】の計算方法を「手動」にするとか
 >SUBTOTAL関数で
 >=SUBTOTAL(3,範囲)　等とするのはいかがでしょう？

 こちらにOhagiさんが詳しい解説を載せてくれています。
[[20060921165047]]『フィルタモードの解除』（＠＠）
 参考にして、原因を取り除くか　代案を講じるか
 どちらかが必要だと思います。

 (HANA)

 HANAさんのでできそうです。実際のファイルは会社ですので月曜日にできたら再度返事します。
 みなさんありがとうございます。
 (みーこ）

 みーこさん、代案投稿はキリキさんですよ～。

 (HANA)

 すいません　キリキさんでしたよね。
　みなさん本当にありがとうございます。
 subtoal関数を使用するということで職場で話し合った結果解決しました。
 （みーこ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060922203731]] 『オートフィルタの件数表示』（みーこ） ページの最後に飛ぶ

[[20060922203731]]　『オートフィルタの件数表示』（みーこ）　ページの最後に飛ぶ