Visual Basic For Applications Tips

ステータスバーの使用

下のサンプルは選択された範囲の行と列をステータスバーに表示します。

Dim SourceRange As Range
Dim item


'選択されている範囲を取得します。
Set SourceRange = Selection.SpecialCells(xlVisible) '全ての可視セル

'選択されているセルのループ
For Each item In SourceRange
　　Application.StatusBar = "現在 " & item.Row & " 行　" & item.Column & "　列を処理中です。"
Next