Informatika és tudomány

megoldást keresek erre a problémára
  • zmrzlina
    #1418
    Ez a képlet működése miatt van így, meg azért mert nem értek eléggé az excelhez.

    Ha a következő kódot új modulba másolod és lefuttatod akkor a D1 cellától lefelé egymás alá kiírja a maximum ponttal rendelkező játékosok nevét.
    A Set eredmenyek = Worksheets("Munka1").Range("B:B") sorban a Munka1-t írd át a te munkalapod nevére. 

    
Sub nyertesek()
    
Dim maxpont As Double
    
Dim hovategye As Integer
    
hovategye = 1
    

    
Set eredmenyek = Worksheets("Munka1").Range("B:B")
    
maxpont = Application.WorksheetFunction.Max(eredmenyek)
    

    
For i = 4 To 53
    
    If Cells(i, 2).Value = maxpont Then
    
        Cells(hovategye, 4).Value = Cells(i, 1).Value
    
        hovategye = hovategye + 1
    
    End If
    
Next
    
End Sub


    A sorok sorszámát nem kell bemásolni a makróba.