Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

COLORA CELLE

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

COLORA CELLE

Postdi trittico69 » 09/04/10 12:11

in un file excel cercando un nome con”cerca” una volta trovato il nome si posso evidenziare in automatico più celle in corrispondenza del nome? Es: colora rosso da A1 ad A5 della riga del nome trovato e poi cercando il secondo nome la riga di prima ridiventa bianca e il rosso passa al nome successivo..... senza usrae il vba
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: COLORA CELLE

Postdi Flash30005 » 09/04/10 12:31

Con la formattazione condizionale
Menu > Formato > Formattazione condizionale..
dai il riferimento alla cella con il nome da trovare e formatti la cella con colore rosso nel caso che il nome corrisponda


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 09/04/10 16:06

si tratta di un file excel dove ci sono mille nomi e in corrispondenza del nome delle carattristiche....quando cerco un non con il binocolo e il cursore va sul nome, vorrei che si evidenziasse la riga(5celle) in modo da rendere all'occhio la visuale più veloce le caratteristiche che sono sulla stessa riga del nome.
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi ricky53 » 15/04/10 18:07

Ciao,
trittico69 ha scritto:... vorrei che si evidenziasse la riga(5celle) in modo da rendere all'occhio la visuale più veloce le caratteristiche che sono sulla stessa riga del nome.


prova con questa macro da copiare in Microsoft Excel Oggetti" nel "Foglio" ove hai i dati, dopo aver aperto l'editor del VB:

Vengono evidenziate di rosso, oltre la cella selezionata, anche le cinque celle (a destra) della cella il cui nome è stato selezionato con "Trova" (Binocolo).

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    If ActiveCell.Value <> "" Then
        Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 5)).Interior.ColorIndex = 3
    End If
End Sub


Ciao da Ricky53
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. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: COLORA CELLE

Postdi trittico69 » 17/04/10 11:45

su excel 2000 la riga non si colora finche non chiudo la finestra trova
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 18/04/10 03:29

Prova questo file

clicca su un nome o su un cognome
dopo...
riclicca anche su celle vuote delle colonne C e D

La macro nel modulo è questa
Codice: Seleziona tutto
Public Nome1, Foglio As String, Passo As Integer
Sub FiltraRigheSE()
UR = Sheets(Foglio).Range("C" & Rows.Count).End(xlUp).Row
For RR = 9 To UR
    Range("C" & RR & ":H" & RR).Interior.ColorIndex = xlNone
    Nome2 = UCase(Cells(RR, 3).Value)
    Nome3 = UCase(Cells(RR, 4).Value)
    If Nome1 = Nome2 Then
    Range("C8:D8").Select
    Selection.AutoFilter
    If Passo = 0 Then
        Selection.AutoFilter Field:=1, Criteria1:="=" & Nome1, Operator:=xlAnd
        MPasso = Passo
        Passo = 1
        GoTo esci
    End If
    End If
    If Nome1 = Nome3 Then
    Range("C8:D8").Select
    Selection.AutoFilter
    If Passo = 0 Then
        Selection.AutoFilter Field:=2, Criteria1:="=" & Nome1
        MPasso = Passo
        Passo = 1
        GoTo esci
    End If
End If
Next
esci:
End Sub


Nel foglio questa
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Nome1 = UCase(Target)
Foglio = Name
If Passo = 1 Then
        Selection.AutoFilter
        Passo = 0
        Else
Call FiltraRigheSE
End If
End If

End Sub



Prova anche con excel 2000
fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 18/04/10 11:47

provandolo su excel 2003.... una volta trovato il primo nome non mi trova il secondo prova anche tu...domani provo anche su excel 2000
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 19/04/10 00:12

Per cortesia scarica il mio file e fai le prove con quello

Non farò altre prove perché avevo già fatto tutte le prove possibili prima di inviare il file e non credo si sia corrotto nel frattempo

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 19/04/10 19:06

avevo già scaricato il tuo file....io faccio queste operazioni
apro il binocolo dal menu modifica.... digito il nome e me lo trova, facendomi vedere solo la riga corrispondente al nome..e fin qui tutto ok....ma per cercare il secondo nome devo fare clic sul foglio in modo che mi ricompaiono tutti i nomi e poi posso cercare il secondo nome altrimenti non me lo trova perche gli altri nomi sono nascosti....e ripeto siccome devo fare migliaia di operazioni al giorno ho bisogno che i passaggi tra un nome e laltro siano mno possibili....in pratica devo scrivere il nome e premere enter...per cercare il secondo nome cancello il nome vecchio riscrivo il secondo nome e premo enter e cosi via...devo fare meno passagi possibili altrimenti non recupero tempo....anche se recupero un secondo ogni nome se si fanno due conti sono circa 1000 secondi recuperati...
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 19/04/10 21:11

