ricerca coppia di Valori .(numeri) .

[unreal19]

Salve a Tutti ,, mi chiamo Marco .. è la prima volta che scrivo ,,, conoscenza excel Bassa ,,

siccome mi diletto con lo studio della roulette ,,
avrei bisogno di sapere ,,
se cè una funzione in excel ,, x cercare la presenza di una coppia di valori ,, su un determinato gruppo di numeri ,,

la funzione di ricerca per Singolo numero ,, so già che cè e funziona ,,

in pratica ho diversi schemi di numeri ,, inserirei 2 valori ,, in questo caso da 1 a 36 ( tipo 20 e 25 ) , e il programma mi cerca nelle stringhe inserite negli schemi ,, se cè il 20 e il 25 insieme ,, e mi deve eliminare tutte le stringhe dove cè questa accoppiata (20-25)
e poi inserendo un nuovo numero , il programma si aggiorna e cerca la nuova coppia e fa come sopra ..,,

20 e 25 sono presi a caso ,,

,,penso che la domanda sia Chiara ,,

Grazie intanto,,
ciaooo da Marco

[Anthony47]

Ciao Marco e benvenuto nel forum
Non hai detto come sono organizzati i tuoi "gruppi di numeri", quindi non so essere preciso; in linea di massima penso che potrebbe aiutarti il "Filtro automatico":
-imposta Filtro automatico sulla colonna che contiene le tue stringhe di numeri (Seleziona colonna, Menu /Dati /Filtro /Filtro automatico)
-clicca sulla freccia del filtro, scegli Personalizza; come primo criterio "contiene" e accanto digiti il primo numero; spunti AND; come secondo criterio "contiene" e accanto digiti il secondo numero; ok.
-selezioni tulle le righe che ti presenta (sono quelle che contengono il primo e il secondo numero), e le elimini con Menu /Modifica /Elimina riga.
-se hai un' altra coppia ripeti il processo.

Ciao.

[unreal19]

ciao Anthony ,, GRazie ,, provo ad impostarli , in macro se riesco ,,,

volevo porre alla tua attenzione un file che mi ero fatto fare in passato ,, da un amico di pavia,

il file contiene 36 strignhe di numeri ,, e tramite una macro ,, a 2 opzioni , li elimina dalla tabella,,
poi in basso ho messo dei contatori ,,(quelli ero capace )

la prima opzione elimina tutte le stringhe dove è presente il numero inserito e la seconda opzione elimina la stringa abbinata al numero inserito ,,,

allego il file
alpha.zip - 0.06MB

la mia domanda era ,,, se si può modificare la macro esistente ,, per poter analizzare , 2 valori consecutivi estratti ,,,
invece di uno solo ,, come è impostata ora ,,

ciaoooo da Marco e Grazie,,

[Anthony47]

Da quello che dici e quello che vedo, dovrebbe essere sufficiente cambiare queste
If Worksheets("Alpha").Cells(iazz, jazz + 2) = valoreinserito Then
. . .
If Worksheets("Alpha").Cells(iazz, jazz + 18) = valoreinserito Then

in queste, rispettivamente:

Codice: Seleziona tutto

If Worksheets("Alpha").Cells(iazz, jazz + 2) & "," & _
                   Worksheets("Alpha").Cells(iazz, jazz + 3) = valoreinserito Then
. . .
If Worksheets("Alpha").Cells(iazz, jazz + 18) & "," & _
                     Worksheets("Alpha").Cells(iazz, jazz + 19) = valoreinserito Then

A questo punto basta inserire nel Textbox1 (che e' il secondo nella form) i due numeri separati dalla "virgola" (es: 9,11) perche' la ricerca riguardi una coppia e non un singolo numero.

Ciao, fai sapere.

[unreal19]

ciao Anthony ,,, ho fatto le modifiche consigliate,
dunque , funziona ,,
però me le cerca solo se i due numeri sono vicini sulla stringa ,,
se sono sparsi sulla stringa ,non li vede, io avrei bisogno proprio di quello ,,
ciaoo e intanto GRazieeee ,, e buona Domenica

[Anthony47]

funziona, però me le cerca solo se i due numeri sono vicini sulla stringa, se sono sparsi sulla stringa ,non li vede

Scusa, ma tu non volevi cercare "2 valori consecutivi estratti"?

Ciao.

[unreal19]

ciao Anthony ,, in effetti mi sono spiegato in maniera errata ,,, con consecutivi intendevo ,, che alla roulette i numeri vengono estratti uno dopo l altro ,, e quindi consecutivi ,,, intendevo quello ,,
invece x come ho scritto ,, si poteva intendere consecutivi su ogni stringa ,,,
mi spiace ,, ho formulato in maniera errata la richiesta ,,

in pratica deve cercare su ogni stringha se è presente la coppia ,, non importa la collocazione dei 2 valori ,,

mi scuso ancora ,

saluti,...

[Anthony47]

Mi spiace, ma non giocando alla roulette e non sapendo cosa sono quella tavolozza di numeri, con la nuova descrizione non capisco cosa ti serve realizzare.
Tieni presente che nella macro tua originale c' e' un if che dice: se il numero inputato e' fino a 18 fai questo, se e' oltre fai quest' altro: nella nuova situazione, con due numeri inputati, questa logica come deve essere modificata?

Ciao, fatti sentire.

[unreal19]

ciao Antony ,, dunque la macro ha 2 opzioni ,, la seconda si può tranquillamente eliminare ,,
solo la opzione 1 mi interessa ,,,

con opzione 1 ,, immettendo i 2 numeri ,, e cliccando su lavora ,, il programma cercherà le stringhe dove presente la coppia di valori sparsa ,,, può essere il 1° e il 14 ° ,, può essere l 8° e il 11° ,, possono essere vicini ,,
basta che rilevi la presenza e cancelli la stringa ,,,
salutoni .. e Grazie ,

[Anthony47]

Prova a sostituire le attuali Private Sub CheckBox1_Click() e Private Sub CommandButton1_Click() con le seguenti:

Codice: Seleziona tutto

Private Sub CheckBox1_Click()
    Caso = 1
    TextBox2.Value = "1 numero, oppure uno.due"
    CheckBox2.Value = False
End Sub

e

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
       Dim ivalore As Integer
        If Caso = 0 Then
        MsgBox ("Scegli il caso prima di lavorare")
        GoTo terminasub
    End If
    If valoreinserito = "" Then
        MsgBox ("Inserisci un valore")
        GoTo terminasub
    End If
   
    If Caso = 1 Then
valoreinserito = Replace(valoreinserito, ",", ".")
Primo = Int(Val(valoreinserito))
valoreinserito = Replace(valoreinserito, Primo & ".", "")
Secondo = Int(Val(valoreinserito))
'If Secondo = 0 Then Secondo = primo
For iazz = 1 To 18
For Tabel = 0 To 1
FPri = Application.WorksheetFunction.CountIf(Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1"), Primo)
FSec = Application.WorksheetFunction.CountIf(Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1"), Secondo)
If FPri > 0 And FSec > 0 Then
'  Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1").Select
  Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1").ClearContents
  End If
Next Tabel
Next iazz
TextBox1.Value = ""
    End If
   
    If Caso = 2 Then
        ivalore = valoreinserito
        If ivalore >= 1 And ivalore <= 18 Then
            For iazz = 1 To 18
                If Worksheets("Alpha").Cells(iazz, 2) = valoreinserito Then
                    For kazz = 1 To 14
                        Worksheets("Alpha").Cells(iazz, kazz + 2) = ""
                    Next kazz
                End If
            Next iazz
        End If
        If ivalore >= 19 And ivalore <= 36 Then
            For iazz = 1 To 18
                If Worksheets("Alpha").Cells(iazz, 18) = valoreinserito Then
                    For kazz = 1 To 14
                        Worksheets("Alpha").Cells(iazz, kazz + 18) = ""
                    Next kazz
                End If
            Next iazz
        End If
        TextBox1.Value = ""
    End If

terminasub:
End Sub

E' evidente che ho sostituito la parte di Caso-1, lasciando Caso-2 invariato; se la scelta e' caso-1 puoi introdurre 1 solo numero oppure 2 separati dal "punto" (es 23.24).

Prova e fai sapere, ciao.

[unreal19]

ciao Anthony ,, Grazie ,, provo a inserire le Variazioni e ti faccio Sapere ,,,

ciaoooo