Coba dibuka UserForm, kemudian klik *V*iew, T*a*b Order. On Thu, Oct 16, 2014 at 10:11 AM, ris ha har1sn.ex...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
> > > Ehhh bentar ding, ada 1 lagi yang ingin saya tanyakan. > > Adakah Macronya untuk berpindah dari TextBox1 ke CommandButton1 dengan > cara tekan TAB. Artinya dari TextBox saya mau berpindah ke CommandButton > dengan cara tekan tombol TAB. Yang saya alami dari TextBox1 > saya tekan > TAB > malah pindah ke TextBox2, sesuai urutan pada saat saya buat > aplikasinya. > > Terima kasih > > Salam > Haris > > > On Thursday, October 16, 2014 10:02 AM, ris ha <har1sn.ex...@yahoo.com> > wrote: > > > Alhamdulillah sudah terpecahkan. Semoga Alloh Swt memberikan imbalan yang > besar dari kasus yang kecil ini. Amin > > Terima kasih Mas Suyono > > Wa'alaikum salam > Haris > > > On Thursday, October 16, 2014 9:26 AM, "SUYONO reza.suy...@lge.com > [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: > > > > Assalamu'alaikum. > > Coba seperti ini, semoga membantu. > > Private Sub TextBox1_Change() > If Len(TextBox1.Text) = TextBox1.MaxLength Then > CommandButton1.SetFocus > End If > End Sub > > Wasalam > Suyono > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* Thursday, October 16, 2014 8:59 AM > *To:* belajar-excel@yahoogroups.com > *Subject:* [belajar-excel] Pengkondisian MaxLength pada TextBox > > > Assalamu'alaikum. > > Dear para master semua, semoga Alloh Swt selalu menjaga kesehatan dan > kemampuan para master, demi orang-orang seperti saya yang sangat > membutuhkan pencerahan dan solusi atas setiap kasus excel dan VBA yang > sedang dihadapi. Amin > > Kali ini, sangat mempunyai kasus seperti berikut > Saya ingin mengkondisikan pada TextBox, jika TextBox telah terisi 3 > digit number maka setfokus akan langsung beralih pada CommandButton. > Bagaimanakah caranya? > > Saya sudah mencoba merubah MaxLength pada jendela properties TextBox > menjadi 3 kemudian saya ketik macro seperti dibawah, tetapi tatkala TexBox > sudah berisi 3 digit number, set fokus tidak berlahi pada CommandButton1. > > *If TexBox1.MaxLength = true then* > *CommandButton1.SetFocus* > *End If* > > Terima kasih > > Salam > Haris > > > > > >
