sudah 21 hari yang lalu, posting ini belum ada penanggapnya..
mungkin karena calon penanggap (bila ingin menanggapi) harus kerja-bakati dulu:
scr manual membuat file data seperti yg dikirm (hanya dlm bentuk gambar) oleh pak bara;
barulah kemudian bisa mengolah-olah data hasil kerjabakti tsb,
lalu kalo ada solusinya baru bisa mengirim kesini...
mungkin seperti ini (terlampir)
disitu dipakai cara makro yang codingnya seperti berikut
(dlm Module UserForm1)
'---------------
Private Sub UserForm_Activate()
Set dTabel = Sheets("tabelData").Range("A3").CurrentRegion
If dTabel.Rows.Count > 1 Then
TblRows = dTabel.Rows.Count - 1
TblCols = dTabel.Columns.Count
Set dTabel = dTabel.Offset(1, 0).Resize(TblRows, TblCols)
SpinButton1.Min = 1
SpinButton1.Max = TblRows
End If
End Sub
Private Sub SpinButton1_Change()
Dim FotoFileNm As String, r As Long
r = SpinButton1.Value
TxtRecNo = r
TxtNam = dTabel(r, 2).Value
TxtNip = dTabel(r, 3).Value
TxtGol = dTabel(r, 4).Value
TxtJab = dTabel(r, 5).Value
TxtJaw = dTabel(r, 6).Value
dTabel(r, 1).Resize(1, TblCols).Activate
FotoFileNm = ThisWorkbook.Path & "\" & TxtNam & ".jpg"
If Len(TxtNam) > 0 Then
Img_Foto.Picture = LoadPicture(FotoFileNm)
Else
Img_Foto.Picture = LoadPicture("")
End If
End Sub
'----------------
workbook dan file gambar *jpg harus berada dlm 1 folder yg sama
maafkan kalau ternyata tidak sesuai dengan keinginan...
siti
On 11/23/10, lewi bara <bara_napa@yahoo.com> wrote:
> Dengan segala kerendahan hati mohon bantuannya kepada para
> guru/suhu/master/rekan XL Mania
> berikut soal rumit yang saya hadapi, mohon buka lampiran
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa... |
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário