Roma Rakamlarını Normal Sayılara Dönüştürme

Roma Rakamlarını Normal Sayılara Dönüştürme isimli kod, Excel sayfanızda seçtiğiniz alanda yer alan Roma rakamları normal rakamlara dönüştürür.

XD Destek İste
Sub convertToNumbers()
Dim rng As Range
    Selection.Value = Selection.Value
    For Each rng In Selection
        If Not WorksheetFunction.IsNonText(rng) Then
            rng.Value = WorksheetFunction.Arabic(rng)
        End If
    Next rng
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Elinizin altında Roma rakamı ile yazılmış rakamlar varsa, bunları normal rakama dönüştürmek için üstteki kodumuzu kullanabilirsiniz.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Negatif Sayıları Poztif Sayıya Çevirme
Excel Makro Modulü Silme Kodu
Dizileri İç İçe Döngüye Eklemek
Birden Çok Sütun Ekleme
Program Başlangıcı Kodları
Otomatik Sıra Numarası Ekleme
Tarih ve Saatten Saati Kaldırma
Klavyeye Makro Atama ve Çalıştırma
Excel Üzerinden Klasör Alma Kodu
Excel Menüsüne Ekleme Yapma Kodu
Aktif Hücrenin Üstüne Satır Ekleme
Grafiği Görüntü Olarak Yapıştırma
Excel Açılırken Otomatik İşlem Yaptırma
Otomatik Olarak Tarih ve Zaman Ekleme
Excel Şerit Menü Çubuğunu Gizleme
UserForm Kapatma Kodu
Sağ Tık ile Açılan Menüye Ekleme Yapma
Tek Satırı Kes Kopyala ve Yapıştır
Seçili Sütunların Sayısını Bulma
Kapanış Mesajı Ekleme
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Excel Makroları ile Klasör Silme
R1C1 Referans Stilini Etkinleştirme
Tüm Satırda İşlem Yapan Döngü
Excel Makroları ile İşlemci Bilgilerini Bulma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Tüm Sütunda İşlem Yapan Döngü
UserForm Resize Özelliği Eklemek
Aktif Hücrenin Satır Numarasını Bulma
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Tüm Boş Çalışma Sayfalarını Silme
Sütunu Kes Kopyala ve Yapıştır
Tekrarlayan Verileri Vurgulama
Sayfadaki Grafikleri Yeniden Boyutlandırma
Makro ile Hızlı Doldurma
Seçili Alanda Yinelenenleri Vurgulama
Sayıları Rastgele Karıştırmak
Sütun Genişliğini Ayarla
Giriş Kutusu ve Mesaj Yazma İşlemi
Roma Rakamlarını Normal Sayılara Dönüştürme
MsgBox ile Uyarı Çıkarma Kodu
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Seçimi Yazdırma
Hücredeki Değere Göre İşlem Yapma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Seçili Hücrelerden Boşlukları Kaldırma
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Hücre Aralığını Kes Kopyala ve Yapıştır
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Negatif sayıları yalnızca bir kez pozittif sayıya dönüştürmeniz gerekiyorsa, Excel'in Özel Yapıştır özelliğini kullanabilirsiniz. Adımları:
  1. Boş bir hücreye -1 yazın ve panoya kopyalayın. (kısayolu Ctrl + C)
  2. Pozitif sayıya dönüştürmek istediğiniz negatif sayıların olduğu aralığı seçin.
  3. Sağ tıklayıp, Özel Yapıştır -> Değerleri -> Çarp
Bu işlem neticesinde negatif sayıların pozitif olduğunu göreceksiniz.

Özel Yapıştır Değerleri Çarp
Yükleniyor...