Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как связать флажки с несколькими ячейками в Excel?

Связывание флажков с несколькими относительными ячейками может помочь вам быстро и легко выполнить некоторые вычисления, когда вам нужно суммировать, подсчитывать или усреднять только проверенные или непроверенные ячейки. Но вы когда-нибудь пытались связать флажки с несколькими ячейками сразу на листе?

Установите флажки для нескольких ячеек с формулой один за другим

Установите флажки в несколько ячеек сразу с кодом VBA


Быстро вставляйте несколько флажков в один раз:
Kutools for ExcelАвтора Пакеты для установки в пакетной упаковке утилита может помочь вам быстро вставить несколько флажков сразу. Подробнее об этой функции ...
док-создать-combobox22

arrow синий правый пузырь Установите флажки для нескольких ячеек с формулой один за другим


Чтобы связать этот флажок с конкретной ячейкой, вы можете применить простую формулу для связывания их вручную.

1, После установки флажков на вашем листе, чтобы установить флажок, нажмите Ctrl и затем щелкните первый флажок, который вы хотите связать с другой ячейкой.

2. Затем в строке формул введите знак равенства =, а затем щелкните по одной ячейке, к которой вы хотите привязать этот флажок, B2, например, см. снимок экрана:

док-ссылка многодисковых флажков-1

3, Затем нажмите вводить ключ на клавиатуре, теперь, когда вы установите этот флажок, будет отображаться связанная ячейка ИСТИНА, если снимите его, он отобразит НЕПРАВДА, см. снимок экрана:

док-ссылка многодисковых флажков-2

4, Повторите вышеуказанные шаги, чтобы связать другие флажки один за другим.


arrow синий правый пузырь Установите флажки в несколько ячеек сразу с кодом VBA

Если есть сотни и тысячи флажков, которые необходимо связать с другими ячейками, первый метод не будет работать эффективно, чтобы связать их с несколькими ячейками сразу, вы можете применить следующий код VBA. Пожалуйста, сделайте следующее:

1, Перейдите на свой рабочий лист со списком флажков.

2, Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Щелчок Вставить > модуль, и вставьте следующий код в Окно модуля.

Код VBA: привязать флажки к нескольким ячейкам сразу

Sub LinkChecks()
'Update 20150310
i = 2
For Each cb In ActiveSheet.CheckBoxes
cb.LinkedCell = Cells(i, "B").Address
i = i + 1
Next cb
End Sub

4, Затем нажмите F5 ключ для запуска этого кода, все флажки на активном листе привязаны к ячейкам, когда вы установите флажок, будет отображаться его относительная ячейка ИСТИНА, если вы снимите флажок, связанная ячейка должна показать НЕПРАВДА, см. снимок экрана:

док-ссылка многодисковых флажков-3

Внимание: В приведенном выше коде, я = 2, номер 2 это начальная строка вашего флажка, а буква B это местоположение столбца, в котором вам нужно связать флажки. Вы можете изменить их на свои нужды.


Статьи по теме:

Как выбрать все флажки с помощью одного флажка в Excel?

Как быстро вставить несколько флажков в Excel?

Как быстро удалить несколько флажков в Excel?


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Eyale · 6 months ago
    How about if you have some empty rows in ColumnA (as per your example) in between checkboxes? Using the above code it gets the linked cells wrong if there are empty rows because it does not skip them. Interested to see the solution
    • To post as a guest, your comment is unpublished.
      R · 3 months ago
      Did u find any solution for this? Same problem
  • To post as a guest, your comment is unpublished.
    Richard Anthony · 2 years ago
    Sub LinkCheckBoxes()

    Dim chk As CheckBox

    Dim lCol As Long

    lCol = 1 'number of columns to the right for link



    For Each chk In ActiveSheet.CheckBoxes

    With chk

    .LinkedCell = _

    .TopLeftCell.Offset(0, lCol).Address

    End With

    Next chk



    End Sub
  • To post as a guest, your comment is unpublished.
    Wedzmer Munjilul · 2 years ago
    Hello! Nice post about the VBA...
    but what if there are 3 columns that has checkboxes that needs to be linked in three other columns as well? Let's say columns B, C, and D has checkboxes and should be linked to columns H, I, and J respectively.
    • To post as a guest, your comment is unpublished.
      Paul Forde · 2 years ago
      Hi,

      Having same problem - Have you found out how to get around this?

      Thanks,
      Paul
      • To post as a guest, your comment is unpublished.
        Marcos Grazina · 1 years ago
        Hey,

        Try this:

        Sub LinkCheckBoxes()
        Dim chk As CheckBox
        Dim lCol As Long
        lCol = 2 'number of columns to the right for link

        For Each chk In ActiveSheet.CheckBoxes
        With chk
        .LinkedCell = _
        .TopLeftCell.Offset(0, lCol).Address
        End With
        Next chk

        End Sub



        If you have for example, checkboxes in D,E,F change "Icol" to 1, so it links to G,H and I, respectively.
  • To post as a guest, your comment is unpublished.
    thea · 2 years ago
    Can I do this and program the boxes to say something other than true and false?
  • To post as a guest, your comment is unpublished.
    Louise · 2 years ago
    Hi,

    In your VBA code: link checkboxes to multiple cells at once, the code is set up to link the cell below it. How is the code if I want to link the cell to the left of the first one?

    Thanks!
  • To post as a guest, your comment is unpublished.
    ALi · 3 years ago
    i have more than 40000 cell which have checkbox. when i use this code, it takes more than 5 second to process, i define different macros for different cells but i have still the problem, what can i do?