A problémát eseménykezelő makróval lehet megoldani.
Az esemény az, hogy az adott munkalapon megváltozik egy cella tartalma.
Ezt így leírva meglehetősen hosszadalmas lesz, de megpróbálom:
Feltételezem, hogy a táblázatod folyamatosan ki van töltve, és a pontok az “F”, azaz az 5. oszlopban vannak. Tehát, ha az 5. oszlopban bármelyik cella megváltozik, akkor a táblázatot az 5. oszlop szerint rendezi csökkenő sorrendben.
Lépések:
1. Legyen az aktív cella azon a munkalapon, ahol a táblázatod van
2. Lépj át a VBE felületre (ALT-F11)
3. Ha nem látszik, kapcsold be a Projekt ablakot (Ctrl+R)
4. Kattints a projekt ablakban duplán a táblázatot tartalmazó Sheet-re
5. A jobb oldalon a kód ablakba másold be ezt a kódot:
——————————————————————-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer
col = 5
If Target.Column = col Then
ActiveSheet.sort.SortFields.Add Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.sort
.SetRange ActiveCell.CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub
————————————————————
6. Ha nem az 5. oszlopban vannak a pontszámok, akkor változtasd meg a col=5 sort másik számra.
7. Menj vissza az Excel lapra
8. Próbáld ki, hogy beírsz egy új sort, vagy csak egy új pontszámot a végére.
Jó szórakozást!
Horváth Imre
.
