Þú getur notað InputBox aðgerðina til að bæta svargluggum við Excel 2013 fjölva. Þegar þú keyrir fjölvi veldur þessi Visual Basic aðgerð Excel til að birta innsláttarglugga þar sem þú getur slegið inn hvaða titil sem er skynsamlegur fyrir nýja vinnublaðið. Fjölvi setur síðan þann texta inn í núverandi reit og forsníða þennan texta, ef það er það sem þú hefur þjálfað fjölva til að gera næst.
Til að sjá hversu auðvelt það er að nota InputBox aðgerðina til að bæta gagnvirkni við annars óstöðugt fjölva, fylgdu skrefunum til að umbreyta Company_Name fjölvi sem setur textann „Mind Over Media“ í þann sem raunverulega biður þig um nafnið sem þú vilt. inn. InputBox aðgerðin notar eftirfarandi setningafræði:
InputBox(kvaðning[,titill][,sjálfgefið][,xpos][,ypos][,hjálparskrá,samhengi])
Í þessari aðgerð er aðeins krafist hvetjandi röksemda og restin af röksemdunum er valfrjáls. The hvetja rök tilgreinir skilaboðin sem birtist inni í Input valmynd, vekur notandi til að slá inn nýtt gildi (eða í þessu tilfelli, nýtt nafn fyrirtækis).
Í hvetja rök geta verið allt að hámarki 1.024 stafir. Ef þú vilt að boðskilaboðin birtist á mismunandi línum inni í valmyndinni, slærðu inn aðgerðirnar Chr(13) og Chr(10) í textann (til að setja inn vagnsskil og línufærslu í skilaboðin, hvort um sig).
The valfrjálst titill rök skilgreinir hvaða texta til að birta í titli bar af Input valmynd. Ef þú tilgreinir ekki titil rök, Excel birtir heiti forritsins á titilslá. Valfrjálsu sjálfgefna rökin tilgreina sjálfgefið svar sem birtist sjálfkrafa í textareitnum neðst í innsláttarglugganum.
Ef þú tilgreinir ekki sjálfgefin rök, er textareiturinn tómur í Innsláttarglugganum.
The xpos og ypos valfrjálsa rökin tilgreina lárétt fjarlægð frá vinstri brún skjásins til vinstri brún gluggans og lóðrétt fjarlægð frá efstu brún skjásins til efstu brún gluggans. Ef þú tilgreinir ekki þessi rök miðar Excel innsláttargluggann lárétt og staðsetur hann um það bil þriðjung af leiðinni niður á skjáinn lóðrétt.
The helpfile og samhengi valfrjálst rök tilgreina nafn sérsniðin Hjálp skrá sem þú gerir aðgengilegt fyrir notandann til að útskýra gangverk Input valmynd og tegund gagna sem það tekur.
Sem hluti af því ferli að búa til sérsniðna hjálparskrá til notkunar í Excel hjálparkerfinu, úthlutar þú efninu samhengisnúmeri sem hæfir innihaldi þess, sem síðan er tilgreint sem samhengisrök fyrir InputBox fallið.
Þegar þú tilgreinir hjálparskrá og samhengisrök fyrir þessa aðgerð, bætir Excel hjálparhnappi við sérsniðna innsláttargluggann sem notendur geta smellt á til að fá aðgang að sérsniðnu hjálparskránni í hjálparglugganum.
Áður en þú getur bætt kóðalínunni við fjölva með InputBox aðgerðinni þarftu að finna staðinn í Visual Basic skipunum þar sem línan á að fara. Til að slá inn Mind Over Media textann í virka reitinn notar Fjölvi Company_Name eftirfarandi Visual Basic skipun:
ActiveCell.FormulaR1C1 = "Mind Over Media"
Til að bæta gagnvirkni við fjölvi þarftu að setja InputBox aðgerðina inn á línu í kóðaglugganum rétt fyrir ofan þessa ActiveCell.FormulaR1C1 setningu, eins og hér segir:
Settu innsetningarstaðinn í kóðaglugganum í upphafi ActiveCell.FormulaR1C1 yfirlýsingarinnar og ýttu á Enter til að setja inn nýja línu.
Nú þegar þú hefur bætt við nýrri línu þarftu að færa innsetningarpunktinn upp á hana.
Ýttu á upp-örina til að staðsetja innsetningarpunktinn í upphafi nýju línunnar.
Á þessari línu, þú vilt búa til breytu sem útvegar hvetja rök að InputBox virka. Til að gera þetta, tilgreinir þú nafn breytunnar (InputMsg í þessu tilfelli) og síðan núverandi færslu hennar. Vertu viss um að setja skilaboðatextann hægra megin við jöfnunarmerkið með lokuðum tvöföldum gæsalappir.
Sláðu inn eftirfarandi kóða til að búa til InputMsg breytuna á línu 8 og ýttu síðan á Enter takkann til að hefja nýja línu 9:
InputMsg = "Sláðu inn nafn fyrirtækis eða titil þessa vinnublaðs í textareitinn fyrir neðan og smelltu síðan á OK:"
Næst skaltu búa til breytu sem heitir InputTitle sem veitir valfrjáls titill rök fyrir InputBox virka. Þessi breyta gerir það að verkum að textinn „Titill töflureikni“ birtist sem titill innsláttargluggans. Aftur, vertu viss um að setja nafnið fyrir titilstikuna í glugganum innan gæsalappa.
Sláðu inn eftirfarandi kóða til að búa til InputTitle breytuna á línu 9 og ýttu síðan á Enter til að setja inn nýja línu 10:
InputTitle = "Titill töflureikni"
Næst býrðu til breytuheiti DefaultText sem útvegaði valfrjálsu sjálfgefna rök fyrir InputBox fallinu. Þessi breyta gerir það að verkum að textinn, „Mind Over Media“, birtist sem sjálfgefin færsla í textareitnum neðst í sérsniðnum Company Name Input valmynd.
Sláðu inn eftirfarandi kóða til að búa til DefaultText breytuna á línu 10 og ýttu síðan á Enter til að setja inn nýja línu 11:
DefaultText = "Mind Over Media"
Næst býrðu til lokabreytu sem heitir CompanyName sem tilgreinir InputBox fallið sem færslu þess (með því að nota InputMsg, InputTitle og DefaultText breyturnar sem þú varst að búa til) og geymir niðurstöður þessarar falls.
Sláðu inn eftirfarandi kóða til að búa til SpreadsheetTitle breytuna sem notar InputBox aðgerðina á línu 11:
SpreadsheetTitle = InputBox(InputMsg, InputTitle, DefaultText)
Að lokum skiptirðu út gildinu, „Mind Over Media“, í ActiveCell.FormulaR1C1 eigninni fyrir SpreadsheetTitle breytuna (sem gildið er ákvarðað af því sem er sett inn í Spreadsheet Title Input valmyndina), og kemur þannig í raun í stað þessa fasta í fjölvi með leiðin til að gera þetta inntak raunverulega gagnvirkt.
Veldu „Mind Over Media“ á línu 12 og skiptu því út fyrir SpreadsheetTitle (án gæsalappa).
Vistaðu breytta fjölvi með því að smella á Vista hnappinn á Visual Basic tækjastikunni og farðu síðan aftur í vinnublaðið með því að smella á Skoða Microsoft Excel hnappinn eða ýta á Alt+F11. Smelltu síðan á Fela hnappinn í gluggahópnum á SKOÐA flipanum.
Nú ertu tilbúinn til að opna nýja vinnubók og keyra breytta fjölva með því að ýta á Ctrl+N.
Myndin sýnir kóðagluggann með breyttu Company_Name fjölva eftir að búið er að bæta við yfirlýsingunum sem gera það gagnvirkt.

Eftirfarandi mynd sýnir titil töflureiknisins í aðgerð á vinnublaðinu. Þessi innsláttargluggi birtist nú sjálfkrafa og biður þig um innslátt í hvert skipti sem þú keyrir breytta og nú fullkomlega gagnvirka útgáfuna af Company_Name fjölva.

Til að fara á undan og slá inn Mind Over Media inn í núverandi reit og forsníða það síðan með því að nota restina af fjölvi skipunum, smellirðu bara á OK í þessum sérsniðna valmynd. Til að slá inn og forsníða nafn annars fyrirtækis slærðu einfaldlega inn nafn fyrirtækisins (sem kemur sjálfkrafa í stað Mind Over Media í textareitinn) áður en þú smellir á OK.