Kako pretvoriti besedilo v številko s programom Excel VBA (3 primeri z makri)

Hugh West

16-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

V programu Microsoft Excel je delo s številkami najpogostejše. Včasih moramo obdelati nabor podatkov z veliko količino številk. Vendar se lahko znajdete v situaciji, ko so vaše številke videti kot besedilo. Zaradi tega ne morete seštevati, odštevati, deliti, množiti ali izvajati kakršnih koli operacij. Vedno se prikaže napaka, ko poskušate to storiti. V tem učbeniku vas bomo naučili, kako pretvoritibesedilo v številko v Excelu z uporabo VBA z ustreznimi primeri in primernimi ilustracijami.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za prakso

Pretvarjanje besedila v številke z uporabo VBA.xlsm

Kako prepoznati številke, oblikovane kot besedilo

Microsoft Excel je dovolj pameten, da razume razliko med besedilom in številko. Samodejno ju pretvori v ustrezni obliki. Vendar včasih tega ne more storiti zaradi napačne uporabe in napačne razlage nabora podatkov. Zato številke v delovnem zvezku ohrani kot besedila.

Oglejte si ta nabor podatkov. V stolpcu je nekaj številk.

Čeprav imamo v stolpcu številke, so vse poravnane levo kot besedilo. Zdaj kliknite katero koli celico. Ob celici se prikaže to polje.

Zdaj se z miško pomaknite nad polje. Po tem se bo prikazalo naslednje sporočilo.

Pokaže, da je celica oblikovana kot besedilo. Tako se lahko prepričate, ali so celice oblikovane kot besedilo ali ne.

3 kode VBA za pretvorbo besedila v številko v programu Excel

Čeprav lahko besedilo v številke zlahka pretvorite ročno, je to vodilo namenjeno pretvorbi besedila v številke z uporabo kod VBA. Priporočamo vam, da se naučite vseh teh metod in jih uporabite za svoj nabor podatkov. Zagotovo vam bodo prišle prav v številnih situacijah.

1. Koda VBA z metodo Range.NumberFormat za pretvorbo besedila v številko v Excelu

Ta metoda je precej preprosta in jo je mogoče uporabiti za kateri koli niz podatkov. Vse, kar morate storiti, je, da izberete območje celic in ga vstavite v Koda VBA .

📌 Koraki

1. Najprej pritisnite ALT+F11 na tipkovnici, da odprete Urejevalnik VBA .

2. Kliknite na Vstavljanje> Modul .

3. Nato vnesite naslednjo kodo: 

 Sub ConvertTextToNumber() With Range("B5:B14") .NumberFormat = "General" .Value = .Value End With End Sub

4. Shranite datoteko.

5. Nato pritisnite ALT+F8 . Odprlo se bo okno Makro pogovorno okno.

6. Izberite ConvertTextToNumber in kliknite na Teči.

Na koncu bo ta koda pretvorila naše besedilo v številke.

Preberite več: Kako pretvoriti niz v število v Excel VBA

2. Koda VBA z zanko in CSng za pretvorbo besedila v številko

Pri tej metodi uporabljamo Zanka in . CSng funkcije. CSng Funkcija v bistvu sprejme poljubno besedilo kot argument in ga pretvori v eno samo število. Naša zanka bo šla skozi vsako celico izbranega stolpca. Nato bomo vrednost vsake celice posredovali v funkcijo CSng za pretvorbo iz besedila v številko.

📌 Koraki

1. Najprej pritisnite ALT+F11 na tipkovnici, da odprete Urejevalnik VBA .

2. Kliknite na Vstavljanje> Modul .

3. Nato vnesite naslednjo kodo: 

 Sub ConvertUsingLoop() For Each r In Sheets("Loop&CSng").UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = CSng(r.Value) r.NumberFormat = "General" End If Next End Sub

4. Shranite datoteko.

5. Nato pritisnite ALT+F8 . Odprlo se bo okno Makro pogovorno okno.

6. Izberite ConvertUsingLoop in kliknite na Teči.

Kot lahko vidite, smo s to kodo VBA pretvorili besedilo v številke.

Podobna branja

  • Množično pretvorite besedilo v številko v Excelu (6 načinov)
  • Kako pretvoriti niz v dolg niz z uporabo VBA v Excelu (3 načini)
  • Pretvarjanje niza v dvojnega v Excelu VBA (5 metod)
  • Kako odpraviti napako pretvorbe v število v Excelu (6 metod)

3. Pretvarjanje besedila v številke za dinamična območja v Excelu

Prejšnje metode so bile namenjene izbranim območjem. To pomeni, da morate v kodo ročno vnesti območje celic. Včasih pa je lahko nabor podatkov velik. V takih primerih si morate zapomniti območje celic. Ta metoda bo odpravila to težavo. Vemo, da se naš nabor podatkov začne od Celica B5 Vendar ne vemo, kje se bo končal.

Tako dinamično prepoznamo zadnjo uporabljeno vrstico Excela, v kateri so podatki, z uporabo Cells(Rows.Count, "B").End(xlUp).Row . Vrne zadnjo neprazno številko vrstice, ki jo združimo z " B5: B ".

📌 Koraki

1. Najprej pritisnite ALT+F11 na tipkovnici, da odprete Urejevalnik VBA .

2. Kliknite na Vstavite > Modul .

3. Nato vnesite naslednjo kodo: 

 Sub ConvertDynamicRanges() With Razpon("B5:B" & Cells(Rows.Count, "B").End(xlUp).Row) .NumberFormat = "General" .Value = .Value End With End Sub

4. Shranite datoteko.

5. Nato pritisnite ALT+F8 . Odprlo se bo okno Makro pogovorno okno.

6. Nato izberite ConvertDynamicRanges in kliknite na Teči.

Kot lahko vidite, smo s kodami VBA uspešno pretvorili besedilo v številke.

💬 Stvari, ki si jih je treba zapomniti

✎ V tem primeru uporabljamo stolpec B. Če so vaši podatki v drugem stolpcu, ustrezno spremenite obseg celic v kodah VBA.

✎ Kode VBA bodo delovale samo na aktivnem listu.

Zaključek

Za konec upam, da vam je to vodilo zagotovilo delček uporabnega znanja o pretvorbi besedila v številko v Excelu z uporabo kod VBA. Priporočamo vam, da se naučite vseh teh navodil in jih uporabite za svoj nabor podatkov. Prenesite vadbeni delovni zvezek in jih preizkusite sami. Prav tako nam lahko v razdelku s komentarji posredujete povratne informacije. Vaše dragocene povratne informacije nas motivirajo za ustvarjanje takšnih vodil.Ne pozabite preveriti naše spletne strani Exceldemy.com za različne težave in rešitve, povezane z Excelom.

Prejšnja objava Kako odstraniti podvojene datoteke in ohraniti prvo vrednost v Excelu (5 metod)
Naslednja objava Kako prešteti določene besede v stolpcu v Excelu (2 metodi)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.