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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクト

Page オブジェクトページごとに異なるヘッダーおよびフッターを設定する場合、 …

: 行列番号を含めて印刷（PageSetup.PrintHeadings プロパティ）

PageSetup.PrintHeadings プロパティ PageSetup. …

: ブックの表示・非表示（Visible プロパティ）

ブック表示・非表示（Visible プロパティ）ブック（ウィンドウ）が表示され …

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

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

: 印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）

PageSetup.PrintErrors プロパティ PageSetup.Pr …

: 表示されているセル範囲を取得（VisibleRange プロパティ）

VisibleRange プロパティ現在表示されているセル範囲（Range オ …

: ワークシートを参照する（Worksheets プロパティ）

Worksheets プロパティ Worksheets プロパティは、Works …

: ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウの分割と解除ウィンドウ（ワークシート画面）を分割するには、Split …

: セルのコメントを印刷（PageSetup.PrintComments プロパティ）

PageSetup.PrintComments プロパティ PageSetup. …

: 印刷品質を設定（PageSetup.PrintQuality プロパティ）

PageSetup.PrintQuality プロパティ PageSetup.P …

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