Moderatori: Anthony47, Flash30005
Anthony47 ha scritto:Anche a me va nel mio dropbox e segnala "Si è verificato un errore durante l'apertura del file"
Probabilmente quello e' il link che puo' usare l'owner del dropbox che contiene il file (cioe' tu), non per la condivisione del file.
Ciao
=O((CONTA.SE($E$4:$I$14;E4+$B$1)-CONTA.SE($E4:$I4;E4+$B$1)-CONTA.SE(E$4:E$14;E4+$B$1))>0;(CONTA.SE($E$4:$I$14;E4-$B$1)-CONTA.SE($E4:$I4;E4-$B$1)-CONTA.SE(E$4:E$14;E4-$B$1))>0)
j0etemerari0 ha scritto:grazie Antony47 questo rileva tutti i numeri con la distanza 30, come richiesto, peccato non si possano distinguere
i vari abbinamenti, forse sarebbe possibile con più di una formula attribuendogli un colore diverso? oppure magari con
una macro si risolverebbe?
Grazie mille :-)
[....]anche perchè questa soluzione è come non esistesse in quanto bisogna sempre ricercare gli abbinamenti tra quelli trovati e quindi è come non ci fosse. O no?
Sub DeltaX()
Dim myRan As String, I As Long, mCnt As Long, vDelta As Long, fAdr As String
Dim myC As Range, myH As Range, myV As Range, myF As Range, GotIt As Boolean
'
myRan = "E4:I14" '<<< L'area dati
vDelta = Range("B1").Value '<<< La cella col DELTA
'
Range(myRan).Interior.ColorIndex = xlNone
For I = 1 To 2
For Each myC In Range(myRan)
If myC.Interior.ColorIndex = xlNone Then
Set myF = Range(myRan).Find(what:=myC.Value + vDelta, after:=myC, LookIn:=xlValues, lookat:=xlWhole)
If Not myF Is Nothing Then
fAdr = myF.Address: GotIt = False
Do
If myF.Interior.ColorIndex = xlNone And _
myF.Row <> myC.Row And myF.Column <> myC.Column Then
myC.Interior.ColorIndex = mCnt + 3
myF.Interior.ColorIndex = mCnt + 3
mCnt = mCnt + 1
GotIt = True
End If
Set myF = Range(myRan).FindNext(myF)
If myF Is Nothing Or GotIt Or myF.Address = fAdr Then Exit Do
DoEvents: Loop
End If
End If
Next myC
vDelta = -vDelta
Next I
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Call DeltaX
End Sub
Torna a Applicazioni Office Windows
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Ricavare dati di origine di un grafico online Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 16 ospiti