EXCEL 2016 - změna formátu textu
-
- Pohlaví:
Re: EXCEL 2016 - změna formátu textu
el: Já nevím, v kombinaci s makrem nějaké opucování. Jo, vzorečky jsou hezké mentální cvičení, ale v daném případě krajně nepraktické. Nic ve zlém.
- elninoslov
- Level 2.5
- Příspěvky: 366
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: EXCEL 2016 - změna formátu textu
Tak skúsim teda aj nejaké makro ... :)
Je to teda iba na hromadný výcuc čísla:
Nieje to na separovanie všetkých častí. Ak je potreba všetky stĺpce separovať:
, treba trošku kódu ešte pridať, ale treba aj pridať špecifikácie:
-Je viacslovný názov (druhá časť)?
-Všetky 4 časti sú uvedené vždy?
...
Je to teda iba na hromadný výcuc čísla:
Kód: Vybrat vše
Sub ExtrahujCislo()
Dim Data(), Casti, Riadkov As Long, i As Long, T As String, x As Long, DS As String * 1, sCislo As String, Poz As Long
With ThisWorkbook.Worksheets("Hárok1")
Riadkov = .Cells(Rows.Count, 1).End(xlUp).Row - 1
If Riadkov = 0 Then Exit Sub
With .Cells(2, 1).Resize(Riadkov)
Data = .Value2
DS = Application.DecimalSeparator
For i = 1 To Riadkov
Casti = Split(Data(i, 1), " ")
T = Replace(Replace(Casti(UBound(Casti) - 1), ",", ""), ".", DS)
Poz = 0
For x = Len(T) To 1 Step -1
sCislo = Right$(T, x)
If IsNumeric(sCislo) Then Poz = x: Exit For
Next x
If Poz <> 0 Then Data(i, 1) = CDbl(sCislo)
Next i
.Offset(, 1).Value2 = Data
End With
End With
Erase Data
End Sub
Nieje to na separovanie všetkých častí. Ak je potreba všetky stĺpce separovať:
Kód: Vybrat vše
00041333
ABC DEF
4,18
USD
, treba trošku kódu ešte pridať, ale treba aj pridať špecifikácie:
-Je viacslovný názov (druhá časť)?
-Všetky 4 časti sú uvedené vždy?
...
- Přílohy
-
- Výcuc čísla z textu.xlsm
- (19.01 KiB) Staženo 10 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
prenos suborov a konverzia formatu
od Sami » 01 dub 2023 12:14 » v Multimédia (filmy, hudba, CDs/DVDs) - 2
- 3046
-
od Sami
Zobrazit poslední příspěvek
01 dub 2023 13:49
-
-
- 3
- 1514
-
od BigSandy
Zobrazit poslední příspěvek
26 kvě 2023 09:49
-
-
Ilustrator 2020 - problém textu v křivce Příloha(y)
od showpayne » 13 srp 2023 17:50 » v Design a grafické editory - 4
- 1922
-
od Grander
Zobrazit poslední příspěvek
14 srp 2023 14:44
-
-
- 3
- 1539
-
od Alferi
Zobrazit poslední příspěvek
07 říj 2023 22:08
-
- 0
- 1609
-
od DanteJo94
Zobrazit poslední příspěvek
14 srp 2023 10:26
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů