Home / vba excel

4 JENIS DESIMAL TEXTBOX USERFORM EXCEL

Post a Comment
#VBA Excel Desimal TextBox Pada Userform Excel
#4 Jenis Desimal TextBox Pada Userform Excel



Desimal TextBox Pada Userform biasanya digunakan pada sebuah aplikasi yang berhubungan dengan keuangan seperti aplikasi kasir, aplikasi gudang, aplikasi kwitansi, aplikasi BRILink, aplikasi konter dan lain sebagainya.

Desimal angka pada TextBox di Userform Excel memang sangat sering digunakan untuk mempermudah pengguna dalam mengetik nominal supaya tidak keliru, dan berikut 4 jenis kode macro desimal textbox pada userform excel.

4 Jenis Kode Macro Desimal Angka Pada TextBox Userform Excel


  • Kode macro dibawah ini untuk mendesimalkan angka pada textbox menjadi format Rp 100.000
    • Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")
    End Sub
  • Kode macro dibawah ini untuk mendesimalkan angka pada textbox menjadi format 100.000
    • Private Sub TextBox2_Change()
    TextBox2 = Format(TextBox2 * 1, "#,##0")
    End Sub
  • Kode macro dibawah ini untuk mendesimalkan angka pada textbox menjadi format Rp 100,000
    • Private Sub TextBox3_Change()
    TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")
    End Sub
  • Kode macro dibawah ini untuk mendesimalkan angka pada textbox menjadi format 100,000
    • Private Sub TextBox4_Change()
    TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")
    End Sub
    Baca Juga : VBA Excel TextBox Harus Angka

    LANGKAH-LANGKAH FORMAT DESIMAL TEXTBOX PADA USERFORM EXCEL


    1. Buka microsoft excel
    2. Tekan Alt+F11 masuk ke jendela VBA atau dengan cara Menu Developer >> Visual Basic
    3. Buatlah 1 buah userform dan 4 buah textbox
    4. Klik 2x textbox 1
    5. Copy Kode macro dibawah ini
      6. Private Sub TextBox1_Change()
      TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")
      End Sub

      Private Sub TextBox2_Change()
      TextBox2 = Format(TextBox2 * 1, "#,##0")
      End Sub

      Private Sub TextBox3_Change()
      TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")
      End Sub

      Private Sub TextBox4_Change()
      TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")
      End Sub
    6. Pastekan ke dalam textbox tersebut, sehingga menjadi seperti gambar dibawha ini
    7. Untuk mencobanya silahkan tekan F5 atau klik tools RUN
    8. Hasilnya akan seperti gambar paling atas


    Bagaimana Cara Hack Password VBA ?


    Hubungi kami di no wa : 081359048438 atau email : aplikasisyaref@gmail.com

    Buka Jasa dan Produk :
    • Tools Bobol VBA Excel (50-100rb)
    • 1500 file belajar excel (100rb) dari pada cari digoogle lama, mending beli (bonusnya : 10 APK jadi, Bobol Worksheet dan Workbook, Masih banyak lagi)
    • IDM Pro, PDF Pro, SMADAV Pro, OS Win7 dan 10 (32bit dan 64bit) + Driver Pack dan masih banyak lagi (harga custom)
    • Jasa pengerjaan EMIS dan raport ARD (50rb)
    • Order APK excel (harga custom)
    • Jasa bobol password VBA Excel (15-45rb)


    "Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

    Jabat Erat@Hak Cipta 2015

    Post a Comment for "4 JENIS DESIMAL TEXTBOX USERFORM EXCEL"

    Post a Comment