Kaip naudoti „Microsoft Excel“ tvarkyti savo gyvenimą

Skelbimas

Ne paslaptis, kad esu visiškas „Excel“ gerbėjas. Didžioji to dalis susidaro iš to, kad man patinka rašyti VBA kodą, o „Excel“ kartu su VBA scenarijais atveria visą galimybių pasaulį.

Anksčiau čia, MUO, aš pasidalindavau keletu dalykų, kuriuos padariau naudodamas „Excel“ ir VBA, pvz. eksportuoti „Excel“ duomenis į „Word“ Kaip integruoti „Excel“ duomenis į „Word“ dokumentąPer savo darbo savaitę tikriausiai yra daugybė atvejų, kai galite kopijuoti ir įklijuoti informaciją iš „Excel“ į „Word“ ar atvirkščiai. Taip žmonės dažnai rengia rašytines ataskaitas ... Skaityti daugiau ar siuntimas el. laiškus tiesiai iš „Excel“ Kaip siųsti el. Laiškus iš „Excel“ skaičiuoklės naudojant VBA scenarijusMūsų kodo šablonas padės nustatyti automatizuotus el. Laiškus iš „Excel“, naudojant bendradarbiavimo duomenų objektus (CDO) ir VBA scenarijus. Skaityti daugiau . Žinoma, jei nesate daug koderių, visada galite gauti „Excel“ programas, kurias kažkas parašė, pvz išvardytos Simonos 3 populiariausios svetainės, norinčios atsisiųsti naudingas nemokamas „Excel“ programas Skaityti daugiau .

Tačiau jei rimtai norite naudoti „Excel“ tvarkydami daugiau savo gyvenimo, turėtumėte skirti laiko išmokti, kaip veikia VBA kodavimas. Siekdamas padėti tai padaryti, nusprendžiau pasidalyti skaičiuoklę „Automatika“, kurią sukūriau tvarkydama skirtingas savo gyvenimo sritis. Šioje skaičiuoklėje yra 4 skirtukai ir ji apima viską, pradedant URL adresų grupavimu, kuriuos noriu paleisti vienu metu, ir baigiant skolos tvarkymu ir greičiau sumokėjimu.

Jei norite patobulinti „Excel“ naudojimą, kviečiu jus sekti, nes pasidalinu keliais šiais projektais ir paprastais scenarijais, kuriuos panaudojau atlikdamas šias užduotis.

Jūsų gyvenimo valdymas naudojant „Excel“

„Microsoft Excel“ nėra tik duomenų skaičiuoklė. Tai iš tikrųjų yra programų kūrimo platforma. Jei į tai pažvelgsite, galite suprasti, kiek daug galite nuveikti naudodamiesi programa.

Pažvelkite į lapą kaip į dizaino plokštę, kurioje galite sudėti „Visual Basic“ formos objektus, tokius kaip komandų mygtukai, išskleidžiamieji langeliai, teksto dėžutės ir visa kita. Galite ne tik juos patalpinti bet kurioje lapo vietoje, bet ir naudoti tuos objektus interaktyviai (arba automatiškai) pridėti, pašalinti ar manipuliuoti lapo informacija.

Jūsų svetainių stebėjimas

Aš išbandžiau daugybę skirtingų įrankių, kad pritraukčiau įvairias mano valdomas svetaines, pvz ICMP „Ping Manager“ Stebėkite tinklo įrenginius ir svetaines naudodamiesi „ICMP Ping Manager“Tiek darbe, tiek namuose dažnai pastebiu, kad turiu patikrinti savo asmeninių kompiuterių, spausdintuvų, serverių ar kitų tinklo įrenginių būklę. Šiomis dienomis tiek daug įrenginių naudojasi ... Skaityti daugiau . Tačiau ne taip seniai atradau būdą, kaip pridėti svetaines iš „Excel VBA“ scenarijaus vidaus. Tai reiškė, kad prie savo „Automatikos“ darbaknygės galėčiau pridėti lapą, kuriame būtų pateikiamos visos mano valdomos svetainės, o rezultatus įdėčiau į langelį šalia svetainės pavadinimo.

Taip išklojau lapą.

Skaičius „4“ langelyje B1 naudojamas svetainių, kurias įdiegiau į lapą, skaičiui parodyti. Tai leis scenarijui suskaičiuoti tik ląstelių, kuriose iš tikrųjų yra išvardytų svetainių, skaičių, prasidedantį A3, skaičių.

Kodas, kurį reikia atlikti, atrodo taip:

