[belajar-excel] Digest Number 1990

Milis Belajar Microsoft Excel Group

1 New Message

Digest #1990

1a

Re: Dateif di vba by "Jan Raisin"

Message

1a

Re: Dateif di vba

Thu Dec 27, 2012 5:25 am (PST) . Posted by:

"Jan Raisin"

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 <selvri_k@yahoo.com>

> **
>
>
>
> 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 <
> miss.jan.raisin@gmail.com> Reply-To: belajar-excel@yahoogroups.com To:
> belajar-excel@yahoogroups.com
>
> 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-
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

14 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>