Vraag : De Drijver van de opkomst - de consolidatie van Gegevens

Ik heb een opkomstdrijver die maand op maandgegevens in diverse spreadsheten heeft en ik een spreadsheet genoemd „Samenvatting“ heb omvat, die me de som bladeren voor elke die werknemer (van diverse bladen wordt getrokken) fundamenteel zou moeten geven. Gelieve te helpen me. Dank u
Attachments:
van
Attendance-Tracker2010.xls (470 KB) Attendance Tracker

Antwoord : De Drijver van de opkomst - de consolidatie van Gegevens

Hier is een update richtend punt 1. Voor punt 2, moet u enkel de formule overdwars kopiëren.

Thomas
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:

Functie GetLeave (empNo als Koord, strType als Koord)
Schemerige sht als Aantekenvel, rowFound zo lang, colFound zoals lang, lgResult zoals lang

Op Fout hervat daarna

Voor Elke sht in ActiveWorkbook.Worksheets

    Als sht. Naam <> „Samenvatting“ toen
        rowFound = sht. Kolommen (2). Vind (wat: =empNo, na: =sht. Cellen (1, 2), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False _
                    , SearchFormat: =False). Rij
        colFound = sht. Rijen (9). Vind (wat: =strType, na: =sht. Cellen (9, 1), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False _
                    , SearchFormat: =False). Kolom
    
    
        Als Err.Number = 0 toen
            lgResult = lgResult + sht. Cellen (rowFound, colFound)
        Anders
            Err.Clear
        Eind als
    
    Eind als
    
Daarna

GetLeave = lgResult

De Functie van het eind
Andere oplossingen  
 
programming4us programming4us