Excel rozložení tabulky

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

Moderátor: Mods_senior

dikobraz
nováček
Příspěvky: 1
Registrován: červenec 21
Pohlaví: Muž

Excel rozložení tabulky

Příspěvekod dikobraz » 29 črc 2021 22:27

Ahoj, měl bych na vás zkušenější dotaz. V příloze je ukázka tabulky, se kterou pravidelně pracuji, ale vstupní rozložení je špatné a zatím se mi nedaří přijít na způsob, jak to snadno upravit do potřebného tvaru, který je na druhém listu v souboru.
Napadlo by někoho nějaké efektivní řešení?
Moc děkuji všem za pomoc.
Nemáte oprávnění prohlížet přiložené soubory.

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

Re: Excel rozložení tabulky

Příspěvekod elninoslov » 30 črc 2021 18:46

Môže byť makro?

Kód: Vybrat vše

Sub prevod_dat()
Dim D(), V(), R As Long, Poz As Long, rngBold As Range, rngItalic As Range

    D = Worksheets("takhle to dostanu").UsedRange.Value
    ReDim V(1 To UBound(D, 1), 1 To 5)
   
    With Worksheets("makro")
        For R = 1 To UBound(D, 1)
            If IsEmpty(D(R, 4)) Then
                Poz = R
            Else
                If Not IsEmpty(D(R, 1)) Then
                    V(R, 1) = D(Poz, 1)
                    V(R, 2) = D(R, 1)
                    If rngBold Is Nothing Then Set rngBold = .Cells(R, 1) Else Set rngBold = Union(rngBold, .Cells(R, 1))
                Else
                    Set rngBold = Union(rngBold, .Cells(R, 5))
                    If rngItalic Is Nothing Then Set rngItalic = .Cells(R, 5) Else Set rngItalic = Union(rngItalic, .Cells(R, 5))
                End If
                V(R, 5) = D(R, 4)
            End If
        Next R
   
        .UsedRange.Clear
        .Cells(1, 1).Resize(UBound(V, 1), 5).Value = V
        rngBold.Font.Bold = True
        rngItalic.Font.Italic = True
        With .Cells(1, 1).Resize(UBound(V, 1), 5)
            .Font.Name = "Verdana"
            .Font.Size = 8
            .Columns(5).NumberFormat = "#,##0.00"
        End With
    End With
End Sub


Edit:
Prípadne aj PQ dotaz v prílohe.
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • WordPress - Oprava tabuľky
    od RayCodeCSC » 04 srp 2021 10:38 » v Programování a tvorba webu
    3
    327
    od Clorky
    10 srp 2021 20:10
  • Vytvoření tabulky na tipování
    od davidek103 » 20 črc 2021 18:30 » v Kancelářské balíky
    1
    327
    od elninoslov
    21 črc 2021 01:03
  • Stavba pracovní sestavy (tabulky, maily, SPOLEHLIVOST)
    od kupjec » 20 úno 2021 20:15 » v Rady s výběrem hw a sestavením PC
    5
    469
    od kupjec
    21 úno 2021 10:10
  • Excel VBA
    od Bobo799 » 09 pro 2020 11:22 » v Kancelářské balíky
    3
    890
    od elninoslov
    09 led 2021 11:43
  • Napojení SQL na excel
    od Andrea320 » 05 srp 2021 14:39 » v Kancelářské balíky
    8
    446
    od Grimm
    10 srp 2021 13:25

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

Kdo je online

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