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

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

За замовчуванням у розкривному списку перевірки даних у Excel можна вибрати лише один елемент. Як ви можете зробити кілька виборів у розкривному списку, як показано на малюнку нижче? Методи, наведені в цій статті, можуть допомогти вам вирішити проблему.

Створіть випадаючий список із декількома варіантами вибору за допомогою коду VBA
Легко створюйте випадаючий список за допомогою декількох виділень за допомогою дивовижного інструменту

Більше підручника для випадаючого списку ...


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

У цьому розділі наведено два коди VBA, які допоможуть вам зробити кілька варіантів у розкривних списках на аркуші. Два коди VBA можуть досягти:

Код VBA 1: дозволити кілька варіантів вибору в розкривному списку без дублікатів
Код VBA 2: дозволити багаторазовий вибір у розкривному списку без дублікатів (видаліть наявні елементи, вибравши їх знову)

Ви можете застосувати один із наведених нижче кодів VBA, щоб зробити кілька варіантів у розкривному списку на аркуші в Excel. Будь ласка, зробіть наступне.

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

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

Код VBA 1: дозволити кілька варіантів вибору в розкривному списку без дублікатів

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Тепер ви можете вибрати кілька елементів зі спадного списку на поточному аркуші.

Припустимо, що ви випадково вибрали елемент і вам потрібно видалити його, не очищаючи всю комірку та починаючи спочатку. Наступний код VBA 2 може зробити вам послугу.

Код VBA 2: дозволити багаторазовий вибір у розкривному списку без дублікатів (видаліть наявні елементи, вибравши їх знову)

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
'Updated by Ken Gardner 2022/07/11
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
Dim semiColonCnt As Integer
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
'If Not Application.Intersect(Target, xRng) Is Nothing Then
If Application.Intersect(Target, xRng) Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
xValue1 = Replace(xValue1, "; ", "")
xValue1 = Replace(xValue1, ";", "")
Target.Value = xValue1
ElseIf InStr(1, xValue1, "; " & xValue2) Then
xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
Target.Value = xValue1
ElseIf InStr(1, xValue1, xValue2 & ";") Then
xValue1 = Replace(xValue1, xValue2, "")
Target.Value = xValue1
Else
Target.Value = xValue1 & "; " & xValue2
End If
Target.Value = Replace(Target.Value, ";;", ";")
Target.Value = Replace(Target.Value, "; ;", ";")
If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
Target.Value = Replace(Target.Value, "; ", "", 1, 1)
End If
If InStr(1, Target.Value, ";") = 1 Then
Target.Value = Replace(Target.Value, ";", "", 1, 1)
End If
semiColonCnt = 0
For i = 1 To Len(Target.Value)
If InStr(i, Target.Value, ";") Then
semiColonCnt = semiColonCnt + 1
End If
Next i
If semiColonCnt = 1 Then ' remove ; if last character
Target.Value = Replace(Target.Value, "; ", "")
Target.Value = Replace(Target.Value, ";", "")
End If
End If
End If
End If
Application.EnableEvents = True
End Sub

примітки:

1). У розкривному списку не допускаються повторювані значення.
2). Наведений вище код VBA 2 надав наш захоплений користувач Кен Гарднер 2022.
3). Будь ласка, збережіть робочу книгу як Книга Excel з підтримкою макросів для того, щоб забезпечити роботу коду в майбутньому.
4). Після додавання коду VBA 2 ви можете видалити наявний елемент, вибравши його ще раз у розкривному списку. Перегляньте gif нижче:


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

Тут ми настійно рекомендуємо Вибірний список, що випадає особливість Kutools для Excel для вас. За допомогою цієї функції ви можете легко вибрати кілька елементів зі спадного списку у зазначеному діапазоні, поточному аркуші, поточній книзі або всім відкритим книгам, як вам потрібно.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. клацання Кутулс > Випадаючий список > Вибірний список, що випадає > Налаштування. Дивіться знімок екрана:

2 В Виберіть кілька налаштувань спадного списку діалогове вікно, будь ласка, налаштуйте наступним чином.

  • 2.1) Вкажіть сферу застосування в Застосувати до розділ. У цьому випадку я вибираю Поточний аркуш від Вказаний обсяг випадаючий список;
  • 2.2) У Напрямок тексту розділ, виберіть напрямок тексту відповідно до ваших потреб;
  • 2.3) У сепаратор поле, введіть роздільник, який ви будете використовувати для розділення кількох значень;
  • 2.4) Перевірте Не додавати дублікати коробка в опції розділ, якщо ви не хочете робити дублікати в комірках спадного списку;
  • 2.5) Клацніть на OK кнопку. Дивіться знімок екрана:

3. Клацніть, будь ласка Кутулс > Випадаючий список > Вибірний список, що випадає щоб увімкнути цю функцію.

Тепер ви можете вибрати кілька елементів зі спадного списку на поточному аркуші або будь-яку область, яку ви вказали на кроці 2.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


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

Автозаповнення під час набору тексту у випадаючому списку Excel
Якщо у вас є розкривний список перевірки даних із великими значеннями, вам потрібно прокрутити список унизу, лише щоб знайти правильний, або ввести ціле слово безпосередньо у поле списку. Якщо є спосіб дозволити автозаповнення під час введення першої літери у випадаючому списку, все стане простіше. Цей посібник пропонує метод вирішення проблеми.

Створіть випадаючий список з іншої книги в Excel
Створити випадаючий список перевірки даних серед робочих аркушів у книзі досить просто. Але якщо дані списку, необхідні для перевірки даних, знаходяться в іншій книзі, що б ви зробили? У цьому посібнику ви дізнаєтесь, як детально створити випадаючий список з іншої книги в Excel.

Створіть розкривний список для пошуку в Excel
Для випадаючого списку з численними значеннями пошук правильного - непроста робота. Раніше ми запровадили метод автоматичного заповнення випадаючого списку при введенні першої літери у випадаючому вікні. Окрім функції автозавершення, ви також можете зробити пошук у розкривному списку для підвищення ефективності роботи при пошуку належних значень у розкривному списку. Щоб зробити пошук у розкривному списку спробним, скористайтеся методом у цьому посібнику.

Автоматично заповнювати інші комірки під час вибору значень у спадному списку Excel
Скажімо, ви створили випадаючий список на основі значень у діапазоні комірок B8: B14. Вибираючи будь-яке значення зі спадного списку, ви хочете, щоб відповідні значення в діапазоні комірок C8: C14 автоматично заповнювались у вибраній комірці. Для вирішення проблеми методи з цього посібника допоможуть вам.

Більше підручника для випадаючого списку ...


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (38)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, дякую за рішення та код. Але наступним кроком є ​​те, як переконатися, що користувач не вибирає «дубльовані» значення зі спадного списку. Наприклад, якщо в списку є 4 елементи - апельсин, яблуко, банан, персик, і якщо користувач уже вибрав "апельсин", то Excel не повинен дозволяти користувачеві вибрати "апельсин" АБО цю опцію слід видалити з решти список. Чи можете ви опублікувати код, щоб виконати цю функцію. Спасибі. Єзді
Цей коментар був мінімізований модератором на сайті
Привіт Єзді, дякую за коментар. Код було оновлено, і тепер у випадаючому списку не допускаються повторювані значення. Спасибі. Сонечко
Цей коментар був мінімізований модератором на сайті
Чудово, що це дозволяє вибрати декілька варіантів, але, як прокоментував @Yezdi, я вважаю, що він додасть один або кілька дублікатів, навіть якщо я їх не виберу. Отже, наразі це 80% рішення... за один крок до ідеального. Я не програміст VB, або я б запропонував рішення.
Цей коментар був мінімізований модератором на сайті
Ви можете змінити код у наступних рядках, щоб запобігти повторенню: Якщо xValue2 "" Тоді Target.Value = xValue1 & ", " & xValue2 End If To: Якщо xValue2 "" Тоді Якщо CheckIfAlreadyAdded(xValue1, xValue2) = False, то Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If І потім додайте таку функцію: Приватна функція CheckIfAlreadyAdded(ByVal sText як рядок, sNewValue як рядок) As BooleanAd Die, як FAlready, як FAlready, як FAlreadyAdd. Рядок WrdArray() = Split(sText, ",") Для i = LBound(WrdArray) до UBound(WrdArray) Якщо Trim(WrdArray(i)) = Trim(sNewValue) Тоді CheckIfAlreadyAdded = True Next i End функція -- імовірно, є кращі способи кодування, але наразі він працює.
Цей коментар був мінімізований модератором на сайті
Щойно зрозумів, що я не вийшов з циклу в новій функції, якщо умова була встановлена, тому нам не потрібно перевіряти інші записи.
Цей коментар був мінімізований модератором на сайті
Привіт. Дякуємо за код і доповнення для обмеження дублікатів. Ще один запит - яке доповнення/зміну потрібно зробити, щоб дозволити множинний вибір лише в одному або двох конкретних стовпцях? Цей код повторно додає рядки тексту до клітинок, які мають бути «звичайними», якщо я виправлю помилку чи вношу зміни чи доповнення до тексту в клітинці, а не просто поводитись «звичайно» та приймати зміни (без повторного додавання всього тексту знову). Наприклад, стовпець А є "звичайним" стовпцем. Я пишу речення "Які три речі ви хочете найбільше?" Стовпець B — це стовпець «списку», де я хочу мати можливість вибрати лише одне значення (у цьому випадку, скажімо, ім’я дитини). Стовпець C — це ще один стовпець «списку», де користувач повинен мати можливість вибрати кілька елементів (що цей код дозволяє мені зробити ідеально). Проходячи далі, я розумію, що зробив помилку в стовпці А, і хочу виправити її. Якщо я зайду (подвійне клацання, F2) і внесу виправлення до слова "предмети", я в кінцевому підсумку отримаю такий результат у своїй клітинці: "Які три елементи ви хочете найбільше? Які три предмети, які ти найбільше хочеш?" заздалегідь дякую за будь-яку допомогу (від користувача, якому ДУЖЕ подобається VBA, але він все ще знаходиться на самому ранньому етапі навчання!)
Цей коментар був мінімізований модератором на сайті
Мені вдалося змусити код працювати, але потім, коли я зберіг документ (з увімкненими макросами), закрив його та повернувся, код більше не працював (хоча він все ще був там). Я не можу зрозуміти, що я зробив не так. Є ідеї?
Цей коментар був мінімізований модератором на сайті
Привіт, Синтія! Якщо оригінальний автор не відповість, я отримаю відповідь, але знову буду перед комп’ютером 29 грудня. Я також не програміст VBA. Тим часом ви можете шукати в Google, як визначити номер стовпця, і дозволити коду виконуватися, лише якщо дані редагуються в цих конкретних стовпцях. Я зробив це, але код знаходиться на моєму робочому ПК і наразі не можу його згадати, можливо, спробуйте розмістити debug.print на target.column або щось подібне, щоб побачити, чи він дає вам номер стовпця, який редагується . Вибачте, Дженніфер, я не впевнена, яка у вас проблема :(
Цей коментар був мінімізований модератором на сайті
@Cynthia, якщо все-таки потрібно, ви повинні мати можливість зробити щось подібне, щоб переконатися, що код виконується лише на певних стовпцях, у моєму випадку, стовпцях 34 і 35: Якщо (Target.Column 34 і Target.Column 35) Потім вийдіть з підпорядкування «Помістіть цей код на початку після ваших невиразних заяв
Цей коментар був мінімізований модератором на сайті
[цитата]@Cynthia, якщо все ще потрібно, ви повинні мати можливість зробити щось подібне, щоб переконатися, що код виконується лише на певних стовпцях, у моєму випадку, стовпцях 34 і 35: Якщо (Target.Column 34 And Target.Column 35) Потім Exit Sub 'Помістіть цей код на початку після ваших операторів dimВід Мервіна[/quote] Привіт, @Mervyn! Повністю втрачено ланцюжок, але дуже дякую за ваші відповіді. Я спробував застосувати If (Target.Column 34 And Target.Column 35), Потім Exit Sub (моя версія звучить як If (Target.Column4 And Target.Column5), Потім Exit Sub, як ви надали, але я отримую "Run-time помилка "438": об'єкт не підтримує цю властивість або метод """ помилка в цьому новому рядку. Ось перші кілька рядків мого коду: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 як рядок If (Target.Column4 і Target.Column5) Потім вийти з підрозділу If Target.Count > 1 Потім вийти з підпорядкованого фрагмента при помилці Resume Next Мій аркуш містить лише 6 стовпців: Запитання | Відповідь | Категорія | Підкатегорія | Теги | Посилання на фото Мені потрібні лише кілька спадних списків значень у підкатегорії та тегах (стовпці 4 і 5). Я продовжу шукати інформацію, як ви запропонували 12/23, і перегляну надане посилання Charity.
Цей коментар був мінімізований модератором на сайті
Якщо Target.Column <> 34, то вийдіть із під

«Помістіть цей код на початку після ваших невиразних заяв
Цей коментар був мінімізований модератором на сайті
Привіт, зараз я використовую цю формулу, і всі стовпці з перевіркою даних мають опцію множинного вибору, однак я хочу обмежити множинний вибір лише одним стовпцем. Чи може хтось відредагувати цю формулу для мене, щоб множинний вибір можна було застосувати лише до стовпця 4? Дякую :) Private Sub Worksheet_Change(ByVal Target As Range) 'Оновлено: 2016/4/12 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String Якщо Target.Count > 1 Потім вийти з Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) Якщо xRng — це нічого, то вийдіть із підзастосунку. EnableEvents = false Якщо не Application. Intersect(Target, xRng) — нічого, тоді xValue2 = Target.Value Application.Undo xValue1 = Target.Value2 Якщо xValue1 Target.Value2 " " Тоді Якщо xValue1 "" Тоді Якщо xValue2 = xValue1 або _ InStr(1, xValue2, ", " & xValue1) або _ InStr(1, xValue2, xValue1 & ",") Тоді Target.Value = xValue1 Else Target =. xValue2 & ", " & xValueXNUMX End If End If End If End If Application.EnableEvents = True End Sub Будь-яка допомога буде вдячна!
Цей коментар був мінімізований модератором на сайті
Це добре працює, але я не можу видалити елемент після вибору. Будь-які пропозиції на випадок, якщо я випадково натисну щось і мені потрібно видалити це, не очищаючи (сподіваюся) всю клітинку та починаючи спочатку? Крім того, для тих, хто прагне визначити стовпець або стовпці, Contextures має чудове доповнення до наданого тут коду, яке дозволяє це зробити. http://www.contextures.com/excel-data-validation-multiple.html#column
Цей коментар був мінімізований модератором на сайті
[quote]Це добре працює, але я не можу видалити елемент після вибору. Будь-які пропозиції на випадок, якщо я випадково натисну щось і мені потрібно видалити це, не очищаючи (сподіваюся) всю клітинку та починаючи спочатку? Крім того, для тих, хто прагне визначити стовпець або стовпці, Contextures має чудове доповнення до наданого тут коду, яке дозволяє це зробити. http://www.contextures.com/excel-data-validation-multiple.html#columnБлагодійністю[/quote] Код працює нормально. Проте я не можу скасувати вибір елемента. Коли я хочу видалити елемент із вибору, він просто не видаляється. Хтось ще стикався з цією проблемою?[/quote] Привіт усім! Знайдено будь-які рішення для цієї проблеми..будь ласка, поділіться..
Цей коментар був мінімізований модератором на сайті
Привіт, код працює нормально. Проте я не можу скасувати вибір елемента. Коли я хочу видалити елемент із вибору, він просто не видаляється. Хтось ще стикається з цією проблемою?
Цей коментар був мінімізований модератором на сайті
Чи була відповідь на це питання. Це та сама проблема, що й у мене. Здається, немає способу видалити вибраний елемент.
Цей коментар був мінімізований модератором на сайті
видаліть вміст у комірці, а потім виберіть повторно
Цей коментар був мінімізований модератором на сайті
Привіт усім, у мене є цей код на аркуші Excel, і він очищає вміст зі спадного списку, коли вибрано клітинку - я знаю, яка частина коду це робить (частина, в якій написано "fillRng.ClearContents"), і я спробував використати деякі з перерахованих вище, щоб виправити це безуспішно... Я новачок у програмуванні VBA тощо. Чи може хтось запропонувати будь-яку допомогу щодо того, як змінити це так, щоб, коли клітинка вибрано, вона не очищалася, а записи не відображалися продублюйте будь ласка?? Параметр Явний Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Встановити LBobj = Me.OLEObjects("ListBox1") Встановити кваліфікатори TargetObjR = Object. > 3 і Target.Column = 3 Потім встановіть fillRng = Target за допомогою LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End за допомогою Else LBobj.Visible = False Якщо Not fillRng - це нічого Тоді fillRng.ClearContents з кваліфікаторами Якщо .ListCount 0 Тоді для i = 0 До .ListCount - 1 Якщо fillRng.Value = "" Тоді Якщо .Selected(i) Тоді fillRng.Value = .List(i) Інакше Якщо .Selected(i) Тоді fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Нічого End If End If End If End Sub
Цей коментар був мінімізований модератором на сайті
Привіт усім, я міг би створити свій спадний список ідеально, але моє запитання таке: коли я вибираю всі необхідні елементи, вони переходять один за одним горизонтально через клітинку, наприклад: жовтий, зелений, чорний, червоний. Але як я можу зробити так, щоб вона виглядала вертикально?, скоріше, наприклад: помаранчевий чорний жовтий Червоний Тому що в горизонтальному положенні клітинка стає досить довгою під час вибору великої кількості елементів. Скажіть, будь ласка, чи є спосіб це зробити?. Дякую, Дезіре
Цей коментар був мінімізований модератором на сайті
Мені вдалося використати цей код і успішно створити спадні вікна з кількома виборами. Це працювало, коли я закривав і відкривав у різні дні. Однак тепер не всі клітинки, які я спочатку вибрав, дозволяють множинний вибір. Лише зроблені раніше, незважаючи на використання коду для всієї електронної таблиці. Ви можете допомогти?
Цей коментар був мінімізований модератором на сайті
У мене така ж проблема.
Цей коментар був мінімізований модератором на сайті
клітинки, швидше за все, заблоковані, клацніть правою кнопкою миші на всіх з них, перейдіть до форматування клітинок, захист, а потім зніміть прапорець з параметра заблокована клітинка
Цей коментар був мінімізований модератором на сайті
Я створив спадний список, у якому можна вибрати кілька варіантів тексту, наприклад "харчування", "вага" і "робота", для причини зателефонувати кожному абоненту. У мене є сторінка підсумків, де я хочу побачити, скільки з кожної причини були вказані в конкретному місяці. Яку формулу я б використав, щоб наказати Excel витягнути та підрахувати кожну з них окремо протягом певного місяця? Наразі, як я це налаштував, він підраховується правильно, лише якщо у мене є одна причина в клітинці для кожного абонента.
Цей коментар був мінімізований модератором на сайті
Хороший день,
На жаль, не можу допомогти вам вирішити цю проблему. Будь ласка, повідомте мені, якщо знайдете відповідь.
Цей коментар був мінімізований модератором на сайті
Я намагаюся створити 4 стовпці зі спадними списками, де я можу вибрати кілька значень. Як змінити код VBA у "розкривному списку з кількома виборами", щоб, коли я клацаю на вже введеному значенні, воно видаляло його з комірки? Спасибі заздалегідь.
Цей коментар був мінімізований модератором на сайті
Шановний Ренді,
Що ви маєте на увазі "коли я натискаю на вже введене значення, воно видаляє його з комірки?"
Цей коментар був мінімізований модератором на сайті
У мене таке саме запитання. Мій спадний список не запам’ятовує вибрані значення. Якщо хтось натисне клітинку, яка вже була заповнена (не ним, а кимось іншим), вибрані значення очищаються, і клітинка знову порожня.
Цей коментар був мінімізований модератором на сайті
Я використовую наведений нижче код, щоб дозволити багаторазовий вибір на кількох аркушах, але коли я переходжу до іншого аркуша в книзі, множинний вибір зникає. Коли я збережу файл і повернуся до нього, він працюватиме для однієї вкладки з кодом, але знову, коли я натисну іншу вкладку з кодом, вона більше не працює. Будь-яка ідея, як це виправити, щоб якщо я клацну на аркуші з кодом VBA, він завжди дозволяв багаторазовий вибір?
Цей коментар був мінімізований модератором на сайті
Привіт, ich bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a) die Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun, da fälls da mir a niuf) Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Спасибо заранее!
Цей коментар був мінімізований модератором на сайті
Я не можу продовжити створення множинного вибору випадаючого списку. Я слухав навчальний посібник і читав матеріал, але все ще не можу створити. Будь ласка, хтось може мені допомогти?
Цей коментар був мінімізований модератором на сайті
Я знаю, що це може бути абсолютно випадковим, але я без проблем використовую варіант VBA. За винятком однієї сторінки, якщо ви виберете перші три варіанти, ви не зможете вибрати четвертий. Це дозволить вам вибрати 5-й, 6-й і так далі, але не 4-й варіант. Думки?
Цей коментар був мінімізований модератором на сайті
Привіт Роберт
Я перевірив код, але не знайшов проблеми, як ви згадували. Чи можете ви сказати мені, яку версію Excel ви використовуєте? Дякуємо за коментар.
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця