2017-10-20 3 views
0

Je veux créer un bouton qui fera ce qui suit. - Récupérer la date et l'heure actuelles -> - Cette date et l'heure plus le temps en (O2) -> - Dans la plage de cellules (L2: L11) doit être affiché si l'heure actuelle plus l'heure dans la cellule O2 est inférieur ou supérieur à la date et l'heure dans la cellule à côté de lui (plage M2: M11). La cellule L2 sera comparée avec M2, L3 avec M3 etc.Date et heure actuelles VBA

À tout moment, vous pourrez cliquer sur le bouton et il calculera s'il est à l'heure ou trop tard. Je sais comment obtenir la date actuelle mais je ne peux pas aller plus loin.

Click here for the image with the cells

Sub OnTime() 


With Range("L2:L11") 
    .Value = Now() 
    .NumberFormat = "mm/dd/yyyy h:mm:ss AM/PM" 
End With 

End Sub 
+0

Quelle est votre question? Qu'est-ce qui vous empêche de le faire si vous le souhaitez? – FunThomas

+0

Quel format de région utilisez-vous? jj-mm-aa ou mm-jj-aa? En outre, une raison quelconque pour laquelle vous ne pouvez pas utiliser des formules de feuille de calcul? – QHarr

+0

J'ai ajouté la question J'espère que cela m'expliquera davantage – pjs

Répondre

0

Pourquoi ne faites-vous pas tout simplement ce

In cell O2 type "=now" 
in cell L2 type "=IF(B1<D1,"Ontime", "Late")" 

Après que chaque fois que vous actualisez les formulaes il sera recalculé. Pour ce faire, en reliant cette macro à un bouton

Sub Refresh_formulaes() 
    Calculate 
End Sub 
+0

Merci qui fonctionnera pour moi – pjs