Hai Odhy, Pengaturan tampilan userform bisa seperti dalam file terlampir.
Regards, Kid 2017-02-03 21:42 GMT+07:00 Odhyz [email protected] [belajar-excel] <[email protected]>: > > > Dear Mr Kid, > Sepertinya temen2 yg laen belum mau nyoba... Mungkin bisa Mr. Kid bisa > bantu untuk Case ini.... > > Terima kasih atas bantuannya... > > Dikirim dari iPhone saya > > Pada 31 Jan 2017, pukul 12.26, 'Mr. Kid' [email protected] > [belajar-excel] <[email protected]> menulis: > > > > 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. >> >> >> >> >> >> >> >> >> >> >> >> > >
re-controls_dalam_userform_sebagai_viewer.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
