VBA EXCEL DESIMAL TEXTBOX

#Cara Mendesimalkan Textbox Di Userform Excel #VBA Excel Desimal Textbox Excel

VBA EXCEL PENGATURAN DESIMAL PADA TEXTBOX EXCEL


Untuk membuat angka di textbox userform menjadi desimal, Anda perlu menaruh scrip kode macro pada textbox itu sendiri.

Biasanya ini digunakan untuk administrasi seperti aplikasi kasir, bendahara, gudang, BRILink dan tau lainnya yang bersangkutan dengan keuangan.

MACAM-MACAM DESIMAL TEXTBOX EXCEL


Jenis TextBox Desimal Ke 1


Kode ini menjadikan textbox menjadi format Rp. 250.000

TextBox1.Value = Format(TextBox1.Value, "Rp #,##0")

Jenis TextBox Desimal Ke 2


Kode ini menjadikan textbox menjadi format 250.000

TextBox2 = Format(TextBox2 * 1, "#,##0")

Jenis TextBox Desimal Ke 3


Kode ini menjadikan textbox menjadi format Rp 250,000

TextBox3 = Replace$(Format$(Replace$(TextBox3.Text, ",", vbNullString), "Rp #,###"), ".", ",")

Jenis TextBox Desimal Ke 4


Kode ini menjadikan textbox menjadi format 250,000

TextBox4 = Replace$(Format$(Replace$(TextBox4.Text, ",", vbNullString), "#,###"), ".", ",")

LANGKAH-LANGKAH DESIMAL TEXTBOX 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
  7. Pastekan ke dalam textbox tersebut, sehingga menjadi seperti gambar dibawha ini
  8. Untuk mencobanya silahkan tekan F5 atau klik tools RUN
  9. 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 "VBA EXCEL DESIMAL TEXTBOX"