Di Microsoft Excel, bekerja dengan angka adalah hal yang paling umum. Terkadang, kita harus memproses dataset dengan jumlah angka yang besar. Tetapi, Anda mungkin menemukan diri Anda dalam situasi di mana angka Anda terlihat seperti teks. Karena alasan ini, Anda tidak dapat menambah, mengurangi, membagi, mengalikan, atau melakukan operasi apa pun. Itu selalu menunjukkan kesalahan saat Anda mencoba melakukan ini. Dalam tutorial ini, kami akan mengajari Anda cara mengonversi angka menjadi teks.teks ke angka di Excel menggunakan VBA kode dengan contoh-contoh yang sesuai dan ilustrasi yang tepat.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini

Konversi Teks ke Angka Menggunakan VBA.xlsm

Cara Mengidentifikasi Angka yang Diformat sebagai Teks

Microsoft Excel cukup pintar untuk memahami perbedaan antara Teks dan Angka. Secara otomatis mengubahnya ke format masing-masing. Namun, terkadang tidak dapat melakukannya karena beberapa penyalahgunaan dan salah tafsir dataset. Untuk alasan itu, ia menyimpan angka-angka itu sebagai teks di buku kerja Anda.

Lihatlah dataset ini. Di sini, kita memiliki beberapa angka dalam sebuah kolom.

Meskipun kita memiliki angka di kolom, semuanya rata kiri seperti teks. Sekarang, klik sel mana saja. Anda akan menemukan kotak ini di samping sel.

Sekarang, arahkan kursor mouse ke atas kotak. Setelah itu, Anda akan melihat pesan ini.

Ini menunjukkan bahwa sel diformat sebagai teks. Dengan cara ini, Anda bisa yakin apakah sel diformat sebagai teks atau tidak.

3 Kode VBA untuk Mengonversi Teks menjadi Angka di Excel

Meskipun Anda dapat dengan mudah mengonversi teks ke angka secara manual, tutorial ini adalah tentang mengonversi teks ke angka menggunakan kode VBA. Kami sarankan Anda mempelajari dan menerapkan semua metode ini ke dataset Anda. Tentunya, ini akan berguna dalam banyak situasi.

1. Kode VBA dengan Metode Range.NumberFormat untuk Mengonversi Teks menjadi Angka di Excel

Metode ini cukup sederhana dan mudah digunakan pada dataset apa pun. Yang harus Anda lakukan adalah memilih rentang sel dan memasukkannya ke dalam Kode VBA .

📌 Langkah-langkah

1. Pertama, tekan ALT+F11 pada keyboard Anda untuk membuka Editor VBA .

2. Klik pada Sisipkan> Modul .

3. Kemudian, ketikkan kode berikut ini:

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

4. Simpan file.

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

6. Pilih Konversi Teks Menjadi Angka dan Klik pada Lari.

Pada akhirnya, kode ini akan mengubah teks kita menjadi angka.

Baca selengkapnya: Cara Mengonversi String ke Angka di Excel VBA

2. Kode VBA dengan Loop dan CSng untuk Mengubah Teks menjadi Angka

Dalam metode ini, kita menggunakan Lingkaran dan CSng fungsi. CSng pada dasarnya mengambil teks apa pun sebagai argumen dan mengubahnya menjadi satu angka. Perulangan kita akan melewati setiap sel dari kolom yang dipilih. Setelah itu, kita akan meneruskan setiap nilai sel ke CSng untuk mengubahnya dari teks ke angka.

📌 Langkah-langkah

1. Pertama, tekan ALT+F11 pada keyboard Anda untuk membuka Editor VBA .

2. Klik pada Masukkan> Modul .

3. Kemudian, ketikkan kode berikut ini:

 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. Simpan file.

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

6. Pilih KonversiMenggunakanLoop dan Klik pada Lari.

Seperti yang Anda lihat, kami telah mengonversi teks kami menjadi angka menggunakan kode VBA ini.

Bacaan Serupa

• Konversi Teks Massal ke Angka di Excel (6 Cara)
• Cara Mengonversi String ke Panjang Menggunakan VBA di Excel (3 Cara)
• Ubah String menjadi Ganda di Excel VBA (5 Metode)
• Cara Memperbaiki Kesalahan Konversi ke Angka di Excel (6 Metode)

3. Ubah Teks menjadi Angka untuk Rentang Dinamis di Excel

Sekarang, metode sebelumnya adalah untuk rentang yang dipilih. Itu berarti Anda harus memasukkan rentang sel Anda secara manual ke dalam kode. Namun terkadang dataset Anda mungkin besar. Dalam kasus tersebut, Anda harus mengingat rentang sel. Metode ini akan mengatasi masalah itu. Kita tahu dataset kita dimulai dari Sel B5 Tapi kita tidak tahu di mana itu mungkin selesai.

Jadi kita secara dinamis mengidentifikasi baris excel yang terakhir digunakan yang memiliki data di dalamnya menggunakan Cells(Rows.Count, "B").End(xlUp).Row Ini mengembalikan nomor baris terakhir yang tidak kosong yang kita gabungkan dengan " B5:B ".

📌 Langkah-langkah

1. Pertama, tekan ALT+F11 pada keyboard Anda untuk membuka Editor VBA .

2. Klik pada Sisipkan > Modul .

3. Kemudian, ketikkan kode berikut ini:

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

4. Simpan file.

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

6. Kemudian pilih ConvertDynamicRanges dan Klik pada Lari.

Seperti yang Anda lihat, kita berhasil mengubah teks menjadi angka menggunakan kode VBA.

💬 Hal-hal yang Perlu Diingat

✎ Di sini, kita menggunakan kolom B untuk dataset kita. Jika data Anda berada di kolom yang berbeda, ubah rentang sel dalam kode VBA yang sesuai.

✎ Kode VBA hanya akan berfungsi pada lembar aktif.

Kesimpulan

Sebagai penutup, saya harap tutorial ini telah memberi Anda sepotong pengetahuan yang berguna tentang mengubah teks menjadi angka di Excel menggunakan kode VBA. Kami menyarankan Anda mempelajari dan menerapkan semua instruksi ini ke dataset Anda. Unduh buku kerja latihan dan coba ini sendiri. Juga, jangan ragu untuk memberikan umpan balik di bagian komentar. Umpan balik Anda yang berharga membuat kami termotivasi untuk membuat tutorial seperti ini.Jangan lupa untuk memeriksa situs web kami Exceldemy.com untuk berbagai masalah dan solusi terkait Excel.