Maaf sebelumnya udah ngotorin di milis, soal yg saya tanyakan udah beres Bodoh sekali saya, saya otak atik kembali diganti manual sSisi nya malah bisa
If Left$(sJari, 1) = "R" Then lSisi = 1 sSisi = vbNullString s1 = "kiri" s2 = "kanan" Else lSisi = 0 sSisi = "R" s1 = "kiri" s2 = "kanan" End If Maaf sekali lagi dan terima kasih Wassalam, ----- Forwarded Message ----- From: lapendosol opik <[email protected]> To: "[email protected]" <[email protected]> Sent: Thursday, April 4, 2013 6:26 PM Subject: Kode VBA ada yg terbalik Dear para Master Excel, Saya ada kode VBA sebagai berikut: Private Sub cmdTARL_Click() 'masih eror Dim oLbl(1, 4) As Control, oTxt(1, 4) As Control 'ganti control dengan msforms.label atau msforms.textbox jika object ada di worksheet Dim sKet As String, s1 As String, s2 As String, sfile1 As String, sfile2 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(0, 3) = lblL4: Set oLbl(0, 4) = lblL5 Set oLbl(1, 0) = lblR1: Set oLbl(1, 1) = lblR2: Set oLbl(1, 2) = lblR3: Set oLbl(1, 3) = lblR4: Set oLbl(1, 4) = lblR5 Set oTxt(0, 0) = txtL1: Set oTxt(0, 1) = txtL2: Set oTxt(0, 2) = txtL3: Set oTxt(0, 3) = txtL4: Set oTxt(0, 4) = txtL5 Set oTxt(1, 0) = txtR1: Set oTxt(1, 1) = txtR2: Set oTxt(1, 2) = txtR3: Set oTxt(1, 3) = txtR4: Set oTxt(1, 4) = txtR5 sKet = "Turuan dari Tented Arch menuju Ulnar Loop. Pada tangan %s1, tampak seperti belahan rambut ikal memiliki arah alur ke%s2. Hampir/sudah memiliki Core maupun Delta, tetapi hampir tidak ada jarak antara Core dan Delta." sfile1 = "C:\Tipe Jari\TA-%s1L1.jpg" sfile2 = "C:\Tipe Jari\TA-%s1L2.jpg" If LenB(lblFolder.Caption) <> 0 Then lblNamaJari.Caption = "Tented Arch with Ulnar Loop" sJari = lblJari.Caption lNo = CLng(Mid$(sJari, 2, 1)) - 1 If Left$(sJari, 1) = "R" Then lSisi = 1 sSisi = Left$(sJari, 1) s1 = "kiri" s2 = "kanan" Else lSisi = 0 sSisi = vbNullString s1 = "kiri" s2 = "kanan" End If lblKeterangan.Caption = Replace$(Replace$(sKet, "%s1", s1), "%s2", s2) imgC1.Picture = LoadPicture(vbNullString) imgC1.Picture = LoadPicture(Replace$(sfile1, "%s1", sSisi)) imgC2.Picture = LoadPicture(vbNullString) imgC2.Picture = LoadPicture(Replace$(sfile2, "%s1", sSisi)) oLbl(lSisi, lNo).Caption = "TA-RL" oTxt(lSisi, lNo).Text = 0 oTxt(lSisi, lNo).SetFocus Else MsgBox ("Tentukan Folder Terlebih Dahulu") End If End Sub Yg berwarna biru adalah kode yg bermasalah (kebalik), yg warna hijau adalah kondisi. Ada 2 jenis gambar di C:\Tipe Jari\, yaitu TA-L.jpg dan TA-RL.jpg Yg saya harapkan, Jika Left$(sJari, 1) = "R" maka pasang imgC1.Picture dan imgC2.Picture dengan file C:\Tipe Jari\TA-L1.jpg dan C:\Tipe Jari\TA-L2.jpg Jika Left$(sJari, 1) = "L" maka pasangimgC1.Picture dan imgC2.Picture dengan file C:\Tipe Jari\TA-RL1.jpg dan C:\Tipe Jari\TA-RL2.jpg Saya sudah coba balik sSisinya yg vbNullString pindah keatas dan sebaliknya, tapi malah error Mohon bantuannya pada rekan-rekan Master Excel, atas bantuannya saya ucapkan terimakasih Wassalam,
