Cara Membuat Textbox Berwarna di VBA Excel

Bagi anda yang sering membuat aplikasi, memodifikasi aplikasi adalah menjadi keharusan, kenapa begitu? Karna, yang jelas aplikasi yang dibuat biar lebih menarik kita lihat dan orang lainpun yang ingin membeli aplikasi anda akan betah melihat aplikasi tersebut.

Untuk Sobat pecinta VBA excel bagi pemula, kali ini saya akan memberikan sedikit tips bagi anda yang ingin membuat tampilan Textbox berwarna ketika Textbox di klik.

Trus bagaiman caranya?

Baiklah sobat vba excel yang baru belajar, Silahkan ikuti langkah-langkahnya dibawah ini.

• Pertama, Silahkan buka microsoft excel anda.

• Selanjutnya, Klik Tab Developer -> klik icon Visual Basic Bagi anda yang belum tahu cara menampilkan Ribbon Tab Developer Silahkan Kunjungi di sini: Cara Mengaktifkan Tab Developer di Microsoft Excel 2007 |Cara Mengaktifkan Tab Developer di Microsoft Excel 2010 dan 2013 

• Selanjutnya, tambahkan 1 buah Form, Caranya klik kanan pada mouse anda seperti gambar di bawah ini.

• Selanjutnya, tambahkan 4 buah Textbox

• Kemudian, silahkan anda double klik Textbox1 dan copas coding di bawah ini.

Private Sub Textbox1_Enter()
TextBox1.BackColor = &HFF&
End Sub

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = vbWhite
End Sub

Coding Textbox2:

Private Sub Textbox2_Enter()
TextBox2.BackColor = &HFFFF&
End Sub

Private Sub Textbox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BackColor = vbWhite
End Sub

Coding Textbox3:

Private Sub TextBox3_Enter()
TextBox3.BackColor = &H8000&
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.BackColor = vbWhite
End Sub

Coding teksbox4:

Private Sub TextBox4_Enter()
TextBox4.BackColor = &HFF0000
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.BackColor = vbWhite
End Sub

• Selanjutnya, Tambahkan 1 buah CommadButton dan double Click CommandButton tersebut, kemudian copy paste coding di bawah ini.

Private Sub CommandButton1_Click()
UserForm1.Show //menampilkan form
End Sub

• Pada tombol keluar, tambahkan coding seperti berikut.

Private Sub Label1_Click()
ThisWorkbook.Close
End Sub

Hasilnya:

Bagi yang mau filenya silahkan Download dibawah ini.

Active TextBox Berwarna

Jangan lupa aktifkan macro nya terlebih dahulu supaya formnya tampil
Kunjungi: Cara Mengaktifkan/Enable Macro di Excel 2007,2013 dan 2016.
Sekian dulu Cara Membuat TextBox Berwarna di Userform VBA Excel.
Semoga bermanfaat.

Share :