Այս հոդվածում մենք կքննարկենք Excel VBA-ում տողը թվի փոխարկելու մի քանի եղանակ: Մենք կտեսնենք, թե ինչպես օգտագործել ներկառուցված գործառույթները և ստեղծել հատուկ գործառույթ՝ օգտագործելով դրանք VBA կոդի օրինակներով տողը թվի փոխարկելու համար:

Ներբեռնել Practice Workbook

Ներբեռնեք այս պրակտիկայի աշխատանքային գրքույկը՝ այս հոդվածը կարդալու ընթացքում վարժություններ կատարելու համար:

String-ը թվի փոխարկելու 3 եղանակ Excel VBA-ում

1. Վերափոխեք տողը թվի օգտագործելով Type Conversion Functions

Excel-ը տրամադրում է մի քանի ներկառուցված տիպի փոխակերպման գործառույթներ : Մենք կարող ենք դրանք օգտագործել մեր VBA կոդում՝ լարային տվյալների տեսակից տարբեր տվյալների տեսակների հեշտությամբ փոխարկելու համար:

1.1 Տողն ամբողջ թվի

տողը փոխարկելու համար ամբողջ թիվ , մենք կարող ենք օգտագործել CInt ֆունկցիան մեր կոդում: CInt ֆունկցիան վերցնում է միայն մեկ արգումենտ և այն պետք է լինի թվային արժեք : Փորձենք հետևյալ կոդը Visual Code Editor-ում:

3315

Սեղմեք F5 գործարկելու համար կոդ : Արդյունքը ցուցադրվում է MsgBox -ում:

CInt ֆունկցիան փոխակերպեց թվային տողը արժեքը (“12.3” ) դեպի ամբողջ թիվը 12:

CInt ֆունկցիայի մասին ավելին հասկանալու համար գործարկեք հետևյալը. կոդը կոդի խմբագրիչում և դիտեք արդյունքները :

5037

ելքը այստեղ էհետևելով սքրինշոթին ։

Կոդի բացատրություն

Այս կոդում մենք օգտագործել ենք For… Հաջորդ հանգույցը ՝ CInt ֆունկցիան բջիջների տողերի վրա կիրառելու համար B3:B7: ելքերը տպագրվում են C3:C7 բջիջներում: Մենք օգտագործեցինք Cells ֆունկցիան որոշելու մուտքային արժեքները և որտեղ տպել ելքային արժեքները:

Արդյունքներ

CINT ֆունկցիան փոխակերպեց 25.5 հաջորդ ամբողջ թիվ 26 : Մյուս կողմից, այն փոխակերպեց 10.3 10, ոչ թե 11 : Երբ տասնորդական թվային արժեքը փոքր է .5-ից, ֆունկցիան շրջվում է մինչև նույն թիվը: Բայց տասնորդական թվային տողի արժեքը վերածվում է հաջորդ ամբողջ թվի, եթե այն հավասար է կամ մեծ է .5-ից:

Ծանոթագրություն

Ամբողջ թվային արժեքը ունի -32,768 -ից 32,767 միջակայքը: Եթե ​​մենք թվային արժեք դնենք, որը այս միջակայքից դուրս է , Excel-ը ցույց կտա սխալ :

1.2 String to Long

CLng ֆունկցիան փոխակերպում է թվային տողի արժեքը long datatype : Այն աշխատում է CInt ֆունկցիայի նման: Հիմնական տարբերությունը կայանում է նրա միջակայքում , որը գտնվում է -2,147,483,648 և 2,147,483,647-ի միջև:

<1:>

The code to run is here below:2704

Այստեղ բջիջները B3:B9 պարունակում են թվային լարային արժեք , իսկ փոխակերպված l ong թվերը գտնվում են բջիջներում C3:C9: CLng ֆունկցիան փոխակերպվել է -32800 և 32800 հաջողությամբ դեպի երկար թվեր , որոնք CInt ֆունկցիան չկարողացավ կատարել: Բայց այն նաև կստանա սխալ եթե մուտքագրված թվային արժեքը տիրույթից դուրս է:

