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 [belajar-excel] <[email protected] > menulis:
Coba kode dikoreksi seperti berikut : Private Sub
Worksheet_SelectionChange( ByVal Target As Range)Dim MyPath As StringDim Mypic
As String MyPath = ThisWorkbook.Path & "\" &Target.Value & ".jpg" ‘Ini
sudah mendefinisikan gambarnya MsgBox MyPath If Intersect(Target,
Range("a1:a5")) Is NothingThen Exit Sub Mypic = Target.Value & ".jpg"
‘Jadi inisudah tidak diperlukan lagi UserForm1.Image1.Picture =
LoadPicture(MyPath) ‘Coba dengankode ini UserForm1.Show End Sub
<image002.gif><image004.png>
From:[email protected] [mailto:belajar-excel@ yahoogroups.com]
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 menupopup
gambar sesui dengan item code pada tiap2 cell seperti terlampir. Atas
bantuannya saya ucapkan banyak terima kasih.
#yiv4233887376 #yiv4233887376 -- #yiv4233887376ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4233887376
#yiv4233887376ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4233887376
#yiv4233887376ygrp-mkp #yiv4233887376hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4233887376 #yiv4233887376ygrp-mkp #yiv4233887376ads
{margin-bottom:10px;}#yiv4233887376 #yiv4233887376ygrp-mkp .yiv4233887376ad
{padding:0 0;}#yiv4233887376 #yiv4233887376ygrp-mkp .yiv4233887376ad p
{margin:0;}#yiv4233887376 #yiv4233887376ygrp-mkp .yiv4233887376ad a
{color:#0000ff;text-decoration:none;}#yiv4233887376 #yiv4233887376ygrp-sponsor
#yiv4233887376ygrp-lc {font-family:Arial;}#yiv4233887376
#yiv4233887376ygrp-sponsor #yiv4233887376ygrp-lc #yiv4233887376hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4233887376
#yiv4233887376ygrp-sponsor #yiv4233887376ygrp-lc .yiv4233887376ad
{margin-bottom:10px;padding:0 0;}#yiv4233887376 #yiv4233887376actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4233887376
#yiv4233887376activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4233887376
#yiv4233887376activity span {font-weight:700;}#yiv4233887376
#yiv4233887376activity span:first-child
{text-transform:uppercase;}#yiv4233887376 #yiv4233887376activity span a
{color:#5085b6;text-decoration:none;}#yiv4233887376 #yiv4233887376activity span
span {color:#ff7900;}#yiv4233887376 #yiv4233887376activity span
.yiv4233887376underline {text-decoration:underline;}#yiv4233887376
.yiv4233887376attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4233887376 .yiv4233887376attach div a
{text-decoration:none;}#yiv4233887376 .yiv4233887376attach img
{border:none;padding-right:5px;}#yiv4233887376 .yiv4233887376attach label
{display:block;margin-bottom:5px;}#yiv4233887376 .yiv4233887376attach label a
{text-decoration:none;}#yiv4233887376 blockquote {margin:0 0 0
4px;}#yiv4233887376 .yiv4233887376bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4233887376
.yiv4233887376bold a {text-decoration:none;}#yiv4233887376 dd.yiv4233887376last
p a {font-family:Verdana;font-weight:700;}#yiv4233887376 dd.yiv4233887376last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4233887376
dd.yiv4233887376last p span.yiv4233887376yshortcuts
{margin-right:0;}#yiv4233887376 div.yiv4233887376attach-table div div a
{text-decoration:none;}#yiv4233887376 div.yiv4233887376attach-table
{width:400px;}#yiv4233887376 div.yiv4233887376file-title a, #yiv4233887376
div.yiv4233887376file-title a:active, #yiv4233887376
div.yiv4233887376file-title a:hover, #yiv4233887376 div.yiv4233887376file-title
a:visited {text-decoration:none;}#yiv4233887376 div.yiv4233887376photo-title a,
#yiv4233887376 div.yiv4233887376photo-title a:active, #yiv4233887376
div.yiv4233887376photo-title a:hover, #yiv4233887376
div.yiv4233887376photo-title a:visited {text-decoration:none;}#yiv4233887376
div#yiv4233887376ygrp-mlmsg #yiv4233887376ygrp-msg p a
span.yiv4233887376yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4233887376
.yiv4233887376green {color:#628c2a;}#yiv4233887376 .yiv4233887376MsoNormal
{margin:0 0 0 0;}#yiv4233887376 o {font-size:0;}#yiv4233887376
#yiv4233887376photos div {float:left;width:72px;}#yiv4233887376
#yiv4233887376photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv4233887376
#yiv4233887376photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4233887376
#yiv4233887376reco-category {font-size:77%;}#yiv4233887376
#yiv4233887376reco-desc {font-size:77%;}#yiv4233887376 .yiv4233887376replbq
{margin:4px;}#yiv4233887376 #yiv4233887376ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4233887376 #yiv4233887376ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4233887376
#yiv4233887376ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4233887376
#yiv4233887376ygrp-mlmsg select, #yiv4233887376 input, #yiv4233887376 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv4233887376
#yiv4233887376ygrp-mlmsg pre, #yiv4233887376 code {font:115%
monospace;}#yiv4233887376 #yiv4233887376ygrp-mlmsg *
{line-height:1.22em;}#yiv4233887376 #yiv4233887376ygrp-mlmsg #yiv4233887376logo
{padding-bottom:10px;}#yiv4233887376 #yiv4233887376ygrp-msg p a
{font-family:Verdana;}#yiv4233887376 #yiv4233887376ygrp-msg
p#yiv4233887376attach-count span {color:#1E66AE;font-weight:700;}#yiv4233887376
#yiv4233887376ygrp-reco #yiv4233887376reco-head
{color:#ff7900;font-weight:700;}#yiv4233887376 #yiv4233887376ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv4233887376 #yiv4233887376ygrp-sponsor
#yiv4233887376ov li a {font-size:130%;text-decoration:none;}#yiv4233887376
#yiv4233887376ygrp-sponsor #yiv4233887376ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4233887376
#yiv4233887376ygrp-sponsor #yiv4233887376ov ul {margin:0;padding:0 0 0
8px;}#yiv4233887376 #yiv4233887376ygrp-text
{font-family:Georgia;}#yiv4233887376 #yiv4233887376ygrp-text p {margin:0 0 1em
0;}#yiv4233887376 #yiv4233887376ygrp-text tt {font-size:120%;}#yiv4233887376
#yiv4233887376ygrp-vital ul li:last-child {border-right:none
!important;}#yiv4233887376
