Kako prikazati prvi element na spustnem seznamu namesto prazen?
Spustni seznam na delovnem listu nam lahko pomaga olajšati vnos podatkov, elemente moramo le izbrati, ne da bi jih vpisovali enega za drugim. Toda včasih, ko kliknete spustni seznam, skoči najprej na prazne elemente namesto na prvi podatkovni element, kot je prikazano na sliki spodaj, to lahko povzroči brisanje izvornih podatkov na koncu seznama. Moti lahko, da se morate za vsako prazno celico za preverjanje podatkov pomakniti nazaj na vrh dolgega seznama. V tem članku bom govoril o tem, kako vedno prikazati prvi element na spustnem seznamu.
Na spustnem seznamu s funkcijo preverjanja podatkov pokažite prvi element namesto prazen
Samodejno prikaži prvi element na spustnem seznamu, namesto prazen s kodo VBA
Na spustnem seznamu s funkcijo preverjanja podatkov pokažite prvi element namesto prazen
Če želite to delo dejansko uporabiti, morate pri ustvarjanju spustnega seznama uporabiti posebno formulo, naredite naslednje:
1. Izberite celice, kamor želite vstaviti spustni seznam, in kliknite datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:
2. V izskočil Preverjanje podatkov v pogovornem oknu pod Nastavitve izberite jeziček Seznam Iz Dovoli in vnesite to formulo: = OFFSET (Sheet3! $ A $ 1,0,0, COUNTA (Sheet3! $ A: $ A) -1,1) v vir besedilno polje, glej posnetek zaslona:
Opombe: V tej formuli, Sheet3 je delovni list vsebuje seznam izvornih podatkov in A1 je prva vrednost celice na seznamu.
3. Nato kliknite OK Ko kliknete celice spustnega seznama, je prvi podatkovni element vedno prikazan na vrhu, ali so na koncu izvornih podatkov izbrisane vrednosti celic, glejte posnetek zaslona:
Samodejno prikaži prvi element na spustnem seznamu, namesto prazen s kodo VBA
Tu lahko predstavim tudi kodo VBA, s katero lahko samodejno prikažete prvi element na spustnem seznamu, ko kliknete celice za preverjanje veljavnosti podatkov.
1. Po vstavitvi spustnega seznama izberite zavihek delovnega lista, ki vsebuje spustni seznam, in z desno miškino tipko izberite Ogled kode iz kontekstnega menija, da odprete Microsoft Visual Basic za aplikacije okno in nato v modul kopirajte in prilepite naslednjo kodo:
Koda VBA: Samodejno prikaži prvi podatkovni element na spustnem seznamu:
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. Nato shranite in zaprite okno s kodo, in zdaj, ko kliknete celico spustnega seznama, bo hkrati prikazan prvi podatkovni element.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!