VBA jaký zvolit datový typ?

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

JiriKrcek
nováček
Příspěvky: 1
Registrován: prosinec 17
Pohlaví: Nespecifikováno

VBA jaký zvolit datový typ?

Příspěvekod JiriKrcek » 18 pro 2017 18:55

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



Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Nejlevnější datový tarif
    od Petrfoo » 05 pro 2017 12:14 » v Vše ostatní (inet)
    9
    720
    od Zivan
    05 pro 2017 13:44
  • Jaký os zvolit.
    od adamik.a » 22 úno 2018 11:11 » v Vše ostatní (sw)
    6
    484
    od faraon
    22 úno 2018 17:11
  • Aký internet zvoliť ?
    od erccon » 21 led 2018 13:39 » v Sítě - hardware
    6
    394
    od strangereu
    22 led 2018 15:55
  • Jaké kódování zvolit?
    od kajicek94 » 17 led 2018 18:03 » v Multimédia (filmy, hudba, CDs/DVDs)
    7
    1229
    od kajicek94
    03 bře 2018 15:12
  • Jaký zdroj zvolit?
    od SkR1T3K » 10 led 2018 19:54 » v Rady s výběrem hardwaru a sestavením PC
    1
    171
    od Marfy
    10 led 2018 19:56

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů