Terima kasih mr Kid dan mr odong nando atas pencerahannya, maaf lama ga buka email jadi telat respon... So pasti petunjuk kedua duanya akan menjadi sangat berguna untuk saya dan tentu akan saya pelajari untuk saya kembangkan sesuai keperluan.
Terima kasih supriyanto Pada 24 Mei 2014 18.23, 'Mr. Kid' [email protected] [belajar-excel] < [email protected]> menulis: > > > 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 >> >> > >
