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