Numerazione pagine



  • Numerazione pagine
    di TotoWeb data: 23/03/2016 18:53:48

    E' possibile in intestazione pagine numerare le stesse con il seguente formato: Pagina 0001/2015.
    Ho provato con Pagina 000&[Pagina]/2015 ma antepone al nimero sempre tre zero.
    Grazie per una risposta



  • di alfrimpa data: 23/03/2016 19:05:36

    Ciao Totoweb

    Non capisco.

    E' normale che se scrivi "Pagina 000&[Pagina]/2015" ti vengano visualizzati i tre zeri davanti al n. di pagina.

    Se non li vuoi dovresti scrivere "Pagina &[Pagina]/2015".

    O non ho capito la domanda?

    Alfredo





  • di TotoWeb data: 23/03/2016 19:14:00

    E' giusto quello che dici, ma a me serve nel formato che ho indicato prima (Es. 0001/2015; 0002/2015 e cosi via)



  • di alfrimpa data: 23/03/2016 19:24:41

    E allora, sempre se capisco bene, devi scrivere:

    "000&[Pagina]/2015" e ti verrà visualizzato

    0001/2015
    0002/2015
    0003/2015 e così via

    Alfredo





  • di TotoWeb data: 23/03/2016 19:31:22

    Il problema che quanto visualizza la pagina 10 la visualizza sempre con i tre zero. Vorrei se possibile far apparire il numero sempre nella lunghezza di 4 caratteri come esempio successivo
    0001
    ...
    0010
    ...
    0100
    ...
    1000



  • di alfrimpa data: 23/03/2016 19:44:50

    Ah ecco sapevo che c'era l'inghippo

    Al momento non saprei cosa rispondere.

    Alfredo





  • di TotoWeb data: 23/03/2016 19:48:46

    Ti ringrazio, è da in pò di tempo che sto cercando una sluzione.
    Sarebbe accettabile anche una macro che possa fare quanto richiesto stampando le pagine in PDF



  • di TotoWeb data: 24/03/2016 12:50:51

    Ho inserito questa macro:
    Sub NumeraPagine()
    Dim i As Long
    strnameA = InputBox(Prompt:="Numerazione DA:", Title:="Numero di partenza", Default:="scrivi il numero")
    strnameB = InputBox(Prompt:="Numerazione A:", Title:="Numero di arrivo", Default:="scrivi il numero")
    a = 1
    For i = strnameA To strnameB

    ' Indica la colonna
    Selection.NumberFormat = "0000"
    Range("E" & a).Value = i
    'Indica ogni quante righe inserire il numero
    a = a + 40
    Next i
    End Sub

    trascrive solo in numero come richiesto, e possibile modificarla in modo che possa scrivere in questo modo: Pagina 0001/2015
    Grazie per una risposta



  • di TotoWeb data: 24/03/2016 13:16:50

    Aggiungo a precedenti Post: la scritta deve comparire solo nelle righe da ripetere solo nelle righe da ripetere in alto (Intestazione foglio)