2 Messages
Digest #2943
Messages
Sat May 24, 2014 2:09 am (PDT) . Posted by:
"odong nando"
coba lihat att na, ap kah itu yang di inginkan...
Sat May 24, 2014 3:23 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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 priyant37@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> 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
>
>
>
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 priyant37@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> 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
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar