Выделение нескольких значений из таблицы щелчком мыши

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение нескольких значений из таблицы щелчком мыши (Выделение нескольких значений из таблицы щелчком мыши)

Kamikadze_N

Дата: Среда, 27.04.2016, 13:15 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 75

Репутация: 6 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Стоит задача отметить несколько строк в таблице и по нажатию кнопки, отправить данные из строк в шаблон для последующей отправки на печать.
На данный момент в таблице отмечается только 1 строка, при нажатии кнопки на печать формируется новый лист только если отмечена первая строка.
Подскажите пожалуйста:
Как в таблице сделать так, чтобы можно было отметить несколько строк, нажатием левой кнопкой мыши?

Файл пример во вложении, на листе рабочая форма отмечаются необходимые строки, новый лист формируется при нажатии кнопки "на печать", из шаблона листа 412-АПК.

К сообщению приложен файл: ____.xlsm (63.2 Kb)

Ответить

Karataev

Дата: Среда, 27.04.2016, 21:29 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Нужно отключить события в момент вставки/удаления галочки, чтобы не запускалось событие "Worksheet_Change", которое делает какие-то действия со столбцом A:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    r = Cells(Rows.Count, 2).End(xlUp).Row
    If Not Intersect(Target, Range("A2:A" & r)) Is Nothing Then
        Target.Font.Name = "Marlett"
        Application.EnableEvents = False
        If Target = vbNullString Then
            Target = "a"
        Else
            Target = vbNullString
        End If
        Application.EnableEvents = True
    End If
End Sub

[/vba]

Ответить

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