Traqueur d'assistance - consolidation de données - Problèmes et solutions aux problèmes liés à Software

1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :

Fonction GetLeave (empNo comme corde, strType comme corde)
Faible sht comme feuille de travail, rowFound en tant que longtemps, colFound en tant que longtemps, lgResult en tant que longtemps

Sur le résumé d'erreur après

Pour chaque sht dans ActiveWorkbook.Worksheets

    Si sht. Nom <> « résumé » puis
        rowFound = sht. Colonnes (2).Find (ce qui : =empNo, ensuite : =sht. Cellules (1, 2), LookIn : =xlValues, LookAt : = _
                    xlWhole, SearchOrder : =xlByRows, SearchDirection : =xlNext, MatchCase : _ de =False
                    , SearchFormat : =False). Rangée
        colFound = sht. Rangées (9).Find (ce qui : =strType, ensuite : =sht. Cellules (9, 1), LookIn : =xlValues, LookAt : = _
                    xlWhole, SearchOrder : =xlByRows, SearchDirection : =xlNext, MatchCase : _ de =False
                    , SearchFormat : =False). Colonne
    
    
        Si Err.Number = 0 puis
            lgResult = lgResult + sht. Cellules (rowFound, colFound)
        Autrement
            Err.Clear
        Finir si
    
    Finir si
    
Après

GetLeave = lgResult

Fonction de fin

Question : Traqueur d'assistance - consolidation de données

Réponse : Traqueur d'assistance - consolidation de données