Makronaredba za dodavanje dnevnog izvješća - Excel savjeti

Judith je objavila ovotjedno Excel pitanje.

Moram svakodnevno uvoziti datoteku. Želio bih datoteku dodavati svaki dan u postojeću Excel radnu knjigu i imati radni list imenovan za d / m / y.

Kratka vizualna osnovna makronaredba učinit će ovo jednostavnim zadatkom. Jedan problem - naziv kartice lista ne može sadržavati kosu crtu. Dakle, rješenje će preimenovati dnevni list u naziv poput "03. listopada 1999".

Rješenje uključuje dodavanje gornjeg radnog lista vašoj postojećoj knjizi. Ovaj list, nazvan "Izbornik", pruža jednostavno korisničko sučelje tako da ovaj zadatak možete predati drugom članu osoblja, ako je potrebno. Gornji list sadrži ćelije u kojima korisnik može odrediti naziv puta i naziv datoteke za uvoz. Ako uvozite datoteku koju je stvorio drugi sustav, tada se ta polja neće mijenjati iz dana u dan. List izbornika također sadrži ćeliju s trenutnim datumom oblikovanu bez kose crte. Uključit ću automatski otvoren makronaredbu koja će automatski ispuniti ovu ćeliju za korisnika, ali je uvijek može promijeniti prije nego klikne gumb za uvoz datoteke. Napokon, list Izbornik ima veliki gumb na koji će korisnik kliknuti.Ovaj će gumb pozvati makronaredbu za uvoz datoteke imenovane u izborniku u trenutnu knjigu s navedenim nazivom kartice.

Radni list izbornika

Otvorite novu radnu knjigu sa samo jednim listom. Dvaput kliknite karticu lista i upišite naziv lista pod nazivom "Izbornik". Dodajte lijep naslov u ćeliju A1. U ćelije C3: C5 dodajte tekst kao što je prikazano lijevo. U ćeliju D3 unesite naziv puta za direktorij u kojem se datoteka svakodnevno nalazi. U ćeliju D4 dodajte ime datoteke. Ostavite D5 prazno. Gumb je lakše postaviti nakon što se makronaredba stvori, pa ćemo to ostaviti za kasnije.

  • Pokrenite Macro Editor s alt = "" + F11
  • Odaberite Umetni - modul
  • Kopirajte sljedeći tekst u uređivač makronaredbi
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

Sada se vratite u Excel i dodajte gumb na list izbornika.

Kako dodati gumb na radni list

Dodaj gumb
  • Prikažite alatnu traku Obrasci odabirom Pogled - Alatne trake - Obrasci
  • Odaberite alat Gumb s alatne trake
  • Držite tipku alt = "", povucite iz gornjeg kuta B8 u ćeliju C9
  • U dijaloškom okviru Dodijeli makronaredbu odaberite našu makronaredbu koja se zove GetFile i kliknite U redu
  • Dok je gumb još uvijek odabran, možete kliknuti i povući da biste odabrali tekst na gumbu. Zamijenite ovaj tekst s "Obradi!" ili bilo koji tekst po vlastitom izboru

Sada imate kompletnu prijavu. Spremite datoteku na prikladno mjesto. Jednom kada datoteku postavite s točnim podacima u ćelije D3: D4, dnevni postupak bit će sljedeći:

  • Otvorite datoteku koju smo upravo stvorili
  • Provjerite je li datum prikazan u ćeliji D5 prikladan.
  • Kliknite veliki gumb.
  • Spremite datoteku

Evo nekoliko načina na koje možete promijeniti makronaredbu:

  • Ako želite da kartica nosi naziv s datumom prethodnog dana, dodajte "-1" iza "SADA ()" u makronaredbu.
  • Ako datoteka koju treba uvesti sadrži više listova, a ciljni list možda nije na vrhu, dodajte Listove ("naziv lista"). Odaberite nakon datoteke. Otvori gornji redak.

Zanimljivi članci...