エクセルVBA/StatusBarの表示文字列の取得方法

解決済

質問者：merlionXX
質問日時：2006/04/26 13:53
回答数：3件

たとえばオートフィルターを用いるとステータスバーに「○レコード中○個が見つかりました。」と表示されますが、
VBAでこの表示を取得する方法はありますか？
同様に○レコード、○個の数値を取得する方法はありますか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： taocat
回答日時：2006/04/26 16:48

こんにちは。

自分で文字列をセットしたり、セットした文字列を持ってくるのは出来ますが、残念ながら質問のメッセージは取得できません。

で、色々あるとは思いますが、一案。。

-------------------------------------------
Sub Test()

Dim AllSu As Long
Dim PicupSu As Long

　With ActiveSheet.AutoFilter.Range

　　　AllSu = .Rows.Count - 1

　　　With .SpecialCells(xlCellTypeVisible)
　　　　　PicupSu = .Count / .Columns.Count - 1
　　　End With

　End With

　MsgBox AllSu & " レコード中　" & PicupSu & " 件見ーっけ！"

End Sub
-----------------------------------------------

以上です。
　

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
Application.Statusbar="AAAAA"で表示できるのですから、逆に引っ張ってくることも出来るんじゃないかと思ったのですが、そうはいかないんです。

で、代わりの案をありがとうございます。
完璧に取得できました。さすがtaocatさんですねえ！

通報する

お礼日時：2006/04/26 17:44

No.3

回答者： takibo
回答日時：2006/04/26 16:50

質問文からは「何をした時に表示を取得」したいのかがわからないので推測で簡単な例を。

【例】Excel2000にて確認
ある表（Sheet1のA1:G100）でオートフィルタを設定し、フィルタを実行したタイミングでメッセージボックスにより結果を表示
≪表の条件≫
(1) １行目＝項目行、２行目～データ（全データ件数：99件）
(2) Ａ列は空白なし（[No.] など）
(3) セル[H1]に =SUBTOTAL(3,A2:A100) と入力

Sheet1のシートタブを右クリック → [コードの表示(V)] で表示された画面に下記のコードを貼り付け

Private Sub Worksheet_Calculate()
　　範囲 = Application.WorksheetFunction.CountA(Range("A2:A65536"))
　　結果 = Application.WorksheetFunction.Subtotal(3, Range("A2:A65536"))
　　If 範囲 <> 結果 Then
　　　　MsgBox 範囲 & "レコード中 " & 結果 & "個が見つかりました "
　　End If
End Sub

CountA(Range("A2:A65536"))・・・Ａ列２行目以降の空白でないセルの個数＝全データ件数としています。
空白なしの列を設けることで表の範囲が変わっても自動的に全件数を取得できるようになっています。
そのため条件(1)・(2)のようにデータは２行目以降、Ａ列は空白なしにしています。

セル[H1]のSUBTOAL関数で抽出結果の件数が取得できます。
関数については参考URLをご覧になってください。

このマクロはシート内で計算が実行されたときに作動します。（オートフィルタを実行するとシート内は再計算されます）
もともと表内に計算式があれば問題ありませんが、わかりやすいように条件(3)でSUBTOTAL関数を設定しています。

参考URL：http://www.relief.jp/itnote/archives/000476.php