Csókavár

Eljátszottam a gondolattal

Akkor én ezt most itt nem is minősíteném...

Sub TöltsedKi()
    For Each rw In Selection.Rows
    
         t = TimeValue("9:00:00") 'ekkor járunk munkába általában
         d = 15 'ennyi perces szórással érkezünk reggel
         d2 = 10 'ennyi perces szórással dolgozzuk le a nyolc órát
         k = 5 'ennyi percre kerekítjük az értékeket
        
         d = Int(d / k)
         d2 = Int(d2 / k)
        
         r = Int((2 * d + 1) * Rnd) - d
         r2 = Int((2 * d2 + 1) * Rnd) - d2
        
         r = k * r
         r2 = k * r2
        
         rw.Cells(1, 1) = DateAdd("n", r, t)
         rw.Cells(1, 2) = DateAdd("n", r + r2, DateAdd("h", 8, t))
    
    Next
End Sub