Dalam Microsoft Excel, bekerja dengan nombor adalah yang paling biasa. Kadangkala, kita perlu memproses set data dengan jumlah nombor yang besar. Tetapi, anda mungkin mendapati diri anda berada dalam situasi di mana nombor anda kelihatan seperti teks. Atas sebab ini, anda tidak boleh menambah, menolak, membahagi, mendarab atau melakukan apa-apa jenis operasi. Ia sentiasa menunjukkan ralat apabila anda cuba melakukan ini. Dalam tutorial ini, kami akan mengajar anda cara menukar teks kepada nombor dalam Excel menggunakan kod VBA dengan contoh yang sesuai dan ilustrasi yang betul.

Muat Turun Buku Kerja Amalan

Muat turun amalan ini buku kerja

Tukar Teks kepada Nombor Menggunakan VBA.xlsm

Cara Mengenalpasti Nombor Diformat sebagai Teks

Microsoft Excel pintar cukup untuk memahami perbezaan antara Teks dan Nombor. Ia secara automatik menukarnya kepada format masing-masing. Tetapi, kadangkala ia tidak boleh berbuat demikian kerana beberapa penyalahgunaan dan salah tafsiran set data. Atas sebab itu, ia menyimpan nombor tersebut sebagai teks dalam buku kerja anda.

Lihat set data ini. Di sini, kami mempunyai beberapa nombor dalam lajur.

Walaupun kami mempunyai nombor dalam lajur, semuanya dijajar ke kiri seperti teks. Sekarang, klik mana-mana sel. Anda akan menemui kotak ini di sebelah sel.

Sekarang, tuding kursor tetikus di atas kotak. Selepas itu, anda akan melihat mesej ini.

Ia menunjukkan bahawa sel diformatkan sebagai teks. Dengan cara ini, anda boleh yakinsama ada sel diformatkan sebagai teks atau tidak.

3 Kod VBA untuk Menukar Teks kepada Nombor dalam Excel

Walaupun anda boleh menukar teks kepada nombor secara manual dengan mudah, tutorial ini adalah mengenai menukar teks kepada nombor menggunakan kod VBA. Kami mengesyorkan anda mempelajari dan menggunakan semua kaedah ini pada set data anda. Sudah tentu, ia akan berguna dalam banyak situasi.

1. Kod VBA dengan Julat.Kaedah Format Nombor untuk Menukar Teks kepada Nombor dalam Excel

Kaedah ini agak mudah dan mudah digunakan pada mana-mana set data. Apa yang anda perlu lakukan ialah memilih julat sel dan memasukkannya ke dalam kod VBA .

📌 Langkah

1. Mula-mula, tekan ALT+F11 pada papan kekunci anda untuk membuka editor VBA .

2. Klik pada Sisipkan > Modul .

3. Kemudian, taip kod berikut:

2113

4. Simpan fail.

5. Kemudian, tekan ALT+F8 . Ia akan membuka kotak dialog Makro .

6. Pilih ConvertTextToNumber dan Klik pada Jalankan.

Akhirnya, kod ini akan menukar teks kita kepada nombor.

Baca lebih lanjut: Cara Menukar Rentetan kepada Nombor dalam Excel VBA

2. Kod VBA dengan Gelung dan CSng untuk Menukar Teks kepada Nombor

Dalam kaedah ini, kami menggunakan fungsi Gelung dan CSng . Fungsi CSng pada asasnya mengambil sebarang teks sebagai hujah dan menukarkannya kepada satu nombor. Gelung kami akan melalui setiap dan setiap sellajur yang dipilih. Selepas itu, kami akan menghantar nilai setiap sel kepada fungsi CSng untuk menukarnya daripada teks kepada nombor.

📌 Langkah

1. Mula-mula, tekan ALT+F11 pada papan kekunci anda untuk membuka editor VBA .

2. Klik pada Sisipkan > Modul .

3. Kemudian, taip kod berikut:

8846

4. Simpan fail.

5. Kemudian, tekan ALT+F8 . Ia akan membuka kotak dialog Makro .

6. Pilih ConvertUsingLoop dan Klik pada Jalankan.

Seperti yang anda lihat, kami telah menukar teks kami kepada nombor menggunakan kod VBA ini .

Bacaan Serupa

• Tukar Pukal Teks kepada Nombor dalam Excel (6 Cara)
• Cara Menukar Rentetan kepada Panjang Menggunakan VBA dalam Excel (3 Cara)
• Tukar Rentetan kepada Berganda dalam Excel VBA (5 Kaedah)
• Bagaimana untuk Membetulkan Ralat Tukar kepada Nombor dalam Excel (6 Kaedah)

3. Tukar Teks kepada Nombor untuk Julat Dinamik dalam Excel

Kini, kaedah sebelumnya adalah untuk julat yang dipilih . Ini bermakna anda perlu memasukkan julat sel anda secara manual dalam kod. Tetapi kadangkala set data anda mungkin besar. Dalam kes tersebut, anda perlu mengingati julat sel. Kaedah ini akan mengatasi masalah tersebut. Kami tahu set data kami bermula dari Sel B5 . Tetapi kami tidak tahu di mana ia mungkin berakhir.

Jadi kami mengenal pasti secara dinamik baris excel terakhir digunakan yang mempunyai data di dalamnya menggunakan Cells(Rows.Count, "B").End(xlUp).Row . Iamengembalikan nombor baris bukan kosong terakhir yang kami hubungkan dengan " B5:B ".

📌 Langkah

1. Mula-mula, tekan ALT+F11 pada papan kekunci anda untuk membuka editor VBA .

2. Klik pada Sisipkan > Modul .

3. Kemudian, taip kod berikut:

7666

4. Simpan fail.

5. Kemudian, tekan ALT+F8 . Ia akan membuka kotak dialog Makro .

6. Kemudian pilih ConvertDynamicRanges dan Klik pada Jalankan.

Seperti yang anda lihat, kami berjaya menukar teks kepada nombor menggunakan Kod VBA.

💬 Perkara yang Perlu Diingat

✎ Di sini, kami menggunakan lajur B untuk set data kami. Jika data anda berada dalam lajur yang berbeza, tukar julat sel dalam kod VBA dengan sewajarnya.

✎ Kod VBA akan berfungsi hanya pada helaian aktif.

Kesimpulan

Untuk membuat kesimpulan, saya harap tutorial ini telah memberikan anda secebis pengetahuan berguna tentang menukar teks kepada nombor dalam Excel menggunakan kod VBA. Kami mengesyorkan anda mempelajari dan menggunakan semua arahan ini pada set data anda. Muat turun buku kerja latihan dan cuba sendiri. Juga, jangan ragu untuk memberi maklum balas di bahagian komen. Maklum balas berharga anda membuatkan kami terus bersemangat untuk membuat tutorial seperti ini. Jangan lupa untuk menyemak tapak web kami Exceldemy.com untuk pelbagai masalah dan penyelesaian berkaitan Excel.