Dear sis Selvri, sudahkah dicoba untuk mengganti Dateif menjadi Date*D*if dengan huruf D ditengah?
Best Regard, -Ms. Jan Raisin- 2012/12/27 Selvrida Kusumawati <[email protected]> > ** > > > > Dear Miss Jan > > selvri pakai versi 2003 .. tetap ga bisa..Run-time error '1004' : > application-defined or object-defined error > tapi di versi 2007 bisa lhoh.. masalahnya dimana yaa > dim rg as range, idxRow as long > > idxrow=cells(rows.count, 3).end(xlup).row > > > set rg = range(cells(2,17 ), cells(idxrow , 17)) > > rg.formula = "=Dateif(C2,Today(),""y"")&"" Tahun "" > &Dateif(C2,Today(),""ym"") & "" Bulan "" & Dateif(C2,Today(),""md"" ) & "" > Hari "" > > Terima kasih atas bantuannya > > -------- Original Message -------- Subject: Re: [belajar-excel] Dateif > di vba Date: Thu, 27 Dec 2012 14:47:28 +0700 From: Jan Raisin < > [email protected]> Reply-To: [email protected] To: > [email protected] > > Dear Selvri, > > Coba script berikut: > > dim rg as range, idxRow as long > > ' cari nomor baris terakhir di kolom C > idxrow=cells(rows.count, 3).end(xlup).row > > ' set area yang mau dipasang formulanya > set rg = range(cells(nomor_baris_awal , nomor_kolom), cells(idxrow , > nomor_kolom)) > > ' pasang formula ke range > rg.formula="=DateDif(c2,today(),""y"") & "" Tahun "" & DateDif(c2 > ,today(),""ym"") & "" Bulan "" & DateDif(c2,today(),""yd"") & "" Hari""" > > Perhatikan pemakaian tanda kutip dua di dalam script, untuk data dengan > tipe string harus diawali 2x kutip dua dan diakhiri dengan 2x kutip dua. > Formula yang digunakan adalah Date*D*if, ada huruf D di tengah > > Best Regards, > > -Ms. Jan Raisin- > > >
