Sila dicoba ubah datatype date menjadi long.
Regards.
Kid.
2010/8/21 STDEV(i) <setiyowati.devi@gmail.com>
barangkali makro di excel anda belum di enabled
2010/8/21 Audra Sakti <Audrasakti@gmail.com>Maaf bu Siti, saya gangguin lagi. Sekali lagi mohon bantuannya, masih
masalah yang sama...
Pada tanggal 18/08/10, STDEV(i) <setiyowati.devi@gmail.com> menulis:
> Perbaikan coding
>
> Function *SiapaJabat*(RngRef As Range, Tgl As Date) As String
> ' siti Vi/ 17 Aug 2010 / Merdeka
> ' menggunakan ASUMSI II / penjelasan di sheet 1
> '----------------------------------------------
> Dim r As Long, n As Long, t As Long
> Dim TglArr() As Date, Ada As Long
> SiapaJabat = "Ketua": r = 1
> Do While RngRef(r, 1) <> ""
> For t = CLng(RngRef(r, 1)) To CLng(RngRef(r, 2))
> n = n + 1: ReDim Preserve TglArr(1 To n)
> TglArr(n) = CDate(t)
> Next t
> r = r + 1
> Loop
> On Error Resume Next
> Ada = WorksheetFunction.Match(Tgl, TglArr, 0)
> If Ada > 0 Then SiapaJabat = "Wakil Ketua"
> End Function
> '------------
>
> Tapi sayangnya
> hasilnya tidak persis sama dengan hasil array formula kiriman mas Kid;
> untuk *tgl-tgl di luar range *misal tgl *31 Des 2009 * atau *1 Mar 2010*,
> rumus mas Kid
> menghasilkan = 0 (penampakan = "Wakil Ketua") yg artinya saat itu :
> *Ketua TIDAK DITEMPAT* / *Ketua Sedang dlm Perjalanan Dinas*
>
> Satu lagi, formula ajaib dari mas Kid itu jangan di copy > pasteSpecial
> Value lho ya...
> karena nanti hasilnya akan ber-ubah menjadi nilai 1 atau 0
>
> cmiiw
> siti
>
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat menunaikan ibadah puasa... walau perut lapar, tanya excel |
| jalan terus... malu bertanya telat pulang kantor :D :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| selamat menunaikan ibadah puasa... walau perut lapar, tanya excel |
| jalan terus... malu bertanya telat pulang kantor :D :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário