• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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: 46105_zosit1.zip (18kB, staženo 24x)

Zaslat odpověď >

---

Pavlus(1.3.2020 16:53)#046107

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

Jasné! Vďaka moccitovat

Merlin99(1.3.2020 18:11)#046109

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

Vďaka aj Merlinovi :-)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse