Makro za dodajanje dnevnega poročila - Excel Nasveti

Judith je objavila vprašanje o Excelu tega tedna.

Datoteko moram uvoziti vsak dan. Datoteko bi rad vsak dan dodal v obstoječi Excelov delovni zvezek in imel delovni list, imenovan za d / m / y.

Kratek vizualni osnovni makro bo to preprosto opravilo. Ena težava - ime zavihka lista ne sme vključevati poševnice. Tako bo rešitev preimenovala dnevni list tako, da bo imel ime, kot je "03. oktober 1999".

Rešitev vključuje dodajanje zgornjega delovnega lista v obstoječo knjigo. Ta list, imenovan "Meni", ponuja preprost uporabniški vmesnik, tako da lahko to nalogo po potrebi predate drugemu uslužbencu. Zgornji list vsebuje celice, kjer lahko uporabnik določi ime poti in ime datoteke datoteke, ki jo želite uvoziti. Če uvozite datoteko, ki jo je ustvaril drug sistem, se ta polja ne bodo spreminjala iz dneva v dan. V menijskem listu je tudi celica s trenutnim datumom, oblikovana brez poševnic. Vključil bom samodejno odprt makro, ki bo samodejno izpolnil to celico za uporabnika, vendar ga lahko vedno spremeni, preden klikne gumb za uvoz datoteke. Končno, na menijskem listu je velik gumb, ki ga bo uporabnik kliknil.Ta gumb bo poklical makro za uvoz datoteke, imenovane v meniju, v trenutno knjigo z navedenim imenom zavihka.

Meni Delovni list

Odprite nov delovni zvezek s samo enim listom. Dvokliknite zavihek lista in vnesite ime lista z imenom "Meni". Dodajte lep naslov v celico A1. V celice C3: C5 dodajte besedilo, kot je prikazano na levi. V celico D3 vnesite ime poti za imenik, v katerem je datoteka vsak dan. V celico D4 dodajte ime datoteke. Pustite D5 prazno. Ko je makro ustvarjen, ga je lažje nastaviti, zato ga bomo pustili za kasneje.

  • Zaženite urejevalnik makrov z alt = "" + F11
  • Izberite Vstavi - modul
  • Kopirajte naslednje besedilo v urejevalnik makrov
Sub Auto_Open() ' This macro will put today's date as the default new tab name Sheets("Menu").Select Range("D5").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False Selection.Columns.AutoFit Range("D8").Value = "" End Sub Sub GetFile() ' This macro will import a file into this workbook ' Copyright 1999 www.MrExcel.com Sheets("Menu").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) Windows(Filename).Activate ActiveWorkbook.Close SaveChanges:=False Windows(ControlFile).Activate Sheets("Menu").Select Range("D8").Select ActiveCell.Value = "Completed" Range("D9").Select End Sub

Zdaj se vrnite v Excel in dodajte gumb na menijski list.

Kako dodati gumb na delovni list

Dodaj gumb
  • Prikažite orodno vrstico Obrazci, tako da izberete Pogled - Orodne vrstice - Obrazci
  • V orodni vrstici izberite orodje Button
  • Pridržite tipko alt = "", povlecite iz zgornjega kota B8 v celico C9
  • V pogovornem oknu Dodelitev makra izberite naš makro z imenom GetFile in kliknite V redu
  • Ko je gumb še vedno izbran, lahko s klikom in povlečenjem izberete besedilo na gumbu. Besedilo nadomestite z "Obdelaj!" ali katero koli besedilo po lastni izbiri

Zdaj imate popolno prijavo. Datoteko shranite na priročno mesto. Ko nastavite datoteko s pravilnimi informacijami v celicah D3: D4, bo dnevni postopek naslednji:

  • Odprite datoteko, ki smo jo pravkar ustvarili
  • Preverite, ali je datum, prikazan v celici D5, ustrezen.
  • Kliknite velik gumb.
  • Shranite datoteko

Tu je nekaj načinov, kako lahko spremenite makro:

  • Če želite, da se zavihek imenuje z datumom prejšnjega dne, dodajte "-1" za "NOW ()" v makro.
  • Če ima datoteka, ki jo želite uvoziti, več listov in ciljni list morda ni na vrhu, dodajte Sheets ("ime lista"). Izberite za vrstico File.Open zgoraj.

Zanimive Članki...