Šiame „Excel“ priedo pavyzdyje aptariami pagrindiniai veiksmai, susiję su naudingo priedo, kurį galite naudoti supakuoti savo VBA procedūroms, kūrimas. Šis Excel VBA pavyzdys yra pagrįstas teksto konvertavimo priemone Keisti didžiąsias ir mažąsias raides.
„Excel“ darbaknygę sudaro vienas tuščias darbalapis, VBA modulis ir „UserForm“.
Pradinėje programos versijoje yra didžiųjų, mažųjų ir didžiųjų raidžių parinktys. Priedo versijoje yra dvi „UserForm“ parinktys, todėl ji turi tokias pačias parinktis kaip ir integruotas „Microsoft Word“ įrankis:
Šiame paveikslėlyje parodyta UserForm1. Penki OptionButton valdikliai yra rėmelio valdiklyje. Be to, UserForm turi mygtuką Atšaukti (pavadintą CancelButton) ir mygtuką OK (pavadinimu OKButton).
Keitimo atvejo priedas UserForm.
Kodas, vykdomas paspaudus mygtuką Atšaukti, yra labai paprastas. Ši procedūra iškrauna vartotojo formą be jokių veiksmų:
Private Sub CancelButton_Click() Išsiųskite UserForm1 Pabaigos sub
Toliau pateikiamas kodas, kuris vykdomas spustelėjus mygtuką Gerai. Šis kodas atlieka visą darbą:
Privatus sub OKButton_Click()
Pritemdyti teksto langelius kaip diapazoną
Pritemdyti langelį kaip diapazoną
Pritemdykite tekstą kaip eilutę
Dim i As Long
Sukurkite objektą naudodami tik teksto konstantas
Įvykus klaidai, tęskite toliau
Nustatyti teksto langelius = Selection.SpecialCells(xlConstants, xlTextValues)
Išjunkite ekrano atnaujinimą
Application.ScreenUpdating = Netiesa
' Pereikite per ląsteles
Kiekvienam langeliui Text Cells
Tekstas = cell.Value
Pasirinkite Case True
Case Option Lower 'mažosios raidės
langelis.Vertė = LCase(cell.Value)
Atvejo parinktisDIDŽIŲJŲ RADIŲ
langelis.Vertė = UCase(cell.Value)
Case OptionProper 'Proper Case
cell.Value = WorksheetFunction.Proper(cell.Value)
Case OptionSentence „Sakinio didžioji raidė
Tekstas = UCase(kairė(ląstelė.reikšmė, 1))
Tekstas = Tekstas & LCase(Viduris(ląstelė.Vertė, 2, Len(ląstelė.Vertė)))
cell.Value = tekstas
Case OptionPerjungti 'TOGGLE CASE
Jei i = 1 iki Len (tekstas)
Jei vidurys (tekstas, i, 1) patinka „[AZ]“, tada
Vidurio (tekstas, i, 1) = LCase (vidutinis (tekstas, i, 1))
Kitas
Vidurio (tekstas, i, 1) = UCase (Viduris (tekstas, i, 1))
Pabaiga, jei
Toliau i
cell.Value = tekstas
Pabaigos pasirinkimas
Kitas
Iškelkite dialogo langą
Išsiųskite UserForm1
Pabaigos sub
Prieš konvertuodami šią darbaknygę, išbandykite „Excel“ priedą. Norėdami imituoti, kas nutinka, kai darbaknygė yra priedas, turėtumėte išbandyti darbaknygę, kai aktyvi kita "Excel" darbaknygė. Kadangi „Excel“ priedas niekada nėra aktyvus lapas ar darbaknygė, jį išbandę, kai atidaryta kita darbaknygė, galite nustatyti kai kurias galimas klaidas.
Atidarykite naują darbaknygę ir įveskite informaciją į kai kuriuos langelius.
Testavimo tikslais įveskite įvairių tipų informaciją, įskaitant tekstą, reikšmes ir formules. Arba tiesiog atidarykite esamą darbaknygę ir naudokite ją savo testams. Atminkite, kad bet kokių darbaknygės pakeitimų anuliuoti negalima, todėl galbūt norėsite naudoti kopiją.
Pasirinkite vieną ar daugiau langelių (arba visas eilutes ir stulpelius).
Vykdykite „ChangeCase“ makrokomandą pasirinkdami naują komandą „Change Case“ iš langelio (arba eilutės ar stulpelio) nuorodų meniu.
Jei komanda Change Case nerodoma sparčiajame meniu, greičiausiai priežastis yra ta, kad neįjungėte makrokomandų, kai atidarėte darbaknygę change case.xlsm. Uždarykite darbaknygę ir vėl atidarykite – ir įsitikinkite, kad įgalinote makrokomandas.
Nors ir nebūtina, geriausia praktika yra įvesti „ Excel“ papildinio aprašą . Norėdami pridėti aprašymą, atlikite šiuos veiksmus:
Suaktyvinkite darbaknygę Keisti case.xlsm.
Pasirinkite Failas → Informacija ir apačioje dešinėje spustelėkite Rodyti visas ypatybes.
„Excel“ išplečia ypatybių sąrašą.
Lauke Pavadinimas įveskite papildinio pavadinimą.
Šis tekstas rodomas priedų sąraše dialogo lange Papildiniai. Šiame pavyzdyje įveskite Change Case.
Lauke Komentarai įveskite aprašymą.
Ši informacija rodoma dialogo lango Papildiniai apačioje, kai pasirenkamas priedas. Šiame pavyzdyje įveskite
Pakeičia teksto didžiąsias ir mažąsias raides pasirinktuose langeliuose.
Pasiekite šią priemonę naudodami spartųjį meniu.
Šiame paveikslėlyje parodyta ypatybių skiltis, kurioje yra užpildyti pavadinimo ir komentarų laukai.
Norėdami įvesti aprašomosios informacijos apie savo priedą, naudokite skyrių Ypatybės.
Jei norite pridėti slaptažodį, kad kiti negalėtų peržiūrėti VBA kodo, atlikite šiuos veiksmus:
Suaktyvinkite VBE ir projekto lange pasirinkite darbaknygę keisti case.xlsm.
Pasirinkite Įrankiai → VBAProject Properties ir pasirodžiusiame dialogo lange spustelėkite skirtuką Apsauga.
Pažymėkite žymės langelį Užrakinti projektą peržiūrai ir įveskite slaptažodį (du kartus).
Spustelėkite Gerai.
Išsaugokite darbaknygę pasirinkdami Failas → Išsaugoti VBE arba grįžę į Excel langą ir pasirinkę Failas → Išsaugoti.
Šiuo metu išbandėte failą change case.xlsm ir jis veikia tinkamai. Kitas žingsnis yra priedo kūrimas. Atlikite šiuos veiksmus:
Jei reikia, iš naujo suaktyvinkite „Excel“.
Suaktyvinkite darbaknygę Change case.xlsm ir pasirinkite Failas → Įrašyti kaip → Naršyti.
„Excel“ rodo dialogo langą Įrašyti kaip.
Išskleidžiamajame meniu Įrašyti kaip tipą pasirinkite Priedas (*.xlam).
Nurodykite vietą ir spustelėkite Išsaugoti.
Sukuriamas naujas priedo failas (su plėtiniu .xlam), o pradinė XLSM versija lieka atidaryta.
Kad išvengtumėte painiavos, uždarykite XLSM darbaknygę prieš atidarydami priedą, kurį sukūrėte iš tos darbaknygės.
Atidarykite priedą atlikdami šiuos veiksmus:
Pasirinkite Kūrėjas → Papildiniai → Priedai (arba paspauskite Alt+TI).
„Excel“ rodo dialogo langą „Papildiniai“.
Spustelėkite mygtuką Naršyti.
Raskite ir pasirinkite ką tik sukurtą priedą.
Spustelėkite Gerai, kad uždarytumėte dialogo langą Naršyti.
Suradę naują priedą, dialogo lange Papildiniai pateikiami papildiniai. Kaip parodyta toliau, dialogo lange Papildiniai taip pat rodoma aprašomoji informacija, kurią pateikėte dokumentų ypatybių skydelyje.
Dialogo lange Papildiniai pasirinktas naujas priedas.
Įsitikinkite, kad naujasis priedas pasirinktas dialogo lange Papildiniai.
Spustelėkite Gerai, kad uždarytumėte dialogo langą.
„Excel“ atidaro priedą. Dabar galite jį naudoti su visomis savo darbaknygėmis. Tol, kol jis lieka pažymėtas dialogo lange Papildiniai, priedas atidaromas kiekvieną kartą paleidus Excel.
Jei esate dosniai nusiteikęs, galite platinti šį priedą kitiems Excel vartotojams tiesiog pateikdami jiems XLAM failo kopiją. (Jiems nereikia XLSM versijos.) Kai jie atidaro priedą, nauja komanda Keisti didžiąją raidę pasirodo nuorodų meniu, kai jie pasirenka diapazoną, vieną ar daugiau eilučių arba vieną ar daugiau stulpelių. Jei užrakinsite VBA projektą slaptažodžiu, kiti negalės peržiūrėti jūsų makrokomandos kodo, nebent žinos slaptažodį.
Papildinį galima redaguoti kaip ir bet kurią kitą darbaknygę. XLAM failą galite redaguoti tiesiogiai (nereikia dirbti su originalia XLSM versija) atlikdami šiuos veiksmus:
Atidarykite XLAM failą, jei jis dar nėra atidarytas.
Suaktyvinkite VBE. Projekto lange du kartus spustelėkite projekto pavadinimą.
Jei apsaugote kodą, būsite paraginti įvesti slaptažodį.
Įveskite slaptažodį ir spustelėkite Gerai.
Atlikite kodo pakeitimus.
Išsaugokite failą pasirinkdami Failas → Išsaugoti.
Jei kuriate priedą, kuriame informacija saugoma darbalapyje, norėdami peržiūrėti darbaknygę, turite nustatyti darbaknygės ypatybę IsAddIn į False. Tai galite padaryti ypatybių lange, kai pasirenkamas objektas ThisWorkbook. Atlikę darbaknygės pakeitimus, prieš išsaugodami failą įsitikinkite, kad ypatybę IsAddIn vėl nustatėte į True.
Papildinio kūrimas, o ne priedas.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
