„Excel VBA“ derinimas. Spausdinti
„Debug Print“ yra vienas iš naudingų įrankių, pateiktų VBA redaktoriuje, siekiant išsiaiškinti, kaip programa veikia, ir tai padeda analizuoti VBA programoje sukurtų kintamųjų reikšmių pokyčius. Tai rodo greitojo lango išvestį, kai mes paleidžiame programą be jokių klaidų.
„Debug.print“ siūlo du pagrindinius „Msgbox“ naudojimo pranašumus, norint parodyti kodo išvestį. Tai nereikalauja kaskart spustelėti mygtuko Gerai ir tiesioginiuose languose rodomas grąžintų išvesties verčių žurnalas. Tai taupo daug laiko vartotojams. Šiame straipsnyje „Excel VBA Debug Print“ naudojimas paaiškinamas daugeliu pavyzdžių ir paaiškinta, kaip jį naudoti, apimančiu šiuos dalykus.
Kas yra VBA derinimo spausdinimas?
Derinimas yra VBA objektas, naudojamas kartu su dviem metodais, vadinamais „Assert and Print“. Spausdinimas yra naudingi pranešimai ekrane ir yra naudingi vertinant sąlygas. VBA, derinkite. Spausdinimo sakinys naudojamas bet kurioje kodavimo programos vietoje, kad būtų rodomos kintamojo ar pranešimų reikšmės tiesioginiame lange. Jų nereikia patvirtinti ar patvirtinti ir jie neturi jokio poveikio sukurtam kodui. Tai yra saugu ir geriausia naudoti kodą, kad būtų lengviau naudotis daugeliu vartotojų. Tai tiesiog naudinga testuojant ar vertinant kodą, kad patvirtintumėte, ar jis veikia tinkamai, ar ne. Jis spausdina kintamuosius, eilutes, skaičius, masyvą, reikšmes „Excel“ lapuose ir tuščius bei aktyvius lapus.
Kaip naudoti „Excel VBA“ derinimo spausdinimą?
VBA debug.print yra teiginys, naudingas rodant daugiau kintamųjų vienu metu tiesioginiame lange. Tai geriausias ir alternatyvus būdas parodyti rezultatus.
Pavyzdžiui,
Derinti. Spausdinimo skaičius, suma, vidurkis, standartinis nuokrypis
Kaip parodyta pavyzdyje, visi kintamieji yra atskirti kableliais. Šis teiginys gali perkelti išvestį į tiesioginį langą, net jei langas nėra atidarytas. Jis nenustoja paleisti kodo kaip „Msgbox“. Šis lankstumas palaiko nuolatinį išvesties pokyčių, susijusių su kodo pakeitimais, stebėjimą.
Kintamieji skaičius, suma, vidurkis ir standartinis nuokrypis rodomi toje pačioje eilutėje su lygiomis tarpais. Jei neatidaromas tiesioginis langas, atlikite šiuos veiksmus, kad pamatytumėte išvestį.
Veiksmai, skirti atidaryti greitąjį langą ir pamatyti išvestį
- Paspauskite „ Ctrl“ + G arba VBA redaktoriuje spustelėkite meniu „Žiūrėti“.
- Pasirinkite parinktį „Greitas langas“.
- Užveskite žymeklį į langą ir vėl paleiskite kodą.
- Stebėkite lango išvestį.
„Excel VBA“ derinimo pavyzdžiai. Spausdinti
Toliau pateikiami derinimo spausdinimo naudojimo „Excel VBA“ pavyzdžiai.
1 pavyzdys - kintamųjų reikšmių rodymas
Pirmiausia eikite į skirtuką „Kūrėjas“, spustelėkite „Makrokomandos“ ir sukurkite makrokomandą, kad įrašytumėte kodą į VBA ir pridėtumėte prie jo pavadinimą.
Pridėję vardą, spustelėkite sukurti. Tai atveria VBA redaktorių.
Sukurkite mažą programą, kaip parodyta paveikslėlyje.
Kodas:
Kintamieji () Dim X kaip sveikasis Dim Y kaip eilutė Dim Z kaip Double X = 5 Y = "John" Z = 105.632 Debug.Print X Debug.Print Y Y derinti.Print Z End Sub
Kaip parodyta ekrano kopijoje, trys matmenys arba kintamieji yra sumažinami kaip X, Y ir Z kaip sveikasis skaičius, eilutė ir Double. Norint atspausdinti šias reikšmes, naudojamas Debug.print, o išvestis bus rodoma raginimo lange. Paspauskite CTRL + G, kad pamatytumėte rezultatą, kaip parodyta ekrano kopijoje.
Paleiskite šį kodą naudodami klavišą F5 ir paspauskite CTRL + G, kad pamatytumėte išvestį tiesioginiame lange.
Šią programą galima supaprastinti atskyrus derinimo ir spausdinimo sakinius kableliu.
Kodas:
Kintamieji () Dim X kaip sveikasis Dim Y kaip eilutė Dim Z As Double X = 5 Y = "John" Z = 105.632 Derinti. Spausdinti X, Y, Z End Sub
Šis derinimo teiginys išvestį spausdina toje pačioje eilutėje, kaip parodyta ekrano kopijoje.
2 pavyzdys - derinkite spausdinimą faile
Šis pavyzdys iliustruoja VBA derinimo spausdinimo naudojimą rodant išvestį į failą, kai teksto ilgis yra per didelis.
Sukurta programa, leidžianti atspausdinti išvestį faile, kaip parodyta paveikslėlyje.
Kodas:
Sub DebugPrintToFile () Dim s As String Dim num As Integer num = FreeFile () Open "D: Articles Excel test.txt" Išvesties kaip #num s = "Sveikas, pasauli!" Derinti. Spausdinti „rašyti į tiesioginį langą Spausdinti #num“, rašyti išvestį į failą Uždaryti #num End Sub
Šioje programoje du kintamieji, vadinami S ir Num, yra laikomi eilute ir sveikuoju skaičiumi. Atviras sakinys naudojamas sukurti tekstinį failą su pavadinimo testu. Stulpelis pavadinimu „Sveikas pasaulis“ yra deklaruojamas kintamajame S.
Kai paleidžiate VBA kodą rankiniu būdu arba naudodami klavišą F5, išvestis įrašoma į tiesioginį langą, o failas vienu metu rodomas aplanke.
The output to file is shown in the below-mentioned figure.
Printing output to file is beneficial when long text is presented.
Example #3 - Displaying the Factorial of a Number in the Immediate Window
This example illustrates the use of the debug-a print statement to show the factorial of a number.
Code:
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Next Count Debug.Print Fact End Sub
To determine the factorial, three variables are considered, including the count, number, and fact. For loop is taken to repeat the multiplication of fact-value with count to determine factorial of the number.
Here, debug. The print statement is used outside the “for” loop to display the value after completing the circle. The output is determined.
If we use debug. Print statement inside the “for” loop, the fact-value is displayed for every recurring time, as shown in the figure.
Code:
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Debug.Print Fact Next Count End Sub
Run the code by pressing the F5 key and see the output in the immediate window. In this situation, we should consider the last value as the factorial of the given number.
Example #4 - Printing the Full name of the Active Workbook
This example explains how to print the current workbook name into the prompt window.
The program is developed, as shown in the figure.
Code:
Sub Activework() Dim count As Long For count = 1 To Workbooks.count Debug.Print Workbooks(count).FullName Next count Debug.Print count End Sub
Čia „skaičius“ yra kintamasis, naudojamas skaičiuojant aktyvių darbaknygių skaičių ir rodant visą aktyvios darbaknygės pavadinimą. Rodomas visas vardas ir aktyvių darbaknygių skaičius, kaip parodyta paveikslėlyje.
Darbaknygės kelias diskuose yra tiksliai parodytas naudojant VBA derinimo atspaudą.
Ką reikia atsiminti
- Pagrindinė derinimo „.print“ problema nėra ilgų eilučių teksto įvyniojimo parinktis tiesioginiame lange
- Turėtų būti pateiktas tiesioginis langas, kad būtų matyti vartotojo sąsajos išvestis
- Neįmanoma suvynioti ilgo teksto, rodomo tiesioginiame lange. Esant tokiai situacijai, rezultatą reikia parodyti diske saugomame faile.
