Journée de travail de la Fonction pour ajouter des jours de travail
Je suis en train d'exécuter du code basé sur des dates dans la D de la colonne. Le code ci-dessous fonctionne. Mais le "si" une partie de la mise en forme conditionnelle doit être de + 30 jours de travail, pas plus de trente jours. Je suis en supposant que la JOURNÉE de travail en fonction d'aide avec cela. Mais quand j'essaie de + journée de travail(30) et des choses comme ça, je ne suis pas d'aller n'importe où.
For Each oKey In oDictionary.keys
Editing_Sheet.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=CStr(oKey)
LastRowFiltered = Editing_Sheet.Cells(Rows.Count, "A").End(xlUp).Row
If Range("D" & LastRowFiltered) <= Date + 30 Then
'run code'
- Aussi mon VBA n'est pas de reconnaître quoi que ce soit avec la journée de travail en fonction
Vous devez vous connecter pour publier un commentaire.
À utiliser la feuille de calcul Journée de travail() fonction au sein de VBA:
Set wf = Application.WorksheetFunction
, c'est le génie. Je ne sais pas pourquoi je n'ai jamais pensé à ça!