Note: The other languages of the website are Google-translated. Back to English

Як додати галочку в клітинку подвійним клацанням в 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 для Excel. За допомогою цієї функції ви можете зберегти галочку як автоматичний запис тексту, а потім відновити її в майбутньому лише одним клацанням миші в Excel, як показано нижче.
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
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 apaeu duplo e quando apaeu clique novamente ea célula voltaria ao normar (continuaria apenas o número).
Цей коментар був мінімізований модератором на сайті
Ола Луїс, tente essa alteracao. Функціонує ці клітини A2:A10 e D2:D5, які відповідають вимогам.

Тадао


Приватний підпорядкований робочий лист_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
Скасувати = Правда
End If
Application.EnableEvents = True
End Sub
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зациклити цей код, щоб він був на багатьох аркушах в одній книзі?
Цей коментар був мінімізований модератором на сайті
Привіт, леофлюта, Після натискання інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно, двічі клацніть ThisWorkbook відкрити ThisWorkbook (Code) вікно, а потім скопіюйте наведений нижче код у вікно коду. Не забудьте змінити назви аркушів і діапазон комірок у коді. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh як об’єкт, ByVal Target як діапазон, скасувати як логічний)
'Оновлено Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName як рядок
Dim xEEBol, xWSNBol, xBol Як логічне значення
Дим xArrWs
Дим xArrRg
Розмір xI, xJ Як ціле число
Dim xWs як робочий аркуш
Dim xRg As Range

xStrWs = "Аркуш 5, Аркуш1, Аркуш2" 'Назви конкретних аркушів
xStrRg = "B3: B10" 'Діапазон клітинок, у який ви будете вставляти галочки
xArrWs = Split(xStrWs, ",")
xArrRg = Split(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Name
xBol = Неправда
xWSNBol = Неправда
Для xI = 0 до UBbound(xArrWs)
Якщо xStrWsName = xArrWs(xI), Тоді
xWSNBol = Правда
Вихід для
End If
Далі xI

Якщо xWSNBol Тоді
Встановити xWs = Application.Worksheets.Item(xArrWs(xI))
Для xJ = 0 до UBound(xArrRg)
Встановіть xRg = Sh.Range(xArrRg(xJ))
Якщо Not Intersect(Target, xRg) - це нічого, то
xBol = правда
Вихід для
End If
Далі xJ
End If

Якщо xBol Тоді
Якщо ActiveCell.Value = ChrW(&H2713), Тоді
ActiveCell.ClearContents
Ще
ActiveCell.Value = ChrW(&H2713)
End If
Скасувати = Правда
End If
Application.EnableEvents = xEEBol
End Sub

Цей коментар був мінімізований модератором на сайті
Привіт! Що б я додав до коду вище, щоб клітинка змінила колір, коли буде додано прапорець?
Цей коментар був мінімізований модератором на сайті
Привіт кристал
чи є спосіб поставити галочки в A1:A10 разом із B3:B10?
Цей коментар був мінімізований модератором на сайті
Як повторити це для кількох стовпців? 
Наприклад, мені це потрібно в наступному:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Цей коментар був мінімізований модератором на сайті
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.
Цей коментар був мінімізований модератором на сайті
Привіт, Улісс Нонато,
Якщо ви хочете додати позначку до клітинки лише одним клацанням миші, наведений нижче код 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
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця