MS Excel

Jak přidat do makra kterým nacházím vždy první prázdnou buňku v tabulce příkaz aby tato buňka byla zvýrazněna ještě barvou. Na listu mám vedle sebe x tabulek (240 sloupců)a pro větší přehlednost aby bylo aktivní buňku lépe vidět. Excel 2002. Dík.

Zaslat odpověď >

Poki(25.2.2011 10:04)#004201

ActiveCell.Interior.ColorIndex = 3

(3 je cervena...)

citovat

vjmacek(25.2.2011 10:16)#004202

Tímto se mi obarví celý sloupec. Nešlo by nějak aby byla obarvena pouze vybraná aktivní buňka? A po zápisu do této buňky by klidně mohla zůstat bez barvy. Dík.citovat

Poki(25.2.2011 10:24)#004203

ten kod obarvi rozhodne jen aktivni bunku (leda, ze byste na zacatku nemel ActiveCell, ale nejakej Columns).
Pokud budete chtit, aby se bunka po zmene odbarvila, budete muset vlozit dalsi kod do modulu prislusneho listu:Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) = False Then
Target.Interior.ColorIndex = 0
End If
End Subcitovat

vjmacek(25.2.2011 10:30)#004204

Mám tam toto. Poskládal jsem to z různých příkladů bez znalosti věci. Možná to tak ani nemusí být.

Sub A_1()
Sheets("1-30").Select
Range("A8:A9").Select
Do Until ActiveCell = ""
Selection.Offset(1, 0).Range("A1").Select
Loop
End Subcitovat

Poki(25.2.2011 10:56)#004205

abych rekl pravdu, tak nevim, co chcete kodem dosahnout, pokud vysvetlite, co ma kod delat, tak ho muzu zkusit napsat...citovat

vjmacek(25.2.2011 11:10)#004206

Tak jak jsem psal na začátku pouze kvůli orientaci a zvýraznění aby aktivní buňka byla hned vidět. Těch dat je na stránce hodně. Myslel jsem, že by stačilo do makra přidat jen nějaký jednoduchý příkaz. Ale pokud tomu tak není tak to neřešte. Zase tak nutně to nepotřebuji. Moc díky.citovat

Poki(25.2.2011 11:32)#004207

Urcite to bude jednoduche nejaky kod vytvorit, v tom problem neni, jen bych potreboval vedet, co ma delat.
Obarveni aktivni bunky lze udelat tak, jak jsem napsal, ale pokud mate vybrany (coz kodem delate) nejakou oblast a k ni priradite .Interior.ColorIndex, tak se obarvi cela oblast)

Pokud potrebujete vybrat prvni prazdnou bunku ve sloupci, lze tu udelat takto:
cells(cells(1,1).end(xldown).row+1,1).selectcitovat

vjmacek(25.2.2011 12:29)#004209

Moc díky. To jsou karty na materiál a u každého druhu je jedno makro na vyhledání posledního záznamu aby se dalo pokračovat. Ale ne vždycky se dělá záznam někdy je třeba podívat se na zůstatek. Tak jsem myslel, že by tímto způsobem (obarvená aktivní buňka) hned bylo patrné kde jsem byla by to jen taková kosmetická vychytávka. Ještě jednou díky.citovat

stusna(22.3.2023 8:52)#054687

Úplně jednochuchá změna pozadí aktivní buňky

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 35
End Sub

A pro podbarvení celého řádku použijte toto

Public old_range As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If old_range = "" Then
Cells.Interior.ColorIndex = xlNone
old_range = Target.Row
End If
Rows(old_range).Interior.ColorIndex = xlNone
Rows(ActiveCell.Row).Interior.ColorIndex = 35
old_range = Target.Row
End Sub

Zvýraznění řádku i sloupce

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 35
End With
With Rows(pRow).Interior
.ColorIndex = 35
End With
End Sub
citovat

Téma: Barva aktivní buňky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje