Fungsi Pembilang Di Microsoft Excel

Pembilang, ini sering kita jumpai pada kuitansi pembayaran, nota dan sebagainya. Dan sebetulnya Microsoft Excel dengan kemampuan makro-nya mampu untuk membuat fungsi seperti itu, contoh: Angka 100.000 akan diterjemahkan menjadi (Seratus Ribu Rupiah) nah supaya bisa membuat seperti itu Berikut adalah langkah-langkah untuk membuat fungsi Pembilang

1. Bukalah program Microsoft Excel
2. Klik menu Tool, Macro, Security
3. Pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
4. Buka kembali program Microsoft Excel-nya
5. Buka menu Tool > Macro > Visual Basic Editor atau bisa langsung menekan tombol Alt+F11
   
   

   
   

6. Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
7. Maka akan muncul menu, Buatlah sebuah modul dengan menekan menu tersebut pilihlah Insert > Module
8. Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 – Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.

Option Explicit

Public

Function Terbilang(n As Long) As String ‘max 2.147.483.647
Dim satuan As Variant
On Error GoTo terbilang_error
Satuan=Array(”",”Satu”,”Dua”,”Tiga”,”Empat”,”Lima”,”Enam”, _
“Tujuh”,”Delapan”,”Sembilan”,”Sepuluh”,”Sebelas”)
Select Case n
Case 0 to 11
Terbilang = ” ” + satuan(Fix(n))
Case 12 To 19
Terbilang = Terbilang(n Mod 10) + ” Belas”
Case 20 To 99
Terbilang = Terbilang(Fix(n/10)) + ” Puluh” + Terbilang(n Mod 10)
Case 100 To 199
Terbilang = ” Seratus” + Terbilang(n - 100)
Case 200 To 999
Terbilang = Terbilang(Fix(n / 100)) + ” Ratus” + Terbilang(n Mod 100)
Case 1000 To 1999
Terbilang = ” Seribu” + Terbilang(n - 1000)
Case 2000 To 999999
Terbilang = Terbilang(Fix(n / 1000)) + ” Ribu” + Terbilang(n Mod 1000)
Case 1000000 To 999999999
Terbilang = Terbilang(Fix(n / 1000000)) + ” Juta” + Terbilang(n Mod 1000000)
Case Else
Terbilang = Terbilang(Fix(n / 1000000000)) + ” Milyar” + _
Terbilang(n Mod 1000000000)
End Select
Exit Function

terbilang_error:
MsgBox Err.Description, vbCritical, “^_^Terbilang Error”
End Function

Semoga berhasil...

Fitur Dalam Sistem Informasi Akademik

Pengolahan Data 

• Jurusan dan Program studi
• Data Dosen, Mahasiswa dan Alumni
• Data Mata Kuliah dan Kurikulum
• Data Dosen Pengajar Mata Kuliah
• Data Komponen Nilai Mata Kuliah
• Data Nilai Mahasiswa
• KHS dan KRS Online
• Transkrip Nilai
• Semester Pendek
• Konversi Nilai Mata Kuliah
• Keuangan Mahasiswa
  

• Bahan Kuliah dan Tugas Kuliah
• Back up Database
• Dan data penunjang lainnya

 

Advanced

• Data Referensi DIKTI
• Migrasi Data ke Laporan EPSBED (SK-034 DIKTI)
• Migrasi Data ke Laporan SK-108 DIKTI

Sekilah Tentang Sistem Informasi Akademik

TENTANG SISTEM INFORMASI AKADEMIK

Sistem Informasi merupakan suatu sistem didalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian, mendukung operasi, bersifat manajerial dan kegiatan strategis dari suatu organisasi yang menyediakan pihak luar tertentu dengan laporan-laporan yang diperlukan. Tentunya sistem ini menghasilkan informasi-informasi yang dibutuhkan oleh pihak-pihak yang terkait.

Sistem Informasi Akademik pada suatu perguruan tinggi  merupakan tiang utama dalam mengatur segala hal yang berkaitan dengan penyelenggaraan perkuliahan maupun hal-hal lainnya. Sistem ini secara khusus dirancang untuk memenuhi kebutuhan Perguruan Tinggi yang menginginkan layanan pendidikan yang terkomputerisasi untuk meningkatkan kinerja, kualitas layanan, daya saing serta kualitas SDM yang dihasilkannya. Pengembangan Sistem Informasi Akademik dilakukan secara berkesinambungan dan intensif, mengikuti perkembangan teknologi dan kebutuhan mendasar perguruan

tinggi dapat meningkatkan kemampuan Sistem Informasi Akademik.

Sebuah Sistem informasi akademik yang baik, mampu menjalankan semua hal yang berkaitan dengan penyelenggaraan perkuliahan maupun hal-hal spesifik lainnya. Segala hal yang berhubungan dengan urusan kampus dan perkuliahan dapat diselesaikan dengan hanya koneksi ke internet dengan menjalankan sIstem informasi, sehingga dapat memudahkan mahasiswa, dosen, dan staf kampus untuk mengolah data atau mendapatkan informasi yang dibutuhkan.