Kako samodejno vnesti datum, ko se podatki vnesejo v stolpec?
Pri delu na delovnem listu želite, da se trenutni datum in čas samodejno vneseta v stolpec B, ko vnesete podatke v stolpec A, kot je prikazano na spodnji sliki zaslona. Kako bi lahko v Excelu to nalogo poskušali rešiti s preprosto in hitro rešitvijo?
Samodejno vnesite datum, ko so podatki vneseni v stolpec s kodo VBA
Samodejno vnesite datum, ko so podatki vneseni v stolpec s kodo VBA
Morda za to opravilo v Excelu ne moremo ravnati neposredno, toda naslednja koda VBA vam lahko pomaga, naredite naslednje:
1. Izberite jeziček lista, v katerega želite samodejno vstaviti datum, nato ga kliknite z desno miškino tipko in izberite Ogled kode iz besedilnega menija, nato pa eh izskočil Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v modul:
Koda VBA: Samodejno vnesite datum pri vnosu podatkov v drug stolpec:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
With Target(1, 2)
.Value = Date & " " & Time
.EntireColumn.AutoFit
End With
End If
End Sub
2. Nato shranite in zaprite to okensko okno, se vrnite na delovni list, zdaj, ko vnesete podatke v stolpec A, bo ustrezna celica v stolpcu B samodejno vnesla trenutni datum in čas hkrati.
Opombe: V zgornji kodi, A2: A15 je celice, v katere želite vnesti vrednosti.
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!