Ինչպես վերափոխել տեքստը թվի Excel VBA-ով (3 օրինակ մակրոներով)

  • Կիսվել Սա
Hugh West

Microsoft Excel-ում թվերի հետ աշխատելը ամենատարածվածն է: Երբեմն մենք պետք է մշակենք տվյալների բազա՝ մեծ քանակությամբ թվերով: Բայց դուք կարող եք հայտնվել մի իրավիճակում, երբ ձեր թվերը տեքստի նման լինեն: Այդ պատճառով դուք չեք կարող գումարել, հանել, բաժանել, բազմապատկել կամ կատարել որևէ տեսակի գործողություն: Այն միշտ ցույց է տալիս սխալ, երբ փորձում եք դա անել: Այս ձեռնարկում մենք կսովորեցնենք ձեզ, թե ինչպես փոխարկել տեքստը թվի Excel-ում՝ օգտագործելով VBA կոդերը՝ համապատասխան օրինակներով և պատշաճ նկարազարդումներով:

Ներբեռնեք Practice Workbook

Ներբեռնեք այս պրակտիկան աշխատանքային գրքույկ

Վերափոխել տեքստը թվերի՝ օգտագործելով VBA.xlsm

Ինչպես ճանաչել թվերը, որոնք ֆորմատավորված են որպես տեքստ

Microsoft Excel-ը խելացի է բավական է հասկանալ տեքստի և թվի տարբերությունը: Այն ավտոմատ կերպով փոխակերպում է դրանք իրենց համապատասխան ձևաչափերին: Բայց, երբեմն դա չի կարող դա անել տվյալների հավաքածուի որոշ սխալ օգտագործման և սխալ մեկնաբանությունների պատճառով: Այդ պատճառով այն պահում է այդ թվերը որպես տեքստեր ձեր աշխատանքային գրքում:

Նայեք այս տվյալների շտեմարանին: Այստեղ մենք ունենք որոշ թվեր սյունակում:

Չնայած մենք ունենք թվեր սյունակում, դրանք բոլորը ձախ դասավորված են, ինչպես տեքստը: Այժմ սեղմեք ցանկացած բջիջ: Դուք կգտնեք այս վանդակը բջջի կողքին:

Այժմ մկնիկի կուրսորը սավառնեք տուփի վրա: Դրանից հետո դուք կտեսնեք այս հաղորդագրությունը:

Այն ցույց է տալիս, որ բջիջը ձևաչափված է որպես տեքստ: Այս կերպ դուք կարող եք վստահ լինելանկախ նրանից, թե բջիջները ձևաչափված են որպես տեքստ, թե ոչ:

3 VBA կոդ՝ Excel-ում տեքստը թվի փոխարկելու համար

Չնայած դուք հեշտությամբ կարող եք ձեռքով տեքստը թվերի վերածել, այս ձեռնարկը տեքստը վերածելու է համարը, օգտագործելով VBA կոդերը: Մենք խորհուրդ ենք տալիս սովորել և կիրառել այս բոլոր մեթոդները ձեր տվյալների բազայում: Անշուշտ, դա շատ իրավիճակներում օգտակար կլինի:

1. VBA կոդ Range.NumberFormat մեթոդով Excel-ում տեքստը թվի փոխարկելու համար

Այս մեթոդը բավականին պարզ է և հեշտ օգտագործման համար: ցանկացած տվյալների բազայի վրա: Պարզապես պետք է ընտրել բջիջների տիրույթը և տեղադրել այն VBA կոդի մեջ ։

📌 Քայլեր

1. Նախ սեղմեք ALT+F11 ստեղնաշարի վրա՝ VBA խմբագրիչը բացելու համար:

2. Սեղմեք Տեղադրել > Մոդուլ .

3. Այնուհետև մուտքագրեք հետևյալ կոդը՝

4381

4: Պահպանեք ֆայլը:

5. Այնուհետև սեղմեք ALT+F8 : Այն կբացի Macro երկխոսության տուփը:

6. Ընտրեք ConvertTextToNumber և սեղմեք Գործարկել:

Վերջում այս կոդը մեր տեքստը կվերածի թվերի:

Կարդալ ավելին. Ինչպես վերափոխել տողը թվի Excel VBA-ում

2. VBA կոդը Loop-ով և CSng-ով տեքստը թվի փոխարկելու համար

Այս մեթոդում մենք օգտագործում ենք Loop և CSng ֆունկցիաները: CSng ֆունկցիան հիմնականում ընդունում է ցանկացած տեքստ որպես փաստարկ և փոխակերպում այն ​​մեկ թվի: Մեր օղակը կանցնի յուրաքանչյուր բջիջովընտրված սյունակը: Դրանից հետո մենք յուրաքանչյուր բջիջի արժեքը կփոխանցենք CSng ֆունկցիայի՝ այն տեքստից թվի փոխարկելու համար:

📌 Քայլեր

1. Նախ սեղմեք ALT+F11 ստեղնաշարի վրա՝ VBA խմբագրիչը բացելու համար:

2. Սեղմեք Տեղադրել > Մոդուլ .

3. Այնուհետև մուտքագրեք հետևյալ կոդը՝

8032

4. Պահպանեք ֆայլը:

5. Այնուհետև սեղմեք ALT+F8 : Այն կբացի Macro երկխոսության տուփը:

6. Ընտրեք ConvertUsingLoop և սեղմեք Գործարկել:

Ինչպես տեսնում եք, մենք մեր տեքստը վերածել ենք թվերի՝ օգտագործելով այս VBA կոդը: .

Նման ընթերցումներ

  • Տեքստը թվի զանգվածային փոխակերպում Excel-ում (6 եղանակ)
  • Ինչպես վերափոխել տողը երկարի՝ օգտագործելով VBA Excel-ում (3 եղանակ)
  • Վերափոխել տողը կրկնակի Excel VBA-ում (5 մեթոդ)
  • Ինչպես Excel-ում փոխակերպման թվի սխալը շտկելու համար (6 մեթոդ)

3. Excel-ում դինամիկ տիրույթների համար տեքստը վերածել թվերի

Այժմ նախորդ մեթոդները ընտրված տիրույթների համար էին . Դա նշանակում է, որ դուք պետք է ձեռքով մուտքագրեք ձեր բջիջների տիրույթը կոդի մեջ: Բայց երբեմն ձեր տվյալների բազան կարող է մեծ լինել: Այդ դեպքերում դուք պետք է հիշեք բջիջների շրջանակը: Այս մեթոդը կհաղթահարի այդ խնդիրը։ Մենք գիտենք, որ մեր տվյալների բազան սկսվում է Cell B5 -ից: Բայց մենք չգիտենք, թե որտեղ կարող է ավարտվել:

Այսպիսով, մենք դինամիկ կերպով նույնացնում ենք վերջին օգտագործված excel տողը, որն ունի տվյալներ՝ օգտագործելով Cells(Rows.Count, "B").End(xlUp).Row : Այնվերադարձնում է վերջին ոչ դատարկ տողի համարը, որը մենք միացնում ենք « B5:B “.

📌 Քայլեր

1: Նախ սեղմեք ALT+F11 ստեղնաշարի վրա՝ VBA խմբագրիչը բացելու համար:

2. Սեղմեք Տեղադրել > Մոդուլ :

3. Այնուհետև մուտքագրեք հետևյալ կոդը՝

9088

4: Պահպանեք ֆայլը:

5. Այնուհետև սեղմեք ALT+F8 : Այն կբացի Macro երկխոսության տուփը:

6. Այնուհետև ընտրեք ConvertDynamicRanges և կտտացրեք Գործարկել:

Ինչպես տեսնում եք, մեզ հաջողվել է տեքստը թվերի վերածել՝ օգտագործելով VBA կոդեր:

💬 Հիշելու բաներ

✎ Այստեղ մենք օգտագործում ենք B սյունակը մեր տվյալների բազայի համար: Եթե ​​ձեր տվյալները այլ սյունակում են, համապատասխանաբար փոխեք VBA կոդերի բջիջների շրջանակը:

✎ VBA կոդերը կաշխատեն միայն ակտիվ թերթում:

Եզրակացություն

Եզրափակելով, հուսով եմ, որ այս ձեռնարկը ձեզ մի կտոր օգտակար գիտելիքներ է տվել Excel-ում VBA կոդերի միջոցով տեքստը թվի վերածելու վերաբերյալ: Մենք խորհուրդ ենք տալիս սովորել և կիրառել այս բոլոր հրահանգները ձեր տվյալների բազայում: Ներբեռնեք գործնական աշխատանքային գրքույկը և փորձեք դրանք ինքներդ: Նաև ազատ զգալ կարծիք հայտնել մեկնաբանությունների բաժնում: Ձեր արժեքավոր կարծիքը մեզ մոտիվացնում է ստեղծելու նման ձեռնարկներ: Մի մոռացեք ստուգել մեր կայքը Exceldemy.com Excel-ի հետ կապված տարբեր խնդիրների և լուծումների համար:

Հյու Ուեսթը բարձր փորձառու Excel-ի մարզիչ և վերլուծաբան է, որն ունի ավելի քան 10 տարվա փորձ այս ոլորտում: Նա հաշվապահական հաշվառման և ֆինանսների բակալավրի և բիզնեսի կառավարման մագիստրոսի կոչում է ստացել: Հյուը կիրք ունի դասավանդելու նկատմամբ և մշակել է ուսուցման յուրահատուկ մոտեցում, որը հեշտ է հետևել և հասկանալ: Excel-ի նրա փորձագիտական ​​գիտելիքներն օգնել են հազարավոր ուսանողների և մասնագետների ամբողջ աշխարհում բարելավել իրենց հմտությունները և առաջադիմել իրենց կարիերայում: Իր բլոգի միջոցով Հյուն կիսվում է իր գիտելիքներով աշխարհի հետ՝ առաջարկելով Excel-ի անվճար ձեռնարկներ և առցանց ուսուցում, որոնք կօգնեն անհատներին և ձեռնարկություններին հասնել իրենց ողջ ներուժին: