Bagaimana kalau jampi-jampinya dirubah jadi begini
Private Sub CommandButton1_Click()
Dim i As Integer, Jam
On Error Resume Next
For i = 2 To 11
Jam = Split(Left(Cells(i, 1), 5), ":")
Cells(i, 2) = (Jam(0) + ((Jam(1) - (Rnd * 30)) / 60)) / 24
Next
End Sub
atau pakai mantra
*=IFERROR(-(RANDBETWEEN(1;30)/60/24)+LEFT(A2;5);"")*
Rgds,
[dp]
On 07/10/2014 8:03, [email protected] [belajar-excel] wrote:
Dear Be-Excel berhubung tidak ada yang jawab ane jawab sendiri aja
deh...udah ketemu...Hehehehe.....tapi masih ada sedikit masalah lagi,
jika kolom jam kerja "-" maka kolom masuknya menjadi kosong. . .
Semoga ini ada yang merespon...
Keterangan & File Terlampir
Thanks,B'Regards
-Agunk-
