Ciao Flash e ciao Anthony.
Per Anthony, chiedo scusa, si in effetti non bisogna farne una questione “personale” ma del forum.
Allora, chiedevo nella macro di considerare la distanza minima che intercorre tra i 2 numeri sia che sia antiorario che orario, cioè nei numeri della roulette la distanza tra i numeri 12 e 17 doveva essere 13 “orario” e non 26 antiorario. La macro dovrebbe scegliere in automatico e trascrivere sul foglio2 la distanza minima tra gli ultimi 2 numeri usciti.
Per Flash, ho fatto la modifica che mi avevi suggerito, ma il risultato è lo stesso e cioè:
12 - 13 - antiorario “ma doveva essere orario”
17 - 24 - la distanza doveva essere 15 e non 24; antiorario e non orario;
7 - 13 - orario “ma doveva essere antiorario ”
2 - 28 - la distanza doveva essere 11 e non 28; antiorario e non orario;
12
Riporto la macro da me assemblata:
- Codice: Seleziona tutto
Sub OrarioAnti()
UR = Worksheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Row
Dim VettO(37) As Integer
VettO(1) = 32
VettO(2) = 15
VettO(3) = 19
VettO(4) = 4
VettO(5) = 21
VettO(6) = 2
VettO(7) = 25
VettO(8) = 17
VettO(9) = 34
VettO(10) = 6
VettO(11) = 27
VettO(12) = 13
VettO(13) = 36
VettO(14) = 11
VettO(15) = 30
VettO(16) = 8
VettO(17) = 23
VettO(18) = 10
VettO(19) = 5
VettO(20) = 24
VettO(21) = 16
VettO(22) = 33
VettO(23) = 1
VettO(24) = 20
VettO(25) = 14
VettO(26) = 31
VettO(27) = 9
VettO(28) = 22
VettO(29) = 18
VettO(30) = 29
VettO(31) = 7
VettO(32) = 28
VettO(33) = 12
VettO(34) = 35
VettO(35) = 3
VettO(36) = 26
VettO(37) = 0
For RR = 2 To UR - 1
Num1 = Worksheets("Foglio2").Range("B" & RR).Value
Num2 = Worksheets("Foglio2").Range("B" & RR + 1).Value
ORiE = ""
For VN = 1 To 37
If VettO(VN) = Num1 Then
NI = VN
If ORiE = "" Then ORiE = "ORARIO"
End If
If VettO(VN) = Num2 Then
NF = VN
If ORiE = "" Then ORiE = "ANTIORARIO"
End If
Next VN
If NF >= NI Then
ValD = (NF - NI) + 1
Else
ValD = 38 - (NI - NF)
End If
Worksheets("Foglio2").Range("D" & RR).Value = ValD
Worksheets("Foglio2").Range("F" & RR).Value = ORiE
Next RR
End Sub
Ciao e grazie per la vostra pazienza.