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

関連記事

: 行列の見出しの表示・非表示（DisplayHeadings プロパティ）

DisplayHeadings プロパティ行と列の見出しの表示・非表示を設定お …

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

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

: 印刷設定（フッターに文字列を指定）LeftFooter,CenterFooter,RightFooter

PageSetup.LeftFooter プロパティ PageSetup.Lef …

: 数式バーの設定（DisplayFormulaBar, FormulaBarHeight）

数式バーの設定数式バーの表示・非表示の設定を行うには、DisplayFormu …

: ウィンドウを拡大・縮小（Zoom プロパティ）

ウィンドウを拡大・縮小（Zoom プロパティ）ウィンドウの表示サイズをパーセン …

: 指定された情報をブックから削除（RemoveDocumentInformation メソッド）

RemoveDocumentInformation メソッド指定された種類の情 …

: ブックのファイル形式を調べる（FileFormat プロパティ）

ブックのファイル形式を調べる（FileFormat プロパティ）指定したブック …

: 保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）

バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ …

: 印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）

PageSetup.Orientation プロパティ PageSetup.Or …

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

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

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