Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

evidenziare 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

evidenziare celle

Postdi danliz » 11/02/12 17:39

Salve,
ho un problema. Ho una serie di dati giornalieri dal 1996 al 2010 che hanno diverse date di partenza. Di volta in volta vorrei selezionare i dati dal giorno di inizio per i tre anni successivi tralasciando il resto. Come posso fare?
es:
quelli che partono dal 1/1/1996 selezionare fino al 1/1/1999
i dati che partono dal 1/2/1996 selezionare fino al 1/2/1999...e così via.
danliz
Utente Junior
 
Post: 18
Iscritto il: 23/11/11 11:09

Sponsor
 

Re: evidenziare celle

Postdi CANAPONE » 11/02/12 18:04

Ciao,

faccio un esempio: hai le date nella colonna A.

In B1 potresti scrivere la data d'inizio e sotto accanto alle date una colonna di servizio con la formula

Codice: Seleziona tutto
=E(A2>=$B$1;A2<=DATA(ANNO($B$1)+3;MESE($B1$);GIORNO($B$1))


Filtrando i VERO evidenzi solo le righe che ti interessano.

In attesa di soluzioni migliori.

Saluti
---------------
Excel 2004 su Mac
Excel 2010 su Windows 8
CANAPONE
Utente Senior
 
Post: 425
Iscritto il: 22/11/10 15:43
Località: Firenze

Re: evidenziare celle

Postdi wallace&gromit » 12/02/12 19:10

questa stessa formula la puoi utilizzare come formato condizionale, evidenziando per esempio in grassetto le date che corrispondono al criterio. In questo modo eviti di creare la colonna di servizio e di dovere applicare il filtro.
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1419
Iscritto il: 16/01/12 14:21

Re: evidenziare celle

Postdi Flash30005 » 13/02/12 09:06

In un modulo inserisci questa macro
Codice: Seleziona tutto
Sub SelezionaDate()
Set Ws1 = Worksheets("Foglio1")
Ws1.Select
UR1 = Ws1.UsedRange.Rows.Count
Rows(2 & ":" & UR1).EntireRow.Hidden = False
AnnoFine = Ws1.Range("C1").Value
MeseFine = Ws1.Range("B1").Value
For RRA = 2 To UR1
    If Month(Ws1.Range("A" & RRA).Value) = MeseFine And Year(Ws1.Range("A" & RRA).Value) = AnnoFine Then
    URI = RRA
    GoTo saltaRRI
    End If
Next RRA
saltaRRI:
If URI > 2 Then
Rows(2 & ":" & URI - 1).EntireRow.Hidden = True
End If
For RRA = 2 To UR1
    If Month(Ws1.Range("A" & RRA).Value) = MeseFine And Year(Ws1.Range("A" & RRA).Value) = AnnoFine + 3 Then
    URF = RRA
    GoTo saltaRRF
    End If
Next RRA
saltaRRF:
Rows(URF & ":" & UR1).EntireRow.Hidden = True
End Sub

Nel foglio1 (dati) questo codice
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" And Target.Address <> "$C$1" Then Exit Sub
If Range("B1").Value = "" Or Range("C1").Value = "" Then
    UR1 = UsedRange.Rows.Count
    Rows(2 & ":" & UR1).EntireRow.Hidden = False
Else
    Call SelezionaDate
End If
End Sub

In B1 inserisci il mese
(Con cella settata come Convalida di Elenco con i 12 mesi, e in C1 Convalida Elenco Anni, eviti di digitare)

Ad ogni variazione della cella B1 o C1 visualizzerai solo le righe appartenenti a 3 anni effettivi
Con una delle due celle vuote avrai di nuovo tutte le righe

Allego questo file

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-


Torna a Applicazioni Office Windows


Topic correlati a "evidenziare celle":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti