Excel Forum

	Soluzioni Excel Domande e Risposte
		Formattazione condizionale o VBA

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Formattazione condizionale o VBA

Ultimo Aggiornamento: 12/01/2024 16:21

saxson

Post: 80

Registrato il: 04/01/2004

Città: TREVISO

Utente Junior

2007

OFFLINE

12/01/2024 09:33

00#1

Ciao, non essendo nelle mie capacità chiedo cortesemente agli esperti una formula oppure in vba, quanto segue:
Nel foglio Ruota 1, in alto a sx c'è una griglia dove vengono riportate le estrazioni Ruota per ruota.
vorrei colorare le due celle quando si verifica la condizione così chiamata dei numeri vertibili es. se a bari il 1 estratto
è 87 cagliari sempre in prima posizione deve avere il 78.
Quindi per le altre posizioni e ruote deve essere la stessa cosa.
Bari Cagliari
Cagliari Firenze
firenze genova
genova milano
milano napoli
napoli palermo
palermo roma
roma torino
torino venezia
venezia Nazionale
Il tutto si ripete per la prima posizione estrattiva poi la seconda ecc ecc fino al 5 estratto.
Spero di aver spiegato bene il tutto.
Grazie infinite qualunque sia la vostra decisione di aiutarmi

Download

[Modificato da saxson 12/01/2024 09:33]

dodo47

Post: 3.692

Registrato il: 06/04/2013

Utente Master

2010

OFFLINE

12/01/2024 12:24

00#2

ciao
chiarimenti:

questo quanto ho capito:
per esempio il primo estratto di bari è 87, SE il primo estratto di Cagliari fosse 78 li vuoi evidenziati; così per gli altri rispetto alla posizione di estrazione (1^con 1^, 2? con 2^ etc etc)
Ho capito??

Che succede se 1° estratto bari è 33 e 1° estratto Cagliari è 33 ??

Che succede con 40 e 4 ??

saluti

Domenico
Win 10 - Excel 2016

saxson

Post: 80

Registrato il: 04/01/2004

Città: TREVISO

Utente Junior

2007

OFFLINE

12/01/2024 12:45

00#3

Ciao dodo
Che succede se 1° estratto bari è 33 e 1° estratto Cagliari è 33 ?? non evidenzia le celle
Che succede con 40 e 4 ?? evidenzia le celle in quanto uno è il vertibile dell'altro.

dodo47

Post: 3.693

Registrato il: 06/04/2013

Utente Master

2010

OFFLINE

12/01/2024 13:36

00#4

ciao
a un pulsante nel foglio1 assegna la Sub mRev

Poi in un modulo standard:

Sub mRev()
Dim rg As Range, col As Integer, rig As Integer
Range("D5:H15").Interior.Color = 16777164
For col = 4 To 8
    For rig = 5 To 14
        Set rg = Cells(rig, col)
        If rg <> rg.Offset(1) Then
            If rg.Offset(1) = ReverseNum(rg) Or _
            (rg / 10 = rg.Offset(1) Or rg.Offset(1) / 10 = rg) Then
                rg.Resize(2).Interior.ColorIndex = 3
            End If
        End If
    Next rig
Next col
End Sub

Public Function ReverseNum(rng As Range) As String
    If rng.Cells.Count > 1 Then Exit Function
    Dim str() As String
    str = Split(rng.Value)
    Dim j As Long
    For j = 0 To UBound(str)
        If IsNumeric(str(j)) Then
            str(j) = StrReverse(str(j))
        End If
    Next j
    ReverseNum = Join(str, " ")
End Function

saluti

[Modificato da dodo47 12/01/2024 13:37]

Domenico
Win 10 - Excel 2016

saxson

Post: 81

Registrato il: 04/01/2004

Città: TREVISO

Utente Junior

2007

OFFLINE

12/01/2024 14:12