none
Inserire pagina X di Y in cella Excel RRS feed

  • Domanda

  • Buonasera a tutti, come consigliatomi sulle pagine di answer, sono qui a chiedere un vostro aiuto.

    In breve, ho bisogno di inserire dentro una cella una funzione che mi restituisca appunto la dicitura "pagina x di y".

    Il problema è che la cella si trova all'interno delle righe selezionate come "titoli di pagina" (le prime 4 righe si ripetono in ogni pagina successiva del documento in fase di stampa o di visualizzazione layout), e non posso usare le funzioni intestazione/piė di pagina perchė sono già impegnate.

    giovedì 9 maggio 2019 17:27

Tutte le risposte

  • Se ho capito bene quello che chiedi, usa slo script vba nel seguente link

    https://www.extendoffice.com/documents/excel/3558-excel-insert-page-number-in-cell.html

    Sub pagenumber()
    'updateby Extendoffice 20160506
        Dim xVPC As Integer
        Dim xHPC As Integer
        Dim xVPB As VPageBreak
        Dim xHPB As HPageBreak
        Dim xNumPage As Integer
        xHPC = 1
        xVPC = 1
        If ActiveSheet.PageSetup.Order = xlDownThenOver Then
            xHPC = ActiveSheet.HPageBreaks.Count + 1
        Else
            xVPC = ActiveSheet.VPageBreaks.Count + 1
        End If
        xNumPage = 1
        For Each xVPB In ActiveSheet.VPageBreaks
            If xVPB.Location.Column > ActiveCell.Column Then Exit For
            xNumPage = xNumPage + xHPC
        Next
        For Each xHPB In ActiveSheet.HPageBreaks
            If xHPB.Location.Row > ActiveCell.Row Then Exit For
            xNumPage = xNumPage + xVPC
        Next
        ActiveCell = "Pagina " & xNumPage & " di " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    End Sub


    Gastone Canali >http://www.armadillo.it


    Se alcuni post rispondono al tuo quesito(non necessariamente i miei), ricorda di contrassegnarli come risposta e non dimenticare di contrassegnare anche i post utili. GRAZIE! Ricorda di dare un occhio ai link Click Here andHere



    giovedì 9 maggio 2019 21:32
  • Intanto grazie mille per la risposta!

    Però purtroppo non aggiorna in ogni pagina il numero di pagina corrente (rimane sempre pagina 1 di x )

    Che sia dovuto al fatto che le prime 4 righe dell'intestazione sono considerate come titoli, e quindi non aggiorna la funzione VBA?

    sabato 11 maggio 2019 11:47
  • Difficile fare del debug senza avere il file xlsx, esegui linea per linea il codice e cerca di capire cosa non funziona, probabilmente è legato alle intestazioni/titoli, su di un excel "semplice" funziona

    Gastone Canali >http://www.armadillo.it


    Se alcuni post rispondono al tuo quesito(non necessariamente i miei), ricorda di contrassegnarli come risposta e non dimenticare di contrassegnare anche i post utili. GRAZIE! Ricorda di dare un occhio ai link Click Here andHere

    sabato 11 maggio 2019 12:11
  • purtroppo non me ne intendo di programmazione..

    è possibile postare qui il file xlsm?

    sabato 11 maggio 2019 15:11
  • usa onedrive, we tranfer o altro

    Gastone Canali >http://www.armadillo.it


    Se alcuni post rispondono al tuo quesito(non necessariamente i miei), ricorda di contrassegnarli come risposta e non dimenticare di contrassegnare anche i post utili. GRAZIE! Ricorda di dare un occhio ai link Click Here andHere

    sabato 11 maggio 2019 19:01
  • ecco qui

    https://1drv.ms/x/s!AsBqhAnjsmPHghNUd8Py819Mobvt

    domenica 12 maggio 2019 11:58
  • Il metodo più semplice è sfruttare l'intestazione e il piè di pagina,  il secondo lo hai già usato  per "MOD. 01/PQAS 16-02", usando anche il primo e mettendo pagina &[Pagina] di &[Pagine] il gioco è fatto

    ecco il risultato

    https://1drv.ms/x/s!AmgZUJfym6yOg7UzyG7VsXeO0sFwPw


    Gastone Canali >http://www.armadillo.it


    Se alcuni post rispondono al tuo quesito(non necessariamente i miei), ricorda di contrassegnarli come risposta e non dimenticare di contrassegnare anche i post utili. GRAZIE! Ricorda di dare un occhio ai link Click Here andHere

    domenica 12 maggio 2019 21:27
  • Intanto grazie per il tempo dedicato!

    Però così non va bene, perché l'intestazione grafica deve rimanere tale, in quanto documento aziendale riferito alla Qualitå

    lunedì 13 maggio 2019 09:28