Excel VBA ile Metni Sayıya Dönüştürme (Makrolarla 3 Örnek)

  • Bunu Paylaş
Hugh West

Microsoft Excel'de sayılarla çalışmak en yaygın olanıdır. Bazen, büyük miktarda sayı içeren bir veri kümesini işlememiz gerekir. Ancak, kendinizi sayılarınızın metin gibi göründüğü bir durumda bulabilirsiniz. Bu nedenle, toplama, çıkarma, bölme, çarpma veya herhangi bir işlem yapamazsınız. Bunu yapmaya çalıştığınızda her zaman bir hata gösterir. Bu eğitimde, size nasıl dönüştürüleceğini öğreteceğizkullanarak Excel'de metni sayıya dönüştürme VBA Uygun örnekler ve uygun çizimlerle kodlar.

Alıştırma Çalışma Kitabını İndirin

Bu alıştırma çalışma kitabını indirin

VBA.xlsm Kullanarak Metni Sayılara Dönüştürme

Metin Olarak Biçimlendirilmiş Sayılar Nasıl Belirlenir?

Microsoft Excel, Metin ve Sayı arasındaki farkı anlayacak kadar akıllıdır. Bunları otomatik olarak ilgili biçimlerine dönüştürür. Ancak, bazen veri kümesinin bazı yanlış kullanımları ve yanlış yorumlamaları nedeniyle bunu yapamaz. Bu nedenle, bu sayıları çalışma kitabınızda metin olarak tutar.

Bu veri kümesine bir göz atın. Burada, bir sütunda bazı sayılarımız var.

Sütunda sayılar olmasına rağmen, hepsi metin gibi sola hizalıdır. Şimdi, herhangi bir hücreye tıklayın. Hücrenin yanında bu kutuyu bulacaksınız.

Şimdi, fare imlecini kutunun üzerine getirin. Bundan sonra, bu mesajı göreceksiniz.

Hücrenin metin olarak biçimlendirildiğini gösterir. Bu şekilde, hücrelerin metin olarak biçimlendirilip biçimlendirilmediğinden emin olabilirsiniz.

Excel'de Metni Sayıya Dönüştürmek için 3 VBA Kodu

Metni sayılara manuel olarak kolayca dönüştürebilseniz de, bu eğitim tamamen VBA kodlarını kullanarak metni sayıya dönüştürmekle ilgilidir. Tüm bu yöntemleri öğrenmenizi ve veri kümenize uygulamanızı öneririz. Şüphesiz, birçok durumda kullanışlı olacaktır.

1. Excel'de Metni Sayıya Dönüştürmek için Range.NumberFormat Yöntemi ile VBA Kodu

Bu yöntem oldukça basittir ve herhangi bir veri kümesinde kullanımı kolaydır. Tek yapmanız gereken hücre aralığını seçmek ve bunu VBA kodu .

📌 Adımlar

1. İlk olarak, tuşuna basın ALT+F11 açmak için klavyenizdeki VBA düzenleyici .

2. üzerine tıklayın Insert> Modül .

3. Ardından, aşağıdaki kodu yazın:

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

4. Dosyayı kaydedin.

5. Ardından, tuşuna basın ALT+F8 açacaktır. Makro iletişim kutusu.

6. Seçiniz ConvertTextToNumber ve üzerine tıklayın Koş.

Sonunda, bu kod metnimizi sayılara dönüştürecektir.

Daha fazlasını okuyun: Excel VBA'da Dizeyi Sayıya Dönüştürme

2. Metni Sayıya Dönüştürmek için Döngü ve CSng ile VBA Kodu

Bu yöntemde şunları kullanıyoruz Döngü ve CSng fonksiyonlar. CSng fonksiyonu temel olarak herhangi bir metni argüman olarak alır ve tek bir sayıya dönüştürür. Döngümüz seçilen sütunun her bir hücresinden geçecektir. Bundan sonra, her hücrenin değerini CSng fonksiyonunu kullanarak metinden sayıya dönüştürün.

📌 Adımlar

1. İlk olarak, tuşuna basın ALT+F11 açmak için klavyenizdeki VBA düzenleyici .

2. üzerine tıklayın Insert> Modül .

3. Ardından, aşağıdaki kodu yazın:

 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. Dosyayı kaydedin.

5. Ardından, tuşuna basın ALT+F8 açacaktır. Makro iletişim kutusu.

6. Seçiniz ConvertUsingLoop ve üzerine tıklayın Koş.

Gördüğünüz gibi, bu VBA kodunu kullanarak metnimizi sayılara dönüştürdük.

Benzer Okumalar

  • Excel'de Metni Sayıya Toplu Dönüştürme (6 Yol)
  • Excel'de VBA Kullanarak Dizeyi Uzun'a Dönüştürme (3 Yol)
  • Excel VBA'da Dizeyi Çift Kişiye Dönüştürme (5 Yöntem)
  • Excel'de Sayıya Dönüştürme Hatası Nasıl Giderilir (6 Yöntem)

3. Excel'de Dinamik Aralıklar için Metni Sayılara Dönüştürme

Şimdi, önceki yöntemler seçilen aralıklar içindi. Bu, hücre aralığınızı koda manuel olarak girmeniz gerektiği anlamına gelir. Ancak bazen veri kümeniz büyük olabilir. Bu gibi durumlarda, hücre aralığını hatırlamanız gerekir. Bu yöntem bu sorunun üstesinden gelecektir. Veri kümemizin şuradan başladığını biliyoruz Hücre B5 Ama nerede biteceğini bilmiyoruz.

Böylece, içinde veri bulunan son kullanılan excel satırını dinamik olarak tanımlarız Cells(Rows.Count, "B").End(xlUp).Row . ile birleştirdiğimiz boş olmayan son satır numarasını döndürür. B5:B ".

📌 Adımlar

1. İlk olarak, tuşuna basın ALT+F11 açmak için klavyenizdeki VBA düzenleyici .

2. üzerine tıklayın Ekleme > Modül .

3. Ardından, aşağıdaki kodu yazın:

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

4. Dosyayı kaydedin.

5. Ardından, tuşuna basın ALT+F8 açacaktır. Makro iletişim kutusu.

6. Ardından şunları seçin ConvertDynamicRanges ve üzerine tıklayın Koş.

Gördüğünüz gibi, VBA kodlarını kullanarak metni sayılara dönüştürmeyi başardık.

💬 Unutulmaması Gerekenler

✎ Burada, veri kümemiz için B sütununu kullanıyoruz. Verileriniz farklı bir sütundaysa, VBA kodlarındaki hücre aralığını buna göre değiştirin.

✎ VBA kodları yalnızca etkin sayfada çalışacaktır.

Sonuç

Sonuç olarak, umarım bu eğitim size VBA kodlarını kullanarak Excel'de metni sayıya dönüştürme hakkında yararlı bilgiler sağlamıştır. Tüm bu talimatları öğrenmenizi ve veri kümenize uygulamanızı öneririz. Alıştırma çalışma kitabını indirin ve bunları kendiniz deneyin. Ayrıca, yorum bölümünde geri bildirimde bulunmaktan çekinmeyin. Değerli geri bildirimleriniz bizi bu gibi eğitimler oluşturmak için motive ediyor.Web sitemizi kontrol etmeyi unutmayın Exceldemy.com Excel ile ilgili çeşitli sorunlar ve çözümler için.

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.