Jak nastavit výchozí hodnotu v rozevíracím seznamu ověření dat v aplikaci Excel?
Nastavit výchozí hodnotu v rozevíracím seznamu ověření dat pomáhá ostatním snadno identifikovat buňky rozevíracího seznamu na první pohled v listu. Tento článek podrobně popisuje metodu VBA pro nastavení výchozí hodnoty v rozevíracím seznamu ověření dat.
Nastavte výchozí hodnotu v rozevíracím seznamu ověření dat pomocí kódu VBA
Nastavte výchozí hodnotu v rozevíracím seznamu ověření dat pomocí kódu VBA
Jak je uvedeno níže, předpokládejme, že všechny buňky v rozsahu B2: C7 obsahují rozevírací seznam a chcete nastavit výchozí hodnotu (říká - Vyberte si ze seznamu -) v těchto rozevíracích seznamech, než z nich vyberete hodnoty. Můžete vyzkoušet následující kód VBA.
1. Klikněte pravým tlačítkem na kartu listu s rozevíracími seznamy, které potřebujete k nastavení výchozí hodnoty, a poté klikněte na Zobrazit kód z menu.
2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód VBA do okna Kód.
Kód VBA: nastavte výchozí hodnotu v rozevíracím seznamu ověření dat
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 SubPoznámka: můžete změnit výchozí hodnotu v kódu VBA na tu, kterou potřebujete.
6. zmáčkni F5 klíč ke spuštění kódu. Můžete vidět, že výchozí hodnoty jsou přidány do všech buněk rozevíracího seznamu, jak je uvedeno níže.
Poznámky:
Související články:
- Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
- Jak vytvořit kalendář rozevíracího seznamu v aplikaci Excel?
- Jak vytvořit vyhledávací rozevírací seznam v aplikaci Excel?
- Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?
- Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
