Отслежыватель посещаемости - консолидация данных - Проблемы и решения вопросов, связанных с 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:

Функция GetLeave (empNo как шнур, strType как шнур)
Тусклое sht как рабочий лист, rowFound как длиной, colFound как длиной, lgResult как длиной

На резюме ошибки затем

Для каждого sht в ActiveWorkbook.Worksheets

    Если sht. Имя <> «сводка» после этого
        rowFound = sht. Колонки (2).Find (: =empNo, поже: =sht. Клетки (1, 2), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ =False
                    , SearchFormat: =False). Рядок
        colFound = sht. Рядки (9).Find (: =strType, поже: =sht. Клетки (9, 1), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ =False
                    , SearchFormat: =False). Колонка
    
    
        Если Err.Number = 0 после этого
            lgResult = lgResult + sht. Клетки (rowFound, colFound)
        Еще
            Err.Clear
        Закончитесь если
    
    Закончитесь если
    
Затем

GetLeave = lgResult

Функция конца

Вопрос : Отслежыватель посещаемости - консолидация данных

Ответ : Отслежыватель посещаемости - консолидация данных