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- Pada 27 Desember 2012 11:05, Selvrida Kusumawati <[email protected]>menulis: > ** > > > Dear temans > > selvri mau tanya, jika di kolom C terdapat data tanggal, selvri mau minta > tolong temans gimana macro untuk menghitung masa kerja, jika ditulis dengan > formula bisa dengan fungsi dateif, tapi selvri pengennya dengan macro. > soalnya biar sekalian di eksekusi dari macro lainnya. > > Format tanggal di kolom c adalah mm/dd/yyyy. > > selvri coba dengan syntax berikut tapi ga bisa > with activesheet > Range("C2").Resize(Cells(Rows.Count,1).End(xlUp).Row-1).Formula = > "=Dateif(C2,Today(),""y"")&" Tahun" &Dateif(C2,Today(),""ym"")&" Bulan" > &Dateif(C2,Today(),""md"")&" hari"" > End with > Terima kasih atas bantuannya. > > Salam > Selvri > > >
