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

関連記事

: ワークシートの非表示・再表示（Visible プロパティ）

ワークシートの表示・非表示ワークシートを非表示にしたり、非表示にしたワークシー …

: ユーザー設定のビュー（CustomView オブジェクト）

ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …

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

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

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

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

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

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

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

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

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

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

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

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

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

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