Secara umum, mungkin kalkulator yang akan kita buat pada kesempatan ini terbilang sudah cukup banyak beredar di dunia maya dan sifatnya online sehingga mengharuskan pengguna harus terhubung ke internet. Hal ini tentu saja menjadi salah satu kekurangannya, karena tidak semua pengguna selalu online setiap saat.

Nah, pada tutorial ini kita akan mencoba untuk membuat kalkulator konversi ukuran sebuah file secara sederhana.

Tutorial terkait lain yang bisa anda pelajari ada disini

Mengisi beberapa daftar isi ListBox dari nilai sama sekaligus
Cara membuat kalkulator hitung sederhana
Kumpulan cara mengisi ListBox dan ComboBoxSebelumnya kita sepakati dulu jenis-jenis ukuran yang sudah umum dan sama-sama kita kenal, dan kita pasti sudah tidak asing dengan beberapa satuan ukuran file di komputer seperti KiloByte (KB), MegaByte (MB), GigaByte (GB) atau pun TeraByte (TB). Satuan satuan ukuran tersebut saat ini menjadi hal yang biasa atau lumrah dan sangat familiar di telinga kita, hal ini karena satuan tersebut sudah menjadi satuan ukuran yang sering kita jumpai baik itu sebuah ukuran gambar, video, hingga sebuah ruang penyimpanan seperti flash disk, microSD hingga Hard disk drive.

Itulah 4 (empat) buah satuan ukuran file komputer yang akan kita konversi menggunakan Macro VBA Excel. Dan selanjutnya, silahkan ikuti langkah-langkah berikut untuk membuatnya.

1. Buka Aplikasi Microsoft Office Excel, dan langsung aktifkan jendela Microsoft Visual Basic Editor (VBE) dengan menggunakan tombol pintas Alt+F11
2. Setelah berada di jendela VBE, kini saatnya mendesain form kalkulator dengan cara klik menu Insert dan pilih UserForm
   
3. Selanjutnya silahkan tambahkan beberapa kontrol seperti gambar berikut ke dalam UserForm yang sudah berhasil dibuat dilangkah sebelumnya
   
   
4. Sampai langkah ini anda sudah berhasil membuat desain kalkulator konversi satuan ukuran file komputer, silahkan anda percantik tampilan sesuai dengan selera
5. Langkah selanjutnya adalah langkah inti agar kontrol-kontrol yang terdapat dalam UserForm dapat berjalan sebagaimana mestinya. Mulailah dengan klik kanan nama UserForm yang terdapat di jendela VBAProject dan pilih menu ViewCode.
   
   Selanjutnya silahkan copy kode berikut dan paste ke dalam jendela kode
   
   
   
   
   

   Private Sub UserForm_Activate()
   Dim i As Integer
   For i = 1 To 2
           Me.Controls("ComboBox" & i).List = Array("TB", "GB", "MB", "KB")
   Next i
   End Sub
   
   Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If (InStr("0123456789.", Chr(KeyAscii)) = 0) And _
   (KeyAscii <> 8) Then KeyAscii = 0
   End Sub
   
   Private Sub ComboBox1_Change()
   Select Case ComboBox1
       Case "TB"
           [a1] = 0
       Case "GB"
           [a1] = 3
       Case "MB"
           [a1] = 6
       Case "KB"
           [a1] = 9
   End Select
   End Sub
   
   Private Sub ComboBox2_Change()
   Select Case ComboBox2
       Case "TB"
           [b1] = 0
       Case "GB"
           [b1] = 3
       Case "MB"
           [b1] = 6
       Case "KB"
           [b1] = 9
   End Select
   End Sub
   
   Private Sub CommandButton1_Click()
   On Error Resume Next
   [C1] = [a1] - [b1]
   MsgBox "Hasil konversi" & vbCr & _
           Format(TextBox1, "#,##0.####") & _
           " " & ComboBox1 & " = " & _
           Format(TextBox1 / 10 ^ [C1], "#,##0.###########") & _
           " " & ComboBox2
   End Sub

6. Selesai.... silahkan uji UserForm ini dengan cara menekan tombol yang terdapat di menubar. Dan hasil akhir akan tampak seperti tampilan berikut :
   
   

Selamat....Anda sudah berhasil membuat kalkulator konversi ukuran sebuah file sederhana menggunakan kode Macro VBA Microsoft Excel. Semoga tutorial ini dapat memberikan manfaat. Jangan lupa kunjungi kami lain waktu untuk mengetahui tips dan trik Microsoft Excel lainnya. Gracias

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :