Hej Sitter med ett problem att skapa en leaderboard för en finalskjutning i sportskytte. (luftgevär, luftpistol) Har ett excel-ark som hämtar in resultat från ett externt program med hjälp av macro. Inget jag skapat utan försöker bara modifiera det.
Så här ser min uppställning ut: Namn Klubb Skott Resultat Diff mot ledare Diff mot sista plats Test 3 Club 3 8 80,7 Test 7 Club 7 8 78,9 Test 8 Club 8 8 78,5 Test 4 Club 4 8 78,5 Test 2 Club 2 8 76,1 Test 6 Club 6 8 75,6 Test 5 Club 5 8 74,4 Test 1 Club 1 8 71,5
Har googlat fram en VBA kod som jag lagt in för att få listan att sorteras automatiskt.( E3=rubiken ”resultat”) Koden: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Range("E3").Sort Key1:=Range("E11"), _ Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End Sub
Skulle vilja ha in en placeringssiffra i kolumn A som ju då inte skall flyttas med vid sortering. Nu har jag löst det med textrutor, men det känns sådär…. Dessutom så i mitt exempel ovan så skulle skyttarna Test 8 och Test 4 ha samma placeringssiffra. De skulle vara 3:a båda två och test 2 skulle ligga 5:a. osv.
Efter 8 skott så plockas den skytt med lägst resultat bort. Därefter plockas en skytt bort efter skott 10,12,14,16,18 och efter skott 20 så har man en vinnare. Skulle på något sätt vilja att det automatiskt markerades efter de skotten vem som skall åka ur. Om det är två skyttar som ligger sist på samma poäng när det skall plockas bort någon så får de två skyttarna skjuta ett särskjutningsskott.
Då kommer ju de skyttarna att ha ett skott mer skjutet och en högre slutpoäng. Tacksam för hjälp med mina eller något av mina problem.
Mvh //Petter Gullin
|
|