Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ricerca coppia di Valori .(numeri) .

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 31/07/08 14:07

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
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56

Sponsor
 

Re: ricerca coppia di Valori .(numeri) .

Postdi Anthony47 » 01/08/08 02:41

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 02/08/08 10:51

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 :P )

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,,
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56

Re: ricerca coppia di Valori .(numeri) .

Postdi Anthony47 » 03/08/08 00:21

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 03/08/08 09:36

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 :)
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56

Re: ricerca coppia di Valori .(numeri) .

Postdi Anthony47 » 03/08/08 09:46

unreal19 ha scritto: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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 03/08/08 11:14

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 , :cry:

saluti,...
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56

Re: ricerca coppia di Valori .(numeri) .

Postdi Anthony47 » 03/08/08 22:51

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 04/08/08 18:17

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 , :)
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56

Re: ricerca coppia di Valori .(numeri) .

Postdi Anthony47 » 05/08/08 23:59

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca coppia di Valori .(numeri) .

Postdi unreal19 » 07/08/08 12:25

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

ciaoooo
unreal19
Newbie
 
Post: 6
Iscritto il: 28/07/08 18:56


Torna a Applicazioni Office Windows


Topic correlati a "ricerca coppia di Valori .(numeri) .":


Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti

cron