Zdravím,
jsem začátečník a píšu program, něco jako atletická kalkulačka. Chci při překročení určitého času , aby počet bodů byl 0, ale ikdyž dám čas menší tak je stále počet bodů 0 .
Děkuji každému za radu nebo připomínku!
Tady je kód :
https://pastebin.com/MeAw7Jtn
Sub pocitac()
'Athletic calculator
sto = InputBox("Zadejte čas na 100m (formát času např.: 9.46)", "Čas za 100m") 'Sprint for 100m
max100 = 17.15
If sto > max100 Then
score100 = 0# 'Přiřazení bodové hodnoty. Příkaz FoundCell.Row zjistí na kolikítém řádku se čas nachazí a sloupec je pořád stejný
Sheets("List2").Select 'Aktivuje List2
ActiveSheet.Cells(1, 1).Value = "100 m " 'Hlavička
ActiveSheet.Cells(2, 1).Value = score100 ' Zapíše bodový výsledek na danou pozici
MsgBox "Bodová hodnota za čas: " & sto & " je " & score100, , "Bodová hodnota za 100m"
Else
For I = 1 To 1402 ' řádek 1 až 1402
rozsah = "B" & I ' Sloupec B řádek 1 - 1402
With Range(rozsah) 'Vyhledání zadané hodnoty dveste ve sloupci B a řádku 1 až 1402
Set FoundCell = .Cells.Find(what:=sto, _
after:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
Lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
End With
If FoundCell Is Nothing Then
'posunout o jednu bunku dolu??
Else
score100 = Cells(FoundCell.Row, 1).Value 'Přiřazení bodové hodnoty. Příkaz FoundCell.Row zjistí na kolikítém řádku se čas nachazí a sloupec je pořád stejný
Sheets("List2").Select 'Aktivuje List2
ActiveSheet.Cells(1, 1).Value = "100 m " 'Hlavička
ActiveSheet.Cells(2, 1).Value = score100 ' Zapíše bodový výsledek na danou pozici
MsgBox "Bodová hodnota za čas: " & sto & " je " & score100, , "Bodová hodnota za 100m" ' Vypsání bodů
End If
Next I
End If
End Sub
VBA jaký zvolit datový typ?
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Datový model - aktualizace po přidání dalšího sloupce do Access
od MK_Vs » 27 črc 2023 12:05 » v Kancelářské balíky - 0
- 1626
-
od MK_Vs
Zobrazit poslední příspěvek
27 črc 2023 12:05
-
Zpět na “Programování a tvorba webu”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů