Angka Romawi adalah sistem penomoran klasik yang masih banyak digunakan dalam penomoran bab buku, urutan film, atau dokumen formal. Excel secara default hanya menyediakan konversi angka Arab ke angka Romawi, namun tidak menyediakan fungsi bawaan untuk sebaliknya di versi lama seperti Excel 2007 dan 2010. Untungnya, ada beberapa cara untuk menyiasatinya!
Artikel ini membahas lengkap:
- Fungsi ROMAN() di semua versi Excel.
- Fungsi ARABIC() di Excel modern.
- Alternatif untuk Excel lama (2007/2010): rumus array dan VBA.
- Trik MATCH(..., ROMAN(...)) sebagai solusi ringan.
1. Mengubah Angka Arab ke Romawi: Fungsi ROMAN()
Semua versi Excel, termasuk Excel 2007, menyediakan fungsi:
=ROMAN(number, [form])
Contoh:
=ROMAN(2024)
Hasil: MMXXIV
Parameter [form] bersifat opsional dan mengatur seberapa sederhana bentuk Romawinya (dari 0 ke 4).
2. Mengubah Angka Romawi ke Angka Arab
A. Excel 2013 dan Versi Lebih Baru: Gunakan Fungsi ARABIC()
Untuk kamu yang sudah menggunakan Excel 2013 atau versi lebih baru, cukup pakai:
=ARABIC("MMXXIV")
Hasil: 2024
Fungsi ini:
- Tidak case-sensitive (mmxxiv juga berfungsi).
- Mengubah langsung angka Romawi valid menjadi angka Arab.
B. Excel 2007 dan 2010: Alternatif Pengganti ARABIC()
Excel 2007 dan 2010 tidak menyediakan fungsi ARABIC()
. Berikut adalah tiga solusi:
Solusi 1: Rumus MATCH() + ROMAN()
Rumus ini adalah cara termudah tanpa VBA:
=MATCH(A1, ROMAN(ROW($1:$3999)), 0)
Cara kerja
- ROW($1:$3999) = array angka dari 1 sampai 3999.
- ROMAN(ROW(...)) = array angka Romawi dari I sampai MMMCMXCIX.
- MATCH() mencari kecocokan nilai di A1 dan mengembalikan posisi, yang identik dengan nilai Arab-nya.
- Pastikan huruf kapital (gunakan =UPPER(A1) jika perlu).
- Harus dimasukkan sebagai rumus array (tekan Ctrl + Shift + Enter di Excel 2007/2010).
- Maksimum hanya sampai angka 3999.
- Hanya bekerja untuk format Romawi standar (hasil ROMAN()).
Contoh:
Jika A1 = "MMXXIV"
→ hasil = 2024
Catatan penting:
Solusi 2: Rumus Array Alternatif
Rumus kompleks yang bisa menangani struktur angka Romawi:
=SUMPRODUCT(LOOKUP(MID(ROMAWI,ROW(INDIRECT("1"&":"&LEN(ROMAWI))),1), {"C","D","I","L","M","V","X"}, {100,500,1,50,1000,5,10})* IF(LOOKUP(MID(ROMAWI&"I",ROW(INDIRECT("1:"&LEN(ROMAWI))),1), {"C","D","I","L","M","V","X"}, {100,500,1,50,1000,5,10})< LOOKUP(MID(ROMAWI&"I",ROW(INDIRECT("2:"&LEN(ROMAWI)+1)),1), {"C","D","I","L","M","V","X"}, {100,500,1,50,1000,5,10}),-1,1))
Ganti ROMAWI
dengan sel tempat angka Romawi berada.
Solusi 3: Menggunakan Fungsi VBA
Buka Editor VBA (Alt + F11), lalu tempelkan kode berikut:
Function RomanToArabic(Roman As String) As Long Dim Letters As Variant Dim Values As Variant Dim i As Long, Result As Long, CurrentVal As Long, NextVal As Long Letters = Array("M", "D", "C", "L", "X", "V", "I") Values = Array(1000, 500, 100, 50, 10, 5, 1) Roman = UCase(Roman) i = 1 Result = 0 Do While i ≤ Len(Roman) CurrentVal = 0 NextVal = 0 For j = 0 To UBound(Letters) If Mid(Roman, i, 1) = Letters(j) Then CurrentVal = Values(j) If i < Len(Roman) Then If Mid(Roman, i + 1, 1) = Letters(j) Then NextVal = Values(j) End If Next j If CurrentVal <NextVal Then Result = Result + (NextVal - CurrentVal) i = i + 2 Else Result = Result + CurrentVal i = i + 1 End If Loop RomanToArabic = Result End Function
Gunakan di Excel sebagai:
=RomanToArabic(A1)
Ringkasan Perbandingan
Versi Excel | Konversi Arab → Romawi | Konversi Romawi → Arab |
---|---|---|
Excel 2007 | ROMAN() | MATCH() / Rumus Array / VBA |
Excel 2010 | ROMAN() | MATCH() / Rumus Array / VBA |
Excel 2013+ | ROMAN() | ARABIC() |
Tips Tambahan
- Gunakan fungsi
=UPPER(A1)
untuk memastikan input huruf kapital. - Gunakan data validation untuk membatasi input ke angka Romawi valid.
- Gunakan ekstensi file
.xlsm
jika menggunakan VBA.
Penutup
Walaupun Excel hanya menyediakan fungsi satu arah (ROMAN()
), dengan trik sederhana seperti rumus MATCH()
, rumus array, atau bantuan VBA, kamu tetap bisa mengonversi angka Romawi ke angka Arab dengan mudah — bahkan di Excel 2007 yang paling terbatas sekalipun.
Komentar
Posting Komentar