Dim intSiteCount As Integer. Dim intCount As Integer. Sumažinti objekto, oRetStatus kaip objekto, pasirinkimą. Dim sHost As stygos. Dim sPing kaip stygos. Dim intCol As Integer. Dim intRow As Integer intSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 for intCount = 1 to intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1. Kitas intRow = 3 skirtas intCount = 1 Norėdami intSiteCount sHost = Sheet1.Cells (intRow, 1) Nustatykite oPing = „GetObject“ ("winmgmts: {impersonationLevel = impersonate}"). ExecQuery _ ("pasirinkite * iš Win32_PingStatus, kur adresas = '" & sHost & "" ") Kiekvienas „oRetStatus“ „oPing If IsNull“ („oRetStatus“. StatusCode) arba „oRetStatus“. StatusCode <> 0 Tada sPing = "Ping nepavyko" Kita sPing = sHost & "Ping sėkmė įjungta" ir dabar () & Chr (10) sPing = sPing & "Laikas (ms) =" & vbTab & oRetStatus. „ResponseTime“ ir „Chr“ (10) sPing = sPing & „TTL (s) =“ & vbTab & vbTab & oRetStatus. „ResponseTimeToLive“ pabaiga, jei kitas lapas1.Cells (intRow, 2) = sPing intRow = intRow + 1 Next

Pirmasis „Už“ vaizdas viršuje tiesiog eina per rezultatų langelius ir išvalo rezultatus iš paskutinio karto, kai man buvo atliktas patikrinimas. Antroji FOR kilpa skaičiuojama per eilutes, kuriose išvardijamos svetainės, pradedant nuo trečiosios eilės (intRow-3), „Ping“ komanda („Set oPing“ eilutė), o tada grąžina rezultatus į B stulpelį (Sheet1.Cells (intRow, 2)) = sPing).

Štai kaip šie rezultatai atrodo paleidus scenarijų.

Rezultatų stulpelyje rodoma, ar parodyti pavyko, ir „Time / TTL“ informacija.

Jei dar nesate susipažinę su komandų mygtukų pridėjimu prie „Excel“ lapo, galite pridėti mygtuką iš meniu „Kūrėjas“, spustelėję mygtuką „Įterpti“ ir pasirinkę mygtuką iš sąrašo. Nupieškite mygtuką ant lapo, spustelėkite jį dešiniuoju pelės mygtuku ir pasirinkite „Assign Macro“.

Įveskite to mygtuko makrokomandos pavadinimą ir spustelėkite „Naujas“.

Tai atvers kodo ekraną, kuriame galėsite įterpti kodą iš viršaus.

Ryšių grupių bibliotekos priežiūra

Kitame skirtuke aš taip pat pradėjau organizuoti nuorodų grupę, kurią naudoju tam tikroms užduotims atlikti. Pvz., Kai rašau MUO, man patinka atidaryti MUO WordPress redaktorių, „Google“ ir mūsų „Google“ dokumentų puslapį temoms. Kai tyrinėju slapčiausių rašytojų temas, man patinka atidaryti keletą standartinių žiniasklaidos puslapių.

Spustelėjus mygtuką „Paleisti grupę“, jis paleis numatytąją interneto naršyklę ir atvers visus tos grupės puslapius. Štai kaip atrodo kiekvieno mygtuko scenarijus:

Dim intSiteCount As Integer. Dim intCount As Integer. Dim intCol As Integer. Dim intRow As Integer intSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5 „intCount = 1“ - „IntSiteCount ActiveWorkbook“. „FollowHyperlink“ („Sheet2.Cells“ (intRow, 2)) intRow = intRow + 1. Kitas

Šis scenarijus yra paprastas, bet efektyvus. Paslaptis to yra „FollowHyperlink“ funkcija. Šis kodas patikrins nuorodų, apibrėžtų langelyje dešinėje nuo grupės pavadinimo, skaičių, ir žino, kad turi praeiti daugybę nuorodų prieš pavadinimą. Kiekvieno mygtuko nuorodų skaičius ir naudojamas stulpelis turi būti rankiniu būdu įvedami į kodą, tačiau likusi kodo dalis yra tapati kiekvienam mygtukui.

Paveikslėlių galerijos peržiūra

Kitame mano automatizavimo lapo skirtuke einu, kai noriu greitai paleisti visus paveikslėlius, esančius mano paveikslėlių aplanke. Aš tai darau todėl, kad į tą katalogą dedu ne tik vaizdus, ​​bet noriu pamatyti visus ten esančius failus.

Štai kaip atrodo spustelėjus mygtuką „Peržiūrėti paveikslėlius“.

Šiuo metu aš rankiniu būdu atnaujinu šį lapą ištrindamas visas nuotraukas iš B stulpelio ir spustelėdamas mygtuką „Peržiūrėti paveikslėlius“.

Mygtukas vykdo šį scenarijų:

