Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Excel - Makro zafarbenie hlavičky tabuľky

Zdravím, potreboval by som dokončiť úpravu makra - aby mi pri CurrentRegion - nájde danú tabuľku - označilo farebne nadpisy stlpcov - a teda hlavičku tabuľky. Mám Makro ako prejde bunku po bunke ale nemôžem sformulovať podmienku aby sa to zafarbilo vždy iba na hlavičke tabuľky. Prosím o radu.
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    sthruska je offline (nepripojený) sthruska

    sthruska
    Neviem či to trafím, ale excel pozná relatívne a absolútne odkazy na bunky. Musíš použiť absolútny odkaz. Ten sa nikdy nemení.
    0
    Tunco Sub FarbenieHlaviciek()


    Dim pocR As Integer, pocS As Integer, k As Integer
    Dim FR As Integer, FC As Integer, PS As Integer, Posun As Integer
    ' PS = rozdiel medzi prvým stlpcom a reálnym umiestnením tabulky, reps. rozsahu
    ' Posun = výpočet o koľko stlpcov sa ma zafarbenie posunut na vybratý rozsah
    Dim rg As Range
    Set s = ActiveCell.CurrentRegion
    'Current region (aktuálna oblasť) reprezentuje oblasť,
    'ktorá je ohraničená prázdnymi (aspoň jedným) riadkami
    'a prázdnymi stĺpcami (aspom jedným). Ak chcete vybrať
    'danú oblasť, treba v nej mať aktivovanú aspom jednu bunku.
    s.Select
    pocR = Selection.Rows.Count
    'zistí počet riadkov aktuálnej oblasti
    pocS = Selection.Columns.Count
    'zistí počet stĺpcov aktuálnej oblasti
    FR = Selection.Rows.Row
    ' číslo prvého riadku vybranej oblasti
    FC = Selection.Columns.Column
    'číslo prvého stĺpca vybranej oblasti
    PS = FC - 1
    Posun = pocS + PS

    Range(Cells(FR, FC), Cells(FR, Posun)).Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
    End With

    MsgBox Posun

    End Sub


    Takéto makro som použil, ale zdá sa mi to celé moc koplikované.

    Excel - Makro zafarbenie hlavičky tabuľky

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka