Как узнать выделенный размер документа.

[valerij]

Sub zxc()
Dim cell
For Each cell In ActiveSheet.UsedRange
If cell.Address = cell.MergeArea.Cells(1).Address Then
    cell.Select
    MsgBox "Ячейка " & cell.MergeArea.Address & vbCr & "Ширина: " & _
    cell.MergeArea.Width & vbCr & "Высота: " & cell.MergeArea.Height
End If
Next
End Sub

Этот макрос показывает ширину и высоту ячейки, если объединить ячейки, покажет суммарные данные.

А как узнать размер, выделенного диапазона ячеек, без объединения?

[Казанский]

selection.width, selection.height?

[valerij]

Сообщение от Казанский

selection.width, selection.height?

Ну да, именно так.

[valerij]

Господа у меня очень сложный вопрос?

[IgorGO]

а чем ответ Казанского - не ответ на этот сложный вопрос?

[valerij]

Сообщение от IgorGO

а чем ответ Казанского - не ответ на этот сложный вопрос?

Он задал мне вопрос на мой вопрос.

Как не подставлял в макрос(selection.width, selection.height), нифига.

[IgorGO]

Валера,
это не вопрос на твой вопрос - это ответ на твой вопрос))

исходные данные:
на активном листе выделен произвольный диапазон ячеек

задача:
найти ширину, высоту отмеченного диапазона

ответ:
ширина = selection.width
высота = selection.height

а теперь давай давай разберем подробности задачи...
что не так в понимании исходных, задачи, что не так в ответе?

[valerij]

Сообщение от IgorGO

Валера,
это не вопрос на твой вопрос - это ответ на твой вопрос))

исходные данные:
на активном листе выделен произвольный диапазон ячеек

задача:
найти ширину, высоту отмеченного диапазона

ответ:
ширина = selection.width
высота = selection.height

а теперь давай давай разберем подробности задачи...
что не так в понимании исходных, задачи, что не так в ответе?

Я понимаю задачу, решение не понимаю.
Так не работает.

Sub zxc()
Dim cell
ширина = Selection.Width
высота = Selection.Height
For Each cell In ActiveSheet.UsedRange
If cell.Address = cell.MergeArea.Cells(1).Address Then
    cell.Select
    MsgBox "Ячейка " & cell.MergeArea.Address & vbCr & "Ширина: " & _
    cell.MergeArea.Width & vbCr & "Высота: " & cell.MergeArea.Height
End If
Next
End Sub

[IgorGO]

а так:

Sub zxc()
  MsgBox "ширина = " & Selection.Width &  chr(10) & "высота = " & Selection.Height
End Sub

[valerij]

Сообщение от IgorGO

а так:

Sub zxc()
  MsgBox "ширина = " & Selection.Width &  chr(10) & "высота = " & Selection.Height
End Sub

А так - супер.
А что такое chr(10) ?

Спасибо.

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")