Inseguitore di presenza - consolidamento di dati - Problemi e soluzioni alle problematiche legate a 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:

Funzione GetLeave (empNo come stringa, strType come stringa)
Sht fioco come manuale, rowFound come lungamente, colFound come lungamente, lgResult come lungamente

Sul riassunto di errore dopo

Per ogni sht in ActiveWorkbook.Worksheets

    Se sht. Nome <> “sommario„ allora
        rowFound = sht. Colonne (2).Find (che cosa: =empNo, dopo: =sht. Cellule (1, 2), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ del =False
                    , SearchFormat: =False). Fila
        colFound = sht. File (9).Find (che cosa: =strType, dopo: =sht. Cellule (9, 1), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ del =False
                    , SearchFormat: =False). Colonna
    
    
        Se Err.Number = 0 allora
            lgResult = lgResult + sht. Cellule (rowFound, colFound)
        Altrimenti
            Err.Clear
        Concluder se
    
    Concluder se
    
Dopo

GetLeave = lgResult

Funzione di conclusione

Questione : Inseguitore di presenza - consolidamento di dati

Risposta : Inseguitore di presenza - consolidamento di dati