ReturnInteger)
>>If KeyAscii = 13 Then Unload Me
>> End Sub
>>
>>
>> Terima Kasih atas pencerahannya, Odhy.
>>
>>
>> On Monday, January 30, 2017 9:53 AM, "Odhy odhyz83_assas...@yahoo.com
>> [belajar-excel]" wrote:
>>
>>
>>
>> Dear Mr. Kid,
>> Keren Excel memang powerfull.
>> Terima kasih atas bantuannya.
>>
>> Odhy.
>>
>>
>> On Friday, January 27, 2017 7:41 AM, "'Mr. Kid' mr.nm...@gmail.com
>> [belajar-excel]" 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 odhyz83_assas...@yahoo.com
>> [belajar-excel] :
>>
>>
>> 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 [belajar-excel] <
>> belajar-excel@yahoogroups.com > 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
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
>> yahoogroups.com ]
>> *Sent:* 19 Januari 2017 17:54
>> *To:* belajar-excel@yahoogroups.com
>> *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.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
re-controls_dalam_userform_sebagai_viewer.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12