Condividi:        

riconoscere se la cella ha un nome

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

riconoscere se la cella ha un nome

Postdi andsa61 » 24/11/14 20:45

Ciao a tutti,
vorrei un aiuto per una operazione di una macro :

nel range (a1:e10) ci sono alcune celle a cui è stato dato un nome,
vorrei fare un pezzo di codice (mi piacerebbe con for each ...)
che riconosca tutte le celle a cui è stato dato un nome (non importa quale) e le
evidenzi colorandone lo sfondo ad esempio con il colore 36.
le celle senza nome restano bianche.

io mi sono arenato su come riconoscere se la cella ha un nome.

grazie per l aiuto
andrea
andsa61
Utente Junior
 
Post: 20
Iscritto il: 24/01/14 08:27

Sponsor
 

Re: riconoscere se la cella ha un nome

Postdi ricky53 » 25/11/14 02:45

Ciao,
prova con questo esempio
Codice: Seleziona tutto
Sub Evidenzia_Nomi_Elenco()
    For Each cella In Range("A1:E10")
        For I = 1 To ActiveWorkbook.Names.Count
            If cella.Address = Split(ActiveWorkbook.Names.Item(I), "!")(1) Then
                cella.Interior.ColorIndex = 6
            End If
        Next I
    Next cella
End Sub


Vista l'ora mi è venuto così ... si può ottimizzare ma è tardi.
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: riconoscere se la cella ha un nome

Postdi scossa » 25/11/14 13:55

Un'alternativa al codice di Ricky (ciao):

Codice: Seleziona tutto
Sub CellaConNome() 'by scossa
  Dim cella As Range
  Dim sName As String
  On Error Resume Next
  For Each cella In Range("A1:E10")
    sName = cella.Name.Name
    If Err.Number = 0 Then
      cella.Interior.ColorIndex = 36
    End If
    Err.Clear
  Next cella
  'On Error GoTo 0 'se segue altro codice
End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: riconoscere se la cella ha un nome

Postdi ricky53 » 25/11/14 14:33

Ciao,
l'alternativa di Scossa (ricambio il CIAO) è una delle ottimizzazioni possibili.
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: riconoscere se la cella ha un nome

Postdi andsa61 » 25/11/14 21:08

Cosa dire,
grazie mille ancora una volta

alla prossima
Andrea
andsa61
Utente Junior
 
Post: 20
Iscritto il: 24/01/14 08:27


Torna a Applicazioni Office Windows


Topic correlati a "riconoscere se la cella ha un nome":


Chi c’è in linea

Visitano il forum: Nessuno e 63 ospiti