Sabtu, 04 Februari 2017

[belajar-excel] Digest Number 4084

5 Messages

Digest #4084
2a
Re: Membuat Validation Bertingkat dan Formula Filter by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Array Vertikal by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Membuat Form Popup gambar by "Mr. Kid" nmkid.family@ymail.com

Messages

Sat Feb 4, 2017 8:31 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Rubi,
Maaf baru sempat menjawab.1. Krn range hasil filter berubah-ubah maka saya tidak pakai conditional formatting melainkan VBA2. Bisa, validasinya diberi nama range dan VBAnya mengambil nama-nama range untuk PR, RVW, APP.
File terlampir.
Semoga sudah sesuai kebutuhan.
Salam,HK

From: "rubi anto rubiantoxx@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 3 February 2017, 21:39
Subject: Re: [belajar-excel] Tabel tanda tangan dalam Advanced Filter [1 Attachment]

  terima kasih pak hendrik saya sudah mencobanya... tapi masih ada yang ingin tanyakan lagi.
1. Bagaimana caranya agar bordernya tidak hilang jika saya filter,karena saya hanya menggunakan conditional formating.
2. bisa tidak jika kolom tanda tangannya dibuat di sheet lain dan nantinya dikopy dibawah data,karena saya ingin membuat validasi untuk masing-masing penanda tangan,jadi tidak perlu ketik ulang jika ganti orang....

untuk lebih jelasnya,monggo panjenengan lihat file terlampirnya

Pada 1 Februari 2017 21.07, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

  Hai Rubi,Terima kasih kembali.Sebagai variasi, coba buat macro agar no urut hasil filternya mulai dari no 1.
Salam,HK

Sent from Yahoo Mail on Android

  Terima kasih pak hendrik.... sudah berhasil pak.....

Pada 1 Februari 2017 14.28, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > menulis:

  Hai Rubi,Coba ubah codenya menjadi seperti ini :
ThisWorkbook.Sheets("Laporan") .Range("B7:F1000").Clear        ThisWorkbook.Sheets("Data"). Range("A1").CurrentRegion. _        AdvancedFilter Action:=xlFilterCopy, _        CriteriaRange:=ThisWorkbook. Sheets("Laporan").Range("C3: D4"), _        CopyToRange:=ThisWorkbook. Sheets("Laporan").Range("B6: F6"), _        Unique:=False        ThisWorkbook.Sheets("Laporan") .Range("B6").End(xlDown). SelectWith Selection    .Offset(5, 0).Value = "Yang Membuat"    .Offset(5, 2).Value = "Mengetahui"    .Offset(5, 4).Value = "Menyetujui"    .Offset(9, 0).Value = "TTD1"    .Offset(9, 2).Value = "TTD2"    .Offset(9, 4).Value = "TTD3"End With
catatan : Huruf yang dicetak tebal adalah tambahan codenya
Salam,HK

From: "rubi anto rubiantoxx@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 1 February 2017, 12:58
Subject: Re: [belajar-excel] Tabel tanda tangan dalam Advanced Filter [1 Attachment]

  Apakah seperti data berikut Mr Kid....

Tapi jika ada data bertambah malah tertindis...
Maaf saya masih belum Faham Mr. Kid.....
Pada 31 Januari 2017 20.42, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > menulis:

  Wa'alaikumussalam wr wb

Hai Rubi,

Bisa membuat template tanda tangan di tempat lain (misal di kolom ZZ dst). Kemudian copy range area template tanda tangan tersebut ke bawah tabel hasil advanced filter.

Kalau proses copy template tanda tangan akan diotomasi, bisa dilakukan dengan record macro.
Cara meletakkan posisi cells aktif ke baris kosong kedua di bawah tabel pada kolom terkiri tabel adalah sebagai berikut : (asumsi : kolom pertama tabel selalu terisi penuh)
1. klik cells baris 1 pada sebuah kolom kosong
2. tekan CTRL panah ke bawah -> tekan CTRL panah ke kiri     ::: sampai di kolom A baris terakhir Excel
3. [jika kolom pertama tabel bukan di kolom A] tekan panah ke kanan sampai ke kolom pertama tabel atau sampai kolom tabel yang selalu terisi penuh
4. tekan CTRL panah ke atas    ::: sampai di baris terakhir tabel
5. tekan panah ke bawah 2 kali    ::: sampai baris kosong kedua di kolom tabel yang selalu terisi penuh
6. [jika kolom pertama tabel bukan kolom yang selalu terisi penuh] tekan CTRL panah kiri atau kanan sampai ke kolom pertama tabel

Jadi urutan copy paste template tanda tangan menjadi :
>> blok area template tanda tangan -> tekan CTRL C -> ikuti langkah 1 sampai 6 di atas -> tekan CTRL V

Wassalamu'alaikum wr wb
Kid

2017-01-31 18:37 GMT+07:00 rubi anto rubiantoxx@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >:

  Assalamu'alaikum.....

Para master excel.....

Saya sedang belajar membuat data laporan pembayaran dengan advanced filter macro,tetapi ada kendala....
kolom untuk tanda tangannya selalu saja hilang jika saya klik button filter....

Bagaimanakah caranya agar kolom tanda tangan itu tidak hilang dan selalu berada di bawah tabel data jika data bertambah atau berkurang....

Terimakasih sebelumnya atas bantuan para guru.....
(File terlampir)

salamRubi

#yiv0568195299 #yiv0568195299 -- #yiv0568195299ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0568195299 #yiv0568195299ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0568195299 #yiv0568195299ygrp-mkp #yiv0568195299hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0568195299 #yiv0568195299ygrp-mkp #yiv0568195299ads {margin-bottom:10px;}#yiv0568195299 #yiv0568195299ygrp-mkp .yiv0568195299ad {padding:0 0;}#yiv0568195299 #yiv0568195299ygrp-mkp .yiv0568195299ad p {margin:0;}#yiv0568195299 #yiv0568195299ygrp-mkp .yiv0568195299ad a {color:#0000ff;text-decoration:none;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ygrp-lc {font-family:Arial;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ygrp-lc #yiv0568195299hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ygrp-lc .yiv0568195299ad {margin-bottom:10px;padding:0 0;}#yiv0568195299 #yiv0568195299actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0568195299 #yiv0568195299activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0568195299 #yiv0568195299activity span {font-weight:700;}#yiv0568195299 #yiv0568195299activity span:first-child {text-transform:uppercase;}#yiv0568195299 #yiv0568195299activity span a {color:#5085b6;text-decoration:none;}#yiv0568195299 #yiv0568195299activity span span {color:#ff7900;}#yiv0568195299 #yiv0568195299activity span .yiv0568195299underline {text-decoration:underline;}#yiv0568195299 .yiv0568195299attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0568195299 .yiv0568195299attach div a {text-decoration:none;}#yiv0568195299 .yiv0568195299attach img {border:none;padding-right:5px;}#yiv0568195299 .yiv0568195299attach label {display:block;margin-bottom:5px;}#yiv0568195299 .yiv0568195299attach label a {text-decoration:none;}#yiv0568195299 blockquote {margin:0 0 0 4px;}#yiv0568195299 .yiv0568195299bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0568195299 .yiv0568195299bold a {text-decoration:none;}#yiv0568195299 dd.yiv0568195299last p a {font-family:Verdana;font-weight:700;}#yiv0568195299 dd.yiv0568195299last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0568195299 dd.yiv0568195299last p span.yiv0568195299yshortcuts {margin-right:0;}#yiv0568195299 div.yiv0568195299attach-table div div a {text-decoration:none;}#yiv0568195299 div.yiv0568195299attach-table {width:400px;}#yiv0568195299 div.yiv0568195299file-title a, #yiv0568195299 div.yiv0568195299file-title a:active, #yiv0568195299 div.yiv0568195299file-title a:hover, #yiv0568195299 div.yiv0568195299file-title a:visited {text-decoration:none;}#yiv0568195299 div.yiv0568195299photo-title a, #yiv0568195299 div.yiv0568195299photo-title a:active, #yiv0568195299 div.yiv0568195299photo-title a:hover, #yiv0568195299 div.yiv0568195299photo-title a:visited {text-decoration:none;}#yiv0568195299 div#yiv0568195299ygrp-mlmsg #yiv0568195299ygrp-msg p a span.yiv0568195299yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0568195299 .yiv0568195299green {color:#628c2a;}#yiv0568195299 .yiv0568195299MsoNormal {margin:0 0 0 0;}#yiv0568195299 o {font-size:0;}#yiv0568195299 #yiv0568195299photos div {float:left;width:72px;}#yiv0568195299 #yiv0568195299photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0568195299 #yiv0568195299photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0568195299 #yiv0568195299reco-category {font-size:77%;}#yiv0568195299 #yiv0568195299reco-desc {font-size:77%;}#yiv0568195299 .yiv0568195299replbq {margin:4px;}#yiv0568195299 #yiv0568195299ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0568195299 #yiv0568195299ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0568195299 #yiv0568195299ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0568195299 #yiv0568195299ygrp-mlmsg select, #yiv0568195299 input, #yiv0568195299 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0568195299 #yiv0568195299ygrp-mlmsg pre, #yiv0568195299 code {font:115% monospace;}#yiv0568195299 #yiv0568195299ygrp-mlmsg * {line-height:1.22em;}#yiv0568195299 #yiv0568195299ygrp-mlmsg #yiv0568195299logo {padding-bottom:10px;}#yiv0568195299 #yiv0568195299ygrp-msg p a {font-family:Verdana;}#yiv0568195299 #yiv0568195299ygrp-msg p#yiv0568195299attach-count span {color:#1E66AE;font-weight:700;}#yiv0568195299 #yiv0568195299ygrp-reco #yiv0568195299reco-head {color:#ff7900;font-weight:700;}#yiv0568195299 #yiv0568195299ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ov li a {font-size:130%;text-decoration:none;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0568195299 #yiv0568195299ygrp-sponsor #yiv0568195299ov ul {margin:0;padding:0 0 0 8px;}#yiv0568195299 #yiv0568195299ygrp-text {font-family:Georgia;}#yiv0568195299 #yiv0568195299ygrp-text p {margin:0 0 1em 0;}#yiv0568195299 #yiv0568195299ygrp-text tt {font-size:120%;}#yiv0568195299 #yiv0568195299ygrp-vital ul li:last-child {border-right:none !important;}#yiv0568195299

Sat Feb 4, 2017 2:09 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Rubi,

Kira-kira seperti file terlampir.
Template diletakkan di suatu sheet yang berbeda dengan sheet hasil.
Jika template diletakkan di sheet yang sama dengan sheet hasil (tidak
direkomendasikan), pastikan bahwa template tidak akan terhapus dan tidak
berubah formatnya (lebar kolom, tinggi baris, font, dan sebagainya) oleh
proses yang terjadi di sheet hasil tersebut
Jika template (yang ada di sheet yang berbeda dengan sheet hasil tersebut)
disusun dengan formula, maka proses pemasangannya ke sheet hasil
menggunakan proses pastespecial (umumnya dengan paste special values atau
values and number formats, dan paste special formats).
Conditional formatting pada template juga dimungkinkan.

Regards,
Kid

2017-02-01 12:58 GMT+07:00 rubi anto rubiantoxx@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Apakah seperti data berikut Mr Kid....
>
> Tapi jika ada data bertambah malah tertindis...
> Maaf saya masih belum Faham Mr. Kid.....
>
> Pada 31 Januari 2017 20.42, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> Hai Rubi,
>>
>> Bisa membuat template tanda tangan di tempat lain (misal di kolom ZZ
>> dst). Kemudian copy range area template tanda tangan tersebut ke bawah
>> tabel hasil advanced filter.
>>
>> Kalau proses copy template tanda tangan akan diotomasi, bisa dilakukan
>> dengan record macro.
>> Cara meletakkan posisi cells aktif ke baris kosong kedua di bawah tabel
>> pada kolom terkiri tabel adalah sebagai berikut : (asumsi : kolom pertama
>> tabel selalu terisi penuh)
>> 1. klik cells baris 1 pada sebuah kolom kosong
>> 2. tekan CTRL panah ke bawah -> tekan CTRL panah ke kiri ::: sampai
>> di kolom A baris terakhir Excel
>> 3. [jika kolom pertama tabel bukan di kolom A] tekan panah ke kanan
>> sampai ke kolom pertama tabel atau sampai kolom tabel yang selalu terisi
>> penuh
>> 4. tekan CTRL panah ke atas ::: sampai di baris terakhir tabel
>> 5. tekan panah ke bawah 2 kali ::: sampai baris kosong kedua di kolom
>> tabel yang selalu terisi penuh
>> 6. [jika kolom pertama tabel bukan kolom yang selalu terisi penuh] tekan
>> CTRL panah kiri atau kanan sampai ke kolom pertama tabel
>>
>>
>> Jadi urutan copy paste template tanda tangan menjadi :
>> >> blok area template tanda tangan -> tekan CTRL C -> ikuti langkah 1
>> sampai 6 di atas -> tekan CTRL V
>>
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>> 2017-01-31 18:37 GMT+07:00 rubi anto rubiantoxx@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'alaikum.....
>>>
>>> Para master excel.....
>>>
>>> Saya sedang belajar membuat data laporan pembayaran dengan advanced
>>> filter macro,tetapi ada kendala....
>>> kolom untuk tanda tangannya selalu saja hilang jika saya klik button
>>> filter....
>>>
>>> Bagaimanakah caranya agar kolom tanda tangan itu tidak hilang dan selalu
>>> berada di bawah tabel data jika data bertambah atau berkurang....
>>>
>>> Terimakasih sebelumnya atas bantuan para guru.....
>>> (File terlampir)
>>>
>>> salam
>>> Rubi
>>>
>>>
>>
>
>

Sat Feb 4, 2017 2:05 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Rudhie,

Daripada dibuat ke samping (horisontal), letakkan saja di sheet yang lain
dengan orientasi vertikal.

Pada formula yang merujuk ke data vertikal umumnya menggunakan fungsi Row.
Sedangkan formula yang merujuk ke data horisontal umumnya menggunaan fungsi
Column.

Regards,
Kid

2017-02-01 18:48 GMT+07:00 rudhiedhie@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Mr. Kid
>
> Mohon bantuannya, bisakah data hasil Filternya dibuat kesamping / secara
> horizontal ?,
> Bagaimanakah rumus formulanya ? Saya coba ganti" tetapi tidak bisa juga.
> dan apabila dibuat secara horizontal, apakah bisa dibuat juga Validation
> nya ya?
> Mohon solusinya.
>
> Terima kasih
>
>
>

Sat Feb 4, 2017 3:16 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Heru,

Coba memanfaatkan fungsi Transpose milik worksheetfunction. Contoh :
range("a1:a5").value=worksheetfunction.transpose(array(1,2,3,4,5))
atau
range("a1:a5").value=application.worksheetfunction.transpose(array(1,2,3,4,5))

Bisa juga dengan evaluate, seperti :
range("g1:g5").value=evaluate("={1;2;3;4;5}") 'pakai titik koma pada
regional setting english, tapi tidak berlaku jika menggunakan fungsi Array()
atau
range("g1:g5").value=evaluate("=row(1:5)")
atau pakai cara implisit seperti :
range("g1:g5").value=[row(1:5)]

Regards,
Kid

On Wed, Feb 1, 2017 at 11:58 AM, 'Heru Safrudin'
fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Dear B-Exceller,
>
>
>
> Bagaimana cara mengisi range dengan Array value secara vertical sbb:
>
>
>
> Range("A1:A10").Value = Array(1,2,3,4,5,6,7,8,9,10)
>
>
>
> Terima kasih
>
> Heru Safrudin
>
>
>
> [image: Heru Safrudin][image: BISI,Heru Safrudin,YM online]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Sat Feb 4, 2017 3:18 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Odhy,

Pengaturan tampilan userform bisa seperti dalam file terlampir.

Regards,
Kid

2017-02-03 21:42 GMT+07:00 Odhyz odhyz83_assasaky@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> 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' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> 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 odhyz83_assasaky@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>> Hai Odhy,
>>
>> Coba manfaatkan event KeyDown daripada event KeyPress.
>>
>> Regards,
>> Kid
>>
>>
>> On Mon, Jan 30, 2017 at 11:51 AM, Odhy odhyz83_assasaky@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> 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 odhyz83_assasaky@yahoo.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Dear Mr. Kid,
>> Keren.... Excel memang powerfull.....
>> Terima kasih atas bantuannya.........
>>
>> Odhy.
>>
>>
>> On Friday, January 27, 2017 7:41 AM, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > 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_assasaky@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>> 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 <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
>>
>>
>>
>> <image002.gif><image004.png>
>>
>>
>>
>>
>>
>>
>>
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
>> yahoogroups.com <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.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 17.56

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)