Страница 1 из 1

VBA&Excel: Помогите с выделением ячеек.

Добавлено: 19 авг 2004, 17:45
Sex
Я имею некоторую область выделения (мульти-зону = multi area selection)
Она покрывает 3 из 5 столбцов некоторых строк.
Т.е. если * - выбранная ячейка, а _ - невыделенная, то есть таблица

_ _ _ _ _
_ * _ * *
_ _ _ _ _
_ * _ * *
_ _ _ _ _

Теперь же нужно сделать так, чтобы выделение распространилось на всю строку (если там есть выделение).

Т.е. из вышеприведенной таблицы должно получиться:
_ _ _ _ _
* * * * *
_ _ _ _ _
* * * * *
_ _ _ _ _

Спасибо за помощь

Добавлено: 20 авг 2004, 01:23
Naeel Maqsudov
Лехко! :)

Код: Выделить всё

Sub ExpandSelectedRows()
Dim R As Range, s As String
  s = ""
  For Each R In Selection.Areas
    s = s & "," & R.EntireRow.Address(False, False)
  Next
  s = Mid(s, 2)
  Range(s).Select
End Sub