RFID-Timing systemet på billigt pris (2 / 3 steg)
Steg 2: Aktivera Excel
Att göra mallen var en sträcka för mig med mina begränsade kunskaper i Excel. Jag vill definitivt tacka min revisor kompis SM för hans hjälp. Du kan ha en vän som du kommer att ha kodning beundran för som kan hjälpa dig också.
Här är uppsättningen upp när du har filen:
Växla till ark 2 - "CardNameMatch"
Scan varje kort i kolumn A. Lägg till "namn" för kortet i kolumn B. (It gör vettigare med filen är öppen, eller titta på filmen i intro igen.)
Du kan välja "Spara som" så att du kan göra olika dagar i olika filer utan att behöva Radera gamla data.
Växla tillbaka till blad 1 - "Single Race"
Kontrollera att rutan är i kolumn A - "Kort"
Anslut din läsare. Leta efter lamporna att blinka, blixt eller slå på.
RFID-läsare skicka en "text" sträng av siffror och bokstäver.
Du kan läsa den i ett Word-dokument, eller använda ett tomt Excel-dokument. Om du inte får siffror/bokstäver, de måste du referera till manualen för din RFID-läsare.
Börja med två eller tre kort, och arbeta dig upp till större uppsättningar. Du kan börja om på samma blad, så länge du inte bryr dig om spårning resultat.
Var noga med att "Spara som" snarare än "Spara" så att du slipper arbeta hårt för att göra en tom Excel-blad varje gång.
Bakom kulisserna-hoppa över denna del om du har något intresse av kodning
Blad 2-döpa bladet att "CardNameMatch" (eller det namn du vill)
Kolumn A är för raw-data från korten
Kolumn B är de visningsnamn som du vill visa. Märka korten som behövs med sharpie eller klistermärken.
På framsidan
Blad 1 byta namn till Single Race
Hoppa över de topp 4 raderna om du vill ha ett resultat utrymme.
5a-kort kolumnen är rådata från RFID-kort.
5b-tid den här kolumnen visar tiden kortet var in-inga formler. Det är en VBA som kommer att tas upp senare.
5 c - logiska kolumn för starttid, eller slutet
= OM (E32 = "Starta tid", "ST", Välj (MIN (4, RANK. EQ(E32,E:E,1)), "Första", "andra", "Tredje", "-"))
5 D - Namn - kolumnen kommer att ha denna kod
= VLOOKUP(A6,CardNameMatch! A: b, 2,) (du måste ändra "CardNameMatch" om du gjort upp ett annat namn för blad 2)
5E - Total tid kommer att ha denna kod
=IF(ISNA(VLOOKUP(A6,$A$5:B5,2,0)), "Start Time", B6-VLOOKUP(A6,$A$5:B5,2,0))
VBA-Klicka på fliken Utvecklare (du mayhave att titta på nätet för hur man kan klicka inställningar aktivera fliken Utvecklare)
Kalkylblad
Private Sub Worksheet_Change(ByVal Target As Range)
Om Target.Column = 1 då
Celler (Target.Row, 2). Värde = nu
Beep
Slut om
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Vi inte kan infoga tiden som en tidsstämpel, beror på att detta kommer att förändras eftersom vi arbetar med bladet. Vi behöver en VBA att infoga "Nu" så att när data registreras, tiden kommer att införas och inte ändrats igen. Beep lades också till att förbättra användarsvaret.
Vinnare? Valfritt steg att Visa vinnare på toppen
1f har först
1G har =VLOOKUP($F1,$C:$E,2,0)
1H =VLOOKUP($F1,$C:$E,3,0)
2F andra
2G =VLOOKUP($F2,$C:$E,2,0)
2H =VLOOKUP($F2,$C:$E,3,0)
3F tredje
3G =VLOOKUP($F3,$C:$E,2,0)
3H =VLOOKUP($F3,$C:$E,3,0)