Dim myPict As StdPicture. Dim strFilePath kaip stygos. Dim intRow As Integer. Dim myPictName As Variant. Sumažinkite „myCell As Range“. Dim paveikslėlis kaip styga. Dim strTest As String. Dim myRng As Range. Dim intSkip As Integer intRow = 2 strFilePath = Sheet3.Cells (1, 3) .Value Set myObject = New Scripting. „FileSystemObject“. Nustatykite „mySource“ = „myObject“. „GetFolder“ („strFilePath“) dėl klaidos Tęskite toliau naudodamiesi 3 lapu. Nustatykite myRng = Sheet3.Range („B2“, .Cells (.Rows. Skaičius, „B“). Pabaiga („xlUp“) Pabaiga su kiekvienu mySource myfile. Failai 'Jei paveikslėlis yra failas, jei dešinė (myfile, 4) = ".gif" arba dešinė (myfile, 4) = ".jpg" arba dešinė (myfile, 4) = ".bmp" arba dešinė (myfile, 4) = ".tif" arba dešinėje (myfile, 4) = ". png" Tada Sheet3.Cells (intRow, 1) .Value = "" Sheet3.Cells (intRow, 1) .Value = myfile. Vardas intSkip = 0 kiekvienam „myCell“ „myRng“. Ląstelės Jei intSkip = 1, tada su myCell. „Offset“ ((intRow - 3) + 1, 0) lapas.33 formos. „AddPicture“ mano failas. Kelias, „msoCTrue“, „msoCTrue“, „kairėn“.

Šio scenarijaus paslaptis yra „StdPicture“ objekto naudojimas, kuris leidžia rūšiuoti perdangos paveikslėlius tam tikrų langelių vietą, apibrėždami kairiąją ir viršutinę paveikslo savybes, kad atitiktų ląstelė. Tiesiog įsitikinkite, kad langelių dydis yra šiek tiek didesnis nei apibrėžėte kode. Esant tokiai situacijai, nuotraukoms naudojamas 125 aukštis ir plotis, todėl mano langeliai nustatyti šiek tiek didesni nei prieš laiką.

Skolos tvarkymas

Paskutinis skirtukas, kuriuo noriu pasidalinti, yra tas, kurį aš prieš kurį laiką rašiau apie „Excel“ naudojimą susikurti asmeninį biudžetą Sudarykite asmeninį biudžetą naudodamiesi „Microsoft Excel“ atlikdami 4 paprastus veiksmusAr turite tiek skolų, kad jas sumokėti reikės dešimtmečiais? Sudarykite biudžetą ir pasinaudokite šiais „Excel“ patarimais, kad greičiau sumokėtumėte skolas. Skaityti daugiau .

Svarbiausia sąvoka, apie kurią rašiau tame straipsnyje, ir ta, kuri priklauso bet kuriam straipsniui apie naudojimą „Excel“ tvarkydama savo gyvenimą, naudoja „Excel“ apskaičiuoti, kaip „sniego gniūžtės efektas“ gali padėti susimokėti skolos.

Koncepcija yra gana paprasta. Surašykite visas savo kreditinės kortelės skolas viena šalia kitos, lape su dviem stulpeliais - visas likutis ir mokėjimas. Kiekvienos sekančios mokėjimo ląstelės apskaičiavimas yra „PrevBalance +“ („PrevBalance * 0.10 / 12) - paskutinis mokėjimas“.

Tada galite nuvilkti visas vertes žemiau lapo ir jos bus perskaičiuotos, parodydamos, kaip greitai sumažės jūsų likutis atlikus tuos mokėjimus. Kaip matote, atlikdami vieną mokėjimą už kiekvieną skolą, kol bus sumokėta kiekviena skola, galiausiai atsipirks kiekviena atskira skola.

Bet dėl ​​greito „Excel“ skaičiavimo galios galite nustatyti, kada likučiai bus išmokėti, ir tada paimkite minimalų tos kortelės likutį ir perkelkite jį į kitą dar neapmokėtą kortelę išjungtas. Kaip matyti skaičiuoklėje, kiekvienas paskesnis likutis bus išmokėtas daug greičiau.

„Excel“ leidžia greitai apskaičiuoti ir įsivaizduoti, kaip jūsų mokėjimai paveiks būsimas išmokų datas, taip pat pateikia tvarkaraštį, į kurį reikia atsigręžti bandant įsitikinti, ar teisingai einate mokėdamas juos skolos.

Kaip matote, „Excel“ yra labai galingas įrankis, kai reikia tvarkyti visus jūsų gyvenimo aspektus - ar tai jūsų darbas, ar failai, ar biudžetas.

Ar turite kokių nors „Excel“ naudojimo būdų tvarkydami savo gyvenimą? Pasidalinkite keletu savo patarimų ir komentarų žemiau esančiame skyriuje.

Vaizdo kreditas: padidinamasis stiklas per „Shutterstock“