Convert menjadi bertipe Long untuk tanggal saja atau Double untuk tanggal
dan waktu.
Contoh :
range("a2").value=clng(now)
range("a3").value=cdbl(now)
Jika kriteria filter akan menggunakan operator perbandingan :
range("a2").value=">=" & clng(now)
range("b2").value="<=" & clng(now + 10)
Regards,
Kid
2017-01-25 12:01 GMT+07:00 'Heru Safrudin'
fcprocessing.bisiked...@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid,
>
>
>
> Benar juga, dan sukses
>
> Satu pertanyaan lagi, bagaimana kode vba untuk menghasilkan Serial date ?
> karena excel langsung memformat date meski cell udah diformat general
>
>
>
> Terima kasih
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 25 Januari 2017 11:53
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Macro-Advanced Filter tidak jalan
>
>
>
>
>
> Hai Heru,
>
> Pada dasarnya, advanced filter terhadap date dengan diformat pun bisa
> ketika nilai kriteria diformat sesuai dengan regional setting komputer
> setempat.
>
> Terkadang, komputer lain menggunakan regional setting yang berbeda,
> sehingga konversi nilai kriteria tidak berjalan dengan baik.
>
> Untuk menghindari kegagalan konversi nilai kriteria akibat format yang
> tidak sesuai regional setting setempat, maka digunakanlah nilai dateserial
> number.
>
> Penggunaan operator perbandingan dimungkinkan dengan menuliskan operator
> tersebut. Contohnya >=1 yang berarti lebih dari atau sama dengan 1 jan 1900.
>
> Misalkan di cells T1 berisi suatu nilai bertipe date bernilai 1 jan 1900
> yang akan menjadi nilai kriteria, dan range kriteria ada di cells A2, maka
> di A2 bisa diberi formula berbunyi :
>
> =">=" & T1
>
> agar di A2 menghasilkan teks berbunyi >=1
>
> Jika kriterianya adalah hari ini, bisa juga di A2 diberi formula :
>
> =">=" & today()
>
> Bila waktu (jam menit detik) juga menjadi bagian kriteria, bisa dengan :
>
> =">=" & now()
>
> Contoh lain : (yang kuning dianggap sebagai header worksheet [bukan header
> tabel kriteria])
>
> A B
>
> 1 TGL TGL
>
> 2 >=1 <=22
>
>
>
> Kriteria di atas berarti memfilter tabel berdasar kolom bernama [TGL] yang
> bernilai lebih dari atau sama dengan 1 (misal 1 jan 1900) dan kurang dari
> atau sama dengan 22 (misal 22 jan 1900)
>
>
>
> Jika cells A2 di atas diberi formula =">=" & today()
>
> dan cells B2 di atas diberi formula ="<=" & today()+10
>
> maka tabel kriteria akan berarti :
>
> memfilter tabel berdasar kolom bernama [TGL] yang bernilai dari atau sama
> dengan nilai date serial number hari ini dan kurang dari atau sama dengan
> nilai date serial number 10 hari setelah hari ini.
>
>
>
> Kira-kira demikian.
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-01-25 11:28 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Mr. Kid
>
>
>
> Kenapa Kalo pake Advaced Filter manual kok bisa ya?
>
> Terus bagaimana cara menggunakan kriteria dengan operator lebih atau sama
> dengan (>=)
>
>
>
> Mohon penjelasannya
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 25 Januari 2017 11:01
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Macro-Advanced Filter tidak jalan
>
>
>
>
>
> Hai Heru,
>
> Jika ada kriteria filter yang berupa data bertipe date, aturlah agar nilai
> kriteria menampilkan dateserial number nya alias tanpa format apapun. Jadi,
> yang tampak adalah nilai 1 untuk kriteria filter 01-Jan-1900.
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-01-25 10:03 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Be-Exceller,
>
>
>
> Mohon bantuannya kenapa macro hasil record Advanced Filter saya tidak
> jalan? (file terlampir)
>
>
>
> Terima kasih
>
> Heru Safrudin
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
