Cara Membuat Placeholder Text di VBA Excel

Placeholder banyak kita temui dalam Form-form berbasis web. Placeholder ini banyak digunakan didalam Form karena sangat membantu pengguna untuk mengisi data. Dimana placeholder ini digunakan sebagai petunjuk pengisian. Dalam Form berbasis web mungkin kita dimudahkan dalam membuat Placeholder karena sudah disediakan Tag HTML input. lalu bagaimana jika kita membuatnya dalam VBA Excel?.

Untuk Membuat Placeholder di VBA, kita bisa memanfaatkan sebuah Event pada control yaitu Control Enter dan Control Exit. Karena Placeholder secara default tidak disediakan dalam Visual Basic for Application. Untuk mulai membuatnya bisa disimak tutorial dibawah ini.

Trik Membuat Placeholder di Textbox VBA

Time needed: 35 minutes

Membuat Placeholder Text di VBA

  1. Siapkan bahan

    Dalam Tutorial ini, kita membutuhkan 1 Userform, 2 Textbox dan 2 Lebel. 1 command Button (Optional) silahkan buat pada Visual Basic Editor Excel

  2. Buat Module dan Copy Script

    Buat sebuah Standart module Module dan copy Script dibawah ini pada Module

 Visual Basic Editor 
Rem Auth : Excelnoob.com
Sub txt_Enter(N As String)
    With UserForm1
        If .Controls(N).Value = .Controls(N).Tag Then
            .Controls(N).Value = vbNullString
            .Controls(N).ForeColor = &H80000008
        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

End Function

Selanjutnya Copy script berikut ini ke dalam Code Userform

 Visual Basic Editor 
Rem Auth : Excelnoob.com
Sub Placeholder()
TextBox1.Tag = "Masukan Nama"
TextBox2.Tag = "Masukan Email"
End Sub

Private Sub TextBox1_Enter()
    txt_Enter Me.ActiveControl.Name
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txt_Exit Me.ActiveControl.Name
End Sub

Private Sub TextBox2_Enter()
    txt_Enter Me.ActiveControl.Name
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txt_Exit Me.ActiveControl.Name
End Sub

Private Sub UserForm_Initialize()
Call Placeholder
End Sub

Sub Placeholder adalah tempat untuk mengedit Text Placeholder. Bisa di edit sesuai dengan keinginan. dan Jika ingin menambah Textbox lagi. cukup tambahkan di Sub Placeholder dan juga Event Exit dan Event Enter pada Userform untuk Code yg di Module tidak Perlu di Edit-edit. Jika berhasil maka hasilnya akan sepert dibawah ini.

Placeholder Text VBA

Demikian tutorial bagimana cara membuat Placeholder di VBA. jika kamu ingin mendapatkan File diatas. silahkan download pada halaman Download

Be the first to comment

Leave a Reply

Your email address will not be published.


*