Frage : Anwesenheits-Verfolger - Datenverdichtung

Ich habe einen Anwesenheitsverfolger, der Monat auf Monatsdaten in den verschiedenen Verteilungsbögen hat und ich einen Verteilungsbogen eingeschlossen, der „Zusammenfassung“ genannt, die mir die Summe der Blätter für jeden Angestellten im Allgemeinen geben sollte (gezogen von den verschiedenen Blättern). Mir bitte helfen. Danke
Attachments:

Antwort : Anwesenheits-Verfolger - Datenverdichtung

Ist hier ein Update, das Punkt 1. anspricht. Für Punkt 2, müssen Sie die Formel nur herüber kopieren.

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:

Funktion GetLeave (empNo als Schnur, strType als Schnur)
Schwaches sht als Arbeitsblatt, rowFound als lang, colFound als lang, lgResult als lang

Auf Störungs-Zusammenfassung zunächst

Für jedes sht in ActiveWorkbook.Worksheets

    Wenn sht. Name <> „Zusammenfassung“ dann
        rowFound = sht. Spalten (2).Find (was: =empNo, nachher: =sht. Zellen (1, 2), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False _
                    , SearchFormat: =False). Reihe
        colFound = sht. Reihen (9).Find (was: =strType, nachher: =sht. Zellen (9, 1), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False _
                    , SearchFormat: =False). Spalte
    
    
        Wenn Err.Number = 0 dann
            lgResult = lgResult + sht. Zellen (rowFound, colFound)
        Sonst
            Err.Clear
        Beenden wenn
    
    Beenden wenn
    
Zunächst

GetLeave = lgResult

Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us