Як додати галочки та перехресні символи до випадаючого списку в Excel?

Зазвичай після вставлення галочок та перехресних символів у клітинки з функцією символів, а потім створення випадаючих списків з ними як джерелом даних, результати відображаються як ü або û у випадаючих клітинках. Як відобразити фактичні ✓ та символи в клітинках після вибору елементів зі спадного списку? Наведений нижче метод VBA допоможе створити галочку та перехресний випадаючий список в Excel.

Додайте галочки та перехресні символи у випадаючий список із кодом VBA

Додайте галочки та перехресні символи у випадаючий список із кодом VBA

За допомогою наведеного нижче коду VBA ви можете вставити галочки та перехресні випадаючі списки у зазначені комірки в Excel. Будь ласка, виконайте наступне.

1. На аркуші ви створите випадаючі списки символів галочки та перехрестя, клацніть правою кнопкою миші вкладку аркуша та виберіть Переглянути код з контекстного меню.

2. Тоді Microsoft Visual Basic для додатків відкриється вікно, скопіюйте нижче код VBA у вікно коду.

Код VBA 1: Додайте галочки та перехресні символи у випадаючий список

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Target.Value = "Tick" Then
        Target.Value = "P"
    ElseIf Target.Value = "Cross" Then
        Target.Value = "S"
    End If
End Sub

3. Перейдіть на клацання Insert > Модулі, а потім скопіюйте наступний код 2 у вікно Модуль.

Код VBA 2: Додайте галочки та перехресні символи у випадаючий список

Sub usingSymbols()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Set xRg = Range("B1:B10")
    xRg.Font.Name = "Wingdings 2"
    xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub

примітки: У наведеному вище коді B1: B10 - це діапазон клітинок, який ви створите, розкривний список із позначками та перехрестя. Будь ласка, змініть діапазон, як вам потрібно.

4 Натисніть кнопку F5 клавіша для запуску коду.

Тепер випадаючі списки символів галочки та перехрестя вставляються в діапазон B1: B10. Виберіть галочку зі спадного меню, щоб вставити ✓ у клітинку, і виберіть пункт Хрест символ. Дивіться знімок екрана:

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

• Як автоматично заповнити інші комірки при виборі значень у випадаючому списку Excel?
• Як здійснити автозаповнення під час набору тексту у випадаючому списку Excel?
• Як створити календар випадаючого списку в Excel?
• Як створити випадаючий список із декількома виділеннями або значеннями в Excel?