Programmā Microsoft Excel visbiežāk tiek strādāts ar skaitļiem. Dažreiz mums ir jāapstrādā datu kopa ar lielu daudzumu skaitļu. Bet jūs varat nonākt situācijā, kad jūsu skaitļi izskatās kā teksts. Šī iemesla dēļ jūs nevarat saskaitīt, atņemt, sadalīt, reizināt vai veikt jebkāda veida darbību. Tas vienmēr parāda kļūdu, kad mēģināt to izdarīt. Šajā pamācībā mēs jums iemācīsim, kā konvertēt.tekstu uz numuru programmā Excel, izmantojot VBA kodus ar piemērotiem piemēriem un atbilstošām ilustrācijām.

Lejupielādēt Practice Workbook

Lejupielādēt šo prakses darba burtnīcu

Teksta pārvēršana skaitļos, izmantojot VBA.xlsm

Kā atpazīt skaitļus, kas formatēti kā teksts

Microsoft Excel ir pietiekami gudrs, lai saprastu atšķirību starp tekstu un skaitli. Tas automātiski pārveido tos attiecīgajos formātos. Taču dažreiz tas to nevar izdarīt, jo datu kopa tiek nepareizi izmantota un interpretēta. Šā iemesla dēļ tas saglabā šos skaitļus darbgrāmatā kā tekstus.

Aplūkojiet šo datu kopu. Šeit mums ir daži skaitļi vienā slejā.

Lai gan kolonnā ir numuri, tie visi ir izlīdzināti pa kreisi kā teksts. Tagad noklikšķiniet uz jebkuras šūnas. Blakus šūnai atradīsiet šo lodziņu.

Tagad novietojiet peles kursoru virs lodziņa. Pēc tam redzēsiet šo ziņojumu.

Tas parāda, ka šūna ir formatēta kā teksts. Šādā veidā varat pārliecināties, vai šūnas ir formatētas kā teksts.

3 VBA kodi teksta pārveidošanai par skaitli programmā Excel

Lai gan tekstu var viegli pārvērst skaitļos manuāli, šī pamācība ir par teksta pārvēršanu skaitļos, izmantojot VBA kodus. Mēs iesakām apgūt un piemērot visas šīs metodes savai datu kopai. Protams, tas noderēs daudzās situācijās.

1. VBA kods ar metodi Range.NumberFormat, lai konvertētu tekstu uz skaitli programmā Excel

Šī metode ir diezgan vienkārša un viegli lietojama jebkurai datu kopai. Viss, kas jums jādara, ir jāizvēlas šūnu diapazons un jāievieto tas VBA kods .

📌 Soļi

1. Vispirms nospiediet ALT+F11 uz tastatūras, lai atvērtu VBA redaktors .

2. Noklikšķiniet uz Ievietot> Modulis .

3. Pēc tam ievadiet šādu kodu:

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

4. Saglabājiet failu.

5. Pēc tam nospiediet ALT+F8 . Tas atvērs Makro dialoglodziņš.

6. Izvēlieties ConvertTextToNumber un noklikšķiniet uz Palaist.

Galu galā šis kods pārvērš mūsu tekstu skaitļos.

Lasīt vairāk: Kā konvertēt virkni uz skaitli programmā Excel VBA

2. VBA kods ar cilpu un CSng, lai pārvērstu tekstu skaitlī

Šajā metodē mēs izmantojam Cilpa un CSng funkcijas. CSng funkcija būtībā kā argumentu pieņem jebkuru tekstu un pārvērš to vienskaitlī. Mūsu cilpa iet cauri katrai izvēlētās kolonnas šūnai. Pēc tam mēs nodosim katras šūnas vērtību funkcijai CSng funkciju, lai to pārvērstu no teksta uz skaitli.

📌 Soļi

1. Vispirms nospiediet ALT+F11 uz tastatūras, lai atvērtu VBA redaktors .

2. Noklikšķiniet uz Ievietot> Modulis .

3. Pēc tam ievadiet šādu kodu:

 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. Saglabājiet failu.

5. Pēc tam nospiediet ALT+F8 . Tas atvērs Makro dialoglodziņš.

6. Izvēlieties ConvertUsingLoop un noklikšķiniet uz Palaist.

Kā redzat, izmantojot šo VBA kodu, mēs esam pārvērtuši tekstu skaitļos.

Līdzīgi lasījumi

• Teksta masveida konvertēšana uz skaitli programmā Excel (6 veidi)
• Kā konvertēt virkni uz garu, izmantojot VBA programmā Excel (3 veidi)
• Virknes konvertēšana uz divkāršo Excel VBA (5 metodes)
• Kā labot kļūdu Konvertēt uz skaitli programmā Excel (6 metodes)

3. Teksta pārvēršana skaitļos dinamiskiem diapazoniem programmā Excel

Iepriekšējās metodes bija paredzētas atlasītajiem diapazoniem. Tas nozīmē, ka jums ir manuāli jāievada šūnu diapazons kodā. Bet dažreiz jūsu datu kopa var būt liela. Šādos gadījumos jums ir jāatceras šūnu diapazons. Šī metode atrisinās šo problēmu. Mēs zinām, ka mūsu datu kopa sākas no Šūna B5 . Bet mēs nezinām, kur tas varētu beigties.

Tādējādi mēs dinamiski identificējam pēdējo izmantoto Excel rindu, kurā ir dati, izmantojot Cells(Rows.Count, "B").End(xlUp).Row . Tas atgriež pēdējo nepilno rindas numuru, ko mēs savienojam ar " B5: B ".

📌 Soļi

1. Vispirms nospiediet ALT+F11 uz tastatūras, lai atvērtu VBA redaktors .

2. Noklikšķiniet uz Ievietot > Modulis .

3. Pēc tam ievadiet šādu kodu:

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

4. Saglabājiet failu.

5. Pēc tam nospiediet ALT+F8 . Tas atvērs Makro dialoglodziņš.

6. Pēc tam atlasiet ConvertDynamicRanges un noklikšķiniet uz Palaist.

Kā redzat, mums ir izdevies pārvērst tekstu skaitļos, izmantojot VBA kodus.

💬 Lietas, kas jāatceras

✎ Šeit mēs datu kopai izmantojam kolonnu B. Ja jūsu dati ir citā kolonnā, attiecīgi mainiet šūnu diapazonu VBA kodos.

✎ VBA kodi darbosies tikai aktīvajā lapā.

Secinājums

Nobeigumā es ceru, ka šī pamācība ir sniegusi jums daļu noderīgu zināšanu par teksta pārvēršanu skaitļos programmā Excel, izmantojot VBA kodus. Mēs iesakām jums iemācīties un piemērot visus šos norādījumus savai datu kopai. Lejupielādējiet prakses darbgrāmatu un izmēģiniet tos paši. Tāpat arī nevilcinieties sniegt atsauksmes komentāru sadaļā. Jūsu vērtīgās atsauksmes uztur mūsu motivāciju veidot šādas pamācības.Neaizmirstiet pārbaudīt mūsu vietni Exceldemy.com par dažādām ar Excel saistītām problēmām un risinājumiem.