Dear Mr. Kid,Apakah seperti ini :Private Sub UserForm_KeyDown(ByVal KeyCode As
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyDown Then Unload Me
If KeyCode = vbKeyUp Then Unload Me
If KeyCode = vbKeyLeft Then Unload Me
If KeyCode = vbKeyRight Then Unload Me
End Sub apakah bisa pada saat tekan KeyDown / atau KeyUp userform langsung di
close dan memunculkan userform untuk cell berikutnya.karena kondisi dengan
event keydown ini tekan keydown-> tutup userform, tekan keydown lagi baru
muncul userform lagi.apakah bisa seperti pada contoh yg Mr. Kid berikan
sebelumnya saat pindah cell langsung muncul userform. Terima Kasih atas
pencerahannya, Odhy.
On Monday, January 30, 2017 12:59 PM, "'Mr. Kid' [email protected]
[belajar-excel]" <[email protected]> wrote:
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 [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.
#yiv6486073527 #yiv6486073527 -- #yiv6486073527ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6486073527
#yiv6486073527ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6486073527
#yiv6486073527ygrp-mkp #yiv6486073527hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv6486073527 #yiv6486073527ygrp-mkp #yiv6486073527ads
{margin-bottom:10px;}#yiv6486073527 #yiv6486073527ygrp-mkp .yiv6486073527ad
{padding:0 0;}#yiv6486073527 #yiv6486073527ygrp-mkp .yiv6486073527ad p
{margin:0;}#yiv6486073527 #yiv6486073527ygrp-mkp .yiv6486073527ad a
{color:#0000ff;text-decoration:none;}#yiv6486073527 #yiv6486073527ygrp-sponsor
#yiv6486073527ygrp-lc {font-family:Arial;}#yiv6486073527
#yiv6486073527ygrp-sponsor #yiv6486073527ygrp-lc #yiv6486073527hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6486073527
#yiv6486073527ygrp-sponsor #yiv6486073527ygrp-lc .yiv6486073527ad
{margin-bottom:10px;padding:0 0;}#yiv6486073527 #yiv6486073527actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6486073527
#yiv6486073527activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6486073527
#yiv6486073527activity span {font-weight:700;}#yiv6486073527
#yiv6486073527activity span:first-child
{text-transform:uppercase;}#yiv6486073527 #yiv6486073527activity span a
{color:#5085b6;text-decoration:none;}#yiv6486073527 #yiv6486073527activity span
span {color:#ff7900;}#yiv6486073527 #yiv6486073527activity span
.yiv6486073527underline {text-decoration:underline;}#yiv6486073527
.yiv6486073527attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv6486073527 .yiv6486073527attach div a
{text-decoration:none;}#yiv6486073527 .yiv6486073527attach img
{border:none;padding-right:5px;}#yiv6486073527 .yiv6486073527attach label
{display:block;margin-bottom:5px;}#yiv6486073527 .yiv6486073527attach label a
{text-decoration:none;}#yiv6486073527 blockquote {margin:0 0 0
4px;}#yiv6486073527 .yiv6486073527bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv6486073527
.yiv6486073527bold a {text-decoration:none;}#yiv6486073527 dd.yiv6486073527last
p a {font-family:Verdana;font-weight:700;}#yiv6486073527 dd.yiv6486073527last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6486073527
dd.yiv6486073527last p span.yiv6486073527yshortcuts
{margin-right:0;}#yiv6486073527 div.yiv6486073527attach-table div div a
{text-decoration:none;}#yiv6486073527 div.yiv6486073527attach-table
{width:400px;}#yiv6486073527 div.yiv6486073527file-title a, #yiv6486073527
div.yiv6486073527file-title a:active, #yiv6486073527
div.yiv6486073527file-title a:hover, #yiv6486073527 div.yiv6486073527file-title
a:visited {text-decoration:none;}#yiv6486073527 div.yiv6486073527photo-title a,
#yiv6486073527 div.yiv6486073527photo-title a:active, #yiv6486073527
div.yiv6486073527photo-title a:hover, #yiv6486073527
div.yiv6486073527photo-title a:visited {text-decoration:none;}#yiv6486073527
div#yiv6486073527ygrp-mlmsg #yiv6486073527ygrp-msg p a
span.yiv6486073527yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6486073527
.yiv6486073527green {color:#628c2a;}#yiv6486073527 .yiv6486073527MsoNormal
{margin:0 0 0 0;}#yiv6486073527 o {font-size:0;}#yiv6486073527
#yiv6486073527photos div {float:left;width:72px;}#yiv6486073527
#yiv6486073527photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv6486073527
#yiv6486073527photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6486073527
#yiv6486073527reco-category {font-size:77%;}#yiv6486073527
#yiv6486073527reco-desc {font-size:77%;}#yiv6486073527 .yiv6486073527replbq
{margin:4px;}#yiv6486073527 #yiv6486073527ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv6486073527 #yiv6486073527ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6486073527
#yiv6486073527ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6486073527
#yiv6486073527ygrp-mlmsg select, #yiv6486073527 input, #yiv6486073527 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv6486073527
#yiv6486073527ygrp-mlmsg pre, #yiv6486073527 code {font:115%
monospace;}#yiv6486073527 #yiv6486073527ygrp-mlmsg *
{line-height:1.22em;}#yiv6486073527 #yiv6486073527ygrp-mlmsg #yiv6486073527logo
{padding-bottom:10px;}#yiv6486073527 #yiv6486073527ygrp-msg p a
{font-family:Verdana;}#yiv6486073527 #yiv6486073527ygrp-msg
p#yiv6486073527attach-count span {color:#1E66AE;font-weight:700;}#yiv6486073527
#yiv6486073527ygrp-reco #yiv6486073527reco-head
{color:#ff7900;font-weight:700;}#yiv6486073527 #yiv6486073527ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv6486073527 #yiv6486073527ygrp-sponsor
#yiv6486073527ov li a {font-size:130%;text-decoration:none;}#yiv6486073527
#yiv6486073527ygrp-sponsor #yiv6486073527ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv6486073527
#yiv6486073527ygrp-sponsor #yiv6486073527ov ul {margin:0;padding:0 0 0
8px;}#yiv6486073527 #yiv6486073527ygrp-text
{font-family:Georgia;}#yiv6486073527 #yiv6486073527ygrp-text p {margin:0 0 1em
0;}#yiv6486073527 #yiv6486073527ygrp-text tt {font-size:120%;}#yiv6486073527
#yiv6486073527ygrp-vital ul li:last-child {border-right:none
!important;}#yiv6486073527
