Sửa giúp em code sai (1 người xem)

[phuvacgach]

For Each mycell In rgnC
       mycell.Offset(0, -1).Formula = "=vardate(mycell)"         
       Next

Function vardate(deadline As Range) As Long    
        vardate = DateDiff("d", deadline, Date)
End Function

Dear các bác,
Em có đoạn code trên de fill cong thuc vao o can tinh toan,
Em thay no sai o cho "=vardate(mycell)", cac bac nao biet sua the nao thi giup em vs
Em xin cam on

 

[hoangvuluan]

Thử sửa như thế nào xem sao:
mycell.Offset(0, -1).Formula = "=vardate(" & mycell.Address & ")"

 

[phuvacgach]

, em cảm ơn bác nhiều.
Em mầy mò suốt từ tối tời giờ-Cũng mới học vba nên cũng hơi ngu ngu
Cảm ơn bác nhiều lắm