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: zip

46110_kniha_jazd_priklad.zip (113kB, staženo 28x)

Zaslat odpověď >

elninoslov(3.3.2020 8:02)#046124

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 Subcitovat

elninoslov(3.3.2020 22:17)#046129

Tu 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: zip