Как добавить галочку в ячейку двойным щелчком в Excel?

Обычно для того, чтобы поставить галочку в ячейке, вам нужно попасть в диалоговое окно «Символ», найти символ галочки и вставить его вручную. Но найти символ галочки в диалоговом окне «Символ» не так-то просто, так как внутри перечислено множество символов. Как быстро поставить галочку в ячейке в Excel? В этой статье будет показан метод VBA, с помощью которого можно легко добавить галочку в ячейку только двойным щелчком.

Дважды щелкните, чтобы добавить галочку в ячейку с кодом VBA

Дважды щелкните, чтобы добавить галочку в ячейку с кодом VBA

Следующий код VBA поможет вам добавить галочку в ячейку двойным щелчком. Пожалуйста, сделайте следующее.

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

2. в Microsoft Visual Basic для приложений окно, скопируйте и вставьте приведенный ниже код VBA в Код: окно.

Код VBA: дважды щелкните, чтобы добавить галочку в ячейку

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Внимание: В коде B1: B10 - это диапазон, в который вы добавляете галочку двойным щелчком. Пожалуйста, измените его в зависимости от ваших потребностей.

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно и вернитесь к рабочему листу.

Теперь дважды щелкните любую ячейку в диапазоне B1: B10, флажок будет установлен автоматически. И еще раз дважды щелкнув ячейку, установленная галочка будет удалена.

Если вам нужно часто использовать галочки в повседневной работе Excel, здесь я рекомендую Авто текст Полезность Kutools for Excel. С помощью этой функции вы можете сохранить галочку как автоматическую текстовую запись, а затем возобновить ее в будущем одним щелчком мыши в Excel, как показано ниже.
Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная трасса)

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

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Больше информации... Скачать бесплатно... Покупка ...

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

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...

Комментарии (12)

Оценок пока нет. Оцените первым!

Луис Карлос Диас

о 4 лет назад

#27122

Этот комментарий был сведен к минимуму модератором на сайте

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer a pagar a marca, eu dou duplo clique novamente ea célula voltaria ao normal (continuaria apenas o número).

Ответить

Тадао Кано Луис Карлос Диас

о 4 лет назад

#27123

Этот комментарий был сведен к минимуму модератором на сайте

Ола Луис, tente essa alteracao. Функционирует на разных уровнях A2:A10 и D2:D5, изменяя конформность по необходимости.

Тадао

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Если Не Пересечь(Цель, Объединение(Диапазон("A2:A10"), Диапазон("D2:D5"))) Ничего Тогда
Application.EnableEvents = False
Если Left(ActiveCell.Value, 1) = ChrW(&H2713), то
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Еще
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
End If
Отмена = True
End If
Application.EnableEvents = True
End Sub

Ответить

Элизабет

о 2 лет назад

#34106

Этот комментарий был сведен к минимуму модератором на сайте

Есть ли способ зациклить этот код, чтобы он находился на многих листах в одной книге?

Ответить

Report

кристалл Элизабет

о 2 лет назад

#34107

Этот комментарий был сведен к минимуму модератором на сайте

Привет leoflute, после нажатия другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь для открытия ThisWorkbook (Код) окно, а затем скопируйте приведенный ниже код в окно кода. Не забудьте изменить имена листов и диапазон ячеек в коде. Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Обновлено Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName как строка
Dim xEEBol, xWSNBol, xBol как логическое значение
Дим xArrWs
Дим xArrRg
Dim xI, xJ как целое число
Dim xWs как рабочий лист
Dim xRg как диапазон

хСтрВс = "Лист5,Лист1,Лист2" 'Конкретные имена рабочих листов
хСтрРг = "B3: B10" 'Диапазон ячеек, в которые вы будете вставлять галочки
xArrWs = Разделить (xStrWs, ",")
xArrRg = Разделить (xStrRg, ",")

xEEBol = Приложение.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Name
xBol = Ложь
xWSNBol = Ложь
Для xI = 0 To UBound(xArrWs)
Если xStrWsName = xArrWs(xI) Тогда
xWSNBol = Истина
Выход для
End If
Следующий хI

Если xWSNBol Тогда
Установите xWs = Application.Worksheets.Item (xArrWs (xI))
Для xJ = 0 To UBound(xArrRg)
Установить xRg = Sh.Range(xArrRg(xJ))
Если Not Intersect(Target, xRg) ничто, то
хбол = Истина
Выход для
End If
Следующий xJ
End If

Если хБол Тогда
Если ActiveCell.Value = ChrW(&H2713) Тогда
ActiveCell.ClearContents
Еще
ActiveCell.Value = ChrW(&H2713)
End If
Отмена = True
End If
Приложение.EnableEvents = xEEBol
End Sub

Ответить

Report

CSherrod

о 1 год назад

#35215

Этот комментарий был сведен к минимуму модератором на сайте

Всем привет! Что бы я добавил к приведенному выше коду, чтобы ячейка менял цвет при добавлении флажка?

Ответить

Дан

о 1 год назад

#36632

Этот комментарий был сведен к минимуму модератором на сайте

привет кристалл
есть ли способ поставить галочки в A1:A10 вместе с B3:B10?

Ответить

Майкл

о 1 год назад

#36920

Этот комментарий был сведен к минимуму модератором на сайте

Как мне повторить это для нескольких столбцов?
Например, мне это нужно в следующем:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Ответить

Улисс Нонато

О 7 месяцев назад

#38841

Этот комментарий был сведен к минимуму модератором на сайте

Eu gostaria де сабля себе é possível adicionar a marca ком apenas ум клика ао invés де dois.

Ответить

кристалл Улисс Нонато

О 6 месяцев назад

#38900

Этот комментарий был сведен к минимуму модератором на сайте

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Ответить

Report

Сора

О 2 месяцев назад

#41276

Этот комментарий был сведен к минимуму модератором на сайте

Как сделать так, чтобы после двойного щелчка в соседней ячейке добавлялась метка времени?

Ответить

кристалл Сора

О 2 месяцев назад

#41491

Этот комментарий был сведен к минимуму модератором на сайте

Привет Сора,
Следующий код VBA может оказать вам услугу. Пожалуйста, попробуйте. Спасибо.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

Ответить

Report

Анна

О 1 неделю назад

#42923

Этот комментарий был сведен к минимуму модератором на сайте

Привет,

Une fois ces case cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une Certaine Colone, est ce возможно?

Merci à vous, хороший вечер

Ответить

Здесь еще нет комментариев

Оставляйте свои комментарии

Публикация как гость

Логин

Имя (обязательно)

E-mail (обязательно)

Оценить этот пост:

Сброс

0 Характеристики

Я согласен с условия и сроки