Açılır listede boş yerine ilk öğe nasıl gösterilir?
Bir çalışma sayfasındaki açılır liste, veri girişini kolaylaştırmamıza yardımcı olabilir, sadece öğeleri tek tek yazmadan seçmemiz gerekiyor. Ancak bazen, açılır listeye tıkladığınızda, aşağıdaki ekran görüntüsü gibi ilk veri öğesi yerine ilk önce boş öğelere atlar, bu listenin sonundaki kaynak verilerin silinmesinden kaynaklanabilir. Her boş veri doğrulama hücresi için uzun bir listenin başına geri dönmeniz can sıkıcı olabilir. Bu yazıda, açılır listedeki ilk öğenin her zaman nasıl gösterileceğinden bahsedeceğim.
Veri Doğrulama işlevi ile boş yerine açılır listede ilk öğeyi göster
VBA kodu ile boş yerine açılır listedeki ilk öğeyi otomatik olarak göster
Veri Doğrulama işlevi ile boş yerine açılır listede ilk öğeyi göster
Aslında, bu işi başarmak için, bir açılır liste oluştururken belirli bir formül uygulamanız yeterlidir, lütfen aşağıdaki işlemleri yapın:
1. Açılır listeyi eklemek istediğiniz hücreleri seçin ve tıklayın. Veri > veri Doğrulama > veri Doğrulama, ekran görüntüsüne bakın:
2. Dışarı fırladı veri Doğrulama iletişim kutusunun altında Ayarlar sekmesini seçin Liste itibaren izin vermek bölümüne gidin ve ardından şu formülü girin: = OFSET (Sayfa3! $ A $ 1,0,0, COUNTA (Sayfa3! $ A: $ A) -1,1) içine Kaynak metin kutusu, ekran görüntüsüne bakın:
not: Bu formülde, Sheet3 çalışma sayfası kaynak veri listesini içeriyor mu ve A1 listedeki ilk hücre değeridir.
3. Sonra tıklayın OK düğmesi, şimdi, açılır liste hücrelerini tıkladığınızda, ilk veri öğesi her zaman en üstte görüntülenir, kaynak verilerin sonunda silinen hücre değerleri olup olmadığı, ekran görüntüsüne bakın:
VBA kodu ile boş yerine açılır listedeki ilk öğeyi otomatik olarak göster
Burada, veri doğrulama hücrelerine tıkladığınızda açılır listedeki ilk öğeyi otomatik olarak göstermenize yardımcı olabilecek bir VBA kodu da ekleyebilirim.
1. Açılır listeyi ekledikten sonra, açılır listeyi içeren çalışma sayfası sekmesini seçin ve seçmek için sağ tıklayın Kodu Görüntüle bağlam menüsünden Uygulamalar için Microsoft Visual Basic penceresini açın ve ardından aşağıdaki kodu Modüle kopyalayıp yapıştırın:
VBA kodu: Açılır listede ilk veri öğesini otomatik olarak gösterin:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFormula As String
On Error GoTo Out:
xFormula = Target.Cells(1).Validation.Formula1
If Left(xFormula, 1) = "=" Then
Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
End If
Out:
End Sub
2. Ardından, kod penceresini kaydedip kapatın ve şimdi, açılır liste hücresine tıkladığınızda, ilk veri öğesi aynı anda görüntülenecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!