Frage : Dom-Algorithmusfrage

Ich muss einen Algorithmus ausarbeiten, der einen körperlichen Schirm der Kastenkoordinaten, -breiten und -höhen, alles DIVs nimmt und eine Gegenstandhierarchie ausarbeitet, die auf „basiert, enthält“ relationship.

The Art der Frage, die, ich tun muss bin, ein Gleiches auf einem bestimmten Stück Text im Dokument gegeben, muss ich die Frage stellen: welche Div. enthält sie? welche Div. enthält diese Div.? etc. Alle, die auf absolutem coordinates.

I basierten, wunderten, wenn es einen Standardalgorithmus für das Konstruieren solch einer Hierarchie von solch einer flacher Struktur der absoluten Koordinaten und sizes. gab

Antwort : Dom-Algorithmusfrage

Dieses versuchen
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub Hauptleitung ()
SetupToPrint „ALLE Verkäufe“
SetupToPrint „neue Verkäufe“
SetupToPrint „alte Verkäufe“
Enden-Unterseeboot

Privates VorSetupToPrint (SH als Schnur)
    
    Blätter (SH). Aktivieren
    SetPrintAreaToPivotTable benennen
    SetPageBreakToXNumberOfRows benennen

Unterseeboot beenden

Privates VorSetPrintAreaToPivotTable ()

    Mit ActiveSheet
        lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
        rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells einstellen (1)
        rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells) einstellen
        strPTAddress = rngTopLeft.Address u. „: “ u. existieren rngBotRight.Address 'strPT Adresse nicht!
        .PageSetup.PrintArea = strAddress
    Ende mit

Enden-Unterseeboot

Privates VorSetPageBreakToXNumberOfRows ()

    Schwaches Lastrow als lang
        Schwaches Row_Index als lang
        Schwaches RW als lang
    
        'Wieviele Reihen Sie zwischen jedem Seitenende wünschen
        RW = 48
        
        Mit ActiveSheet
            'Alles PageBreaks entfernen
            .ResetAllPageBreaks
            
            'Nach der letzten Reihe mit Daten in Spalte D suchen
            Lastrow =. Zellen (Rows.Count, „D“). Ende (xlUp). Reihe
            
            Für Row_Index = RW + 2 zum Lastrow Schritt RW
                .HPageBreaks.Add vorher: =.Cells (Row_Index, 1)
            Zunächst
    Ende mit

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us