Jak automaticky zobrazit výchozí hodnotu při mazání hodnoty z rozevíracího seznamu v aplikaci Excel?

V Excelu můžete pomocí Ověření dat vytvořit rozevírací seznam pro uživatele, aby mohli vybrat hodnoty. Možná však budete chtít, aby se výchozí hodnota, například „-Select-“, zobrazila automaticky, když je vybraná položka odstraněna z rozevírací buňky. Tento článek poskytuje podrobné řešení pomocí kódu VBA.

Automatické zobrazení výchozí hodnoty při mazání hodnoty v rozevíracím seznamu

Automatické zobrazení výchozí hodnoty při mazání hodnoty v rozevíracím seznamu

1. Klepněte pravým tlačítkem na záložku listu obsahující rozevírací seznam a vyberte Zobrazit kód z kontextové nabídky.

2. V Microsoft Visual Basic pro aplikace v okně, které se objeví, zkopírujte a vložte níže uvedený kód do editoru skriptů.

VBA: Zobrazit výchozí hodnotu při mazání vybrané položky v rozevíracím seznamu

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xObjV As Validation
On Error Resume Next
Set xObjV = Target.Validation
If xObjV.Type = xlValidateList Then
 If IsEmpty(Target.Value) Then Target.Value = "-Select-"
End If
End Sub

3. Uložte kód. Po odstranění vybrané položky se v rozevírací buňce zobrazí výchozí hodnota, dokud nebude vybrána nová položka.