MS Excel

Prosím o pomoc s tímto mekrem. V tomto stavu mě zvýrazní celý aktivní řádek. Já však potřebuju zvýraznit pouze sloupce B-F na aktivním řádku.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
End With
End Sub

Zaslat odpověď >

ji026441(2.6.2012 11:03)#008701

A co takto?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Radek As Long
Radek = ActiveCell.Row

Cells.Interior.ColorIndex = xlNone

Cells(Radek, 2).Interior.ColorIndex = 3
Cells(Radek, 6).Interior.ColorIndex = 3

End Subcitovat

kp57(2.6.2012 22:12)#008705

nebo
Union(Cells(Radek, 2), Cells(Radek, 6)).Interior.ColorIndex = 3
nebo
Intersect(Rows(Radek), Union(Columns(2), Columns(6))).Interior.ColorIndex = 3
nebo
For Sloupec = 2 To 6 Step 4
Cells(Radek, Sloupec).Interior.ColorIndex = 3
Next Sloupeccitovat

Karel237(3.6.2012 12:09)#008713

Díííky. Toakhle jsem to přesně potřeboval.citovat

Anonym(3.6.2012 12:38)#008714

Ted jsem ale narazil na ještě jeden problém. Pokud mám např. buňku F6 trvale zvýrazněnu(funkcí Barva výplně)zeleně, tak tento formát se smaže a jde pouze zvýraznění makrem. Je tedy ještě možná úprava, aby po přejetí na jiný řádek zústalo původní formátování?

Zatím to mám napsané takto:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Radek As Long
Radek = ActiveCell.Row

Cells.Interior.ColorIndex = xlNone

For Sloupec = 1 To 8 Step 1
Cells(Radek, Sloupec).Interior.ColorIndex = 3
Next Sloupec

End Subcitovat

kp57(3.6.2012 21:32)#008721

Jde o to, že tato informace je fuč. Musí se někde zálohovat.
Pak teda
For Sloupec = 1 To 8 Step 1
if něco = true then
Cells(Radek, Sloupec).Interior.ColorIndex = 3
else
'jestli se jedná o jednu konkrétní buňku
Cells(Radek, Sloupec).Interior.ColorIndex = 4
'nebo celý řádek je zelený s tím, že v prvním sloupci
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(radek, 1).Interior.Color
'nebo celý sloupec je zelený s tím, že v prvním řádku
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(1, Sloupec).Interior.Color
'nebo lze zálohovat celé schéma třeba o 10 sloupců vpravo
Cells(Radek, Sloupec).Interior.Color = Cells(Radek, Sloupec + 10).Interior.Color
end if
Next Sloupec

Ale zamysli se jestli není vhodnější použít podmíněný formát?!citovat

Téma: Makro EXCSL - zvýraznění buněk

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje