Hai Supriyanto, Dengan security macro yang di-enable, maka event change milik worksheet bisa dimanfaatkan ketika diisi dengan script :
Private Sub Worksheet_Change(ByVal Target As Range) '-> prosedur jenis
sub yang berupa events dari object worksheet
Dim s08 As String, s10 As String, s13 As String '-> variabel kerja
penyimpan nilai inputan di D9,D10,D13
Application.ScreenUpdating = False 'turn off kemampuan Excel
me-refresh layar
Application.EnableEvents = False 'turn off reaksi Excel melalui
events
If Target.Count = 1 Then 'jumlah cells yang berubah hanya 1 sajah
Select Case Target.Address 'cek kasus berdasar alamat cells
yang berubah nilainya
Case "$D$8", "$D$10", "$D$13" 'kasus ketika yang berubah adalah
cell beralamat $D$8, $D$10, atau $D$13
'simpan nilai di cell D8,D10,D13 yang sudah diubah menjadi
huruf kecil berturut-turut ke variabel s08,s10,s13
s08 = LCase(Range("d8").Value)
s10 = LCase(Range("d10").Value)
s13 = LCase(Range("d13").Value)
'baris 15:19 disembunyikan jika selain ( panen dan direct )
Rows("15:19").Hidden = Not ((s08 = "panen") And (s10 =
"direct"))
'baris 20:28 disembunyikan jika selain ( bukan_panen dan direct
)
Rows("20:28").Hidden = Not ((s08 <> "panen") And (s10 =
"direct"))
'baris 38:43 disembunyikan jika selain ( undirect )
Rows("38:43").Hidden = Not (s10 = "undirect")
'baris 29:37 disembunyikan jika selain ( lembur ya dan (
undirect atau (bukan_panen dan direct) ) )
Rows("29:37").Hidden = Not ((s13 = "ya") And ((s10 =
"undirect") Or (s08 <> "panen") And (s10 = "direct")))
End Select 'kasus berdasar alamat cells telah selesai
End If 'area kerja berdasar jumlah cells yang berubah telah selesai
Application.EnableEvents = True 'turn on reaksi Excel melalui
event
Application.ScreenUpdating = True 'turn on kemampuan Excel me-refresh
layar
End Sub '-> akhir prosedur jenis sub yang berupa events dari object
worksheet
Pastikan file di-save as dengan memilih type :
- Macro Enabled Workbook (.xlsm)
- atau Excel Binary Workbook (.xlsb)
- atau Excel 97-3003 (.xls)
Wassalam,
Kid.
2014-05-23 15:19 GMT+07:00 Supriyanto S [email protected] [belajar-excel]
<[email protected]>:
>
>
> Dear All,
>
> Saya sudah mencoba mencari contoh atas kendala yang saya rasakan, baik
> dari millis ini ataupun tanya sama mbah google. tetapi tidak menemukan
> solusinya.
>
> Untuk itu saya mohon bantuan be-exceller dan agan semuanya untuk membantu
> dan memberikan pencerahan ke saya. pertanyaan dan masalahnya terlampir.
>
> Sebelumnya terima kasih atas bantuan agan semuanya.
>
> supriy
>
>
>
re-Data Validation HiddenRows-1.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
