Vraag : DOM algoritmevraag

Ik moet een algoritme uitwerken dat het fysiek scherm van dooscoördinaten, breedten, en hoogten, al die DIVs neemt, en een objecten hiërarchie uitwerkt op wordt gebaseerd „bevat“ soort relationship.

The vraag I behoefte te doen is, gezien een gelijke op een bepaald stuk van tekst in het document, moet ik de vraag stellen: welke afd. bevat het? welke afd. bevat die afd.? enz. Iedereen gebaseerd op absolute coordinates.

I was benieuwd of waren er een standaardalgoritme om zulk een hiërarchie van zulk een vlakke structuur van absolute coördinaten te construeren en sizes.

Antwoord : DOM algoritmevraag

Probeer dit
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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub Leiding ()
SetupToPrint „ALLE Verkoop“
SetupToPrint „Nieuwe Verkoop“
SetupToPrint „Oude Verkoop“
Sub van het eind

Privé Sub sh SetupToPrint (als Koord)
    
    (Sh) bladen. Activeer
    Oproepen SetPrintAreaToPivotTable
    Oproepen SetPageBreakToXNumberOfRows

Beëindig Sub

Privé SubSetPrintAreaToPivotTable ()

    Met ActiveSheet
        lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
        Reeks rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells (1)
        Reeks rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & „: “ & 'strPT bestaat het adres rngBotRight.Address niet!
        .PageSetup.PrintArea = strAddress
    Eind met

Sub van het eind

Privé SubSetPageBreakToXNumberOfRows ()

    Schemerige Lastrow zoals lang
        Schemerige Row_Index zoals lang
        Schemerige RW zoals lang
    
        'Hoeveel rijen u tussen elke paginaonderbreking willen
        RW = 48
        
        Met ActiveSheet
            'Verwijder al PageBreaks
            .ResetAllPageBreaks
            
            'Onderzoek naar de laatste rij met gegevens in Kolom D
            Lastrow =. Cellen (Rows.Count, „D“). Eind (xlUp). Rij
            
            Voor Row_Index = RW + 2 aan Lastrow Stap RW
                .HPageBreaks.Add vóór: =.Cells (Row_Index, 1)
            Daarna
    Eind met

Sub van het eind
Andere oplossingen  
 
programming4us programming4us