< návrat zpět

MS Excel

Téma: Odstránenie časti textu z bunky rss

Zaslal/a Zdeno-Frano 1.3.2020 15:57

Peknú nedeľu všetkým.

Poprosím o pomoc s asi banalitou:

V reporte z GPS sú údaje počtu prejazdených km a stav tachometru vo všeobecnom formáte v tvare "10,25 km" a "155 255 km". Potrebujem z týchto údajov dostať číslo.
Cez funkciu Nahradiť " km" za "" to nie je problém. Km sú preč a zostane len číslo, ktoré sa dá použiť vo výpočtoch ( zarovnanie v bunke sa zmení z ľavého na pravé ). Ak to však spravím týmto spôsobom cez makro, nie je z toho číslo. Výsledok sa nedá použiť na ďalšie výpočty.
Kde robím chybu prosím vás?

V stĺpci Kontrola je to vidno, pri zmene cez funkciu Nahradiť je výsledok na základe vzorca =IF(E4=2,6;E4;FALSE) konkrétny počet km, cez makro je výsledok FALSE.

Sub KM()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
fnd = " km"
rplc = ""
Set sht = Sheets("Hárok1")
sht.Columns("E:F").Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub

Ďakujem za pomoc

Příloha: zip46105_zosit1.zip (18kB, staženo 25x)
Zaslat odpověď >
Pavlus(1.3.2020 16:53)#046107
avatar
Problémem je to, co tam píše i Excel = "Číslo uložené jako text".

Pro tyto případy lze použít ve vzorcích funkci HODNOTA, případně ve VBA si pohrát s funkcí VAL. Případně prostě a jednoduše jenom ty buňky vynásobit jedničkou (ať už ve VBA nebo ve vzorcích)...

P.citovat
Zdeno-Frano(1.3.2020 18:10)#046108
avatar
Jasné! Vďaka moccitovat
Merlin99(1.3.2020 18:11)#046109
Merlin99
jak rika Pavlus prevedl bych na cislo treba souctem +0

Sub KM()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim PoslRadek As Long
Dim Merlin As Long

fnd = " km"
rplc = ""
Set sht = Sheets("Hárok1")
sht.Columns("E:F").Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False


PoslRadek = Hárok1.Cells(Rows.Count, 4).End(xlUp).Row

For Merlin = 4 To PoslRadek
Hárok1.Cells(Merlin, 5).Value = (Hárok1.Cells(Merlin, 5).Value) + 0
Next Merlin

For Merlin = 4 To PoslRadek
Hárok1.Cells(Merlin, 6).Value = (Hárok1.Cells(Merlin, 6).Value) + 0
Next Merlin


End Subcitovat
Zdeno-Frano(1.3.2020 19:04)#046111
avatar
Vďaka aj Merlinovi :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje