Excel, авто найти область формы вставки

0

Как я могу получить площадь автоматически, когда я вставляю квадрат в Excel?
С помощью кода ниже, я могу получить сообщение о высоте и ширине, но я застрял с поиском области и покажу в сообщении.
Кроме того, как можно кодировать ссылку на форму, которую я вставляю?

Dim cell As Range
    Dim Width As Long
    Dim Height As Long

  For Each cell In Selection.Cells.Columns(1)
    Height = Height + cell.Height
  Next cell

  For Each cell In Selection.Cells.Rows(1)
    Width = Width + cell.Width
  Next cell

  MsgBox "Height:  " & Height & "px" & vbCr & "Width:   " _
   & Width & "px", , "Dimensions"
Цзы Чи
источник

Ответы:

-1
Sub AreaPixels()  
Dim cell As Range  
Dim Width As Long  
Dim Height As Long  

For Each cell In Selection.Cells
    Height = cell.Height
    Width = cell.Width
    cell.Value = Height * Width
    Next cell

End Sub
Шиви
источник
1
В вопросе он просит сумму высот и ширины.
Máté Juhász