< návrat zpět

MS Excel


Téma: Barva aktivní buňky rss

Zaslal/a 25.2.2011 9:47

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ěď >

icon #004201
Poki
ActiveCell.Interior.ColorIndex = 3

(3 je cervena...) 2citovat
#004202
avatar
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
icon #004203
Poki
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 Sub
citovat
#004204
avatar
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
icon #004205
Poki
abych rekl pravdu, tak nevim, co chcete kodem dosahnout, pokud vysvetlite, co ma kod delat, tak ho muzu zkusit napsat...citovat
#004206
avatar
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
icon #004207
Poki
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
#004209
avatar
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
#054687
avatar
Ú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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Podmínka pro spuštění makra

MilanKop • 18.3. 18:51

Podmínka pro spuštění makra

Stalker • 18.3. 18:34

duplicity

fortes • 18.3. 17:48

Podmínka pro spuštění makra

MilanKop • 18.3. 17:31

spojení vzorců v PQ

elninoslov • 18.3. 15:13

spojení vzorců v PQ

Majki • 18.3. 14:15

Automaticka zmena obsahu bunky podla datumu

elninoslov • 17.3. 12:14