< návrat zpět
MS Excel
Téma: Kopírovanie čísel z textu 
Zaslal/a Zdeno-Frano 1.3.2020 19:02
Ešte jedna prosba dnes ohľadom reportu GPS:
Do hárku REPORT GPS v súbore KNIHA_JAZD_priklad vložím celý obsah Hárku1 zo súboru Report_GPS_priklad.
Aktiváciou tlačítka Vlož údaje z GPS reportu... v súbore KNIHA_JAZD_priklad v hárku REPORT GPS sa skopírujú upravené údaje do hárku 1 - Január a vyplnia sa v tabuľke Knihy jázd prejazdené km a stav tachometra podľa dní.
Chcel by som ešte dostať z údajov v tomto hárku z tmavých buniek v stĺpci W do tejto tabuľky ( do stĺpcov H a I ) údaje o tankovaní v konkrétnom dni - počet litrov a sumu ( tieto údaje sa odlišujú od ostatných údajov v tomto stĺpci, vkladajú sa tam hromadne - je to celé 1 text ).
Resp. jednoduchšie povedané:
Ako dostať z textu "2.1.2020 Tankování Litrů: 32,45, Cena za l : 1,24 EUR, Cena celkem: 40,37 EUR" hodnoty počtu litrov a sumy celkom, keď počet znakov nemusí byť vždy zhodný?
Mohli by ste mi ešte s týmto pomôcť?
Ďakujem
Příloha: 
46110_kniha_jazd_priklad.zip (113kB, staženo 29x)
Dám len nástrel riešenia, odchádzam. Keď to nedáte, tak možno keď prídem Vám to tam zakomponujem.
Sub pokus()
Dim Text As String, S() As String, Litrov As Single, Suma As Single
Text = "2.1.2020 Tankování Litrů: 32,45, Cena za l : 1,24 EUR, Cena celkem: 40,37 EUR"
S = Split(Replace(Text, ",", "."), ": ")
Litrov = Val(Split(S(1), ". ")(0))
Suma = Val(Split(S(3), " EUR")(0))
End SubcitovatTu máte prerobené načítanie dát zo súboru GPS. Súbor nemusíte otvárať, makro pripraví potrebné vzorce na dolovanie dát zo zatvoreného súboru, a iba tých ktoré požadujete do tabuľky. Akurát neviem čo potom s nimi. Ako sa spracovávajú v tej sumárnej tabuľke, keď je za deň X jázd, ale iba 1 riadok, čo sa má kam zapisovať pri tankovaní atď.
Příloha: 46129_kniha_jazd_priklad.zip (111kB, staženo 25x) citovat
\n
RSS nejnovější články