Makro igapäevase aruande lisamiseks - Exceli näpunäited

Lang L: none (table-of-contents)

Judith postitas selle nädala Exceli küsimuse.

Pean faili iga päev importima. Sooviksin faili lisada iga päev olemasolevale Exceli töövihikule ja lasta tööleht nimega d / m / y.

Lühike visuaalne põhimakro muudab selle lihtsaks ülesandeks. Üks probleem - lehe vahelehe nimi ei tohi sisaldada kaldkriipsu. Niisiis nimetab lahendus iga päeva lehe ümber nimeks "03. oktoober 1999".

Lahendus hõlmab ülemise töölehe lisamist olemasolevale raamatule. See leht, mida nimetatakse "Menüüks", pakub lihtsat kasutajaliidest, et saaksite selle ülesande vajaduse korral teisele töötajale üle anda. Ülemine leht sisaldab lahtrid, kus kasutaja saab määrata imporditava faili tee ja faili nime. Kui impordite mõne muu süsteemi loodud faili, ei muutu need väljad päevast päeva. Menüüleht sisaldab ka lahtrit, kus praegune kuupäev on vormistatud ilma kaldkriipsudeta. Lisan automaatselt avaneva makro, mis täidab kasutaja jaoks selle lahtri automaatselt, kuid neil on alati vabadus seda enne faili importimiseks nupul klõpsamist muuta. Lõpuks on menüülehel suur nupp, millele kasutaja klõpsab.See nupp kutsub makro importima menüüs nimetatud faili praegusesse raamatusse, mille vahelehe nimi on määratud.

Menüü tööleht

Avage uus, ainult ühe lehega töövihik. Topeltklõpsake lehe vahekaarti ja tippige lehele nimi "Menüü". Lisage lahtrisse A1 kena pealkiri. Lahtrites C3: C5 lisage tekst, nagu vasakul näidatud. Lahtrisse D3 sisestage kataloogi asukoht, kust fail iga päev leitakse. Lahtrisse D4 lisage faili nimi. Jätke D5 tühjaks. Nupu seadistamine on lihtsam, kui makro on loodud, nii et jätame selle hilisemaks.

  • Käivitage makroredaktor alt = "" + F11
  • Valige Lisa - moodul
  • Kopeerige järgmine tekst makrotoimetusse
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

Nüüd minge tagasi Exceli juurde ja lisage menüülehele nupp.

Kuidas nuppu töölehele lisada

Lisa nupp
  • Vormide tööriistariba kuvamiseks valige Vaade - tööriistaribad - vormid
  • Valige tööriistaribalt nuppude tööriist
  • Hoidke klahvi alt = "" all, lohistage B8 ülemisest nurgast lahtrisse C9
  • Valige dialoogist Makro määramine meie makro nimega GetFile ja klõpsake nuppu OK
  • Kui nupp on endiselt valitud, saate nupul oleva teksti valimiseks klõpsata ja lohistada. Asendage see tekst tekstiga "Protsess!" või teie enda valitud tekst

Teil on nüüd täielik taotlus. Salvestage fail mugavasse kohta. Kui olete lahtrites D3: D4 oma failiga õige teabe seadistanud, on igapäevane protseduur järgmine:

  • Avage meie loodud fail
  • Veenduge, et lahtris D5 näidatud kuupäev on sobiv.
  • Klõpsake suurt nuppu.
  • Salvestage fail

Makro muutmiseks on mõned võimalused.

  • Kui soovite, et vahekaart nimetataks eelmise päeva kuupäevaga, lisage makrosse "NOW ()" järele "-1".
  • Kui imporditaval failil on mitu lehte ja sihtleht ei pruugi olla peal, siis lisage arvutustabelid ("lehenimi"). Valige ülaltoodud rea File.Open järele.

Huvitavad Artiklid...