Hai Odhy, Coba manfaatkan event KeyDown daripada event KeyPress.
Regards, Kid On Mon, Jan 30, 2017 at 11:51 AM, Odhy [email protected] [belajar-excel] <[email protected]> wrote: > > > Dear Mr. Kid, > saya coba menggunakan userform agar userform bisa close sendiri pada saat > saya pilih keyDown dan keyUp bagaimana caranya?? > jadi sementara saya menggunakan Enter untuk close spt code berikut : > > Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) > If KeyAscii = 13 Then Unload Me > End Sub > > > Terima Kasih atas pencerahannya, Odhy. > > > On Monday, January 30, 2017 9:53 AM, "Odhy [email protected] > [belajar-excel]" <[email protected]> wrote: > > > > Dear Mr. Kid, > Keren.... Excel memang powerfull..... > Terima kasih atas bantuannya......... > > Odhy. > > > On Friday, January 27, 2017 7:41 AM, "'Mr. Kid' [email protected] > [belajar-excel]" <[email protected]> wrote: > > > > Hai Odhyz, > > File terlampir contoh tanpa userform. > Meski tanpa userform, baris-baris kode yang ada bisa diterapkan pada image > control yang ada dalam suatu userform. > > Di dalam baris-baris kode dalam file terlampir juga diberi keterangan dan > beberapa tambahan yang masih non aktif seperti pengaturan ketersediaan > default image file ketika data yang terpilih belum memiliki image file yang > sesuai inputan. > > Silakan dikembangkan secara santun. > > Regards, > Kid > > > > > > > 2017-01-26 20:38 GMT+07:00 Odhyz [email protected] > [belajar-excel] <[email protected]>: > > > Dear Master, > Terima kasih atas bantuannya... Codingya sdh running.... > > Dikirim dari iPhone saya > > Pada 24 Jan 2017, pukul 09.14, 'Heru Safrudin' fcprocessing.bisikediri@bisi. > co.id <[email protected]> [belajar-excel] < > [email protected] > menulis: > > > Coba kode dikoreksi seperti berikut : > > Private Sub Worksheet_SelectionChange( ByVal Target As Range) > Dim MyPath As String > Dim Mypic As String > > MyPath = ThisWorkbook.Path & "\" & Target.Value & ".jpg" ‘Ini sudah > mendefinisikan gambarnya > MsgBox MyPath > If Intersect(Target, Range("a1:a5")) Is Nothing Then Exit Sub > Mypic = Target.Value & ".jpg" ‘Jadi ini sudah tidak diperlukan lagi > UserForm1.Image1.Picture = LoadPicture(MyPath) ‘Coba dengan kode ini > UserForm1.Show > > End Sub > > > > <image002.gif><image004.png> > > > > > > > > > *From:* [email protected] [mailto:belajar-excel@ > yahoogroups.com <[email protected]>] > *Sent:* 19 Januari 2017 17:54 > *To:* [email protected] > *Subject:* [belajar-excel] Membuat Form Popup gambar [1 Attachment] > > > Dear Para Master, > Mohon bantuannya, saya membuat Menu Popup namun belum berhasil (attach), > pada saat saya klik tiap cell yang berisi item code akan muncul menu popup > gambar sesui dengan item code pada tiap2 cell seperti terlampir. > > Atas bantuannya saya ucapkan banyak terima kasih. > > > > > > > > > >
