Jak ustawić wartość domyślną na liście rozwijanej sprawdzania poprawności danych w programie Excel?
Ustaw wartość domyślną na liście rozwijanej sprawdzania poprawności danych, która pomoże innym łatwo zidentyfikować komórki listy rozwijanej w arkuszu. W tym artykule opisano metodę VBA umożliwiającą szczegółowe ustawienie wartości domyślnej na liście rozwijanej sprawdzania poprawności danych.
Ustaw wartość domyślną na liście rozwijanej sprawdzania poprawności danych za pomocą kodu VBA
Ustaw wartość domyślną na liście rozwijanej sprawdzania poprawności danych za pomocą kodu VBA
Jak na poniższym zrzucie ekranu, zakładając, że wszystkie komórki w zakresie B2: C7 zawierają listę rozwijaną i chcesz ustawić wartość domyślną (mówi - Wybierz z listy -) na tych listach rozwijanych przed wybraniem z nich wartości. Możesz wypróbować następujący kod VBA.
1. Kliknij prawym przyciskiem myszy kartę arkusza z listami rozwijanymi, dla których chcesz ustawić wartość domyślną, a następnie kliknij Wyświetl kod z menu.
2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod VBA do okna Code.
Kod VBA: ustaw wartość domyślną na liście rozwijanej sprawdzania poprawności danych
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
Note: możesz zmienić domyślną wartość w kodzie VBA na taką, której potrzebujesz.
6. wciśnij F5 klucz do uruchomienia kodu. Możesz zobaczyć, że wartości domyślne są dodawane do wszystkich komórek listy rozwijanej, jak pokazano poniżej.
Uwagi:
Podobne artykuły:
- Jak autouzupełnianie podczas pisania w rozwijanej liście programu Excel?
- Jak utworzyć rozwijany kalendarz listy w programie Excel?
- Jak utworzyć rozwijaną listę z możliwością wyszukiwania w programie Excel?
- Jak utworzyć listę rozwijaną z wieloma wyborami lub wartościami w programie Excel?
- Jak automatycznie wypełnić inne komórki podczas wybierania wartości na liście rozwijanej programu Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!