Excel'de veri doğrulama açılır listesinde varsayılan bir değer nasıl ayarlanır?

Veri doğrulama açılır listesinde varsayılan bir değer belirlemek, başkalarının aşağı açılır liste hücrelerini bir çalışma sayfasında bir bakışta kolayca tanımlamasına yardımcı olur. Bu makale, ayrıntılı olarak veri doğrulama açılır listesinde varsayılan bir değer ayarlamak için bir VBA yöntemi sağlar.

VBA kodu ile veri doğrulama açılır listesinde varsayılan bir değer ayarlayın

VBA kodu ile veri doğrulama açılır listesinde varsayılan bir değer ayarlayın

Aşağıdaki ekran görüntüsü gibi, B2: C7 aralığındaki tüm hücrelerin açılır liste içerdiğini ve varsayılan bir değer ayarlamak istediğinizi varsayalım (diyor - Listeden seç -) bu açılır listeden değerleri seçmeden önce. Aşağıdaki VBA kodunu deneyebilirsiniz.

1. Varsayılan bir değer belirlemeniz gereken açılır listelerin bulunduğu sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle Menüden.

2. içinde Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: veri doğrulama açılır listesinde varsayılan bir değer ayarlayın

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

not: VBA kodundaki varsayılan değeri ihtiyaç duyduğunuz değerle değiştirebilirsiniz.

6. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Varsayılan değerlerin, aşağıda gösterilen ekran görüntüsü gibi tüm açılır liste hücrelerine eklendiğini görebilirsiniz.

notlar:

İlgili yazılar:

• Excel açılır listesine yazarken otomatik tamamlama nasıl yapılır?
• Excel'de bir açılır liste takvimi nasıl oluşturulur?
• Excel'de aranabilir bir açılır liste nasıl oluşturulur?
• Excel'de birden çok seçim veya değer içeren açılır liste nasıl oluşturulur?
• Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?