EXCEL 2016 - změna formátu textu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

guest
Pohlaví: Nespecifikováno

Re: EXCEL 2016 - změna formátu textu

Příspěvekod guest » 31 led 2018 17:43

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.

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: EXCEL 2016 - změna formátu textu

Příspěvekod elninoslov » 31 led 2018 19:22

Tak skúsim teda aj nejaké makro ... :)
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
    3041
    od Sami Zobrazit poslední příspěvek
    01 dub 2023 13:49
  • Převod formatovaného textu na normalní.
    od BigSandy » 26 kvě 2023 07:27 » v Vše ostatní (sw)
    3
    1511
    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
    1920
    od Grander Zobrazit poslední příspěvek
    14 srp 2023 14:44
  • změna CPU?
    od sign0r » 07 říj 2023 21:32 » v Rady s výběrem hw a sestavením PC
    3
    1539
    od Alferi Zobrazit poslední příspěvek
    07 říj 2023 22:08
  • Ikony změna
    od DanteJo94 » 14 srp 2023 10:26 » v Mobily, tablety a jiná přenosná zařízení
    0
    1606
    od DanteJo94 Zobrazit poslední příspěvek
    14 srp 2023 10:26

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů