Coba :
dim oLbl(1,2) as control,oTxt(1,2) as control 'ganti control dengan
msforms.label atau msforms.textbox jika object ada di worksheet
dim sKet as string, sFile as string, sJari as string,sSisi as
string,sSisiTeks as string
dim lSisi as long, lNo as long
set olbl(0,0)=lblL1:set olbl(0,1)=lblL2:set olbl(0,2)=lblL3
set olbl(1,0)=lblr1:set olbl(1,1)=lblr2:set olbl(1,2)=lblr3
set otxt(0,0)=txtL1:set otxt(0,1)=txtL2:set otxt(0,2)=txtL3
set otxt(1,0)=txtr1:set otxt(1,1)=txtr2:set otxt(1,2)=txtr3
sket="Berbentuk seperti rambut ikal. Pada tangan %s memiliki arus alur
ke%s."
sfile="C:\Tipe Jari\%sL1.jpg"
If lenb(lblFolder.Caption) <>0 Then
sjari=lblJari.Caption
lno=clng(mid$(sjari,2,1))-1
if left$(sjari,1)="R" then
lsisi=1
ssisi=left$(sjari,1)
ssisiteks="kanan"
else
lsisi=0
ssisi=vbnullstring
ssisiteks="kiri"
endif
lblKeterangan.Caption = replace$(sket,"%s",ssisiteks)
imgC1.Picture = LoadPicture(vbNullString)
imgC1.Picture = LoadPicture(replace$(sfile,"%s",ssisi))
olbl(lsisi,lno).caption=left$(sjari,1)
otxt(lsisi,lno).setfocus
else
MsgBox ("Tentukan Folder Terlebih Dahulu")
endif
Wassalam,
Kid.
2013/3/30 lapendosol opik <[email protected]>
> **
>
>
> Dear master excel
> Saya memiliki kode VBA, dimana isi tiap beberapa baris adalah sama dengan
> lainnya.
> Bagaimana cara menyederhanakan kode VBA tersebut agar lebih simple,
> berikut kode VBAnya:
>
> Private Sub cmdL_Click()
> If lblFolder.Caption = "" Then
> MsgBox ("Tentukan Folder Terlebih Dahulu")
> ElseIf lblJari.Caption = "L1F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kiri memiliki arus alur kekiri."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\L1.jpg")
> lblL1.Caption = "L"
> txtL1.SetFocus
> ElseIf lblJari.Caption = "L2F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kiri memiliki arus alur kekiri."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\L1.jpg")
> lblL2.Caption = "L"
> txtL2.SetFocus
> ElseIf lblJari.Caption = "L3F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kiri memiliki arus alur kekiri."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\L1.jpg")
> lblL3.Caption = "L"
> txtL3.SetFocus
>
> ElseIf lblJari.Caption = "R1F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kanan memiliki arus alur kekanan."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\RL1.jpg")
> lblR1.Caption = "L"
> txtR1.SetFocus
> ElseIf lblJari.Caption = "R2F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kanan memiliki arus alur kekanan."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\RL1.jpg")
> lblR2.Caption = "L"
> txtR2.SetFocus
> ElseIf lblJari.Caption = "R3F" Then
> lblKeterangan.Caption = "Berbentuk seperti rambut ikal. Pada tangan
> kanan memiliki arus alur kekanan."
> imgC1.Picture = LoadPicture(vbNullString)
> imgC1.Picture = LoadPicture("C:\Tipe Jari\RL1.jpg")
> lblR3.Caption = "L"
> txtR3.SetFocus
> End If
> End Sub
>
> Yang berwarna ungu adalah bagian yang diulang-ulang untuk tangan kiri, dan
> yang berwarna hijau adalah bagian yang diulang-ulang untuk tangan kanan.
> Mohon pencerahannya untuk kasus seperti ini
> Sebelumnya saya ucapkan banyak terimakasih
> Wassalam
>
>
>
