Hot Fox: Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

segunda-feira, 12 de outubro de 2009

Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

(1) maaf; ada kekurangan kecil ('exit for')

For r = 2 To DukList.Rows.Count
If DukList(r, 2) = vNIK Then
CurPicNm = fPath & "\F" & vNIK & ".JPG"
Set PicCel = DukList(r, 15)
PicCel.Select
DukList.Parent.Pictures.Insert(CurPicNm).Select
With Selection
.Top = PicCel.Top: .Height = PicCel.Height
.Left = PicCel.Left: .Width = PicCel.Width
End With
DukList(r, 18) = FL.Name
Exit For '<<-----
End If
Next r
'----------------------

(2) mengingat program akan memproses ribuan items
dengan code agak lain ( menemukan letak data dengan MATCH sebagai
pengganti loop For - Next ), prosesnya diharapkan lebih cepat.
Terlampir workbook "Jilid_II"-nya.

-ctv-

2009/10/11 siti Vi <setiyowati.devi@gmail.com>

(A)
jika anda ingin membuat dan juga mengetahui......

2009/10/9 yayat ruhimat <yayat61@yahoo.com>

> Yth. Teman2 pakar Excel Mania
> Kami akan melakukan cross check data penduduk sesuai pasfoto penduduk.
> Selama ini, insert file pasfoto ke file excel dilakukan secara manual.
> Jika nama file (16 digit, huruf kedua dari kiri ke kanan) sama dengan IDNIK (16 digit)
> pada file Excel, maka file pasfoto penduduk tersebut diinsert pada kolom PASFOTO
> data penduduk yang bersangkutan. Karena ribuan file pasfoto yang akan diinsert,
> selain membutuhkan waktu sangat lama, juga sangat dimungkinkan salah insert file pasfoto.
> Lebih jelasnya, file pasfoto dan excel terlampir (attach)
>
> Tolong yaaa teman2, pls... apalagi waktu cross check data penduduk semakin mendesak.
> Atas bantuan teman2 diucapkan terima kasih
> Yayat Padang Nadimpu
>

__._,_.___

Messages in this topic (4) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other