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
