CARA MEMBUAT ANGKA OTOMATIS DI MICROSOFT EXCEL

Ketika berurusan dengan angka di Excel, seringkali kita memerlukan fitur untuk membuat urutan angka secara otomatis. Untuk membuat angka tersebut lebih mudah, terdapat beberapa trik yang bisa digunakan. Berikut ini adalah beberapa cara membuat urutan angka otomatis di Excel.

Cara Membuat Titik Pada Angka Di Excel Secara Otomatis

Salah satu fitur yang sering digunakan pada Excel adalah membuat titik pada angka. Dalam membuat laporan keuangan atau dokumen lainnya, kita sering memerlukan format angka dengan separator ribuan berupa titik. Berikut ini adalah cara membuat titik pada angka secara otomatis di Excel:

1. Buatlah kolom baru di sebelah kanan data yang akan kita pisahkan dengan titik.
2. Tulislah formula berikut ini pada sel pertama kolom baru yang telah dibuat:

=TEXT(D14,"#,###")

Perintah di atas akan mengambil angka pada sel D14 dan memformatnya dengan tanda koma untuk ribuan. Selanjutnya, hasil format tersebut akan disimpan sebagai teks, sehingga angkanya tidak berubah. Kita juga dapat mengubah angka sel yang digunakan sesuai dengan kebutuhan

3. Salin rumus tersebut ke sel lain pada kolom yang baru saja dibuat.

Cara Membuat Urutan Angka Otomatis di Excel

Fitur pembuatan urutan angka otomatis di Excel sangat penting dalam pengolahan data. Cara membuatnya juga sangat mudah, cukup dengan melakukan beberapa langkah berikut ini:

1. Tulis angka awal pada sel pertama,
2. Klik dan tahan kursor pada pojok kanan bawah sel yang sudah diisi dengan angka tersebut,
3. Tarik kursor ke bawah sel lain yang diinginkan. Excel akan membuat urutan angka otomatis berdasarkan increment yang terjadi di antara sel-sel tersebut.

Cara Membuat Angka Menjadi Huruf

Selain membuat urutan angka, kita juga memerlukan fitur untuk mengubah angka menjadi huruf. Pada Excel, cara ini bisa dilakukan dengan menggunakan rumus tertentu. Berikut ini adalah cara membuat angka menjadi huruf di Excel:

1. Buka Excel pada perangkat Anda, Kemudian pada baris satu, ketik “Teks” pada sel A1, sementara pada sel B1 ketik angka yang ingin Anda ubah menjadi huruf, Misalnya 128;
2. Pada sel C1 ketik rumus yang berisi pembuatan rumus untuk mengubah angka menjadi huruf:
   =IF(B1<0,"Minus ","")&TEXT(ABS(B1),"#.##0")&IF(AND(MID(TEXT(B1,"#.##0"),FIND(".0",TEXT(B1,"#.##0"))+1,1)<>"0",LEN(TEXT(B1,"#.##0"))-FIND(".",TEXT(B1,"#.##0"))>1)," "," and ")&IFERROR(RIGHT("Hundred Thousand Million Billion Trillion",((LEN(B1)-1)\\3\*3)+3),"")&IFERROR(MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ",((LEN(B1)-1)\\3)-1,1)&" Thousand ","")&IFERROR(RIGHT("ABCDEFGHIJKLMNOPQRSTUVWXYZ",(LEN(B1)-1)\\3),""),
3. Dimana perbedaan angka akan diubah dan disimpan dalam huruf pada sel C1;
4. Ketik tanda koma pada akhir rumus dan pilih peringatan error yang muncul dan pilih remove errors;
5. Kemudian tekan enter untuk menyimpan dan menampilkan output di dalam sel C1.

Cara Buat Terbilang Otomatis Di Excel

Terbilang dalam pengolahan data sangat penting agar mudah dimengerti dan tidak salah dalam penginputan data. Untuk memudahkan dalam pembuatan terbilang otomatis excel, bisa dilakukan dengan beberapa langkah di bawah ini:

1. Buka workbook yang ingin Anda tambahkan terbilang;
2. Tambahkan modul untuk kodenya dengan cara klik Insert pada menu bar di Visual Basic dan pilih Module;
3. Ketikkan kod di bawah ini pada Modul yang telah dibuat:

Function convert_number_to_words(ByVal numb As Long) As String
'Converted amount in figures to word
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
numb = Trim(Str(numb))
' Position of decimal place 0 if none.
DecimalPlace = InStr(numb, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(numb, DecimalPlace + 1) & _
"00", 2))
numb = Trim(Left(numb, DecimalPlace - 1))
End If
Count = 1
Do While numb <> ""
Temp = GetHundreds(Right(numb, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(numb) > 3 Then
numb = Left(numb, Len(numb) - 3)
Else
numb = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No "
Case "One"
Dollars = "One "
Case Else
Dollars = Dollars
End Select
Select Case Cents
Case ""
Cents = " "
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
convert_number_to_words = Dollars & Cents
End Function

Private Function GetHundreds(ByVal MyNumber)
' Used by function ConvertNumberToWords to get
' hundreds place.
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Private Function GetTens(TensText)
' Used by function ConvertNumberToWords to get
' tens place.
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

Private Function GetDigit(Digit)
' Used by function ConvertNumberToWords to get
' ones place.
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

4. Selanjutnya buat Modul baru untuk tampilan hasil terbilang dan ketik kod di bawah ini pada modul baru:

Function Terbilang(rupiah As Long) As String
Terbilang = convert_number_to_words(rupiah) & " Rupiah"
End Function

5. Setelah itu, terbilang sudah bisa digunakan dengan mengetikkan formula =Terbilang(A1) pada kolom baru yang Anda tambahkan. Dimana pada kolom A sel 1, contoh angka yang akan diubah ke terbilang.

FAQ

Apa itu Excel?

Excel merupakan sebuah aplikasi penghitungan spreadsheet. Excel digunakan sebagai alat bantu dalam pengolahan data dan angka yang efektif dan efisien. Aplikasi ini sangat berguna untuk seberapa banyak diolah dalam proses perencanaan, pengelolaan keuangan, dan penyajian informasi.

Apa Manfaat dari Penggunaan Excel?

Manfaat dari penggunaan Excel salah satunya adalah mempercepat proses pengolahan data dan mampu menampung dan mengolah data dalam jumlah besar dengan cepat dan akurat. Selain itu dengan excel, kita juga bisa melakukan analisis, visualisasi, dan presentasi data dengan berbagai grafik dan table agar lebih mudah dipahami.