1.3 տողը տասնորդականի

Օգտագործելով CDec ֆունկցիան մենք կարող ենք վերափոխել a թվային տողի արժեքը մինչև տասնորդական տվյալների տեսակը: Գործարկեք հետևյալ կոդը՝ վերափոխելու թվային արժեքները բջիջներում B3:B7 տասնորդական տվյալների տիպի։

9954

1.4 String to Single

Այս օրինակում մենք մուտքագրված տողերը կվերածենք մեկ տվյալների տեսակը (մեկ - ճշգրիտ լողացող կետ) թվեր: Դրա համար մենք պետք է օգտագործենք CSng ֆունկցիան :

Տվյալների մեկ տեսակը տատանվում է- (i)  -3.402823E38 մինչև -1.401298E-45 բացասական թվերի համար:

1.401298E-45 <3.2 E-45 <3. դրական թվեր:

Գործարկեք հետևյալ կոդը վիզուալ հիմնական խմբագրիչում:

4820

Ելքում բջիջները B3:B9 պարունակում է թվային լարային արժեք, և վերափոխված տվյալների տիպի համարները կան բջիջներում C3:C9: Բայց այն նաև կստանա սխալ եթե մուտքագրման թվային արժեքը միջակայքից դուրս է:

1.5 տողերի կրկնապատկում

Այս օրինակում մենք մուտքագրված տողերը կվերածենք կրկնակի տվյալների տիպի (կրկնակի ճշգրտությամբ լողացող -կետ) թվեր: Դրա համար մեզ անհրաժեշտ է CDbl ֆունկցիան օգտագործելու համար :

Կրկնակի տվյալների տիպը տատանվում է- (i) -1.79769313486231E308 մինչև -4.94065645841247E-324 <3-ի համար>բացասական թվեր:

(ii) 4,94065645841247 համար 4,94065645841247 համար <4,94065645841247 <4,94065645841247 <27 E-4 <4 E-324 <4 E-324 <3 7 7 4 <3 E-324> <4 E-324> .

Վիզուալ հիմնական խմբագրիչում գործարկեք հետևյալ կոդը:

2156

Ելքում բջիջները B3:B9 պարունակում են որոշ թվային տողի արժեքը և վերափոխված կրկնակի տվյալների տիպի համարները կան բջիջներում C3:C9: Բայց այն նաև կստանա սխալ եթե մուտքագրումը թվային արժեքը տիրույթից դուրս է:

1.6 Տող դեպի արժույթ

արժույթի տվյալների տեսակը հարմար է, երբ հաշվարկները կապված են փողի հետ: Ավելին, եթե մենք ցանկանում ենք ավելի շատ ճշգրտություն ֆիքսված – կետ հաշվարկում , ապա արժույթի տվյալների տիպի օգտագործումը լավ ընտրություն է: Մենք պետք է օգտագործենք CCur ֆունկցիան ՝ տողը արժույթի տվյալների տիպի փոխարկելու համար: Տվյալների տեսակը տատանվում է -ից -922,337,203,685,477.5808 մինչև 922,337,203,685,477.5808:

Code to convert st value numer 4> բջիջներից B3:B7 մինչև արժույթի տվյալների տեսակը C3:C7 բջիջներում ստորև է:

2375

1.7 String to Byte

CByte ֆունկցիան փոխակերպում է թվային տողերի արժեքները բայթ տվյալների տեսակի , որը տատանվում է -ից: 0-ից մինչև 255:

Կոդը այսպիսին էհետևում է :

8921

Ելքում բջիջները B3:B9 պարունակում է թվային տողի արժեք, և փոխակերպված բայթ տվյալների տիպի համարները կան բջիջներում C3:C9: Բայց այն նաև կստանա սխալ եթե մուտքագրման թվային արժեքը միջակայքից դուրս է:

Կարդալ ավելին` Ինչպես վերափոխել տողը երկարի՝ օգտագործելով VBA Excel-ում

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

• Վերափոխել տողը կրկնակի Excel VBA-ում (5 մեթոդ)
• Ինչպե՞ս վերափոխել տեքստը թվի Excel VBA-ով (3 օրինակ մակրոներով)
• Շտկել վերափոխումը թվի սխալ Excel-ում (6 մեթոդ)
• Ինչպես վերափոխել գիտական ​​նշումը թվի Excel-ում (7 մեթոդ)

2. Մաքսային VBA ֆունկցիայի օգտագործումը Excel-ում տողը թվի ստուգելու և փոխակերպելու համար

Այս նկարում մենք պատրաստվում ենք հարմարեցված ֆունկցիան դարձնել փոխակերպման համար տողեր դեպի թվեր. Այնուհետև մենք կարող ենք օգտագործել այս հարմարեցված ֆունկցիան մեր աշխատանքային թերթում ինչպես ներկառուցված ֆունկցիան : Այս օրինակում մենք կօգտագործենք CInt ֆունկցիան տողերը ամբողջ թվերի վերափոխելու համար հարմարեցված ֆունկցիան ստեղծելիս: Մենք կարող ենք նաև օգտագործել բոլոր մյուս գործառույթները նկարագրված մեթոդ 1 -ում տողերը տարբեր տվյալների տեսակների փոխարկելու համար: Այժմ հետևեք ստորև նշված քայլերին դա անելու համար:

Քայլեր.

• Այստեղ, B3:B7, բջիջներում մենք ունենք որոշ թվային տողարժեքներ:

• Այժմ, տեսողական հիմնական խմբագրիչում, պատճենեք և կպցրեք հետևյալ կոդը և ապա  սեղմեք Ctrl + S պահելու համար

6902

• Բջջում C3 , սկսեք մուտքագրել ֆունկցիայի անունը ( StringToNumber ): Excel-ը ավտոմատ կերպով կառաջարկի օգտագործել գործառույթը : Սեղմեք Tab ստեղնը գործառույթը մուտքագրելու համար:

• Դրեք բջջի հղումը B3 որպես միակ փաստարկ:

• Այժմ սեղմեք Enter փակագծերը փակելուց հետո:

• Գտեք Լրացնել բռնակը բջիջի ներքևի աջ անկյունում C3 կիրառելու համար գործառույթը դեպի բջիջներ C4:C7:

• Վերջնական ելքը տողերի արժեքներից բաղձալի ամբողջ թվերն են .

3. VBA կոդ՝ Excel-ում բջիջների ընտրված տիրույթը թվերի փոխարկելու համար

Այս նկարում մենք կվերածենք ընտրված բջիջների ընդգրկույթը ամբողջ թվերի համար տողային արժեքներ պարունակող: Եթե ​​որևէ բջիջ պարունակում է ոչ թվային արժեք, ապա ելքը կլինի գծիկ (-) տող փոխարենը : Հետևեք քայլերին .

• Ընտրեք բջիջներ B3:B6 ունենալով թվային տողեր արժեքներ և B7 որը պարունակում է ոչ թվային

• Visual Basic Editor պատճենում և կպցրեք հետևյալը կոդ :

5113

• Այժմ սեղմեք F5 գործարկելու ելքը ինչպես ցույց է տրված հետևյալ էկրանի նկարը ։

Ծանոթագրություններ

• Մենք օգտագործել ենք isNumeric ֆունկցիան 2-րդ և 3-րդ մեթոդներում մեր VBA կոդում, որը ստուգում է արդյոք արտահայտությունը կարող է փոխարկվել թվի:
• In մեթոդը 1 , մենք օգտագործեցինք ներկառուցված ֆունկցիաներ (CInt, CDbl, CSng…..) վերափոխելու թվային տողերի արժեքները թվերի : Բայց եթե կա ոչ թվային արժեք , այն ցույց կտա անհամապատասխանության սխալ :

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

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