Hai Odhy,
Dari penjelasan Anda terakhir, tampaknya Anda bermaksud userform hanya
sebagai viewer saja.
Kalau kasusnya demikian, maka userform tidak perlu diisi baris kode apapun.
Seluruh kegiatan pengaturan dilakukan melalui event selection change milik
worksheet, karena yang menjadi pemicu munculnya userform, tertutupnya
userform, dan berubahnya nilai-nilai setiap controls dalam userform adalah
kegiatan memindahkan cells yang aktif dari satu cells ke cells lain.
Pembatasan area cells yang memicu proses terhadap userform juga diatur
melalui event selection change tersebut.
Bingungkan.... hadeeh...
mbok yao urutan proses yang diinginkan itu ditulis yang rinci, supaya Anda
sendiri bisa lebih mudah dalam :
a. menganalisa permasalahan
b. menyusun pertanyaan
c. mencerna informasi dari orang lain terkait hal tersebut
d. mempelajari, memahami, mencoba, dan mengamalkannya
Contohnya begini...
Misal ada area range D1:D10 dan pengennya adalah :
1. kalo user mindahin cells dari yang tadinya diluar suatu area (misal dari
cells A1) hingga masuk ke area cells tertentu (misal ke D3), barulah si
userform nongol
-> artinya, butuh event selection change milik worksheet
untuk nampilin si userform
2. kalo user mindahin cells diluar area tertentu (dari A1 ke Z99), si
userform disembunyikan
-> artinya, butuh event selection change milik worksheet
untuk nyembunyiin si userform
3. kalo user mindahin cells dari dalam area cells tertentu (misal D7) ke
luar area cells tertentu (misal ke C4), si userform disembunyikan
-> artinya, butuh event selection change milik worksheet
untuk nyembunyiin si userform
4. kalo user mindahin cells di dalam area tertentu (misal dari D2 ke D4),
si userform tetap tampak, tapi nilai-nilai controls diubah nilainya
-> artinya, butuh event selection change milik worksheet
untuk mengubah nilai controls yang ada dalam userform
loh... rak kepenak to kalo kaya di atas itu,
penak le menganalisa, menanyakan, menjawab, mempelajari, dsb...
Kalo lihat uraian di atas, jadinya gak butuh event keypress ataupun event
keydown kan...
*Bisa jadi userform-nya malah beneran gak perlu diisi cekrip apapun.*
>> ada yang mau nyoba ?
>> yang katanya suka VBA atau yang lagi demen VBA atau yang ngakunya
rada atau mahir VBA, ayo coba deh...
So, odhy sabar ya, lagi pada mikir-mikir berani nyoba ato kagak tuh..
Regards,
Kid
2017-01-30 17:06 GMT+07:00 Odhy [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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 <[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.
>
>
>
>
>
>
>
>
>
>
>
>
>
