
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 sekaligusCara membuat kalkulator hitung sederhana
Kumpulan cara mengisi ListBox dan ComboBox
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.
- Buka Aplikasi Microsoft Office Excel, dan langsung aktifkan jendela Microsoft Visual Basic Editor (VBE) dengan menggunakan tombol pintas
Alt +F11 - Setelah berada di jendela VBE, kini saatnya mendesain form kalkulator dengan cara klik menu Insert dan pilih UserForm
- Selanjutnya silahkan tambahkan beberapa kontrol seperti gambar berikut ke dalam UserForm yang sudah berhasil dibuat dilangkah sebelumnya
- Sampai langkah ini anda sudah berhasil membuat desain kalkulator konversi satuan ukuran file komputer, silahkan anda percantik tampilan sesuai dengan selera
- 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
- Selesai.... silahkan uji UserForm ini dengan cara menekan tombol
yang terdapat di menubar. Dan hasil akhir akan tampak seperti tampilan berikut :
Incoming Search Terms
Membuat kalkulator dengan Microsoft Excel Formula Excel untuk konversi satuan ukuran file
Aplikasi kalkulator custom untuk merubah satuan ukuran file
Mengenal jenis-jenis satuan ukuran file komputer yang umum
Skrip Macro VBA untuk membuat aplikasi kalkulator sederhana
Terimakasih sudah membaca
Tutorial: Membuat Kalkulator Konversi Ukuran File Sederhana Menggunakan UserForm
Label: Macro VBA - Author: excelive
Tutorial: Membuat Kalkulator Konversi Ukuran File Sederhana Menggunakan UserForm
Label: Macro VBA - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :