Tunco
03.05.14,20:33
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.
sthruska
04.05.14,07:19
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í.
Tunco
04.05.14,08:17
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é.
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é.