• Membuat Kalkulator Konversi Ukuran File Sederhana Menggunakan UserForm

    kalkulator konversi ukuran file 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.
    Baca 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 ComboBox
    Sebelumnya 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
      Insert userform
    3. Selanjutnya silahkan tambahkan beberapa kontrol seperti gambar berikut ke dalam UserForm yang sudah berhasil dibuat dilangkah sebelumnya
      desain kalkulator konversi ukuran file
    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.
      Viewcode UserForm
      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 :
      kalkulator konversi ukuran file

    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

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger