Sila dicoba ubah datatype date menjadi long. Regards. Kid.
2010/8/21 STDEV(i) <[email protected]> > > > barangkali makro di excel anda belum di enabled > > > 2010/8/21 Audra Sakti <[email protected]> > > Maaf bu Siti, saya gangguin lagi. Sekali lagi mohon bantuannya, masih >> masalah yang sama... >> >> Pada tanggal 18/08/10, STDEV(i) <[email protected]> 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 >> > > > >
