Moderatori: Anthony47, Flash30005
Sub PremioTecnico()
RR = Foglio1.Range("D" & Rows.Count).End(xlUp).Row
Dim VP1(5) As Integer
Dim Vp2(5) As Integer
MaxP1 = 0
MaxP2 = 0
M_MaxP1 = 0
M_MaxP = 0
M_MaPS = 0
For PT = 8 + Range("J" & 3).Value To RR
VP1(1) = Cells(PT, 6).Value
VP1(2) = Cells(PT, 8).Value
VP1(3) = Cells(PT, 12).Value
VP1(4) = Cells(PT, 16).Value
VP1(5) = Cells(PT, 20).Value
Vp2(1) = Cells(PT, 7).Value
Vp2(2) = Cells(PT, 9).Value
Vp2(3) = Cells(PT, 13).Value
Vp2(4) = Cells(PT, 17).Value
Vp2(5) = Cells(PT, 21).Value
MVP1 = 0
MVP2 = 0
MVP3 = 0
MPV4 = 0
For VM1 = 1 To 5
If MVP1 < VP1(VM1) Then
MVP1 = VP1(VM1)
MVP3 = Vp2(VM1)
CV1 = VM1
End If
Next VM1
For VM2 = 1 To 5
CV2 = VM2
If CV2 <> CV1 And MVP2 < VP1(VM2) Then
MVP2 = VP1(VM2)
MVP4 = Vp2(VM2)
End If
Next VM2
MaxP = MVP1 + MVP2
MaxPS = MVP3 + MVP4
If MaxP > M_MaxP Then
M_MaxP = MaxP
RPT = PT
Else
If MaxP = M_MaxP Then
If MaxPS > M_MaPS Then
M_MaPS = MaxPS
RPT = PT
End If
End If
End If
Next PT
msg = "Il PREMIO TECNICO" & vbCrLf
msg = msg & "è vinto dalla coppia:" & vbCrLf & vbCrLf
msg = msg & UCase(Range("D" & RPT).Value) & " " & UCase(Range("E" & RPT).Value) & vbCrLf & vbCrLf
msg = msg & "con " & M_MaxP & " punti VP " & vbCrLf
msg = msg & " e " & M_MaPS & " punti MP"
MsgBox msg
'MsgBox " Il PREMIO TECNICO è vinto dalla coppia " & UCase(Range("D" & RPT).Value) & " " & UCase(Range("E" & RPT).Value) & " con " & M_MaxP & " punti come VP e " & M_MaPS & " come MP"
End Sub
veneto83 ha scritto:ultimo file che m'hai mandato c'erano dei problemi sull' impostazione sulla pagina a4 di 4 score.. non mi stavano più nel foglio a4..tutti e 4
veneto83 ha scritto:puoi mettermi il "cancella dati" e il "Calcola" qui che invece non ha problemi d'impaginazione lo score.
veneto83 ha scritto:I pulsanti se puoi mettimeli pure sotto "sorteggia coppie" e " muovi coppie", xò se puoi non modificarmi la grandezza. anche se sono un po attaccati o leggermente sovrapposti graficamente è uguale.
veneto83 ha scritto:ehm...ma non è lo stesso grafico..
veneto83 ha scritto:Perfetto! mi sembra funzioni a meraviglia!
veneto83 ha scritto:P.S Io non so davvero come ringraziarti, per tutta la pazienza che hai avuto e per avermelo in pratica fatto..io ho messo solo le spiegazioni. tu l'operato tecnico. grazie ancora tantissimo.
Torna a Applicazioni Office Windows
Excel Estrazione casuale testo da colonna per bingo ca**ate Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 7 |
Ottenere numero casuale con pesi diversi Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 7 |
Quesito (forse) facile sulla riproduzione casuale di media p Autore: nippon |
Forum: Audio/Video e masterizzazione Risposte: 15 |
Sorteggio torneo in modo casuale con condizioni Autore: Mircobuo |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 80 ospiti