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

関連記事

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

: ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: ウィンドウの状態を取得・設定（WindowState プロパティ）

ウィンドウの状態を取得・設定（WindowState プロパティ） Window …

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

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

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

PageSetup.PrintGridlines プロパティ PageSetup …

: アクティブプリンタを変更（ActivePrinter プロパティ）

ActivePrinter プロパティ ActivePrinter プロパティを …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: シート見出しの色を設定（Tab プロパティ）

シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

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