Condividi:        

Excel Unire celle senza perdere il testo

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

Excel Unire celle senza perdere il testo

Postdi Statix » 01/02/14 14:28

Ciao a tutti,
come da titolo ho bisogno di unire delle celle con del testo ,
in rete ho trovato questa macro che va bene,
ma c'è un problema il testo è allineato cella per cella ,
vorrei che quando si uniscono le celle il testo sia centrato in alto a destra e testo a capo

Codice: Seleziona tutto
Public Sub UnioneCelle()

Dim rng As Range
Dim rg As String
Dim txt As String

Set rng = Selection
If rng.Areas.Count > 1 Then
    MsgBox "Il comando non può agire su selezioni multiple.", vbExclamation, "Attenzione."
    Exit Sub
End If

txt = ""
For r = rng.Row To rng.Row + rng.Rows.Count - 1
    rg = ""
    For c = rng.Column To rng.Column + rng.Columns.Count - 1
        rg = rg & ActiveSheet.Cells(r, c).Value & " "
    Next c
    rg = Left(rg, Len(rg) - 1)
    txt = txt & rg & vbLf
Next r
txt = Left(txt, Len(txt) - 1)

rng.UnMerge
rng.ClearContents
rng.Merge
rng.Cells(1, 1).Value = txt

End Sub

vedi foto
la macro mi unisce come in cella D4
mentre vorrei che unisca come in cella F4

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Unire celle senza perdere il testo

Postdi Statix » 01/02/14 15:37

una altra cosa che mi era sfuggito,
se era possibile nella macro aggiungere anche il bordo in nero

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Unire celle senza perdere il testo

Postdi Anthony47 » 01/02/14 19:47

Ti suggerisco questa macro:
Codice: Seleziona tutto
Sub UnioneCelle2()
Dim Cell As Range, NRiga As String
'
If Selection.Areas.Count > 1 Then
    MsgBox "Il comando non può agire su selezioni multiple.", vbExclamation, "Attenzione."
    Exit Sub
End If
For Each Cell In Selection
    NRiga = NRiga & Cell.Value & " "
Next Cell
'
With Selection
    .UnMerge
    .ClearContents
    .Merge
    .Value = Trim(NRiga)
End With
Call Macro3   'Macro autoregistrata
End Sub

Per quanto riguarda la formattazione finale, ti suggerisco di selezionare un gruppo di celle gia' unite e poi registrare una macro mentre applichi le formattazioni che ti servono su quel range; infine inserisci un Call MacroX in coda (al posto della mia Call Macro3)

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

Re: Excel Unire celle senza perdere il testo

Postdi Statix » 01/02/14 20:44

Ciao Anthony47,
la macro funziona però non ho capito
la macro registrata,
ho provato a fare la registrazione della macro,
ho visto che la selezione dei range viene diversa,
la formattazione deve essere applicata al range che io seleziono nel foglio,
quando unisco le celle
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Unire celle senza perdere il testo

Postdi Statix » 01/02/14 20:47

ok forse ho capito l'errore nella macro registrata
ho eliminato la selezione delle celle ed infatti funziona.
grazie moltissimo
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Unire celle senza perdere il testo

Postdi Statix » 02/02/14 10:39

Ciao Anthony47,
mi è sorto un altro problema, dopo aver lavorato diverse ore mi sono accorto che un altra macro collegata non mi funziona,
dovrei modificare una delle 2,
quindi volevo chiederti se era possibile modificare questa macro,
dovrebbe unire solo il testo delle celle selezionate nella prima cella della selezione senza unire le celle.
purtroppo mi urge, sto preparando dei quiz e ho poco tempo a disposizione,
ti ringrazio tantissimo.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Unire celle senza perdere il testo

Postdi ricky53 » 02/02/14 17:22

Ciao,
puoi inviare questa macro
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: Excel Unire celle senza perdere il testo

Postdi Statix » 02/02/14 19:18

Ciao Ricky53,
la macro da modificare è quella che ha postato Anthony47,
nel frattempo ho trovato sempre in rete quest'altra macro che fa quello che mi serve,
cioè seleziona il range che voglio unire il testo nella prima cella della selezione,
l'unico problema che poi devo cancellare a mano le celle sottostanti selezionate.

Codice: Seleziona tutto
 Sub unisci()
 Dim testo As String
 Dim cella As Range

 For Each cella In Selection
 testo = testo & " " & cella.Value
 Next cella
  Selection.Rows(1).Value = testo
 End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Unire celle senza perdere il testo

Postdi Anthony47 » 02/02/14 19:28

ho capito l'errore nella macro registrata
ho eliminato la selezione delle celle ed infatti funziona
Infatti (forse era scritto in modo un po' criptico) la macro autoregistrata doveva escludere la selezione delle celle.

Per la nuova richiesta, modifica le istruzioni tra With Selection /End With:
Codice: Seleziona tutto
With Selection
    .UnMerge
    .ClearContents
'    .Merge
    .Cells(1, 1).Value = Trim(NRiga)
End With
Non so come vorrai cambiare la macro autoregistrata per formattare il nuovo testo, ma credo che hai capito la logica.

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

Re: Excel Unire celle senza perdere il testo

Postdi Statix » 02/02/14 19:32

Ciao Anthony47
è perfetta ,grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Excel Unire celle senza perdere il testo":


Chi c’è in linea

Visitano il forum: Nessuno e 68 ospiti