Display highlighted cells dimensions

[anas_hilow]

Hello,

We are working on a warehouse layout, which has huge floorspace, using excel spreadsheet. the layout scale is good enough to represent each square cell as One Square foot. We're trying to measure certain areas by highlighting group of cells, no matter if they contain values or blank ones, so the x and y axis are displayed at on of the bottom corners of the cells selection and constantly changes the more highlighted cells are selected. For example if you highlight B17 through L23, it is actually "11" cells in the x direction and "7" cells in the y direction which makes it easy to calculate the highlighted area (11' * 7' = 77 ft^2) and promptly changes these values the more highlighted cells would change. I hope there's simple easy method to do it without using VBA or macros or certain codes, otherwise I'm good with them.

Thank you and have a nice weekend ahead!

Anas

 

[shg]

Right-click the tab of interest, select View Code, and paste this in the window that opens:

Private Sub Worksheet_Activate()
  If TypeOf Selection Is Range Then
    Application.StatusBar = Selection.Columns.Count & " x " & _
                            Selection.Rows.Count
  Else
    Application.StatusBar = False
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If TypeOf Selection Is Range Then
    Application.StatusBar = Selection.Columns.Count & " x " & _
                            Selection.Rows.Count
  Else
    Application.StatusBar = False
  End If
End Sub

Private Sub Worksheet_Deactivate()
  Application.StatusBar = False
End Sub

Do Alt+Q to return to Excel. Look at the status bar as you change the selection.

 

[anas_hilow]

Thanks!! it worked ... Actually I am using Microsoft Office 2013, view code icon is displayed at the "Controls" menue under the "Developer" tab. Also I had to change the file format into Macro-Enabled excel (xlsm) instead of the regular (xlsx) file format.

Thanks again!

Right-click the tab of interest, select View Code, and paste this in the window that opens:

Private Sub Worksheet_Activate()
  If TypeOf Selection Is Range Then
    Application.StatusBar = Selection.Columns.Count & " x " & _
                            Selection.Rows.Count
  Else
    Application.StatusBar = False
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If TypeOf Selection Is Range Then
    Application.StatusBar = Selection.Columns.Count & " x " & _
                            Selection.Rows.Count
  Else
    Application.StatusBar = False
  End If
End Sub

Private Sub Worksheet_Deactivate()
  Application.StatusBar = False
End Sub

Do Alt+Q to return to Excel. Look at the status bar as you change the selection.

 

[shg]

You're welcome.