Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

contare carte a blackjack

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

contare carte a blackjack

Postdi vittotto » 16/09/12 18:27

Salve gia' precedentemente mi avete aiuto a fare un file per il blackjack , adesso mi serve un nuovo aiuto praticamente creare un file dove mi conta le carte di qualsiasi sem nel seguente modo: da 2 a 6 =+1 da 7 a 9 =0 e da asso,10,jq,k = -1
e man mano mi fa la somma
vi ringrazio a presto
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Sponsor
 

Re: contare carte a blackjack

Postdi Flash30005 » 16/09/12 19:16

Ammettendo che il valore delle carte venga trascritto nella colonna A (a partire dalla riga 2)
inserisci in un modulo questo codice
Codice: Seleziona tutto
Public RRA As Integer
Sub ContaC()
Carta = UCase(Range("A" & RRA).Value)
Select Case Carta
Case 2 To 6
Vcarta = 1
Case 7 To 9
Vcarta = 0
Case Else
Vcarta = -1
End Select
Range("B" & RRA).Value = Vcarta
End Sub


e ne Vba del foglio questo codice
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
URA = Range("A" & Rows.Count).End(xlUp).Row
Area1 = "A2:A" & URA
If Application.Intersect(Target, Range(Area1)) Is Nothing Then Exit Sub
RRA = Target.Row
ContaC
End Sub


Non devi far altro che riportare i valori nella colonna A

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: contare carte a blackjack

Postdi vittotto » 17/09/12 17:52

Ciao Flash ma non funziona di sicuro sbaglio io in qualcosa mi da un errore quando lancio la macro " mi da errore run time 1004 metodo range dell'oggetto_global non riuscito " non e' che mi puoi postare il file gia' fatto ? ti ringrazio molto
Ciao
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54

Re: contare carte a blackjack

Postdi vittotto » 17/09/12 18:12

Ciao Flash ritiro la risposta precedente funziona.. sbagliavo io a mettere il codice lo mettevo come modulo consultando gli esempi del forum ho capito come si mette il codice nel vba del foglio
grazie sei sempre molto bravo a programmare in excel
vittotto
Utente Junior
 
Post: 24
Iscritto il: 22/01/11 20:54


Torna a Applicazioni Office Windows


Topic correlati a "contare carte a blackjack":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti