Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

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

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

Очистити залежну комірку спадного списку після вибору, зміненого за допомогою коду VBA


Очистити залежну комірку спадного списку після вибору, зміненого за допомогою коду VBA


Наступний код VBA допомагає очистити залежний випадаючий список після вибору зміненого в Excel.

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

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

Код VBA: очистити залежну комірку випадаючого списку після вибору змінено

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 2018/06/04
    Application.EnableEvents = False
    If Target.Column = 5 And Target.Validation.Type = 3 Then
        Target.Offset(0, 1).Value = ""
    End If
    Application.EnableEvents = True
End Sub

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

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

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


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


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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.
    Sourav_extendoffice · 1 months ago
    Deleting Multiple rows gives error. Any suggestions ?
  • To post as a guest, your comment is unpublished.
    em · 1 years ago
    I am trying to have this apply to two dependent drop downs and cannot seem to get the code right. I tried copying the code and updating the offset and using the and function and get an error each time. Any advice? I want the two columns next to the drop down to clear if it is changed instead of just one.
    • To post as a guest, your comment is unpublished.
      helenasophiee · 1 months ago
      Hi, this is how I got it working for multiple drop downs, the "And" function didn't work for me either but this seems to. Essentially you need a different "If" statement for each drop down you want to go blank when you change the chosen value in the first drop down menu. There may be a more efficient way to do this but this worked for me!


      Private Sub Worksheet_Change(ByVal Target As Range)
      'Update by Extendoffice 2018/06/04
      Application.EnableEvents = False
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 1).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 2).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 3).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 4).Value = ""
      End If
      Application.EnableEvents = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Marlborek · 1 years ago
    It does not work.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Marlborek,
      Which Excel version are you using?
  • To post as a guest, your comment is unpublished.
    Juma · 1 years ago
    Working Perfectly
  • To post as a guest, your comment is unpublished.
    abc · 2 years ago
    To post as a guest, your comment is unpublished.
  • To post as a guest, your comment is unpublished.
    امید کیا · 2 years ago
    سلام وقت شما بخیر
    ما فایل اکسلی داریم که خروجیش از طریق نرم افزار همکاران سیستم هست یعنی فایل اکسل ما آنلاین به data base نرم افزار همکاران متصله(این مهم نیست برای اطلاع عرض کردم) توی این فایل فیلترهایی وجود داره که هر فیلتر یک لیست کشویی داره مشکل ما اینه که وقتی میخواهیم هر کدوم از فیلتر ها یکی از موارد لیست کشویی رو انتخاب کنیم با انتخاب لیست،لیست کشویی زود می پره یعنی بسته میشه زود و نمیشه چیزی رو انتخاب کرد،اینم بگم خدمتتون که آفیس رو حذف و نصب هم کردم بازم جواب نداد یعنی یه مدت خیلی کوتاهی جواب میده بعد به حالت قبل بر میگرده با پشتیبانی همکاران هم تماس گرفتیم گفتن مشکل از آفیستونه
    (آفیسمون 2016 هست)یعنی عملا اونها هم نتونستن مشکل رو پیدا کنن.
    لطفا اگه راهی هست ممنون میشم راهنماییم کنید.
    با تشکر