bolj pregledna označitev

Pomoč pri delu z MS Excelom
Odgovori
balasko
Prispevkov: 73
Pridružen: Po Nov 12, 2007 5:38 pm

bolj pregledna označitev

Odgovor Napisal/-a balasko »

npr: če se postavim v celico c9, se mi obarva glava vrstice 9 in stolpca c. Ali obstaja varianta, da se zaradi preglednosti obarva še A9, B9 te C1:C8. Tako bi bilo bolj pregledno vse skupaj, če se postavim v npr h36.

Lep pozdrav!
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Držite SHIFT in kliknite na celico :wink:
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
balasko
Prispevkov: 73
Pridružen: Po Nov 12, 2007 5:38 pm

Odgovor Napisal/-a balasko »

hvala za odgovor, ampak se nismo zastopili. Jaz nočem označiti več celic, ampak le C9, vertikalna in horizontalno obarvana črta, ki pačč obarva ostale celice pa mi je samo horizontalni oz. vertikalni "marker", ki ne aktivira nobene celice.
Upam, da sem bil razumljen.
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Aha ... Lahko bi naredili makro. :) Druge rešitve jaz ne poznam ... Makro je prilagojen za Office 2007 ...

Koda: Izberi vse

Dim izvajaj

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If izvajaj = False Then
    izvajaj = True
    
    Range("A1:GG200").Select
    Selection.Interior.ColorIndex = 0
    Dim i, j
    
    For i = 1 To Target.Row - 1
        Cells(i, Target.Column).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.399975585192419
        End With
    Next
    
    For j = 1 To Target.Column - 1
        Cells(Target.Row, j).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.399975585192419
        End With
    Next
    
    Target.Select
    izvajaj = False
End If
End Sub
Kodo morate prilepiti v List1 v VBA-ju.
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
balasko
Prispevkov: 73
Pridružen: Po Nov 12, 2007 5:38 pm

Odgovor Napisal/-a balasko »

majstore 100krat hvala
balasko
Prispevkov: 73
Pridružen: Po Nov 12, 2007 5:38 pm

Odgovor Napisal/-a balasko »

ker mi modra ta ne ugaja, ker imam že nekaj modrega v listu, kako lahko izberem drugo barvo v makru
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Najbolje, da posnamete makro, v katerem neki celici doličite želeno barvo. Potem to prilepite v With zanko. :)
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Odgovori