Sabtu, 15 September 2018

Cara Membuat Placeholder di TextBox VBA Excel

Rumus Excel [.] com - Untuk memudahkan pengguna aplikasi yang di buat dengan VBA, sebaiknya pada TextBox tempat input data di tambahkan placeholder. Placeholder teks adalah teks yang digunakan untuk membuat keterangan pada sebuah TextBox, supaya user tidak salah memasukkan data.

Membuat Placeholder di TextBox VBA Excel
Secara default fitur Placeholder tidak tersedia di VBA Excel, untuk memberikan keterangan biasanya menggunakan ControlTipText. Karena itu perlu cara khusus untuk membuat Placeholder text sendiri.

Dan berikut langkah-langkahnya pembuatan placeholder di Excel:

  1. Pada aplikasi VBA Excel tambahkan sebuah UserForm dan 2 buah TextBox.
  2. Ubah Nama (Name) dari TextBox1 menjadi txtNama dan TextBox2 menjadi txtNOHP.
  3. Klik pada TextBox1 (txtNama) dan isi lah properties Tag dan Text-nya. dan ubah warna ForeColor-nya menjadi &H80000000&.

    TextBox VBA Excel
  4. Isikan juga Tag dan Text serta ubah ForeColor pada properties TextBox2 (txtNOHP).
  5. Tambahkan sebuah module baru dan kemudian masukkan kode VBA berikut ini:
    Sub txt_Enter(n As String)
        With UserForm1
            If .Controls(n).Value = .Controls(n).Tag Then
                .Controls(n).Value = vbNullString
                .Controls(n).ForeColor = vbBlack
            End If
        End With
    End Sub
    
    Sub txt_Exit(n As String)
        With UserForm1
            If Len(.Controls(n).Value) = 0 Then
                .Controls(n).Value = .Controls(n).Tag
                .Controls(n).ForeColor = &H80000000
            End If
        End With
    End Sub
    
    Untuk nama UserForm-nya sesuaikan dengan nama UserForm yang Anda gunakan, pada contoh UserForm yang digunakan adalah UserFrom1.
  6. Selanjutnya buka jendela UserForm Code dan masukkan kode VBA di bawah ini:
    Private Sub TxtNama_Enter()
        txt_Enter Me.ActiveControl.Name
    End Sub
    
    Private Sub TxtNama_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        txt_Exit Me.ActiveControl.Name
    End Sub
    
    Private Sub txtNoHP_Enter()
        txt_Enter Me.ActiveControl.Name
    End Sub
    
    Private Sub txtNoHP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        txt_Exit Me.ActiveControl.Name
    End Sub
    
    Jika TextBox yang Anda buat berada di dalam Frame maka kode VBA-nya harus di sesuaikan, misal di Frame1 maka kode VBA-nya di ubah menjadi.
    txt_Enter Me.Frame1.ActiveControl.Name
    txt_Exit Me.Frame1.ActiveControl.Name

Jika semua sudah benar, hasilnya adalah seperti berikut ini:

Placeholder di TextBox VBA Excel

Lampiran

Belajar Placeholder Text.xlsb [ 19 KB ]

Sekian tutorial Cara Membuat Placeholder di TextBox VBA Excel, Semoga Bermanfaat...
Comments


EmoticonEmoticon