Spiegami questi punti
1) Quando usi la funzione Trova, digiti il nome all'interno oppure cosa fai?
2) prima di iniziare un lavoro, sai a priori quali sono i nomi da trovare?
2a) e dove ce li hai scritti?
2b) su un foglio di carta o in un elenco di word, excel o altro?

Se vuoi usare il mio programma con "Trova" non deve far altro che lanciare "Trova" e cerchi il nome, vedrai apparire solo le righe con quel nome, fai quello che devi fare... e
poi clicchi, su una delle due colonne C o D, con il mouse riappariranno tutti i nomi e la funzione Trova rimane attiva per poter inserire un altro nome, ridigiti e avrai solo le righe di questo secondo nome, fai quello che devi fare e riclicchi a vuoto sulle colonne C e D etc etc
se poi vuoi conteggiare anche i decimi di secondo... :roll:
Ti consiglio Dragon Naturally Speaking che (dicono) riconosca la voce trasformandola in parola scritta, non so... protremmo realizzare una macro che quando dici "Pippo" trova tutte le righe con Pippo poi dicendo "cancella" cancella le righe oppure dicendo "colora" colorerà le righe con Pippo etc etc.
Che ne pensi?

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 24/04/10 12:54

ok...ho scaricato Dragon Naturally Speaking...adesso come rocediamo?
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 24/04/10 19:48

:eeh:
Allora...
Istrusci il programma alla tua voce
utilizza il mio file "Rubrica2"
Premi i tasti CTRL+Maiu+T
poi chiami il nome "Pippo"
e dici ancora "Trova successivo"
se il programma capirà quello che hai detto
vedrai apparire solo le righe con Pippo
poi con il mouse clichi su una cella vuota della colonna C o D
Ancora CTRL+Maiu+T e chiami un altro nome
etc etc

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 02/05/10 01:24

fatto si perde troppo tempo
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi trittico69 » 02/05/10 22:00

puoi modificarmi questo codice in modo che mi cerchi i nomi solo nella colonna C e D anzichè in tutto il foglio?
poi un altra cosa se io clicco con il muse su un nome della colonna C o D mi evidenzia lo stesso le 3 celle successive...si puo fare che cio accada solo nelle colonne C o D..esempio se io clicco in una cella della colonna E non mi deve colorare le successive 3 celle...grazie!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If ActiveCell.Value <> "" Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 3)).Interior.ColorIndex = 4
End If
End Sub
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 03/05/10 07:36

Prova questa macro
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If ActiveCell.Value <> "" Then
    If Target.Column = 3 Then
        Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Interior.ColorIndex = 4
    Else
        Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column - 1)).Interior.ColorIndex = 4
    End If
End If
End If
End Sub
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 03/05/10 14:21

con qualche piccola modofica fatta da me adesso va bene grazie!
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi trittico69 » 04/05/10 15:39

mi servirebbe un altra modifica a questa formula...in pratica devo incollare dei dati nella colonne "I" e "J" e non mi permette di farlo.... invece se cancello tutta questa formula me lo fa fare

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If ActiveCell.Value <> "" Then
If Target.Column = 3 Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 3)).Interior.ColorIndex = 4
Else
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 2)).Interior.ColorIndex = 4
End If
End If
End If
End Sub
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 05/05/10 08:46

Sposta la riga codice
Codice: Seleziona tutto
    Cells.Interior.ColorIndex = xlNone

così
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'<<< da qui
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Cells.Interior.ColorIndex = xlNone  '<<<< inseriscila qui
If ActiveCell.Value <> "" Then
    If Target.Column = 3 Then
        Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Interior.ColorIndex = 4
    Else
        Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column - 1)).Interior.ColorIndex = 4
    End If
End If
End If
End Sub


Oppure copia l'intera macro

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: COLORA CELLE

Postdi trittico69 » 05/05/10 20:41

funziona grazie...!
è possibile con un comando vbs aprire internet explorer e poi link ecc..in modo da non ripetre queste operazioni a mano uguali ogni mattina?
se si come si inizia ad aprire la pagina iternet?
mi fai un esempio?
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: COLORA CELLE

Postdi Flash30005 » 05/05/10 23:59

Il post era stato spostato qui
perché hai posto un altro quesito

quindi evitiamo di rispondere al quesito in questo topic
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "COLORA CELLE":


Chi c’è in linea

Visitano il forum: raimea e 10 ospiti