| | Post: 49 | Registrato il: 07/12/2015
| Utente Junior | 2010 | | OFFLINE | |
|
  06/08/2022 11:20 | |
Salve, mi chiedevo se da un determinato elenco è possibile dividere le celle in base alla loro iniziale, o evidenziarle in base alla loro iniziale, ho provato con la formattazione condizionale ma se tipo indico le celle che iniziano con la P me ne se segnala un casino che iniziano con altre lettere |
|
| | Post: 4.840 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 06/08/2022 11:31 | |
Allega file di esempio con dati e risultato desiderato inserito a mano
Alfredo |
| | Post: 0 | Registrato il: 26/09/2022
| Età: 27 | Utente Junior | | OFFLINE | |
|
| 26/09/2022 10:05 | |
Allegare un file di esempio con i dati e i risultati desiderati inseriti manualmente
[Modificato da elliswalker 26/09/2022 10:06] |
| | Post: 2.693 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
| 26/09/2022 12:01 | |
ciao
=SINISTRA($A2;1)="b"
oppure
=RICERCA("P";$A2)=1
si applica a
$A$2:$A$1000
ma ogni lettera un colore è un lavoraccio
pensa al VBA [Modificato da federico460 26/09/2022 12:05] |
| | Post: 1.532 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
| 27/09/2022 18:52 | |
per evidenziare il primo carattere di ogni cella, in questo caso in colonna A,
consultando la tabella dei colori per imputarne uno diverso per ogni lettera,
in un modulo standard prova
vb
Sub a()
Dim ur As Long
Dim car As String
ur = 1
car = Left(Cells(ur, 1), 1)
Do Until ur > 22
Select Case car
'===================================================================
'CREA 21 Case PER OGNI LETTERA
'=====================================================================
Case "a"
Cells(ur, 1).Characters(1, 1).Font.ColorIndex = 3 ' modifica il ColorIndex
End Select
ur = ur + 1
Loop
End Sub
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 1.533 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
| 28/09/2022 09:29 | |
probabilmente così è meglio:
trova i colori sfondo e carattere al caso tuo
vb Sub a()
Dim ur As Long
Dim car As String
ur = 1
Do Until ur > 21
car = Left(Cells(ur, 1), 1)
Select Case car
'===================================================================
'CREA 21 Case PER OGNI LETTERA
'=====================================================================
Case "a"
Cells(ur, 1).Characters(1, 1).Font.ColorIndex = 3 ' modifica il ColorIndex
Cells(ur, 1).Characters(1, 1).Font.Bold = True
Cells(ur, 1).Interior.ColorIndex = 8 ' modifica il ColorIndex
Case "b"
Cells(ur, 1).Characters(1, 1).Font.ColorIndex = 25 ' modifica il ColorIndex
Cells(ur, 1).Characters(1, 1).Font.Bold = True
Cells(ur, 1).Interior.ColorIndex = 6 ' modifica il ColorIndex
Case "c"
Cells(ur, 1).Characters(1, 1).Font.ColorIndex = 21 ' modifica il ColorIndex
Cells(ur, 1).Characters(1, 1).Font.Bold = True
Cells(ur, 1).Interior.ColorIndex = 15 ' modifica il ColorIndex
End Select
ur = ur + 1
Loop
End Sub
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 3.350 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 28/09/2022 10:45 | |
Cristian Ferrazzano, 06/08/2022 11:20:
Salve, mi chiedevo se da un determinato elenco è possibile dividere le celle in base alla loro iniziale, o evidenziarle in base alla loro iniziale, ho provato con la formattazione condizionale ma se tipo indico le celle che iniziano con la P me ne se segnala un casino che iniziano con altre lettere
Ciao
ma se fai un ordinamento, non le hai già raggruppate per iniziale?
A che ti serve una specie di albero di natale che potrebbe confondere?
saluti [Modificato da dodo47 28/09/2022 10:45] Domenico
Win 10 - Excel 2016 |
|
|
|
|