| | Post: 6 | Registrato il: 02/01/2012
| Città: NAPOLI | Età: 65 | Utente Junior | EXCEL 2019 | | OFFLINE | |
|
  14/10/2021 15:50 | |
Buongiorno
Il quesito è il seguente: nel file che ho allegato,ho bisogno di trovare dei numeri distanti.
Per esempio: 70 89 oppure 70 88.
Con il comando trova,mi restituisce solo un solo numero alla volta,ma non insieme.
Solo voi che siete così competenti,mi potete aiutare.
Grazie |
|
| | Post: 4.755 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 14/10/2021 16:42 | |
Che cosa significa "numeri distanti"?
Riallega il file con il risultato voluto inserito a mano.
Alfredo |
| | Post: 2.464 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
| 14/10/2021 16:42 | |
ciao
per me non è chiaro
cosa intendi per numeri distanti?
70 89
dove li cerco?
devono essere vicini?
sulla cinquina?
sulla tabella?
e dove vuoi il risultato? |
| | Post: 6 | Registrato il: 02/01/2012
| Città: NAPOLI | Età: 65 | Utente Junior | EXCEL 2019 | | OFFLINE | |
|
| 14/10/2021 17:09 | |
RISPOSTA RICERCA NUMERI ALTERNATI Riprendendo le risposte di Alfredo e Federico 460.
Allego un breve esempio,evidenziando i numeri distanti.
Se uso il comando TROVA e scrivo 70,restituisce che lo ha trovato.
Ma se io scrivo 70 ( Spazio ) 89. Non succede nulla.
Vorrei che mi trovasse i due numeri insieme riportati nella riga di sopra,sulla stessa riga.
Magari evidenziandoli,o estrapolandoli. La ricerca chiaramente è per un intero foglio.
Spero di essere stato chiaro.
Nel caso grazie per la vostra pazienza.
Saluti
Lino59 |
| | Post: 4.757 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 14/10/2021 17:21 | |
Ma sul tuo file 70 89 non è scritto in nessuna cella comunque mettendo 70 e 89 in A1 prova questa macro
vb Sub Distanti()
Dim i As Integer
Dim rng As Range
Dim cel As Range
Dim myArr() As String
Set rng = Range("a2:F7")
myArr = Split(Range("A1").Value)
For Each cel In rng
For i = LBound(myArr) To UBound(myArr)
If cel.Value = myArr(i) Then
cel.Interior.ColorIndex = 6
End If
Next i
Next cel
End Sub[Modificato da alfrimpa 14/10/2021 17:29]
Alfredo |
| | Post: 6.557 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 15/10/2021 11:34 | |
Ciao Lino il tuo problema non è di facile soluzione, in quanto le schedine, sono in una singola cella, cioè ogni cella della colonna A contiene una serie di schedine, ed i numeri non sono posizionati in ogni cella come dal tuo esempio.
comunque eccoti la mia soluzione, individua i numeri impostati in M1_M2, questa la macro
Sub coloraStr()
Dim r, c, d, x, y, k, k1, p, p1, L, clr
ActiveSheet.UsedRange.Select
Selection.Font.ColorIndex = xlAutomatic
Range("A1").Select
clr = RGB(255, 0, 0)
k = Cells(1, 13)
k1 = Cells(2, 13)
For x = 12 To Cells(Rows.Count, 1).End(xlUp).Row
d = Cells(x, 1)
If d Like "Scedina*" Then GoTo 1
L = Len(d)
For y = 1 To L
p = InStr(y, d, k, 1)
p1 = InStr(y, d, k1, 1)
If p <> 0 And p1 <> 0 Then
If p1 - p < 18 Then
Cells(x, 1).Characters(p, 2).Font.Color = clr
Cells(x, 1).Characters(p1, 2).Font.Color = clr
y = p1
End If
End If
Next y
1 Next x
End Sub e questo il risultato
allego anche il file
Ciao By Sal (8-D
[Modificato da by sal 15/10/2021 11:36] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 6.558 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 15/10/2021 15:57 | |
Ciao Mi sono accorto di un errore, ecco la versione corretta.
Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 7 | Registrato il: 02/01/2012
| Città: NAPOLI | Età: 65 | Utente Junior | EXCEL 2019 | | OFFLINE | |
|
| 18/10/2021 07:35 | |
Grazie a tutti gli utenti che mi hanno fornito una soluzione.
Saluti
Lino |
|
|
|
|