Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ステータスバーにメッセージを表示（StatusBar プロパティ）

2016/06/02

StatusBar プロパティ

StatusBar プロパティで、ステータスバーに表示するメッセージを取得および設定します。
また、DisplayStatusBar プロパティ で、ステータスバーの表示・非表示を取得および設定します。

StatusBar プロパティ

【書式】

＜取得＞
object.StatusBar

＜設定＞
object.StatusBar = string

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
string ・・・ステータスバーに表示するメッセージを文字列型（String）の値で、指定します。文字列を既定値に戻すには、False を指定します。

Excel 側でステータスバーを制御しているとき、このプロパティは False を返します。ステータスバーの文字列を既定値に戻すには、False を設定します。ステータスバーが非表示の状態でも、この設定によって文字列は既定値に戻ります。

DisplayStatusBar プロパティ

【書式】

＜取得＞
object.DisplayStatusBar

＜設定＞
object.DisplayStatusBar = boolean

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
boolean ・・・ブール型（Boolean）の値を指定します。ステータスバーを表示するには、True、非表示にするには、False を指定します。

DisplayStatusBar プロパティ・StatusBar プロパティ使用例

サンプルVBAソース

　
Sub Sample1_StatusBar()
    
    Dim msg As String, msg2 As String
    Dim defDStatus As Boolean
    Dim myTimer As Double
    Dim nowTime As Integer
    
    msg = "ステータスバー：ここにメッセージを表示します。　"
    
    '現在のステータスバーの状態を取得
    defDStatus = Application.DisplayStatusBar
    
    '現在のステータスバーを表示
    Application.DisplayStatusBar = True
    
    'ステータスバーに表示するメッセージを設定
    'Application.StatusBar = msg
    
    '10秒間ステータスバーにメッセージを表示
    myTimer = Timer + 10
    nowTime = 1
    Do Until nowTime = 0
        nowTime = Int(myTimer - Timer)
        Application.StatusBar = msg & nowTime
        DoEvents
    Loop
    
    'ステータスバーを既定値に戻す
    Application.StatusBar = False
    
    'ステータスバーの状態を元に戻す
    Application.DisplayStatusBar = defDStatus
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

　

Sub Sample1_StatusBar()

Dim msg As String, msg2 As String

Dim defDStatus As Boolean

Dim myTimer As Double

Dim nowTime As Integer

msg = "ステータスバー：ここにメッセージを表示します。　"

'現在のステータスバーの状態を取得

defDStatus = Application.DisplayStatusBar

'現在のステータスバーを表示

Application.DisplayStatusBar = True

'ステータスバーに表示するメッセージを設定

'Application.StatusBar = msg

'10秒間ステータスバーにメッセージを表示

myTimer = Timer + 10

nowTime = 1

Do Until nowTime = 0

nowTime = Int(myTimer - Timer)

Application.StatusBar = msg & nowTime

DoEvents

Loop

'ステータスバーを既定値に戻す

Application.StatusBar = False

'ステータスバーの状態を元に戻す

Application.DisplayStatusBar = defDStatus

End Sub

　

実行結果

- ブック・シートの操作 Application オブジェクト, DisplayStatusBar プロパティ, StatusBar プロパティ, VBA基本, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

: 最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

最近使用したファイル（RecentFile オブジェクト,RecentFiles …

: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）

スクロールバーの表示・非表示の設定 Windows オブジェクトの Displ …

: ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

: ユーザー設定のビュー（CustomViews プロパティ）

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

: ブック・シートの名前を取得・設定（Name プロパティ）

ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …

: ブックのコピーを保存（SaveCopyAs メソッド）

SaveCopyAs メソッド SaveCopyAs メソッドは、現在開いてい …

: 枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）

PageSetup.PrintGridlines プロパティ PageSetup …

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

PREV: 行列の見出しの表示・非表示（DisplayHeadings プロパティ）
NEXT: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）