[17] Unexpected uses of Excel status bar

Опубликовано: 01 Август 2026
на канале: Weekly Tips by Robert Stempkowski

#VBA #productivity #Excel

Code:
Dim First As String
Dim Second As String
Dim Third As String

Sub StatusBarMessage()

Call VarTypeCheck(ActiveCell)
Call UsedRows
Call UsedColumns

Application.StatusBar = First & " | " & Second & " | " & Third
End Sub
Sub VarTypeCheck(Check As Variant)

Dim x As Integer
x = VarType(Check)

Select Case x

Case 0
First = "Empty"
Case 1
First = "Null"
Case 2
First = "Integer"
Case 3
First = "Long"
Case 4
First = "Single"
Case 5
First = "Double"
Case 6
First = "Currency"
Case 7
First = "Date"
Case 8
First = "String"
Case 9
First = "Object"
Case 10
First = "Error"
Case 11
First = "Boolean"
Case 12
First = "Variant"
Case 13
First = "DataObject"
Case 14
First = "Decimal"
Case 17
First = "Byte"
Case 36
First = "UserDefined"
Case 8192
First = "Array"
Case Else
First = "Different"
End Select

First = "Data Type: " & First

End Sub

Sub UsedRows()

Dim lastrow As Long
lastrow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Second = "Last row: " & lastrow

End Sub

Sub UsedColumns()

Dim lastcolumn As Long
lastcolumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
Third = "Last column: " & lastcolumn

End Sub

Link to MrExcel forum: https://www.mrexcel.com/board/threads...