Excel'de veri doğrulama açılır listesinde varsayılan değer nasıl ayarlanır?
Veri doğrulama açılır listesinde bir varsayılan değer ayarlamak, başkalarının çalışma sayfasındaki açılır liste hücrelerini kolayca ve hızlıca tanımlamasına yardımcı olur. Bu makale, veri doğrulama açılır listesinde VBA yöntemiyle bir varsayılan değer ayarlama konusunda ayrıntılı bilgi sunmaktadır.
VBA kodu ile veri doğrulama açılır listesinde varsayılan değer ayarlama
VBA kodu ile veri doğrulama açılır listesinde varsayılan değer ayarlama
Aşağıdaki ekran görüntüsünde olduğu gibi, B2:C7 aralığındaki tüm hücrelerin açılır listesi olduğunu ve bu açılır listelerde (örneğin - Listeden seçiniz -) bir varsayılan değer ayarlamak istediğinizi varsayalım. Aşağıdaki VBA kodunu deneyebilirsiniz.
1. Varsayılan değer ayarlamak istediğiniz açılır listeler içeren sayfa sekmesine sağ tıklayın ve ardından menüden Görünüm Kodu'nu seçin.
2. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Veri doğrulama açılır listesinde varsayılan değer ayarlama
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 ihtiyacınız olanla değiştirebilirsiniz.
6. Kodu çalıştırmak için F5 tuşuna basın. Aşağıdaki ekran görüntüsünde gösterildiği gibi, varsayılan değerlerin tüm açılır liste hücrelerine eklendiğini görebilirsiniz.
Notlar:

Kutools AI ile Excel Sihirini Keşfedin
- Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
- Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
- VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.
İlgili makaleler:
- Excel açılır listesinde yazarken otomatik tamamlama nasıl yapılır?
- Excel'de açılır liste takvimi nasıl oluşturulur?
- Excel'de aranabilir bir açılır liste nasıl oluşturulur?
- Excel'de çoklu seçim veya değer içeren bir açılır liste nasıl oluşturulur?
- Excel açılır listesinden değer seçildiğinde diğer hücreleri otomatik doldurma nasıl yapılır?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.





- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin