Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как установить значение по умолчанию в раскрывающемся списке проверки данных в Excel?

Установка значения по умолчанию в раскрывающемся списке проверки данных помогает другим пользователям легко идентифицировать ячейки выпадающего списка с одного взгляда на листе. В этой статье описывается метод VBA, позволяющий установить значение по умолчанию в раскрывающемся списке проверки данных.

Установите значение по умолчанию в раскрывающемся списке проверки данных с кодом VBA


Вы можете заинтересовать:

Объединение нескольких рабочих листов / книг в один рабочий лист / книгу:

Объединение нескольких рабочих листов или рабочих книг в один рабочий лист или книгу может быть огромной задачей в вашей повседневной работе. Но если у вас есть Kutools for Excel, его мощная утилита - Сочетать может помочь вам быстро объединить несколько рабочих листов, рабочих книг в один рабочий лист или книгу.

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Подробнее Загрузите бесплатную пробную версию


Установите значение по умолчанию в раскрывающемся списке проверки данных с кодом VBA


Как показано ниже снимок экрана, предположим, что все ячейки в диапазоне B2: C7 содержат раскрывающийся список, и вы хотите установить значение по умолчанию (говорит - Выберите из списка -) в этом раскрывающемся списке, прежде чем выбирать значения из них. Вы можете попробовать следующий код VBA.

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

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

Код VBA: установить значение по умолчанию в раскрывающемся списке проверки данных

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Внимание: вы можете изменить значение по умолчанию в коде VBA на тот, который вам нужен.

6. нажмите F5 для запуска кода. Вы можете видеть, что значения по умолчанию добавляются ко всем выпадающим спискам, как показано ниже.

Примечания:

1. Значение по умолчанию исчезнет после выбора значения в раскрывающемся списке.

2. Если на текущем листе отсутствуют раскрывающиеся списки проверки данных, вы получите окно со следующей подсказкой.


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



Рекомендуемые инструменты для повышения производительности в Excel

Kutools для Excel помогает всегда завершать работу раньше времени и выделяться из толпы

  • Больше, чем мощные расширенные функции 300, разработанные для рабочих сценариев 1500, повышающие производительность на 70%, дают вам больше времени, чтобы заботиться о семье и радоваться жизни.
  • Больше не нужно запоминать формулы и коды VBA, дайте вашему мозгу отдохнуть.
  • Станьте экспертом по Excel за минуты 3. Сложные и повторяющиеся операции можно выполнить за считанные секунды,
  • Ежедневно сокращайте тысячи операций с клавиатурой и мышью, попрощайтесь с профессиональными заболеваниями сейчас.
  • Высокоэффективные люди 110,000 и выбор всемирно известных компаний 300 +.
  • 60-Day полнофункциональная бесплатная пробная версия. 60-день гарантии возврата денег. 2 лет бесплатного обновления и поддержки.

Обеспечивает просмотр и редактирование с помощью вкладок в Microsoft Office, гораздо более мощный, чем вкладки браузера

  • Вкладка Office предназначена для Word, Excel, PowerPoint и других приложений Office: Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Martin Goodwin · 7 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?