Cara Menciptakan Placeholder Di Textbox Vba Excel

[.] com - Untuk megampangkan pengguna aplikasi yang di buat dengan VBA, sebaiknya pada TextBox kawasan input data di menambahkan placeholder. Placeholder teks yaitu teks yang dipakai untuk membuat keterangan pada sebuah TextBox, biar user tidak salah memasukkan data.

Secara default fitur Placeholder tidak tersedia di VBA Excel, untuk mempersembahkan keterangan biasanya memakai ControlTipText. Karena itu perlu cara khusus untuk membuat Placeholder text sendiri.

Dan diberikut langkah-langkahnya pembuatan placeholder di Excel:

1 Pada aplikasi VBA Excel menambahkan 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&.

4 Isikan juga Tag dan Text serta ubah ForeColor pada properties TextBox2 (txtNOHP).

5 Tambahkan sebuah module gres dan lalu masukkan isyarat VBA diberikut 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 referensi UserForm yang dipakai yaitu UserFrom1.

6 Selanjutnya buka jendela UserForm Code dan masukkan isyarat 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 isyarat VBA-nya harus di sesuaikan, misal di Frame1 maka isyarat VBA-nya di ubah menjadi.

txt_Enter Me.Frame1.ActiveControl.Name
txt_Exit Me.Frame1.ActiveControl.Name

Jika tiruana sudah benar, alhasil yaitu ibarat diberikut ini:

Lampiran

Belajar Placeholder Text.xlsb [ 19 KB ]

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