Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip pridėti naują darbalapį su dabartine "Excel" data?

Kai kurie finansiniai ir pardavimų asmenys gali reikalauti įterpti naują darbo lapą su kasdienio darbo statistikos kiekvieną dieną. Jei įterpsite naują darbo lapą ir pervadinsime jį rankiniu būdu, jis bus sudėtingas. Šiandien pristatysiu keletą greitų gudrybių sprendžiant šią problemą.

Naudodami VBA kodą pridėkite naują darbalapį su dabartine data

Įtraukite naujus darbalapius su nuosekliąja data naudodami "Kutools for Excel"


rodyklė mėlyna dešinė burbulas Naudodami VBA kodą pridėkite naują darbalapį su dabartine data


Šis kodas VBA padės jums įterpti naują darbalapį su dabartine data, kai paleidžiate kodą kasdien.

1. Laikykite nuspaudę ALT + F11 raktus, ir tai atveria "Microsoft Visual Basic for Applications" langas.

2, Spauskite įsiuvas > Moduliaiir įklijuokite toliau nurodytą makrokomandą Modulio langas.

VBA kodas: pridėkite naują darbalapį su dabartine data

Sub AddSheets_TodayDate()
'Updateby20140717
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmm-dd-yyyy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate
End Sub

3. Tada paspauskite F5 raktas paleisti šį kodą, ir po esamų darbalapių įterptas naujas lapas su šiuolaikine data. Žr. Ekrano kopiją:

doc-add-sheet-with-date-1

pastabos: Išsaugojus ir uždarius šią knygą, įrašykite jį kaip "Excel" makrokomandos darbaknygė formatu spustelėję filė > Įrašyti kaip. Kai kitą dieną paleisite knygą, įsitikinkite, kad spustelėkite Įgalinti turinį, kad galėtumėte sėkmingai paleisti kodą, kad pridėtumėte naują datos darbo lapą.


rodyklė mėlyna dešinė burbulas Įtraukite naujus darbalapius su nuosekliąja data naudodami "Kutools for Excel"

Pirmiau pateiktas kodas gali padėti vienu metu įterpti tik vieną darbalapį su dabartine dienos data, jei norite įterpti kelis darbalapius su nuosekliąja data, ši priemonė Sukurti seka užduotys of Kutools for Excel padarys tau malonę.

Kutools for Excel apima daugiau nei 300 patogių "Excel" įrankių. Nemokamai išbandyti be apribojimų 30 dienų. Gauk, tai dabar.

Jei įdiegėte "Kutools for Excel", atlikite šiuos veiksmus:

1. Tuščiajame langelyje įveskite šiandien datą ir vilkite užpildymo juostą, kad užpildytumėte langelius, nurodydami datos seką, kaip jums reikia.

doc-add-sheet-with-date-1

2. Tada spustelėkite įmonė > Darbalapio įrankiai > Sukurti seka užduotys, žr. ekrano kopiją:

doc-add-sheet-with-date-1

3. Be Sukurti seka užduotys dialogo lange nurodykite darbo lapą, kurį norite, kad nauji lapai būtų pagrįsti nuo Bazinis užsiėmimas Pasirinkimu sarasas. Ir tada pasirinkite Duomenys diapazone pasirinkimas pagal Lapų pavadinimai grindžiami pasirinkite duomenų diapazoną, kurį norite naudoti kaip lapų pavadinimus. Žr. Ekrano kopiją:

doc-add-sheet-with-date-1

4. Tada spustelėkite OK, ir bus sukurta nauja darbo knyga, kurios lapai pavadinimai yra data seka. Žr. Ekrano kopiją:

doc-add-sheet-with-date-1

Norėdami sužinoti daugiau apie šią funkciją "Kūrimo seka užrašai".


Susijęs straipsnis:

Kaip sukurti sekos darbo lapus iš "Excel" ląstelių asortimento?



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.