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ž
Stav:
Offline

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.
Přílohy
tabulka.xlsx
(11.13 KiB) Staženo 37 x

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 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.
Přílohy
tabulka.xlsx
(22.72 KiB) Staženo 21 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - z jedné tabulky automaticky vytvořené jednotlivé listy Příloha(y)
    od yanetta » 09 říj 2023 10:55 » v Kancelářské balíky
    3
    3297
    od elninoslov Zobrazit poslední příspěvek
    10 říj 2023 11:38
  • TV vs monitor - rozložení pixelů Příloha(y)
    od Arha » 23 úno 2024 14:15 » v Vše ostatní (hw)
    1
    418
    od Zivan Zobrazit poslední příspěvek
    23 úno 2024 14:25
  • Součet údajů z tabulky.
    od Myerina » 30 led 2024 08:30 » v Kancelářské balíky
    2
    851
    od Myerina Zobrazit poslední příspěvek
    30 led 2024 08:44
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5993
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1641
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57

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

Kdo je online

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