Как я могу получить площадь автоматически, когда я вставляю квадрат в 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"
microsoft-excel
vba
Цзы Чи
источник
источник