Sabtu, 04 Oktober 2014

Cara Membuat Pemisah Ribuan pada TextBox Excel

Rumus Excel [.] com - Tanda pemisah angka ribuan atau biasa disebut separator biasanya digunakan untuk mempermudah dalam pencatatan suatu angka karena ada tanda titik (.) sebagai pemisah ribuan, supaya tidak terjadi kesalahan dalam pencatatan angka.

Untuk menampilkan pemisah angka ribuan dalam pembuatan data dengan Microsoft Excel biasanya adalah dengan mengubah Fomat cell menjadi Currency atau Accounting.

Begitupun jika ingin membuat pemisah ribuan pada sebuah TextBox ataupun Label pada UserForm maka harus di ubah Formatnya menjadi Currency atau Accounting.

Untuk lebih jelasnya ikuti panduan berikut ini:

1Buka Aplikasi Microsoft Excel dan simpan dengan ekstensi *.xlsm atau *.xlsb.

2Tekan Tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic atau buka Tab Developer dan klik Visual Basic.

3Tambahkan sebuah Userform dan 1 buah TextBox.

4Untuk Properties (Name) UserForm dan TextBox biarkan Default.

5Pada Properties TextBox ubah TextAlign dari 1-fmTextAlignLeft atau rata kiri menjadi 3-fmTextAlignRight atau Rata Kanan.

6Selanjutnya tinggal memasukkan script untuk membuat pemisah ribuan, klik kanan pada UserForm1 yang ada pada VBA Project dan klik View Code.

7Kemudian masukkan script berikut:

Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub

abc:
TextBox1 = ""
End Sub

8Setelah selesai tekan tombol F5 pada keyboard atau klik tombol Run Sub/Userform pada Toolbar Microsoft Visual Basic untuk menjalankan UserForm, dan coba tuliskan angka pada TextBox apakah berhasil menampilkan pemisah ribuan (.) atau tidak.


Penjelasan Script yang digunakan:

Private Sub TextBox1_Change()
.....
End Sub
Maksudnya jika isi TextBox diubah maka semua perintah yang ada didalam tag atau sub tersebut akan dijalankan.

On Error GoTo abc
Maksudnya jika ada error maka perintah/script abc yang akan dijalankan, Error ini terjadi jika Textbox di isi dengan format text karena untuk membuat format ribuan isi TextBox akan diubah menjadi format number, untuk itu harus ada penanganan error jika TextBox diisi dengan text bukan number.

TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
Script ini digunakan untuk mengubah format TextBox1 menjadi Number dan menampilkan pemisah ribuan. Setekah selesai perintah di akhiri (Exit Sub).

abc:
TextBox1 = ""
Jika terjadi error perintah ini yang akan dijalankan, yaitu membuat TextBox1 menjadi kosong.

Cara Input ke sel dengan format Number


Beberapa komentar yang masuk ternyata bermasalah ketika menginput data ke sel datanya berubah jadi format teks, ini penyebabnya karena menggunakan format text pada textbox untuk inputnya. misal:

Private Sub CommandButton1_Click()
    Sheet1.Range("A1").Value = TextBox1.Text
End Sub
Karena menggunakan TextBox1.Text maka ketikan di inputkan ke sel maka hasilnya adalah format text, agar formatnya tidak text dan tetap general atau sesuai format sel sebelum di input, maka gunakan Textbox.Value.

Private Sub CommandButton1_Click()
    Sheet1.Range("A1").Value = TextBox1.Value
End Sub
Atau bisa juga dengan mengubah variabel tipe datanya ke variabel Integer, Long, Single, Double maupun ke Currency tergantung kebutuhannya. Untuk mengubah ke tipe tertentu misal ke variable Double penulisannya adalah sebagai berikut:

Private Sub CommandButton1_Click()
    Sheet1.Range("A1").Value = CDbl(TextBox1)
End Sub
Format kode variabel selain Double:
- CCur untuk mengubah variabel menjadi Currency.
- CDec untuk mengubah variabel menjadi Desimal.
- CInt untuk mengubah variabel menjadi Integer.
- CLng untuk mengubah variabel menjadi Long.
- CSng untuk mengubah variabel menjadi Single.

Lampiran


TextBox dengan Format Currency.xlsb   [ 17,4 KB ]

Sekian pembahasan mengenai Cara Membuat Pemisah ribuan pada TextBox Excel. Semoga Bermanfaat...

6 komentar

  1. pemisah ribuan ketka masuk ke
    cell jadi tex yang diharapkan number

    BalasHapus
  2. pemisah ribuan ketka masuk ke
    cell jadi tex yang diharapkan number

    BalasHapus
  3. setelah di run, hasil outputnya teks gan bukan numeric, apanya yg salah ya, mohon bimbingannya, terima kasih

    BalasHapus
    Balasan
    1. Silahkan di baca lagi artikelnya, sudah saya update...

      Hapus
  4. Sangat membantu gan.. Tapi permasalahan yg saya hadapi saat input 500.000 tapi hasilnya sllu berubah 500 ini penyebabnya apa ya gan..

    BalasHapus
  5. Satu lagi gan saya inputnya tdk pakai cara ini
    Private Sub CommandButton1_Click()
    Sheet1.Range("A1").Value = TextBox1.Value
    End Sub

    Karena dengan cara tersebut trjadi eror di laptop saya tapi saya menggunakan
    Sheets("sheet1"). Range("a1"). Value=textbox1

    Kira2 kl pengen jadi format angka dibagian mana yg harus saya rubah?

    BalasHapus


EmoticonEmoticon