При установке (выборе) нескольких флажков - не сбрасывать выделение (VBA)

@Superbochka · Регистрация: 04.12.2020

Author24 — интернет-сервис помощи студентам

Здравствуйте, мне нужно немного помочь с кодом, У меня есть база, где выбираются параметры флажками(галочками)
Нужно сделать так, чтобы при установке(выборе) нескольких флажков - выделение не сбрасывалось (чтобы несколько параметры выделялись, для последующего копирования на новый лист)

Есть такой код:

Visual Basic

Sub Макрос10() 'Выделение диапазонов флажками(галками)
Dim ColValue As Range, RowValue As Range, c As Integer, R As Long, MyRange As Range
R = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
        If ActiveSheet.CheckBoxes(Application.Caller).Value = 1 Then
            Range(Cells(R, 1), Cells(R, 11)).Select
        Else
           Range("Z1").Select
        End If
End Sub

Прикрепил файл, с работающим этим кодом
Microsoft office 2019

@Alex77755 · 05.12.2020, 08:29

Visual Basic

Sub Макрос10() 'Выделение диапазонов флажками(галками)
    Dim ran, fl, ri
    For Each fl In ActiveSheet.CheckBoxes
        If fl.Value = 1 Then
            R = fl.TopLeftCell.Row
            ri = Range(Cells(R, 1), Cells(R, 11)).Address(0, 0)
            ran = IIf(Len(ran) = 0, ri, ran & "," & ri)
        End If
    Next
    Range("Z1").Select
    If Len(ran) > 0 Then Range(ran).Select
End Sub

@Superbochka · 05.12.2020, 12:27 **[ТС]**

Да, все работает, Спасибо большое))
Я еще добавил в код Application.ScreenUpdating = False и все теперь круто)

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 60
	05.12.2020, 12:27 [ТС]	3
	Да, все работает, Спасибо большое)) Я еще добавил в код Application.ScreenUpdating = False и все теперь круто) 0

Опции темы

При установке (выборе) нескольких флажков - не сбрасывать выделение (VBA)

Решение