Condividi:        

allineamento verticale in celle excel 2003

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

allineamento verticale in celle excel 2003

Postdi wallace&gromit » 11/02/14 16:18

ciao,
vorrei eseguire un'operazione simile a quella che si ottiene con "rientro" nell'allineamento orizzontale delle celle excel però sulla verticale, in modo che, pur inserendo "allineamento verticale: in alto", la scritta non sia attaccata alla riga precedente ma ad una distanza in punti definita da me, si può fare (anche con macro)?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Sponsor
 

Re: allineamento verticale in celle excel 2003

Postdi ricky53 » 11/02/14 16:48

Ciao,
se non hai molte celle puoi, con "F2" andando con "Home" all'inizio del testo utilizzare
"Alt+Invio"
e
poi "Invio"

ed avrai una riga vuota prima del testo ... che distanzia il testo dal bordo superiore della cella.

Ovviamente in mancanza di meglio !
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: allineamento verticale in celle excel 2003

Postdi wallace&gromit » 11/02/14 17:17

ricky53 ha scritto: in mancanza di meglio !

preferirei di meglio :)
ho tante celle e vorrei potere decidere in modo preciso la distanza (con il tuo consiglio posso definire l'altezza del carattere della prima riga, ma poi lo perdo se copio e incollo altrove).
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: allineamento verticale in celle excel 2003

Postdi ricky53 » 11/02/14 17:21

Certo che non è il massimo ... però l'andata a capo non si perde con il copi/incola o anche andando in modifica
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: allineamento verticale in celle excel 2003

Postdi wallace&gromit » 11/02/14 17:28

no, mi sono espresso male:
le mie celle sono già formattate arial 9,
io voglio aggiungere ad ognuna un a capo formattato arial 2,
non riesco a copiare solo quella parte e ad incollarla davanti al testo della cella successiva: l'a capo arriva ma sarà di dimensione 9
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: allineamento verticale in celle excel 2003

Postdi Anthony47 » 11/02/14 19:17

Se parliamo di testi si puo' fare qualcosa; se sono numeri che devono rimanere numeri allora piu' che lavorare su allineamento verticale e altezza riga non so fare.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: allineamento verticale in celle excel 2003

Postdi wallace&gromit » 11/02/14 22:22

sono testi o numeri in formato testo (più precisamente degli elenchi puntati numerati) nella colonna a fianco c'è una descrizione di lunghezza variabile, che io allineo in basso rispetto alla riga. Questi indicatori devono invece rimanere nella parte alta della cella.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: allineamento verticale in celle excel 2003

Postdi ricky53 » 11/02/14 23:11

Ciao W&G,
prova questo codice
Codice: Seleziona tutto
Sub Aggiungi_Andata_a_Capo()
    Dim UR As Long, I As Long, Grandezza As Integer
       
    Foglio1.Select
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Grandezza = 3 ' <<====== Qui metti la grandezza del carattere dell'andata a capo
   
    For I = 2 To UR
        Cells(I, "B") = Chr(10) & Cells(I, "B")
        With Cells(I, "B").Characters(Start:=1, Length:=1).Font
            .Size = Grandezza
        End With
    Next I
   
    [A2].Select
    MsgBox "Andata a capo inserita a tutte le celle dell'intervallo con dati"
End Sub


Viene inserita una "ANDATA a CAPO" all'inizio di ogni cella della colonna "B" con dimensione che viene imposta con la variabile "Grandezza", nel mio esempio il valore è "3"

Prova e ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: allineamento verticale in celle excel 2003

Postdi wallace&gromit » 13/02/14 09:14

Molto bene!
In più ho scopiazzato un po' di codice per evitare che ripetendo l'azione venga aggiunta ancora una riga ogni volta.
Ecco il risultato:

Codice: Seleziona tutto
Sub Aggiungi_Andata_a_Capo()
    Dim UR As Long, I As Long, Grandezza As Integer, GrandezzaAtt As Double
       
    Foglio1.Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Grandezza = 2 ' <<====== Qui metti la grandezza del carattere dell'andata a capo
   
   
    For I = 2 To UR
        With Cells(I, "A").Characters(Start:=1, Length:=1).Font
           GrandezzaAtt = .Size
        End With
   
    If GrandezzaAtt = Grandezza Then GoTo fine

        Cells(I, "A") = Chr(10) & Cells(I, "A")
        With Cells(I, "A").Characters(Start:=1, Length:=1).Font
            .Size = Grandezza
        End With
fine:
    Next I
   
    [A2].Select
    MsgBox "Andata a capo inserita a tutte le celle dell'intervallo con dati"
End Sub
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: allineamento verticale in celle excel 2003

Postdi ricky53 » 13/02/14 11:24

Ottimo W&G!!!

Il mio esempio andava ovviamente sistemato in base alle necessità legate all'utilizzo.

Buon proseguimento.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "allineamento verticale in celle excel 2003":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti