Angka Romawi adalah salah satu cara untuk menulis sistem angka yang dipakai oleh bangsa Romawi kuno. Tidak hanya digunakan pada zaman dahulu, angka Romawi masih sering digunakan hingga saat ini pada berbagai konteks seperti dalam penomoran bab pada suatu buku atau nomor halaman pada sebuah dokumen. Dalam artikel ini, akan dibahas bagaimana cara membuat angka Romawi di Excel dan Microsoft Word.
Membuat Angka Romawi di Excel
Secara default, Excel tidak memiliki fungsi untuk mengkonversi angka biasa menjadi angka Romawi. Namun, kita bisa membuat script VBA untuk mengonversi angka biasa menjadi angka Romawi. Berikut ini adalah langkah-langkah untuk membuat script VBA tersebut:
- Buka file Excel yang ingin Anda gunakan untuk menambahkan fungsi angka Romawi.
- Tekan tombol “Alt + F11” untuk membuka kode editor VBA.
- Pilih “Insert” → “Module”, kemudian masukkan kode berikut ini:
Function ToRoman(Num As Integer) As String
Dim sRoman As String
If Num < 1 Or Num > 3999 Then
ToRoman = "Input value out of range"
Else
While Num >= 1000
sRoman = sRoman & "M"
Num = Num - 1000
Wend
If Num >= 900 Then
sRoman = sRoman & "CM"
Num = Num - 900
ElseIf Num >= 500 Then
sRoman = sRoman & "D"
Num = Num - 500
ElseIf Num >= 400 Then
sRoman = sRoman & "CD"
Num = Num - 400
End If
While Num >= 100
sRoman = sRoman & "C"
Num = Num - 100
Wend
If Num >= 90 Then
sRoman = sRoman & "XC"
Num = Num - 90
ElseIf Num >= 50 Then
sRoman = sRoman & "L"
Num = Num - 50
ElseIf Num >= 40 Then
sRoman = sRoman & "XL"
Num = Num - 40
End If
While Num >= 10
sRoman = sRoman & "X"
Num = Num - 10
Wend
If Num = 9 Then
sRoman = sRoman & "IX"
Num = Num - 9
ElseIf Num >= 5 Then
sRoman = sRoman & "V"
Num = Num - 5
ElseIf Num = 4 Then
sRoman = sRoman & "IV"
Num = Num - 4
End If
While Num >= 1
sRoman = sRoman & "I"
Num = Num - 1
Wend
ToRoman = sRoman
End If
End Function- Simpan kode tersebut dan tutup editor VBA.
- Kembali ke Excel, pada baris yang ingin Anda ubah menjadi angka Romawi, tuliskan formula berikut:
=ToRoman(A1)Dalam formula ini, “A1” adalah sel yang berisi angka biasa yang ingin Anda ubah menjadi angka Romawi. Kemudian tekan “Enter” dan hasilnya akan keluar di sel tersebut.
Membuat Angka Romawi di Microsoft Word
Seperti Excel, Microsoft Word juga tidak memiliki fungsi bawaan untuk membuat angka Romawi. Namun, kita bisa menggunakan pola penomoran kustom untuk membuat angka Romawi pada halaman dokumen kita. Berikut ini adalah langkah-langkah untuk membuat angka Romawi pada halaman dokumen Word:
- Buka file Word yang ingin Anda gunakan untuk menambahkan angka Romawi.
- Pilih baris teks pada dokumen yang ingin Anda tambahkan penomoran angka Romawinya.
- Pilih tab “Home” di Ribbon, lalu pilih “Numbering” pada grup “Paragraph”.
- Pilih “Define New Number Format” pada bagian paling bawah menu drop-down.
- Pada jendela “Define New Number Format”, pilih “Roman Numerals” pada tipe angka yang ingin Anda gunakan.
- Kemudian, atur format angkanya: apakah di awal dicetak dalam huruf besar atau tidak, bagaimana penomorannya, dan sebagainya.
- Setelah selesai mengatur format, klik “OK”, kemudian pilih nomor format yang baru Anda buat.
- Tekan tombol “OK” lagi untuk menutup jendela “Define New Number Format”.
- Nomor penomoran angka Romawi akan muncul pada baris teks yang Anda pilih pada langkah kedua.
Dengan cara ini, Anda bisa menambahkan angka Romawi pada dokumen Word Anda dengan mudah.
FAQ
Bagaimana jika saya ingin mengonversi angka Romawi menjadi angka biasa di Excel?
Anda juga bisa membuat script VBA untuk mengonversi angka Romawi menjadi angka biasa. Berikut ini adalah contoh kode VBA untuk mengonversi angka Romawi menjadi angka biasa:
Function ToArabic(str As String) As Integer
Dim arrTrans(15) As Integer
Dim arrNum(15) As Integer
Dim idx As Integer
Dim i As Integer
arrTrans(1) = 1000: arrTrans(2) = 900: arrTrans(3) = 500:
arrTrans(4) = 400: arrTrans(5) = 100: arrTrans(6) = 90:
arrTrans(7) = 50: arrTrans(8) = 40: arrTrans(9) = 10:
arrTrans(10) = 9: arrTrans(11) = 5: arrTrans(12) = 4:
arrTrans(13) = 1: arrTrans(14) = 5000: arrTrans(15) = 10000
arrNum(1) = "M": arrNum(2) = "CM": arrNum(3) = "D":
arrNum(4) = "CD": arrNum(5) = "C": arrNum(6) = "XC":
arrNum(7) = "L": arrNum(8) = "XL": arrNum(9) = "X":
arrNum(10) = "IX": arrNum(11) = "V": arrNum(12) = "IV":
arrNum(13) = "I": arrNum(14) = "N": arrNum(15) = "N"
ToArabic = 0
Do While Len(str) > 0
For i = 1 To 15
If Left(str, Len(arrNum(i))) = arrNum(i) Then
idx = i
Exit For
End If
Next i
If idx > 13 Then
ToArabic = "Invalid Input"
Exit Do
End If
If idx > 12 Then
ToArabic = ToArabic + arrTrans(idx)
Else
ToArabic = ToArabic + arrTrans(idx)
str = Right(str, Len(str) - Len(arrNum(idx)))
End If
Loop
End FunctionSama seperti sebelumnya, Anda perlu memasukkan kode tersebut ke dalam editor VBA Excel, kemudian membuat formula berikut pada sel yang ingin Anda ubah menjadi angka biasa:
=ToArabic(A1)Formula ini akan mengonversi angka Romawi pada sel “A1” menjadi angka biasa.
Apakah ada aplikasi lain yang bisa digunakan untuk membuat angka Romawi dengan mudah?
Ya, ada banyak aplikasi atau tool online yang bisa digunakan untuk mengonversi angka biasa menjadi angka Romawi dan sebaliknya. Salah satu contoh yang bisa Anda gunakan adalah Roman Numerals Converter atau Roman Numerals Converter.
Video Tutorial: Cara Membuat Angka Romawi di Excel
Berikut ini adalah video tutorial yang bisa Anda gunakan sebagai panduan untuk membuat angka Romawi di Excel:
Kesimpulan
Membuat angka Romawi di Excel dan Microsoft Word bisa dilakukan dengan sedikit trik. Di Excel, kita bisa membuat script VBA untuk mengonversi angka biasa menjadi angka Romawi, sedangkan di Word kita bisa menggunakan pola penomoran kustom untuk menambahkan angka Romawi pada dokumen. Selain itu, ada juga aplikasi dan tool online yang bisa digunakan untuk mengonversi angka Romawi dengan mudah. Semoga artikel ini bermanfaat bagi Anda yang sedang mempelajari tentang angka Romawi.
