Uppslutningbogserare - databefästning - Problem och lösningar på frågor som rör 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:

Fungera GetLeave (empNo som stränger, strType som stränger)
Dunkel sht som arbetssedeln, rowFound som Long, colFound som Long, lgResult som Long

På felmeritförteckning därefter

För varje sht i ActiveWorkbook.Worksheets

    Om sht. Namnge <> ”summariskt” därefter
        rowFound = sht. Kolonner (2). Fynd (vad: =empNo after: =sht. Celler (1, 2), LookIn: =xlValues LookAt: = _,
                    xlWhole SearchOrder: =xlByRows SearchDirection: =xlNext MatchCase: =False_,
                    , SearchFormat: =False). Ro
        colFound = sht. Ror (9). Fynd (vad: =strType after: =sht. Celler (9, 1), LookIn: =xlValues LookAt: = _,
                    xlWhole SearchOrder: =xlByRows SearchDirection: =xlNext MatchCase: =False_,
                    , SearchFormat: =False). Kolonn
    
    
        Om Err.Number = 0 därefter
            lgResult = lgResult + sht. Celler (rowFound, colFound)
        Annars
            Err.Clear
        Avsluta om
    
    Avsluta om
    
Därefter

GetLeave = lgResult

Avsluta fungerar

Fråga : Uppslutningbogserare - databefästning

Jag har en uppslutningbogserare som har månad på månaddata i olika räkneark, och jag har inklusive ett räkneark som namnges ”summariskt”, som bör i stort ge mig som, summan av lämnar för varje anställd (som dras från olikt, täcker). Behaga hjälper mig. Tacka dig Attachments: för >

Svar : Uppslutningbogserare - databefästning