„VBA Immediate“ langas naudojamas greitai paleisti VBA kodo eilutes, taip pat gauti informaciją apie jūsų kodą ar „Excel“ failą … Šis įrankis leidžia išbandyti atskiras kodo eilutes, o tai naudinga rašant ir derinant kodą. Išvestis rodoma nedelsiant lange.
Neatidėliotino lango rodymas
Pirmiausia turite parodyti tiesioginį langą. Norėdami tai padaryti, paspauskite Alt-F11 patekti į „Visual Basic“ redaktorius. Įdėję modulį. Paspauskite Ctrl-G peržiūrėti Iškart langas.
Turėtumėte pamatyti šiuos dalykus:
Kodo eilučių vykdymas
Vienas iš dalykų, kurį leidžia atlikti „Neatidėliotinas langas“, yra išbandyti kodo eilutę. Šis kodas parodys, kaip naudoti „Neatidėliotiną langą“, kad užpildytumėte aktyvaus lapo A1 langelį šviesiai oranžine užpildymo spalva. Įveskite šią eilutę ir paspauskite klaviatūros klavišą Enter:
| 1 | Diapazonas („A1“). Interjeras. Spalva = RGB (246, 174, 134) |
Rezultatas yra toks:
Klausimai ir neatidėliotinas langas
Norėdami gauti informacijos apie savo darbaknygę, galite naudoti tiesioginį langą. Tai galite padaryti naudodami klaustuką. Jei įvesite teiginį, prieš kurį yra klaustukas, tada „Neatidėliotinas langas“ pateiks reikiamą atsakymą. Tarkime, kad pasirinktame langelyje A1 yra skaičius 5. Šis kodas leis naudoti vertę „Immediate Window“, kad gautumėte šią vertę:
| 1 | ? ActiveCell.Value |
Rezultatas yra toks:
Iš karto paleiskite makrokomandą
Galite paleisti makrokomandą iš karto lango, įvesdami makrokomandos pavadinimą ir paspausdami „Enter“. Jei jūsų makrokomandoje yra argumentų, galite naudoti neatidėliotiną langą ir perduoti argumentus makrokomandai per tiesioginį langą. Šis kodas parodo, kaip iš karto paskambinti makrokomanda, pavadinta „CountWorksheets“:
| 1 | CountWorksheets |
Paspaudus „Enter“, rezultatas rodomas darbalapyje langelyje A1.
„Debug.Print“ naudojimas
Galite naudoti „Debug.Print“ kaip dalį savo antrinių procedūrų, ir tai nurodo nedelsiant rodyti tam tikrą informaciją. Tai naudojama, kai nenorite rodyti reikšmių ar rezultatų pačioje darbaknygės langelyje arba pranešimų laukelyje. Šis kodas naudoja „Debug.Print“ teiginį kaip antrinės procedūros dalį ir rezultatus pateikia nedelsiant.
| 12345678910 | Sub UsingDebugPrint ()Sumažintas vardas ir pavardė kaip eilutėDim Dim LastName As StringVardas = "Jane"Pavardė = "Williams"Derinti. Spausdinti vardą ir "" ir pavardęPabaiga Sub |
Rezultatas, kai paspaudžiate F5, kad paleistumėte makrokomandą, rodomas nedelsiant esančiame lange:
Tiesioginio lango naudojimas paleidžiant kodą
Taip pat galite naudoti „Neatidėliotiną langą“, kad nustatytumėte arba gautumėte kintamojo vertę, kai einate per savo kodą:
| 1234567891011 | Sub GettingAndSettingVariableValues ()„Dim LName As String“Blokas SName kaip eilutėTamsus amžius kaip sveikasis skaičiusLName = "Jonas"SName = "Smitas"Amžius = 31Pabaiga Sub |
Šis kodas turi pertraukos tašką, kuris įterpiamas, kaip parodyta žemiau:
Jei įvesite? SName tiesioginiame lange, kai įvesite kodą naudodami F8, pertraukos taške gausite tokį rezultatą:
