Moderatori: Anthony47, Flash30005
=LET(Risult;K7:AZ7;LastR;MAX(SE(Risult<>"";RIF.COLONNA(Risult);""))-10;INDICE(Risult;1;LastR))
=LET(Risult;K7:AZ7;LastR;MAX(SE(Risult<>"";RIF.COLONNA(Risult);""))-10;INDICE($K$4:$AZ$4;1;LastR))
=LET(Range;$G7;MiVal;--(TESTO.PRECEDENTE(Range;"÷"));MaVal;--(TESTO.SUCCESSIVO(Range;"÷"));E($E7>MiVal;$E7<MaVal))
Devi applicare alle celle il formato con cui vorresti vedere i dati quando sono fuori range; cioè: selezioni le celle e ci applichi il formato che vuoicome faccio a formattare con "fuori intervallo di riferimento"
Evidentemente nella formattazione condizionale hai omesso di impostare lo sfondo con cui vuoi visualizzare i dati quando sono all'interno del range. Rivedi la formattazione condizionale e modifica il Formato da utilizzareHo provato a variare il valore in k8 che ha poi modificato grazie alla tua formula E8, il valore è diventato correttamente verde perchè entro i limiti, ma è rimasto il sotto di fondo rosso...
Anche qui il processo e' lo stesso:Avevo dimenticato di chiedere che in caso (solo nel caso il valore sia fuori dei limiti nella colonna E ) anche il testo corrispondente in colonna B lo deve diventare così da evidenziare anche il nome dell'esame oltre che il valore...se invece i valori sono corretti può restare il testo in nero su sfondo bianco...
Dopo aver applicato la mia formula e la mia formattazione condizionale alla cella E7, ho copiato E7 e ho incollato in E36:E44, a me la cella E38 mostra il valore 5,5 e la sua visualizzazione e' quella dei valori fuori range.Inoltre la formula che determina se il valore è nel range e quindi il colore del risultato non è corretta in quanto come detto nel mio primo messaggio il valore è negativo anche quanto è identico ai valori indicati nel range, es.: in E38 il valore minimo del range è 5.5 e il risultato in K38 è 5,5 in questo caso il dato dev'esser evidenziato come negativo e non positivo in quanto è al limite, questo ragionamento vale anche se fosse stato 7,0 i due paletti come estremi la dove corrisponda il risultato specularmente dev'esser negativo...
=(E44="ASSENTI")
=conta.se($E15;$G15)
=LET(Range;$G7;MiVal;--(TESTO.PRECEDENTE(Range;"÷"));MaVal;--(TESTO.SUCCESSIVO(Range;"÷"));E($E7>MiVal;$E7<MaVal))
In questo modo infatti gli indirizzi "relativi" venivano aggiustati e tutto avrebbe funzionato regolarmente-applica le formattazioni condizionali alla riga 7, colonna E e colonna B
-copia B7:E7 e fai "Incolla speciale /Formati" sulle celle di colonna B:E che devono contenere la stessa formattazione condizionale, SALTANDO quelle che abbisognano di una formattazione particolare
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LaCol As Long, bgCol As Long, Avail As Long, MaxCols As Long
Dim mySplit, miVal As Single, maVal As Single
Dim fErr(1 To 2) As Boolean, MiMax As String
'
If Target.Count > 1 Then Exit Sub
bgCol = 11 'Col K
MaxCols = Range("H4")
If MaxCols = 0 Then MaxCols = 9999
LaCol = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
If LaCol < bgCol Then Exit Sub
If Target.Row < 7 Then Exit Sub
Avail = LaCol - bgCol + 1
If Avail > MaxCols Then Avail = MaxCols
ThisWorkbook.Names("GRisultati").RefersTo = "=" & Me.Name & "!" & Cells(Target.Row, LaCol - Avail + 1).Resize(1, Avail).Address
ThisWorkbook.Names("GDate").RefersTo = "=" & Me.Name & "!" & Cells(4, LaCol - Avail + 1).Resize(1, Avail).Address
'Debug.Print Range("GRisultati").Address
'Gestici < e >:
MiMax = Cells(Target.Row, "G").Value
MiMax = Replace(MiMax, "<", "0 ÷ ", , , vbTextCompare)
MiMax = Replace(MiMax, ">", "", , , vbTextCompare)
'
mySplit = Split(MiMax & " ÷ ZZ", "÷", , vbTextCompare)
On Error Resume Next
miVal = CSng(mySplit(0))
If Err.Number <> 0 Then
fErr(1) = True
miVal = Application.WorksheetFunction.Min(Range("GRisultati"))
Err.Clear
End If
maVal = CSng(mySplit(1))
If Err.Number <> 0 Then
fErr(2) = True
maVal = Application.WorksheetFunction.Max(Range("GRisultati"))
Err.Clear
End If
On Error GoTo 0
Range("GDate").Offset(-3).Resize(2, 50).ClearContents
Range("GDate").Offset(-2).Value = miVal
Range("GDate").Offset(-3).Value = maVal
ThisWorkbook.Names("MaLine").RefersTo = "=" & Me.Name & "!" & Range("GDate").Offset(-3).Address
ThisWorkbook.Names("MiLine").RefersTo = "=" & Me.Name & "!" & Range("GDate").Offset(-2).Address
With Me.ChartObjects(1).Chart
'Imposta Min e Max di asse Y
If Range("miLine").Cells(1, 1).Value * 0.95 > Application.WorksheetFunction.Min(Range("GRisultati")) Then
.Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Range("GRisultati"))
Else
.Axes(xlValue).MinimumScale = Range("miLine").Cells(1, 1).Value * 0.95
End If
'
If Range("MaLine").Cells(1, 1).Value * 1.05 < Application.WorksheetFunction.Max(Range("GRisultati")) Then
.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Range("GRisultati"))
Else
.Axes(xlValue).MaximumScale = Range("MaLine").Cells(1, 1).Value * 1.05
End If
.HasTitle = True
.ChartTitle.Characters.Text = Cells(Target.Row, "B").Value & " #" & Target.Row
End With
Me.ChartObjects(1).Top = ActiveWindow.VisibleRange.Cells(3, Target.Column).Top
Me.ChartObjects(1).Left = Target.Offset(0, 1).Left 'ActiveWindow.VisibleRange.Cells(3, Target.Column + 0).Left
ActiveSheet.ChartObjects("Grafico 3").Chart.FullSeriesCollection(2).IsFiltered = fErr(1)
ActiveSheet.ChartObjects("Grafico 3").Chart.FullSeriesCollection(3).IsFiltered = fErr(2)
End Sub
Torna a Applicazioni Office Windows
Non riesco più a scaricare le tabelle Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 20 |
Creare 2 tabelle in forma di matrici, conoscendo i totali. Autore: nelson1331 |
Forum: Applicazioni Office Windows Risposte: 5 |
Velocizzare Macro Per Riempire Di Numeri 18 Tabelle Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 4 |
estendere automaticamente area stampa di tabelle excel Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 5 ospiti