Egregi/gentili partecipanti al forum,
ho una domanda importantissima da rivolgerVi.
Dovrei modificare questo codice:
code:
Sub Procedura_spin()
' :: Macro Designed, scripted, developed By Luca - luca3dsurfing02@libero.it::
'In caso di 0 gettoni ne agiunge altri
If Range("b2") < 1 Then
MsgBox (":: Devi inserire altri gettoni ::")
Range("b2") = Range("b1")
End If
'SENTENZA:
' Ogni volta che si preme il Pulsante Spin viene degradato un gettone
Range("b2") = Range("b2") - 1
'SENTENZA:
' metti nelle celle i tre valori casuali
For counter = 0 To 100
a = Int(7 * Rnd + 1)
Range("c5") = a
b = Int(7 * Rnd + 1)
Range("d5") = b
c = Int(7 * Rnd + 1)
Range("e5") = c
Next
For counter = 0 To 200
b = Int(7 * Rnd + 1)
Range("d5") = b
c = Int(7 * Rnd + 1)
Range("e5") = c
Next
For counter = 0 To 300
c = Int(7 * Rnd + 1)
Range("e5") = c
Next
':: ecco le regole del gioco ::
If a = b And b = c And c = 7 Then
MsgBox (":: You won ::")
Range("b2") = Range("b2") + 100
End If
If a = b And b = c And c <> 7 Then
MsgBox (":: hai guadagnato 25 punti ::")
Range("b2") = Range("b2") + 25
End If
If a = 1 And b = 2 And c = 3 Then
MsgBox (":: Hai guadagnato 10 punti ::")
Range("b2") = Range("b2") + 10
End If
If a = 3 And b = 2 And c = 1 Then
MsgBox (":: Hai guadagnato 5 punti ::")
Range("b2") = Range("b2") + 5
End If
Questo è il codice VBA che come avrete capito realizza un semplicissimo videopoker su excel.
Lo devo modificare in modo che , importando da WORD i segni delle carte (picche, cuori etc...) girino anche quelli oltre ai numeri e che analogamente ai numeri vengano assegnati i punti.
Purtroppo io ssono un novizio e vorrei un vostro parere.
Ringrazio anticipatamente fin d'ora tutti per l'aiuto.
Luca.
ps. ho gia postato questo nella sezione visual basic quindi mi sono reso conto di aver fatto cross posting.
mi scuso quindi fin d'ora ma devo risolvere il problema entro questa sera quindi mi sono permesso, scusatemi . (non so piu che fare=
