Condividi:        

blackjack ? grz

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

blackjack ? grz

Postdi vittotto » 07/04/12 14:09

Salve mi aiutate a fare un foglio in excel che mi mi conta le carte che escono al blackjack
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Sponsor
 

Re: blackjack ? grz

Postdi Anthony47 » 07/04/12 14:25

Ehm... suggerisco che entri nel dettaglio di cosa vorresti che il foglio facesse, altrimenti ti potra' rispondere solo uno che sia contemporaneamente conoscitore di excel e di blackjack.

Serene feste a tutti.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: blackjack ? grz

Postdi vittotto » 07/04/12 19:22

Grz per avermi risposto Antony praticamente il foglio mi dovrebbe portare il conteggio delle carte che rimangono man mano che li inserisco esempio su un mazzo di 52 carte esce due volte il tre la macro mi avvisa che ne rimangono ancora 2 e cosi via con tutte le carte che escono ...Anche a te a tutti del forum un augurio di una buona Pasqua
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Re: blackjack ? grz

Postdi Flash30005 » 09/04/12 13:40

Utilizzando la riga 1 per la testata
A1 = Uscite
I1 = Carte
J1 = Rimaste
K1 = % uscita
Inserisci da I2 a I14 le 13 carte
A
2
3
4
5
6
7
8
9
10
J
Q
K

Inserisci il valore 4 nel Range J2:J14
In K2 questa formula
Codice: Seleziona tutto
=J2/(52-CONTA.VALORI(A$2:A$53))

che trascinerai fino a K14

Ora nel vba del foglio1
inserirai questo codice
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A2:A54"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    UR = Range("I" & Rows.Count).End(xlUp).Row
    For RR = 2 To 14
        If Range("I" & RR).Value = Target Then
            Range("J" & RR).Value = Range("J" & RR).Value - 1
        End If
    Next RR
    Application.EnableEvents = True
End Sub


e in un modulo queste due righe di pulizia (abbinando questa macro ad un tasto, figura, comando etc)
Codice: Seleziona tutto
Sub Pulisci()
Range("A2:A53").ClearContents
Range("J2:J14").Value = 4
End Sub

Ogni volta che scriverai un valore di carta in sequenza da A2 a A53
otterrai sia le carte (di quel valore) rimaste e loro possibilità di uscita (in percentuale) tra le rimanenti

Allego il file

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: blackjack ? grz

Postdi vittotto » 09/04/12 15:44

Grz Flash ho scaricato il tuo file e' quello che volevo solo che la macro nuova partita mi da un errore , la prima volta che la clicco funziona poi se devo cominciare un altra partita senza che ho riempito tutta la colonna a2 : A54 mi da un errore in questa riga :" If Range("I" & RR).Value = Target Then " se si puo fare una modifica per evitare qsto errore .
Ti ringrazio di nuovo e complimenti sei molto bravo in programmazione
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Re: blackjack ? grz

Postdi Flash30005 » 09/04/12 18:55

Da A2 a A54?
Non dovresti arrivare a A54 ma essendo 52 carte al massimo avrai A53
e la macro pulisce fino alla riga 53 sulla colonna A
Penso che l'errore che hai (e che io non ho) sia dovuto ad un copia/incolla range che non dovrebbe avvenire visto
che dovresti digitare un valore alla volta (sequenza delle carte uscite)
Comunque se non vuoi avere quell'errore sostituisci la macro nel foglio1 con questa
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A2:A53"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Application.EnableEvents = False
    UR = Range("I" & Rows.Count).End(xlUp).Row
    For RR = 2 To 14
        If Range("I" & RR).Value = Target Then
            Range("J" & RR).Value = Range("J" & RR).Value - 1
        End If
    Next RR
    Application.EnableEvents = True
End If
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: blackjack ? grz

Postdi vittotto » 10/04/12 15:06

Si grz funziona praticamente devo riempire obbligatorio fino alla a53 o mi da il solito errore cmq va bene cosi
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Re: blackjack ? grz

Postdi Flash30005 » 12/04/12 00:45

Non so perché insisti nel voler scrivere nella cella A54
a meno che non è errata l'esposizione fatta da te nel post dove spiegavi che il BlackJack è giocato con un mazzo da 52 carte quando sembrerebbe venga giocato con due mazzi da 52 carte per un totale di 108 carte
in questo caso si deve cambiare sia la macro che le formule.

Fai sapere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: blackjack ? grz

Postdi vittotto » 13/04/12 11:46

Ciao Flash funziona cmq commettevo l' errore che qndo provavo nn riempivo colonna parzialmente invece riempiendola fino alla a53 nn mi da l'errore , be' adesso per giocare cn due mazzi devo solo cambiare i parametri a a 106 ? Ciao
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54


Torna a Applicazioni Office Windows


Topic correlati a "blackjack ? grz":


Chi c’è in linea

Visitano il forum: systemcrack e 34 ospiti