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

Sex

Дата 19.8.2004, 16:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

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

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

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

Naghual

Дата 20.8.2004, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Интересная задачка!

И вот что у меня получилось:

Код


Option Explicit
Option Base 0

Public Sub UpdateSelection()
    Dim a As Integer
    Dim c As Integer
    Dim SelectedAddresses As String
    Dim col As Integer
    Dim row As Integer
    Dim RowsForSelection As String
    Dim SelectionRows() As String
    
    If Selection Is Nothing Then Exit Sub
    
    
    ' Собираем строку с адресами выделенных ячеек
    SelectedAddresses = ""
    For a = 1 To Selection.Areas.Count
        For c = 1 To Selection.Areas(a).Count
            SelectedAddresses = SelectedAddresses & Selection.Areas(a).Item(c).Address & ";"
        Next c
    Next a
    
    ' Собираем строку с индексами строк, в которых есть выделенные ячейки
    RowsForSelection = ""
    On Error Resume Next
    For row = 1 To 10
        For col = 1 To 5
            If InStr(1, SelectedAddresses, Cells(row, col).Address) > 0 Then
                If InStr(1, RowsForSelection, CStr(row) + ";") = 0 Then
                    RowsForSelection = RowsForSelection + CStr(row) + ";"
                    Exit For
                End If
            End If
        Next col
    Next row
    RowsForSelection = Left$(RowsForSelection, Len(RowsForSelection) - 1)
    
    ' Преобразовываем строку индексов в массив
    ReDim SelectionRows(0)
    SelectionRows = Split(RowsForSelection, ";")
    
    ' Собираем строку с адресами для выделения строк
    RowsForSelection = ""
    If UBound(SelectionRows) > 0 Then
        For row = 0 To UBound(SelectionRows)
            RowsForSelection = RowsForSelection & "A" + SelectionRows(row) + ":E" + SelectionRows(row) & ","
        Next row
        RowsForSelection = Left$(RowsForSelection, Len(RowsForSelection) - 1)
    End If
    
    ' Выделяем
    ActiveSheet.Range(RowsForSelection).Select
End Sub

Ну как? Оно?

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »