Chybný formát čísla v CSV Vyřešeno

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

Moderátor: Mods_senior

Parek228
Level 1
Level 1
Příspěvky: 96
Registrován: srpen 14
Pohlaví: Muž

Re: Chybný formát čísla v CSV  Vyřešeno

Příspěvekod Parek228 » 07 dub 2020 18:49

elninoslov píše:Makro na prevod:

Kód: Vybrat vše

Sub Prevod()
Dim R As Long, D(), S() As String, i As Long, x As Byte, n As Byte, CE As Long, COK As Long, bPrevod As Boolean, C As Double

    With ThisWorkbook.ActiveSheet
        R = .Cells(Rows.Count, 1).End(xlUp).Row - 9
        D = .Cells(10, 3).Resize(R, 20).Value2
        On Error Resume Next
        For i = 1 To R
            For x = 1 To 20
                If Not IsEmpty(D(i, x)) Then
                    If Not IsNumeric(D(i, x)) Then
                        S = Split(D(i, x), ".")
                        If UBound(S) = 1 Then
                            If Not IsNumeric(S(0)) Then S(0) = WorksheetFunction.Arabic(S(0))
                            If Not IsNumeric(S(1)) Then S(1) = WorksheetFunction.Arabic(S(1))
                            C = Val(S(0) & "." & S(1))
                            bPrevod = Err.Number = 0
                        Else
                            bPrevod = False
                        End If
                        If bPrevod Then D(i, x) = C: COK = COK + 1 Else: CE = CE + 1: Err.Clear
                    End If
                End If
            Next x
        Next i
        .Cells(10, 3).Resize(R, 20).Value2 = D
        MsgBox "Prevedených hodnôt : " & COK & vbNewLine & "Neprevedených hodnôt : " & CE
    End With
End Sub


Moc ti děkuji, pomohlo to!! Fakt děkuji, velice jsem to potřeboval!

Téma uzavírám, děkuji všem za nápady a pomoc.

PS: Elninoslov, budu tě kontaktovat do PM, mám otázku prosím.



Reklama

  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Resetování hry - chybný PSU nebo přehřívání CPU?
    od pepan321 » 10 srp 2019 13:54 » v Problémy s hardwarem
    7
    509
    od dvorakj
    10 srp 2019 17:47
  • Jmeno u telefonního čísla
    od Montes » 17 pro 2019 19:55 » v Vše ostatní (sw)
    3
    374
    od sim20
    17 pro 2019 21:21
  • Jak v EXCELU nastavit, aby se mi po napsaní čísla vedle zobrazilo ks?
    od Ondras66 » 04 pro 2019 21:02 » v Kancelářské balíky
    3
    990
    od Coxx-cz
    04 pro 2019 23:23
  • format disku
    od egresovic » 09 led 2020 13:49 » v Problémy s hardwarem
    8
    386
    od egresovic
    09 led 2020 15:56
  • Excel - formát datumu
    od JirkaT » 08 led 2020 21:20 » v Kancelářské balíky
    4
    888
    od mmmartin
    09 led 2020 11:02

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů