Pergunta : Pergunta do algoritmo dos DOM

Eu preciso de elaborar um algoritmo que tome uma tela física de côordenadas, de larguras, e de alturas da caixa, todo o DIVs, e elabore uma hierarquia do objeto baseada no “contenha” o tipo de relationship.

The da pergunta que eu preciso de fazer sou, dado um fósforo em uma determinada parte de texto no original, eu preciso de fazer a pergunta: que DIV a contem? que DIV contem esse DIV? etc. Todos baseados em coordinates.

I quiseram saber se havia um algoritmo padrão para construir tal hierarquia de uma estrutura tão lisa de côordenadas absolutas e sizes. class= do

Resposta : Pergunta do algoritmo dos DOM

Tentar isto
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 o cano principal ()
SetupToPrint “TODAS AS vendas”
SetupToPrint “vendas novas”
SetupToPrint “vendas velhas”
Submarino da extremidade

SetupToPrint secundário confidencial (sh como a corda)
    
    Folhas (sh). Ativar
    Chamar SetPrintAreaToPivotTable
    Chamar SetPageBreakToXNumberOfRows

Terminar o submarino

SetPrintAreaToPivotTable secundário confidencial ()

    Com ActiveSheet
        lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
        Ajustar o rngTopLeft = o .PivotTables (“PivotTable1”) .RowRange.Cells (1)
        Ajustar o rngBotRight = o .PivotTables (“PivotTable1”) .DataBodyRange.Cells (os lPTcells)
        strPTAddress = rngTopLeft.Address & “: ” & o endereço do strPT de rngBotRight.Address 'não existe!
        .PageSetup.PrintArea = strAddress
    Extremidade com

Submarino da extremidade

SetPageBreakToXNumberOfRows secundário confidencial ()

    Lastrow não ofuscante como por muito tempo
        Row_Index não ofuscante como por muito tempo
        RW não ofuscante como por muito tempo
    
        'Quantas fileiras você quer entre cada ruptura de página
        RW = 48
        
        Com ActiveSheet
            'Remover todo o PageBreaks
            .ResetAllPageBreaks
            
            'Procurarar pela última fileira com dados na coluna D
            Lastrow =. Pilhas (Rows.Count, “D”). Extremidade (xlUp). Fileira
            
            Para Row_Index = RW + 2 à etapa RW de Lastrow
                .HPageBreaks.Add antes: =.Cells (Row_Index, 1)
            Em seguida
    Extremidade com

Submarino da extremidade
Outras soluções  
 
programming4us programming4us