Excel Forum

	Soluzioni Excel Domande e Risposte
		Gestire un carattere solo nei giorni LU_VE

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Gestire un carattere solo nei giorni LU_VE

Ultimo Aggiornamento: 07/01/2022 18:33

Post: 37

Registrato il: 22/10/2021

Città: ISEO

Età: 56

Utente Junior

office 2010

OFFLINE

07/01/2022 17:45

00#1

ciao
tramite una macro , (e non formatz cond)

avrei bisogno di rendere di colore grigio chiaro
il carattere B del foglio intero_mese
con sfondo >> nessuno (o bianco)

MA solo nei giorni LU_VE vedi riga 4 e 5

lasciando invariato la lettere B nei giorni di sab domenica

la macro devra' gestire poi tutti i mesi e vari fogli
quindi servira' anche identificare quante righe elaborare
e identif. l ultima colonna popolata.

vi allego il file

ciao

Download (59 KB)

by sal

Post: 6.648

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

07/01/2022 18:25

00#2

Ciao Angelo eccoti la macro che fa il lavoro, basta posizionarti sul foglio del mese e lanciare la macro, fa 1 mese alla volta, perche non conosco i nomi dei fogli per i mesi.

questa la macro

Sub Mese_B()
Dim r, c, d, x, y, ck, clr

ActiveSheet.Select
clr = RGB(166, 166, 166)
r = Cells(Rows.Count, 4).End(xlUp).Row
c = Cells(5, 4).End(xlToRight).Column
For x = 5 To c
  d = Weekday(Cells(5, x))
  If Weekday(Cells(5, x)) = 7 Then GoTo 1
  If Weekday(Cells(5, x)) = 1 Then GoTo 1
  For y = 6 To r
    If Cells(y, x) = "B" Then Cells(y, x).Font.Color = clr
  Next y
1 Next x
End Sub

questo il risultato

dove vedi "7-1" corrisponde al Sabato e Domenica che lo salta con "Goto 1"

clr = RGB(166, 166, 166) è il codice del colore grigio, se vuoi cambiare basta modificare il 3 numeri con il colore che vuoi.

ti allego anche il file.

Una cosa Importante, i mesi devono avere le stesse celle di partenza cioè la Data deve incominciare nella cella "E5" ed i nominativi iniziare nella cella "D6", altrimenti poi su altri fogli non funziona

Ciao By Sal (8-D