Messages In This Digest (25 Messages)
- 1a.
- Bls: Bls: Bls: [belajar-excel] membuat file expired From: neza ibaneza
- 1b.
- Re: Bls: Bls: Bls: [belajar-excel] membuat file expired From: hendrik karnadi
- 2a.
- Re: Bls: Bls: [belajar-excel] membuat file expired From: hendrik karnadi
- 2b.
- Bls: Bls: Bls: [belajar-excel] membuat file expired From: neza ibaneza
- 2c.
- Re: Bls: Bls: Bls: [belajar-excel] membuat file expired From: Hilman
- 2d.
- Bls: Bls: Bls: Bls: [belajar-excel] membuat file expired From: neza ibaneza
- 3.
- Mohon dibantu: Memasukkan data ke dalam sheet lain dengan dua kriter From: Isti Astro
- 4a.
- Re: Memasukkan data ke dalam sheet lain dengan dua kriteria From: i Haps
- 4b.
- Re: Memasukkan data ke dalam sheet lain dengan dua kriteria From: Isti Astro
- 4c.
- Re: Memasukkan data ke dalam sheet lain dengan dua kriteria From: Isti Astro
- 4d.
- Re: Memasukkan data ke dalam sheet lain dengan dua kriteria From: Isti
- 5a.
- Re: Formula terbilang From: Adi Irawan
- 5b.
- Re: Formula terbilang From: i Haps
- 6a.
- Fungsi hitung jumlah karakter dalam satu cell From: yusajing_ehm@yahoo.com
- 6b.
- Re: Fungsi hitung jumlah karakter dalam satu cell From: Udin Haeruddin
- 6c.
- Fungsi hitung jumlah karakter dalam satu cell From: yusajing_ehm@yahoo.com
- 6d.
- Bls: [belajar-excel] Fungsi hitung jumlah karakter dalam satu cell From: ghozi alkatiri
- 6e.
- Re: Fungsi hitung jumlah karakter dalam satu cell From: siti Vi
- 6f.
- Re: Fungsi hitung jumlah karakter dalam satu cell From: Kid Mr.
- 7a.
- Unlock VBA From: Riska Wahyu Nirmalasari
- 7b.
- Re: Unlock VBA From: siti Vi
- 7c.
- Re: Unlock VBA From: Riska Wahyu Nirmalasari
- 8a.
- Warna pada kolom From: Budhi Cahyanto
- 8b.
- Re: Warna pada kolom From: Riska Wahyu Nirmalasari
- 8c.
- Re: Warna pada kolom From: o' Seno
Messages
- 1a.
-
Bls: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza
Thu Jan 12, 2012 4:59 pm (PST)
saya pernah mendownload file ini, apa bekerja sesuai keinginan saya juga belum coba... silahkan dikoreksi rekan excel..
neza
_____________________ _________ __
Dari: Hilman <hilman_email@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 18:59
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 1b.
-
Re: Bls: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Thu Jan 12, 2012 5:46 pm (PST)
Rupanya "sumber saya" mirip dengan sumber dari internet ...ha...ha (maaf bukan segaja njiplak, namun saya betul2 lupa sumbernya).
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Friday, 13 January 2012, 7:59
Subject: Bls: Bls: Bls: [belajar-excel] membuat file expired
saya pernah mendownload file ini, apa bekerja sesuai keinginan saya juga belum coba... silahkan dikoreksi rekan excel..
neza
_____________________ _________ __
Dari: Hilman <hilman_email@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 18:59
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 2a.
-
Re: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Thu Jan 12, 2012 5:58 pm (PST)
Atau bisa juga Tanggal Awal (yang dihidden) ditambah banyaknya (jumlah) hari yang diperkenankan.
Jadi logikanya + seperti ini :
- Jika tanggal dimundurin (Tanggal Sekarang < Tanggal Awal) maka tampilkan pesan "Maaf, anda sudah berlaku tidak jujur karena sudah merubah tanggal" dan file langsung ditutup.
- Jika Tanggal sekarang > Tanggal Awal + jumlah hari yang diperkenankan maka tampilkan pesan "File sudah expired" dan file langsung ditutup.
- Jika Tanggal sekarang < Tanggal Awal + jumlah hari yang diperkenankanmaka file bisa langsung dibuka (tidak perlu pesan).
Logika sederhana ini mudah2an bisa menjadi renungan pagi dan menjadi langkah awal untuk rekan2 Be-Excel yang baru mulai mencoba membuat program.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 17:59
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 2b.
-
Bls: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza
Thu Jan 12, 2012 7:26 pm (PST)
terima kasih banyak nih mas hendrik & rekan excel lainnya yg udah bantu..
salam
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Jumat, 13 Januari 2012 9:58
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
Atau bisa juga Tanggal Awal (yang dihidden) ditambah banyaknya (jumlah) hari yang diperkenankan.
Jadi logikanya + seperti ini :
- Jika tanggal dimundurin (Tanggal Sekarang < Tanggal Awal) maka tampilkan pesan "Maaf, anda sudah berlaku tidak jujur karena sudah merubah tanggal" dan file langsung ditutup.
- Jika Tanggal sekarang > Tanggal Awal + jumlah hari yang diperkenankan maka tampilkan pesan "File sudah expired" dan file langsung ditutup.
- Jika Tanggal sekarang < Tanggal Awal + jumlah hari yang diperkenankanmaka file bisa langsung dibuka (tidak perlu pesan).
Logika sederhana ini mudah2an bisa menjadi renungan pagi dan menjadi langkah awal untuk rekan2 Be-Excel yang baru mulai mencoba membuat program.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 17:59
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 2c.
-
Re: Bls: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "Hilman" hilman_email@yahoo.com hilman_email
Thu Jan 12, 2012 7:38 pm (PST)
Tapi, tetap saja bagi yang ngerti dan mau, untuk ngebuka file yg seperti itu bukan lah hal yang sulit.
Namanya juga usaha ya....
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Friday, January 13, 2012 10:26 AM
Subject: Bls: Bls: Bls: [belajar-excel] membuat file expired
terima kasih banyak nih mas hendrik & rekan excel lainnya yg udah bantu..
salam
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Jumat, 13 Januari 2012 9:58
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
Atau bisa juga Tanggal Awal (yang dihidden) ditambah banyaknya (jumlah) hari yang diperkenankan.
Jadi logikanya + seperti ini :
- Jika tanggal dimundurin (Tanggal Sekarang < Tanggal Awal) maka tampilkan pesan "Maaf, anda sudah berlaku tidak jujur karena sudah merubah tanggal" dan file langsung ditutup.
- Jika Tanggal sekarang > Tanggal Awal + jumlah hari yang diperkenankan maka tampilkan pesan "File sudah expired" dan file langsung ditutup.
- Jika Tanggal sekarang < Tanggal Awal + jumlah hari yang diperkenankanmaka file bisa langsung dibuka (tidak perlu pesan).
Logika sederhana ini mudah2an bisa menjadi renungan pagi dan menjadi langkah awal untuk rekan2 Be-Excel yang baru mulai mencoba membuat program.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 17:59
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 2d.
-
Bls: Bls: Bls: Bls: [belajar-excel] membuat file expired
Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza
Thu Jan 12, 2012 7:47 pm (PST)
iya juga sih... klw yg mau buka rekan2 excel dimilis ini.. pasti bisa juga... hehehehe..
neza
_____________________ _________ __
Dari: Hilman <hilman_email@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Jumat, 13 Januari 2012 11:38
Judul: Re: Bls: Bls: Bls: [belajar-excel] membuat file expired
Tapi, tetap saja bagi yang ngerti dan mau, untuk ngebuka file yg seperti itu bukan lah hal yang sulit.
Namanya juga usaha ya....
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Friday, January 13, 2012 10:26 AM
Subject: Bls: Bls: Bls: [belajar-excel] membuat file expired
terima kasih banyak nih mas hendrik & rekan excel lainnya yg udah bantu..
salam
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Jumat, 13 Januari 2012 9:58
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
Atau bisa juga Tanggal Awal (yang dihidden) ditambah banyaknya (jumlah) hari yang diperkenankan.
Jadi logikanya + seperti ini :
- Jika tanggal dimundurin (Tanggal Sekarang < Tanggal Awal) maka tampilkan pesan "Maaf, anda sudah berlaku tidak jujur karena sudah merubah tanggal" dan file langsung ditutup.
- Jika Tanggal sekarang > Tanggal Awal + jumlah hari yang diperkenankan maka tampilkan pesan "File sudah expired" dan file langsung ditutup.
- Jika Tanggal sekarang < Tanggal Awal + jumlah hari yang diperkenankanmaka file bisa langsung dibuka (tidak perlu pesan).
Logika sederhana ini mudah2an bisa menjadi renungan pagi dan menjadi langkah awal untuk rekan2 Be-Excel yang baru mulai mencoba membuat program.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 17:59
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan TanggalAwal.
_____________________ _________ __
From: Hilman <hilman_email@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet "DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya. TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan tanggal hari ini.
Gitu bisa kali ya..
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar tanggal tidak bisa diubah kayaknya agak susah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 12 January 2012, 9:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok..... thanks..
mas..
_____________________ _________ __
Dari: neza ibaneza <nezaibaneza@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2 tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya ("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka. Tentunya Password dalam VB Script nya perlu diubah juga.
_____________________ _________ __
From: neza ibaneza <nezaibaneza@yahoo.co. >id
To: EXCEL EXCEL <belajar-excel@yahoogroups. >com
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
- 3.
-
Mohon dibantu: Memasukkan data ke dalam sheet lain dengan dua kriter
Posted by: "Isti Astro" milisastro@gmail.com isti_astro
Thu Jan 12, 2012 6:03 pm (PST)
Dear para master mohon bantuan dan pencerahannya,
Butuh bantuannya untuk kasus berikut ini, saat ini ada tugas untuk
memasukkan data dari satu sheet ke sheet lain...bagaimana rumus makro untuk
memasukkan data yang ada di sheet1 ke dalam masing-masing kolom tanggal
sesuai dengan nomor ID dan tanggal awal (start date) dan diisi sampai
dengan tanggal akhir (end date) namun jika minggu atau hari libur nasional
berarti kosong/dilewati. Contoh kasus terlampir.
Note : Warna kolom biru muda = sabtu
Warna kolom biru tua = minggu
Warna kolom ungu = hari libur nasional
Saya sudah buat makro-nya sedikit dan masih masih perlu banyak modifikasi
dari para master. Kriteria pembatasan tanggal ada di dalam makro dengan tag
Tgl = "01-Jan-2012" (jika bisa rumus makro agar dapat dirubah sesuai dengan
permintaan user)
Terima kasih.
Regards,
Isti
- 4a.
-
Re: Memasukkan data ke dalam sheet lain dengan dua kriteria
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 12, 2012 6:23 pm (PST)
maaf...
perasaan sudah pencet SEND dari kemarin,
pagi ini kok ternyata masih 'slonjor' di folder DRAFT..
sebulan terakhir ini memang sedang sering salah pencet...
--------------------
Sebelum pencet send ingin bertanya dulu ke Oom "Astr*i* Ist*o*"
apakah ada jaminan bahwa tanggal cuti (TglStart - TglEnd) PASTI diisi dengan
* 2 tanggal yg berada di kurun BULAN&TAHUN yg sama* ??
(maksudku tidak akan ada misalnya: 29 Jan 2012 to 4 Feb 2012
Di makro ebrikut ini, jika ada tgl diluar PERIODE BULAN REPORT maka
tgl End akan dianggap tgl akhir bulan...
--------------------- ----
Bismillahirrahmaanirrahiim.. .
Sub Generate_CutiReport()
' coded by: Indri Hapsari
' 12 dec 2012 // jkt. / BeExcelCase #15152
'-------------------- --------- --------- ----
Dim dTabel As Range, dRekap As Range, Libur As Range
Dim TglAwal As Date, TglAkir As Date, vTgl As Date
Dim i As Integer, c As Integer, CriYYMM As String
Dim Tipe As String, cuti As String
Set dTabel = Sheet4.Cells(1).CurrentRegion
Set dRekap = Sheet5.Cells(1).CurrentRegion .Offset(1, 3)
Set Libur = Application.Range("LiburNas" )
CriYYMM = Format(Sheet5.Cells(2). Value, "yyMM")
dRekap.Parent.Activate
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To dTabel.Rows.Count
dRekap(i, -2) = i - 1 ' no #
dRekap(i, -1) = dTabel(i, 1) ' ID
dRekap(i, 0) = dTabel(i, 2) ' Nama
If LCase(dTabel(i, 6)) Like "approved*" Then
TglAwal = dTabel(i, 3): TglAkir = dTabel(i, 4)
If TglAkir > DateSerial(Year(TglAwal), Month(TglAwal) + 1, 0) _
Then TglAkir = DateSerial( _
Year(TglAwal), Month(TglAwal) + 1, 0)
Select Case dTabel(i, 5).Value
Case "AnnualLeave": Tipe = "L"
Case "EmergencyLeave": Tipe = "L"
Case "Menstruation Leave": Tipe = "ML"
Case "Sick Leave": Tipe = "S"
Case "Compasionate*": Tipe = "CL"
Case "Child's BaptismLeave": Tipe = "O"
Case "Hospitalization": Tipe = "S"
Case "MaternityLeave": Tipe = "MTR"
Case "UnpaidLeave": Tipe = "UL"
Case "Child's WeddingLeave": Tipe = "CW"
Case "Marriage Leave": Tipe = "MR"
End Select
' TipeCuti ditulis bersyarat (nonMinggu & NonLibur)
If Format(dTabel(i, 3).Value, "yyMM") = CriYYMM Then
For c = Day(TglAwal) To Day(TglAkir)
vTgl = dRekap(1, c).Value
If Weekday(vTgl) > 1 Then dRekap(i, c) = Tipe
If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
Then dRekap(i, c) = vbNullString
Next c
End If
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutoma tic
End Sub
rgds,
- i -
*
*
*2012/1/12 Isti Astro <milisastro@gmail.com >
*
>
> * *
>
> *Dear para master,
> Butuh bantuannya untuk kasus berikut ini, saat ini ada tugas untuk
> memasukkan data dari satu sheet ke sheet lain...bagaimana rumus makro untuk
> memasukkan data yang ada di sheet1 ke dalam masing-masing kolom tanggal
> sesuai dengan nomor ID dan tanggal awal (start date) dan diisi sampai
> dengan tanggal akhir (end date) namun jika minggu atau hari libur nasional
> berarti kosong/dilewati. Contoh kasus terlampir.
>
> Note : Warna kolom biru muda = sabtu
> Warna kolom biru tua = minggu
> Warna kolom ungu = hari libur nasional
>
> Saya sudah buat makro-nya sedikit dan masih masih perlu banyak modifikasi
> dari para master. Kriteria pembatasan tanggal ada di dalam makro dengan tag
> Tgl = "01-Jan-2012" (jika bisa rumus makro agar dapat dirubah sesuai dengan
> permintaan user)
>
> Terima kasih.
>
> Regards,
> Isti*
>
- 4b.
-
Re: Memasukkan data ke dalam sheet lain dengan dua kriteria
Posted by: "Isti Astro" milisastro@gmail.com isti_astro
Thu Jan 12, 2012 7:00 pm (PST)
Wah mantap banget memang Bu Guru Siti solusinya, iya bu benar pasti ada
data cuti yang seperti itu (29 Jan 2012 - 4 Feb 2012) dan bisa lebih
panjang (29 jan 2012 - 15 Feb 2012) karena sick leave misalnya. Apakah ada
makronya untuk data seperti itu?
Matur suwun sanget...
2012/1/13 i Haps <hapsari.stlizbeth@gmail.com >
> **
>
>
> maaf...
> perasaan sudah pencet SEND dari kemarin,
> pagi ini kok ternyata masih 'slonjor' di folder DRAFT..
>
> sebulan terakhir ini memang sedang sering salah pencet...
> --------------------
>
> Sebelum pencet send ingin bertanya dulu ke Oom "Astr*i* Ist*o*"
> apakah ada jaminan bahwa tanggal cuti (TglStart - TglEnd) PASTI diisi
> dengan
> * 2 tanggal yg berada di kurun BULAN&TAHUN yg sama* ??
> (maksudku tidak akan ada misalnya: 29 Jan 2012 to 4 Feb 2012
> Di makro ebrikut ini, jika ada tgl diluar PERIODE BULAN REPORT maka
> tgl End akan dianggap tgl akhir bulan...
> --------------------- ----
>
> Bismillahirrahmaanirrahiim.. .
> Sub Generate_CutiReport()
> ' coded by: Indri Hapsari
> ' 12 dec 2012 // jkt. / BeExcelCase #15152
> '-------------------- --------- --------- ----
> Dim dTabel As Range, dRekap As Range, Libur As Range
> Dim TglAwal As Date, TglAkir As Date, vTgl As Date
> Dim i As Integer, c As Integer, CriYYMM As String
> Dim Tipe As String, cuti As String
>
> Set dTabel = Sheet4.Cells(1).CurrentRegion
> Set dRekap = Sheet5.Cells(1).CurrentRegion .Offset(1, 3)
> Set Libur = Application.Range("LiburNas" )
> CriYYMM = Format(Sheet5.Cells(2). Value, "yyMM")
> dRekap.Parent.Activate
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
> For i = 2 To dTabel.Rows.Count
> dRekap(i, -2) = i - 1 ' no #
> dRekap(i, -1) = dTabel(i, 1) ' ID
> dRekap(i, 0) = dTabel(i, 2) ' Nama
> If LCase(dTabel(i, 6)) Like "approved*" Then
> TglAwal = dTabel(i, 3): TglAkir = dTabel(i, 4)
> If TglAkir > DateSerial(Year(TglAwal), Month(TglAwal) + 1, 0) _
> Then TglAkir = DateSerial( _
> Year(TglAwal), Month(TglAwal) + 1, 0)
>
> Select Case dTabel(i, 5).Value
> Case "AnnualLeave": Tipe = "L"
> Case "EmergencyLeave": Tipe = "L"
> Case "Menstruation Leave": Tipe = "ML"
> Case "Sick Leave": Tipe = "S"
> Case "Compasionate*": Tipe = "CL"
> Case "Child's BaptismLeave": Tipe = "O"
> Case "Hospitalization": Tipe = "S"
> Case "MaternityLeave": Tipe = "MTR"
> Case "UnpaidLeave": Tipe = "UL"
> Case "Child's WeddingLeave": Tipe = "CW"
> Case "Marriage Leave": Tipe = "MR"
> End Select
>
> ' TipeCuti ditulis bersyarat (nonMinggu & NonLibur)
> If Format(dTabel(i, 3).Value, "yyMM") = CriYYMM Then
> For c = Day(TglAwal) To Day(TglAkir)
> vTgl = dRekap(1, c).Value
> If Weekday(vTgl) > 1 Then dRekap(i, c) = Tipe
> If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
> Then dRekap(i, c) = vbNullString
> Next c
> End If
> End If
> Next i
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutoma tic
> End Sub
>
> rgds,
> - i -
>
> *
> *
> *2012/1/12 Isti Astro <milisastro@gmail.com >
> *
>>
>> * *
>>
>> *Dear para master,
>> Butuh bantuannya untuk kasus berikut ini, saat ini ada tugas untuk
>> memasukkan data dari satu sheet ke sheet lain...bagaimana rumus makro untuk
>> memasukkan data yang ada di sheet1 ke dalam masing-masing kolom tanggal
>> sesuai dengan nomor ID dan tanggal awal (start date) dan diisi sampai
>> dengan tanggal akhir (end date) namun jika minggu atau hari libur nasional
>> berarti kosong/dilewati. Contoh kasus terlampir.
>>
>> Note : Warna kolom biru muda = sabtu
>> Warna kolom biru tua = minggu
>> Warna kolom ungu = hari libur nasional
>>
>> Saya sudah buat makro-nya sedikit dan masih masih perlu banyak modifikasi
>> dari para master. Kriteria pembatasan tanggal ada di dalam makro dengan tag
>> Tgl = "01-Jan-2012" (jika bisa rumus makro agar dapat dirubah sesuai dengan
>> permintaan user)
>>
>> Terima kasih.
>>
>> Regards,
>> Isti*
>>
>
>
- 4c.
-
Re: Memasukkan data ke dalam sheet lain dengan dua kriteria
Posted by: "Isti Astro" milisastro@gmail.com isti_astro
Thu Jan 12, 2012 7:52 pm (PST)
Bu Siti ternyata setelah di aplikasikan banyak error terjadi, karena di
contoh makro dan file solusi Bu siti, untuk tabel drekap diisi lewat
makro...sedang di data contoh yang saya kirim maksudnya adalah tabel rekap
sudah ada dan data yang ada di sember data hanya dipindahkan ke rekap
sesuai dengan nomor ID dan tanggal pengajuan. (kalo pakai rumus seperti
vlookup)
Mohon informasinya
2012/1/13 Isti Astro <milisastro@gmail.com >
> Wah mantap banget memang Bu Guru Siti solusinya, iya bu benar pasti ada
> data cuti yang seperti itu (29 Jan 2012 - 4 Feb 2012) dan bisa lebih
> panjang (29 jan 2012 - 15 Feb 2012) karena sick leave misalnya. Apakah ada
> makronya untuk data seperti itu?
>
> Matur suwun sanget...
>
>
> 2012/1/13 i Haps <hapsari.stlizbeth@gmail.com >
>
>> **
>>
>>
>> maaf...
>> perasaan sudah pencet SEND dari kemarin,
>> pagi ini kok ternyata masih 'slonjor' di folder DRAFT..
>>
>> sebulan terakhir ini memang sedang sering salah pencet...
>> --------------------
>>
>> Sebelum pencet send ingin bertanya dulu ke Oom "Astr*i* Ist*o*"
>> apakah ada jaminan bahwa tanggal cuti (TglStart - TglEnd) PASTI diisi
>> dengan
>> * 2 tanggal yg berada di kurun BULAN&TAHUN yg sama* ??
>> (maksudku tidak akan ada misalnya: 29 Jan 2012 to 4 Feb 2012
>> Di makro ebrikut ini, jika ada tgl diluar PERIODE BULAN REPORT maka
>> tgl End akan dianggap tgl akhir bulan...
>> --------------------- ----
>>
>> Bismillahirrahmaanirrahiim.. .
>> Sub Generate_CutiReport()
>> ' coded by: Indri Hapsari
>> ' 12 dec 2012 // jkt. / BeExcelCase #15152
>> '-------------------- --------- --------- ----
>> Dim dTabel As Range, dRekap As Range, Libur As Range
>> Dim TglAwal As Date, TglAkir As Date, vTgl As Date
>> Dim i As Integer, c As Integer, CriYYMM As String
>> Dim Tipe As String, cuti As String
>>
>> Set dTabel = Sheet4.Cells(1).CurrentRegion
>> Set dRekap = Sheet5.Cells(1).CurrentRegion .Offset(1, 3)
>> Set Libur = Application.Range("LiburNas" )
>> CriYYMM = Format(Sheet5.Cells(2). Value, "yyMM")
>> dRekap.Parent.Activate
>> Application.ScreenUpdating = False
>> Application.Calculation = xlCalculationManual
>>
>> For i = 2 To dTabel.Rows.Count
>> dRekap(i, -2) = i - 1 ' no #
>> dRekap(i, -1) = dTabel(i, 1) ' ID
>> dRekap(i, 0) = dTabel(i, 2) ' Nama
>> If LCase(dTabel(i, 6)) Like "approved*" Then
>> TglAwal = dTabel(i, 3): TglAkir = dTabel(i, 4)
>> If TglAkir > DateSerial(Year(TglAwal), Month(TglAwal) + 1, 0) _
>> Then TglAkir = DateSerial( _
>> Year(TglAwal), Month(TglAwal) + 1, 0)
>>
>> Select Case dTabel(i, 5).Value
>> Case "AnnualLeave": Tipe = "L"
>> Case "EmergencyLeave": Tipe = "L"
>> Case "Menstruation Leave": Tipe = "ML"
>> Case "Sick Leave": Tipe = "S"
>> Case "Compasionate*": Tipe = "CL"
>> Case "Child's BaptismLeave": Tipe = "O"
>> Case "Hospitalization": Tipe = "S"
>> Case "MaternityLeave": Tipe = "MTR"
>> Case "UnpaidLeave": Tipe = "UL"
>> Case "Child's WeddingLeave": Tipe = "CW"
>> Case "Marriage Leave": Tipe = "MR"
>> End Select
>>
>> ' TipeCuti ditulis bersyarat (nonMinggu & NonLibur)
>> If Format(dTabel(i, 3).Value, "yyMM") = CriYYMM Then
>> For c = Day(TglAwal) To Day(TglAkir)
>> vTgl = dRekap(1, c).Value
>> If Weekday(vTgl) > 1 Then dRekap(i, c) = Tipe
>> If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
>> Then dRekap(i, c) = vbNullString
>> Next c
>> End If
>> End If
>> Next i
>> Application.ScreenUpdating = True
>> Application.Calculation = xlCalculationAutoma tic
>> End Sub
>>
>> rgds,
>> - i -
>>
>> *
>> *
>> *2012/1/12 Isti Astro <milisastro@gmail.com >
>> *
>>>
>>> * *
>>>
>>> *Dear para master,
>>> Butuh bantuannya untuk kasus berikut ini, saat ini ada tugas untuk
>>> memasukkan data dari satu sheet ke sheet lain...bagaimana rumus makro untuk
>>> memasukkan data yang ada di sheet1 ke dalam masing-masing kolom tanggal
>>> sesuai dengan nomor ID dan tanggal awal (start date) dan diisi sampai
>>> dengan tanggal akhir (end date) namun jika minggu atau hari libur nasional
>>> berarti kosong/dilewati. Contoh kasus terlampir.
>>>
>>> Note : Warna kolom biru muda = sabtu
>>> Warna kolom biru tua = minggu
>>> Warna kolom ungu = hari libur nasional
>>>
>>> Saya sudah buat makro-nya sedikit dan masih masih perlu banyak
>>> modifikasi dari para master. Kriteria pembatasan tanggal ada di dalam makro
>>> dengan tag Tgl = "01-Jan-2012" (jika bisa rumus makro agar dapat dirubah
>>> sesuai dengan permintaan user)
>>>
>>> Terima kasih.
>>>
>>> Regards,
>>> Isti*
>>>
>>
>>
>
>
- 4d.
-
Re: Memasukkan data ke dalam sheet lain dengan dua kriteria
Posted by: "Isti" milisastro@gmail.com isti_astro
Fri Jan 13, 2012 1:17 am (PST)
Maaf jika salah sebut ternyata...Bu Haps ya? apakah ada solusi lanjutan untuk problem saya tersebut, saya sudah coba utak-atik dengan mengganti coding :
--------------------- --------- -------
IGems = dTabel(i, 2) ' ID
--------------------- --------- -------
dan
--------------------- --------- --------- --------- ------
For c = Day(TglAwal) To Day(TglAkir)
vTgl = dRekap(1, c).Value
If Weekday(vTgl) > 1 Then dRekap(IGems, c) = Tipe
If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
Then dRekap(i, c) = vbNullString
Next c
--------------------- --------- --------- --------- ------
Namun yang terisi kok cuma tiga employee ID saja, sedangkan yang lain kosong sedang datanya ada sekitar 500. Mohon bantuannya Bu Haps dan para master sekalian.
Regards,
Isti
--- In belajar-excel@yahoogroups. , Isti Astro <milisastro@com ...> wrote:
>
> Bu Siti ternyata setelah di aplikasikan banyak error terjadi, karena di
> contoh makro dan file solusi Bu siti, untuk tabel drekap diisi lewat
> makro...sedang di data contoh yang saya kirim maksudnya adalah tabel rekap
> sudah ada dan data yang ada di sember data hanya dipindahkan ke rekap
> sesuai dengan nomor ID dan tanggal pengajuan. (kalo pakai rumus seperti
> vlookup)
>
> Mohon informasinya
>
> 2012/1/13 Isti Astro <milisastro@...>
>
> > Wah mantap banget memang Bu Guru Siti solusinya, iya bu benar pasti ada
> > data cuti yang seperti itu (29 Jan 2012 - 4 Feb 2012) dan bisa lebih
> > panjang (29 jan 2012 - 15 Feb 2012) karena sick leave misalnya. Apakah ada
> > makronya untuk data seperti itu?
> >
> > Matur suwun sanget...
> >
> >
> > 2012/1/13 i Haps <hapsari.stlizbeth@...>
> >
> >> **
> >>
> >>
> >> maaf...
> >> perasaan sudah pencet SEND dari kemarin,
> >> pagi ini kok ternyata masih 'slonjor' di folder DRAFT..
> >>
> >> sebulan terakhir ini memang sedang sering salah pencet...
> >> --------------------
> >>
> >> Sebelum pencet send ingin bertanya dulu ke Oom "Astr*i* Ist*o*"
> >> apakah ada jaminan bahwa tanggal cuti (TglStart - TglEnd) PASTI diisi
> >> dengan
> >> * 2 tanggal yg berada di kurun BULAN&TAHUN yg sama* ??
> >> (maksudku tidak akan ada misalnya: 29 Jan 2012 to 4 Feb 2012
> >> Di makro ebrikut ini, jika ada tgl diluar PERIODE BULAN REPORT maka
> >> tgl End akan dianggap tgl akhir bulan...
> >> --------------------- ----
> >>
> >> Bismillahirrahmaanirrahiim.. .
> >> Sub Generate_CutiReport()
> >> ' coded by: Indri Hapsari
> >> ' 12 dec 2012 // jkt. / BeExcelCase #15152
> >> '-------------------- --------- --------- ----
> >> Dim dTabel As Range, dRekap As Range, Libur As Range
> >> Dim TglAwal As Date, TglAkir As Date, vTgl As Date
> >> Dim i As Integer, c As Integer, CriYYMM As String
> >> Dim Tipe As String, cuti As String
> >>
> >> Set dTabel = Sheet4.Cells(1).CurrentRegion
> >> Set dRekap = Sheet5.Cells(1).CurrentRegion .Offset(1, 3)
> >> Set Libur = Application.Range("LiburNas" )
> >> CriYYMM = Format(Sheet5.Cells(2). Value, "yyMM")
> >> dRekap.Parent.Activate
> >> Application.ScreenUpdating = False
> >> Application.Calculation = xlCalculationManual
> >>
> >> For i = 2 To dTabel.Rows.Count
> >> dRekap(i, -2) = i - 1 ' no #
> >> dRekap(i, -1) = dTabel(i, 1) ' ID
> >> dRekap(i, 0) = dTabel(i, 2) ' Nama
> >> If LCase(dTabel(i, 6)) Like "approved*" Then
> >> TglAwal = dTabel(i, 3): TglAkir = dTabel(i, 4)
> >> If TglAkir > DateSerial(Year(TglAwal), Month(TglAwal) + 1, 0) _
> >> Then TglAkir = DateSerial( _
> >> Year(TglAwal), Month(TglAwal) + 1, 0)
> >>
> >> Select Case dTabel(i, 5).Value
> >> Case "AnnualLeave": Tipe = "L"
> >> Case "EmergencyLeave": Tipe = "L"
> >> Case "Menstruation Leave": Tipe = "ML"
> >> Case "Sick Leave": Tipe = "S"
> >> Case "Compasionate*": Tipe = "CL"
> >> Case "Child's BaptismLeave": Tipe = "O"
> >> Case "Hospitalization": Tipe = "S"
> >> Case "MaternityLeave": Tipe = "MTR"
> >> Case "UnpaidLeave": Tipe = "UL"
> >> Case "Child's WeddingLeave": Tipe = "CW"
> >> Case "Marriage Leave": Tipe = "MR"
> >> End Select
> >>
> >> ' TipeCuti ditulis bersyarat (nonMinggu & NonLibur)
> >> If Format(dTabel(i, 3).Value, "yyMM") = CriYYMM Then
> >> For c = Day(TglAwal) To Day(TglAkir)
> >> vTgl = dRekap(1, c).Value
> >> If Weekday(vTgl) > 1 Then dRekap(i, c) = Tipe
> >> If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
> >> Then dRekap(i, c) = vbNullString
> >> Next c
> >> End If
> >> End If
> >> Next i
> >> Application.ScreenUpdating = True
> >> Application.Calculation = xlCalculationAutoma tic
> >> End Sub
> >>
> >> rgds,
> >> - i -
> >>
> >> *
> >> *
> >> *2012/1/12 Isti Astro <milisastro@...>
> >> *
> >>>
> >>> * *
> >>>
> >>> *Dear para master,
> >>> Butuh bantuannya untuk kasus berikut ini, saat ini ada tugas untuk
> >>> memasukkan data dari satu sheet ke sheet lain...bagaimana rumus makro untuk
> >>> memasukkan data yang ada di sheet1 ke dalam masing-masing kolom tanggal
> >>> sesuai dengan nomor ID dan tanggal awal (start date) dan diisi sampai
> >>> dengan tanggal akhir (end date) namun jika minggu atau hari libur nasional
> >>> berarti kosong/dilewati. Contoh kasus terlampir.
> >>>
> >>> Note : Warna kolom biru muda = sabtu
> >>> Warna kolom biru tua = minggu
> >>> Warna kolom ungu = hari libur nasional
> >>>
> >>> Saya sudah buat makro-nya sedikit dan masih masih perlu banyak
> >>> modifikasi dari para master. Kriteria pembatasan tanggal ada di dalam makro
> >>> dengan tag Tgl = "01-Jan-2012" (jika bisa rumus makro agar dapat dirubah
> >>> sesuai dengan permintaan user)
> >>>
> >>> Terima kasih.
> >>>
> >>> Regards,
> >>> Isti*
> >>>
> >>
> >>
> >
> >
>
- 5a.
-
Re: Formula terbilang
Posted by: "Adi Irawan" airawanp@gmail.com
Thu Jan 12, 2012 6:52 pm (PST)
Pak Kid, terima kasih banyak untuk bantuannya ya..
Bu Inri, File yang saya maksud adalah file yng di kirim oleh pak Djati bu,
maap saya lupa mendeskripsikannya terlebih dahulu hehehe
2012/1/12 i Haps <hapsari.stlizbeth@gmail.com >
>
> berhubung dlm topik ini banyak sekali file "terbilang" yg dikirimkan oleh
> para penanggap, kita perlu tahu: file yg mana yg anda pakai
>
> bisakah di tunjukkan dengan jelas, atau dilampirkan ?
> atau paling tidak kutipkan full text ex Prosedur UDF nya ?
> (makronya)
>
> sekedar komentar
> sebanarnya "terbilng yg baik" tidak perlu menuliskan "RUPIAH" secara
> hard-coded didalam UDF nya
> karena para pengguna bisa menambahkan sendiri sesuai keperluan
> Mosa;nya =Terbilang(A1) & " Rupiah"
>
> Lha mosok* mengukur panjangnya jalan*, hasilnya harus dikatakan :
> *"hasil pengukuran jalan XFG = limaribu empat ratus dua puluh tiga
> RUPIAH !!"*
> aya-aya wae si programer...
>
>
> 2012/1/12 Adi Irawan <airawanp@gmail.com >
>> Pak kid, terima kasih banyak untuk infonya..
>> o Ia kalau terbilangnya tidak pake rupiah gimana ya ?
>> saya coba2 utak atik tapi malah eror.heheh
>> mohon petunjuknya
- 5b.
-
Re: Formula terbilang
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Jan 12, 2012 8:04 pm (PST)
Jika ingin PROGRAM itu sendiri yg meniadakan "Rupiah" dan "Sen" nya
di bagian prosedur fungsi Terbilang / *Function Terbilang(....)*
lihat di bagian terbawah di BLOK Select Case (2 blok)
bisa di-obok-obok menjadi seperti ini
'-------------
Select Case Rupiah
Case ""
Rupiah = "Nol" ' Rupiah"
Case Else
Rupiah = Rupiah ' & "Rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen &* "Per-Seratus"* ' "Sen"
End Select
'------------
warna font BIRU adalah keyword yg ditambahkan
warna font merah adalah keyword yg dihapus / di nonaktip-kan
Atau,
berhubung tiap blok hanya mengandung 2 (dua) "SELECT"(ion)
sekalian kita bisa mengubah menajdi struktur IF - THEN - ELSE yg
mengurangi cacah baris program.
Selain itu di bagian deklarasi variable, kita masih bisa meningkatkan *speed
*
makro ini dengan menentukan TYPE DATA tiap variables-nya
(saat ini di deklarasikan sebagai VARIANT semua)
di milis ini pernah dibahwa dan dibuktikan bahwa variable y gdideklarasikan
dan ditentukan typedatanya dengan tepat ternyata JALAN lebih cepat daripada
program yg sama tetapi variablenya tidak dideklarsaikan (yg berarti
ostosmastis
dianggap VARIANT yg memerlukan "jatah memori" lebih besar)
CMIIW
2012/1/13 Adi Irawan <airawanp@gmail.com >
>
> Bu Inri, File yang saya maksud adalah file yng di kirim oleh pak Djati bu,
> maap saya lupa mendeskripsikannya terlebih dahulu hehehe
>
>
> 2012/1/12 i Haps <hapsari.stlizbeth@gmail.com >
> > berhubung dlm topik ini banyak sekali file "terbilang" yg dikirimkan
oleh
> > para penanggap, kita perlu tahu: file yg mana yg anda pakai
> > bisakah di tunjukkan dengan jelas, atau dilampirkan ?
> > atau paling tidak kutipkan full text ex Prosedur UDF nya ?
> > (makronya)
>
> >
> > 2012/1/12 Adi Irawan <airawanp@gmail.com >
> >> o Ia kalau terbilangnya tidak pake rupiah gimana ya ?
> >> saya coba2 utak atik tapi malah eror.heheh
- 6a.
-
Fungsi hitung jumlah karakter dalam satu cell
Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm
Thu Jan 12, 2012 9:07 pm (PST)
Salam Para Master Excel,
Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter dlam satu cell.
Contoh :
Dalam satu cell ada kata "MATEMATIKA"
Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
Jawabannya adalah 3.
Mohon pencerahannya.
Makasih.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT - 6b.
-
Re: Fungsi hitung jumlah karakter dalam satu cell
Posted by: "Udin Haeruddin" herumamuda@gmail.com ruddin1795
Thu Jan 12, 2012 10:18 pm (PST)
Misal kata "MATEMATIKA" ada di sel A1:
=LEN(A1)-LEN(SUBSTITUTE( A1,"A","" ))
===================== ========= ========= ===
Mods Note
Pak Udin, untuk posting tanggapan y.a.d.
Footer yg dari Yahoo!Groups musti kudu harus
didelete dulu agar milisnya rapi (dan sesuai pula
dengan peraturan yg sudah tertulis)
tks // keep posting...
===================== ========= ========= ====
Pada 13 Januari 2012 12:07, <yusajing_ehm@yahoo.com > menulis:
> Salam Para Master Excel,
> Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter
> dlam satu cell.
>
> Contoh :
> Dalam satu cell ada kata "MATEMATIKA"
>
> Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
>
> Jawabannya adalah 3.
>
> Mohon pencerahannya.
> Makasih.
--
====== Haeruddin, S.Pd ======
- 6c.
-
Fungsi hitung jumlah karakter dalam satu cell
Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm
Thu Jan 12, 2012 10:24 pm (PST)
Salam Para Master Excel,
Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter dlam satu cell.
Contoh :
Dalam satu cell ada kata "MATEMATIKA"
Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
Jawabannya adalah 3.
Mohon pencerahannya.
Makasih.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT - 6d.
-
Bls: [belajar-excel] Fungsi hitung jumlah karakter dalam satu cell
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Fri Jan 13, 2012 12:58 am (PST)
alternatif lain dengan formula array (enter+shift+ctrl)
{=SUM(IF(MID($A1;ROW(A: A);1)="A" ;1))}
wassalam
Ghozi Alkatiri
--- Pada Jum, 13/1/12, yusajing_ehm@yahoo.com <yusajing_ehm@yahoo.com > menulis:
Dari: yusajing_ehm@yahoo.com <yusajing_ehm@yahoo.com >
Judul: [belajar-excel] Fungsi hitung jumlah karakter dalam satu cell
Kepada: "Belajar Excel Grups" <belajar-excel@yahoogroups. >com
Tanggal: Jumat, 13 Januari, 2012, 1:24 PM
Salam Para Master Excel,
Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter dlam satu cell.
Contoh :
Dalam satu cell ada kata "MATEMATIKA"
Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
Jawabannya adalah 3.
Mohon pencerahannya.
Makasih.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
--------------------- --------- ------
--------------------- --------- --------- --------- --------- -
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@yahoogroup s.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@ yahoogroups. com
--------------------- --------- --------- --------- --------- -Yahoo! Groups Links
- 6e.
-
Re: Fungsi hitung jumlah karakter dalam satu cell
Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi
Fri Jan 13, 2012 2:04 am (PST)
alternatif lagi tetap dengan Array Formula, yg di 'sono'nya prosesnya
agak lebih cepat;
karena, katanya, tidak harus mengulang loop sebanyak row yg ada di sheet
tetapi cukup loop sebanyak karakter yg ada di TEXT / data rujukan
=SUM( IF(MID(A2, *ROW(INDIRECT("1:"&LEN( A2)))*,1) ="A", 1, 0) )
2012/1/13 ghozi alkatiri <ghozialkatiri@yahoo.co. >id
> alternatif lain dengan formula array (enter+shift+ctrl)
> {=SUM(IF(MID($A1;*ROW( A:A)*;1)= "A";1))}
>
> wassalam
> Ghozi Alkatiri
>
*> --- Pada Jum, 13/1/12, yusajing_ehm@yahoo.com <yusajing_ehm@yahoo.com >
menulis:
> Salam Para Master Excel,
> Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter
dlam satu cell.
> Contoh :
> Dalam satu cell ada kata "MATEMATIKA"
> Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
> Jawabannya adalah 3.
> Mohon pencerahannya.
> Makasih.*
- 6f.
-
Re: Fungsi hitung jumlah karakter dalam satu cell
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Fri Jan 13, 2012 2:07 am (PST)
Bukannya biasanya pakai Len( a2 ) - Len( substitute( a2 , "A" , "" ) )
Kid.
2012/1/13 siti Vi <setiyowati.devi@gmail.com >
> **
>
>
> alternatif lagi tetap dengan Array Formula, yg di 'sono'nya prosesnya
> agak lebih cepat;
> karena, katanya, tidak harus mengulang loop sebanyak row yg ada di sheet
> tetapi cukup loop sebanyak karakter yg ada di TEXT / data rujukan
>
> =SUM( IF(MID(A2, *ROW(INDIRECT("1:"&LEN( A2)))*,1) ="A", 1, 0) )
>
>
>
> 2012/1/13 ghozi alkatiri <ghozialkatiri@yahoo.co. >id
> > alternatif lain dengan formula array (enter+shift+ctrl)
> > {=SUM(IF(MID($A1;*ROW( A:A)*;1)= "A";1))}
> >
> > wassalam
> > Ghozi Alkatiri
> >
> *
> > --- Pada Jum, 13/1/12, yusajing_ehm@yahoo.com <yusajing_ehm@yahoo.com >
> menulis:
> > Salam Para Master Excel,
> > Saya ingin bertanya, adakah fungsi yang dapat menghitung suatu karakter
> dlam satu cell.
> > Contoh :
> > Dalam satu cell ada kata "MATEMATIKA"
> > Lalu saya ingin tau ada berapa jumlah huruf "A" di dalam kalimat berikut.
> > Jawabannya adalah 3.
> > Mohon pencerahannya.
> > Makasih.
> *
>
>
>
- 7a.
-
Unlock VBA
Posted by: "Riska Wahyu Nirmalasari" Riska.Nirmalasari@danone.com
Fri Jan 13, 2012 12:41 am (PST)
Dear Pakar excel,
Adakah cara untuk men- unlock password VBA apabila kita lupa passwordnya.
Demikian dan terimakasih.
Regards,
Riska Wahyu N.
QA Admin TIV Pandaan
riska.nirmalasari@danone.com - 7b.
-
Re: Unlock VBA
Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi
Fri Jan 13, 2012 1:10 am (PST)
sebuah workbook, paling tidak bisa diproteksi WORKBOOK, Sheetnya
(individual)
dan VBAProject-nya
meRESET kembali pasword pada workbook; secara "biasa" tidak ada caranya
kecuali mencoba semua kemungkian rangkaian huruf
tetapi di internet bayak ditawarkan *software* yg bisa me "Recover"
password
yg terlupa
ada yg gratis, ada yg versi DEMO (coba dulu) ada yg versi berbayar
Browsinglah dengan kata kunci "password recovery" atau senada dgn itu.
Diihat secara pribadi :
*"AKU LUPA Pasword untuk dokumen buatanku sendiri dan ingin membukanya
lagi"*
Dilihat secara umum:
*"AKU INGIN MEMBONGKAR pasword dokument orang lain"*
keduanya sulit dibedakan...
Nah ini, hanya sekedar sebuah pandangan, bahwa sesuatu kadang tidak dapat
kita lihat dari sudut kita sendiri saja.....
CMIIW
2012/1/13 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com >
> **
> Dear Pakar excel,
>
> Adakah cara untuk men- unlock password VBA apabila kita lupa passwordnya.
> Demikian dan terimakasih.
>
> Regards,
>
> Riska Wahyu N.
> QA Admin TIV Pandaan
> riska.nirmalasari@danone.com <riska.nirmalasari@danone.com >
>
- 7c.
-
Re: Unlock VBA
Posted by: "Riska Wahyu Nirmalasari" Riska.Nirmalasari@danone.com
Fri Jan 13, 2012 2:10 am (PST)
Memang benar untuk pandangan yg diberikan sama Mbak Siti, antara kebutuhan
kita untuk file kita sendiri yg kadang diartikan lain oleh orang lain.
Terimakasih mbak atas masukkannya, akan saya coba cari. Agar tidak terlock
lagi.
Regards,
Riska Wahyu N.
From:
siti Vi <setiyowati.devi@gmail.com >
To:
belajar-excel@yahoogroups. com
Date:
01/13/12 04:13 PM
Subject:
Re: [belajar-excel] Unlock VBA
Sent by:
belajar-excel@yahoogroups. com
sebuah workbook, paling tidak bisa diproteksi WORKBOOK, Sheetnya
(individual)
dan VBAProject-nya
meRESET kembali pasword pada workbook; secara "biasa" tidak ada caranya
kecuali mencoba semua kemungkian rangkaian huruf
tetapi di internet bayak ditawarkan software yg bisa me "Recover"
password
yg terlupa
ada yg gratis, ada yg versi DEMO (coba dulu) ada yg versi berbayar
Browsinglah dengan kata kunci "password recovery" atau senada dgn itu.
Diihat secara pribadi :
"AKU LUPA Pasword untuk dokumen buatanku sendiri dan ingin membukanya
lagi"
Dilihat secara umum:
"AKU INGIN MEMBONGKAR pasword dokument orang lain"
keduanya sulit dibedakan...
Nah ini, hanya sekedar sebuah pandangan, bahwa sesuatu kadang tidak dapat
kita lihat dari sudut kita sendiri saja.....
CMIIW
2012/1/13 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com >
Dear Pakar excel,
Adakah cara untuk men- unlock password VBA apabila kita lupa passwordnya.
Demikian dan terimakasih.
Regards,
Riska Wahyu N.
- 8a.
-
Warna pada kolom
Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com
Fri Jan 13, 2012 1:13 am (PST)
Salam Excel,
Saya punya template untuk me-record data cuti karyawan. Untuk setiap cuti
yang diambil karyawan, saya harus mengisi template tersebut 2x yakni :
1. Mengisi kolom dengan kode : JL, AL, SL, MT, SP, atau HD (sesuai
alasan cutinya di legend).
2. Memberikan warna pada kolom sesuai kode-kodenya : Hijau Muda untuk
JL, Hijau Tua untuk AL, Merah untuk SL, Orange untuk MT, Biru Tua untuk SP, dan Putih untuk HD.
Yang ingin saya tanyakan, bagaimana saya dapat meringkas dari 2x pengerjaan menjadi 1x saja.
Mis ; ketika saya ketik kode : JL, AL, SL, MT, SP, dan HD pada kolom yang ada, maka pada kolom tersebut langsung keluar warna sesuai legend-nya sehingga saya tidak perlu memberikan warna kembali.
Jadi saya cukup ketik kode-kode cuti, maka pada kolom ybs akan keluar : kode cuti + warna kode.
Atas bantuannya diucapkan terima kasih.
Rgrds,
Budhi - 8b.
-
Re: Warna pada kolom
Posted by: "Riska Wahyu Nirmalasari" Riska.Nirmalasari@danone.com
Fri Jan 13, 2012 2:13 am (PST)
Dear Bpk. Budhy,
Untuk hal tersebut menggunakan conditional formatting.
Berikut filenya.
Regards,
Riska Wahyu N.
From:
"Budhi Cahyanto" <budhi.cahyanto@suryajayaenergy. >com
To:
<belajar-excel@yahoogroups. >com
Date:
01/13/12 04:16 PM
Subject:
[belajar-excel] Warna pada kolom
Sent by:
belajar-excel@yahoogroups. com
Salam Excel,
Saya punya template untuk me-record data cuti karyawan. Untuk setiap cuti
yang diambil karyawan, saya harus mengisi template tersebut 2x yakni :
1. Mengisi kolom dengan kode : JL, AL, SL, MT, SP, atau HD (sesuai
alasan cutinya di legend).
2. Memberikan warna pada kolom sesuai kode-kodenya : Hijau Muda untuk
JL, Hijau Tua untuk AL, Merah untuk SL, Orange untuk MT, Biru Tua untuk
SP, dan Putih untuk HD.
Yang ingin saya tanyakan, bagaimana saya dapat meringkas dari 2x
pengerjaan menjadi 1x saja.
Mis ; ketika saya ketik kode : JL, AL, SL, MT, SP, dan HD pada kolom yang
ada, maka pada kolom tersebut langsung keluar warna sesuai legend-nya
sehingga saya tidak perlu memberikan warna kembali.
Jadi saya cukup ketik kode-kode cuti, maka pada kolom ybs akan keluar :
kode cuti + warna kode.
Atas bantuannya diucapkan terima kasih.
Rgrds,
Budhi
.
[attachment "Leave Sample.xlsx" deleted by Riska Wahyu
Nirmalasari/AQUA/ID/BO/ DANONE]
- 8c.
-
Re: Warna pada kolom
Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Fri Jan 13, 2012 5:44 am (PST)
betul sekali kata mbak Riska, gunakan fitur *Conditional Formatating*
[image: ribbon style conditFormat.GIF]
[image: rules manager.PNG]
Selain itu di tiap kolom kolom sebelah kanan kolom Tanggal bisa di"pasang"
fitur *Data Validation > List* yg listnya bisa diambil dari Daftar Legend
agar nantinya JENIS CUTI tidak perlu diketikkan, tetapi cukup dipilih
dari DropDownButton yg muncul jika cell di aktifkan
[image: ribbon Data DataValidation.PNG]
[image: data validation LIST.PNG][image: dropdownlist data validation.PNG]
*o'Seno*
*
*
*
*
2012/1/13 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com >
> **
>
> Dear Bpk. Budhy,
> Untuk hal tersebut menggunakan conditional formatting.
> Berikut filenya.
> Regards,
> Riska Wahyu N.
>
> *From: "Budhi Cahyanto" <budhi.cahyanto@suryajayaenergy. >com
> Date: 01/13/12 04:16 PM
> _____________________ _________ __
> Salam Excel,
> Saya punya template untuk me-record data cuti karyawan. Untuk setiap cuti
> yang diambil karyawan, saya harus mengisi template tersebut 2x yakni :
>
> 1. Mengisi kolom dengan kode : JL, AL, SL, MT, SP, atau HD (sesuai
> alasan cutinya di legend).
>
> 2. Memberikan warna pada kolom sesuai kode-kodenya : Hijau Muda untuk
> JL, Hijau Tua untuk AL, Merah untuk SL, Orange untuk MT, Biru Tua untuk
> SP, dan Putih untuk HD.
>
> Yang ingin saya tanyakan, bagaimana saya dapat meringkas dari 2x
> pengerjaan menjadi 1x saja.
>
> Mis ; ketika saya ketik kode : JL, AL, SL, MT, SP, dan HD pada kolom yang
> ada, maka pada kolom tersebut langsung keluar warna sesuai legend-nya
> sehingga saya tidak perlu memberikan warna kembali.
>
> Jadi saya cukup ketik kode-kode cuti, maka pada kolom ybs akan keluar :
> kode cuti + warna kode.
>
> Atas bantuannya diucapkan terima kasih.
>
> Rgrds,
> Budhi
> .*
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar