Во Microsoft Excel, најчесто се работи со бројки. Понекогаш, мораме да обработиме база на податоци со големи количини на броеви. Но, може да се најдете во ситуација кога вашите броеви изгледаат како текст. Поради оваа причина, не можете да додавате, одземате, делите, множите или вршите каква било операција. Секогаш покажува грешка кога се обидувате да го направите ова. Во овој туторијал, ќе ве научиме како да конвертирате текст во број во Excel користејќи кодови VBA со соодветни примери и соодветни илустрации.

Преземете ја работната книга за вежбање

Преземете ја оваа практика работна книга

Конвертирај текст во броеви користејќи VBA.xlsm

Како да ги идентификуваш броевите форматирани како текст

Microsoft Excel е паметен доволно за да се разбере разликата помеѓу Текст и Број. Тој автоматски ги конвертира во нивните соодветни формати. Но, понекогаш тоа не може да го направи поради некоја злоупотреба и погрешно толкување на сетот на податоци. Поради таа причина, ги чува тие броеви како текстови во вашата работна книга.

Погледнете ја оваа база на податоци. Еве, имаме неколку броеви во колона.

Иако имаме броеви во колоната, сите тие се лево порамнети како текстот. Сега, кликнете на која било ќелија. Ќе го најдете ова поле покрај ќелијата.

Сега, поставете го курсорот на глувчето над кутијата. После тоа, ќе ја видите оваа порака.

Покажува дека ќелијата е форматирана како текст. На овој начин, можете да бидете сигурнибез разлика дали ќелиите се форматирани како текст или не.

3 VBA кодови за конвертирање текст во број во Excel

Иако можете лесно да го конвертирате текстот во броеви рачно, ова упатство е за конвертирање текст во број користејќи VBA кодови. Ви препорачуваме да ги научите и примените сите овие методи во вашата база на податоци. Сигурно ќе ни се најде во многу ситуации.

1. VBA код со Range.NumberFormat метод за конвертирање текст во број во Excel

Овој метод е прилично едноставен и лесен за употреба на која било база на податоци. Сè што треба да направите е да го изберете опсегот на ќелии и да го вметнете во VBA кодот .

📌 Чекори

1. Прво, притиснете ALT+F11 на тастатурата за да го отворите VBA уредникот .

2. Кликнете на Вметни > Модул .

3. Потоа, напишете го следниов код:

5059

4. Зачувајте ја датотеката.

5. Потоа, притиснете ALT+F8 . Ќе го отвори полето за дијалог Macro .

6. Изберете ConvertTextToNumber и кликнете на Стартувај.

На крајот, овој код ќе го претвори нашиот текст во бројки.

Прочитајте повеќе: Како да конвертирате низа во број во Excel VBA

2. VBA код со јамка и CSng за да го конвертирате текстот во број

Во овој метод, ние ги користиме функциите Loop и CSng . Функцијата CSng во основа го зема секој текст како аргумент и го претвора во еден број. Нашата јамка ќе помине низ секоја ќелија одизбраната колона. После тоа, ќе ја пренесеме вредноста на секоја ќелија во функцијата CSng за да ја претвориме од текст во број.

📌 Чекори

1. Прво, притиснете ALT+F11 на тастатурата за да го отворите VBA уредникот .

2. Кликнете на Вметни > Модул .

3. Потоа, напишете го следниов код:

2970

4. Зачувајте ја датотеката.

5. Потоа, притиснете ALT+F8 . Ќе го отвори полето за дијалог Macro .

6. Изберете ConvertUsingLoop и кликнете на Стартувај.

Како што можете да видите, го конвертиравме нашиот текст во броеви користејќи го овој VBA код .

Слични читања

• Групно конвертирај текст во број во Excel (6 начини)
• Како да конвертирате низа во долга користејќи VBA во Excel (3 начини)
• Конвертирате низа во двојно во Excel VBA (5 методи)
• Како за да се поправи грешката со конвертирање во број во Excel (6 методи)

3. Конвертирај текст во броеви за динамички опсези во Excel

Сега, претходните методи беа за избраните опсези . Тоа значи дека треба рачно да го внесете вашиот опсег на ќелии во кодот. Но, понекогаш вашата база на податоци може да биде голема. Во тие случаи, треба да го запомните опсегот на ќелии. Овој метод ќе го надмине тој проблем. Знаеме дека нашата база на податоци започнува од Ќелија B5 . Но, не знаеме каде може да заврши.

Значи, динамички го идентификуваме последниот користен ексел ред кој има податоци во него користејќи Cells(Rows.Count, "B").End(xlUp).Row . Тоаго враќа последниот непразен број на ред што го поврзуваме со „ B5:B “.

📌 Чекори

1. Прво, притиснете ALT+F11 на тастатурата за да го отворите VBA уредникот .

2. Кликнете на Вметни > Модул .

3. Потоа, напишете го следниов код:

3614

4. Зачувајте ја датотеката.

5. Потоа, притиснете ALT+F8 . Ќе го отвори полето за дијалог Macro .

6. Потоа изберете ConvertDynamicRanges и кликнете на Стартувај.

Како што можете да видите, ние сме успешни во конвертирањето на текстот во броеви со помош на VBA кодови.

💬 Работи што треба да се запаметат

✎ Еве, ја користиме колоната Б за нашата база на податоци. Ако вашите податоци се во друга колона, соодветно променете го опсегот на ќелии во VBA кодовите.

✎ VBA кодовите ќе работат само на активниот лист.

Заклучок

Како заклучок, се надевам дека ова упатство ви обезбеди корисно знаење за конвертирање на текст во број во Excel користејќи VBA кодови. Ви препорачуваме да ги научите и да ги примените сите овие упатства во вашата база на податоци. Преземете ја работната книга за вежбање и пробајте ги сами. Исто така, слободно дајте повратни информации во делот за коментари. Вашите вредни повратни информации не одржуваат мотивирани да создаваме вакви упатства. Не заборавајте да ја проверите нашата веб-локација Exceldemy.com за различни проблеми и решенија поврзани со Excel.