Excel jelölők!

Szia!

A jelölő szónál leakadtam, csak próbálok találgatni.
leírom, hogy hogy értem ezt most Én:

Egy táblázat első oszlopába, minden cellába szeretnél tenni egy checkbox-ot, amit ha megnyomsz, akkor a hozzá tartozó egész sort kiemeli egy színnel, ha újra megnyomod, akkor meg vissza.

Ha így van, akkor tennék javaslatot, hogy ne így csináld, mert akkor annyi checkbox kell, ahány sorod van, és ráadásul, ahogy tapasztalod, minden másolathoz külön-külön be kel állítania cellacsatolást, ami praktikusan különben az alatta lévő cella lenne.
Sok sor esetén drámaian lassítani fogja a modellt, és a fájlméret is jelentősen nőni fog.

Én 1-el vagy 0-val jelölném azt, hogy színezni kell a sort vagy nem, és feltételes formázással színezném az 1-essel jelölt sorokat.

Aprócska makró betéttel meg lehetne oldani azt is, hogy ha duplán kattintasz az első oszlop bármely celláján, akkor színezze a teljes sort valamilyenre, ha megint duplán kattintasz, akkor pedig vissza.

A makrónak nem kell az ominózus fájlban lennie.

Imre

Szia!

Megcsináltam neked a makrót, csak a beillesztését kell megoldanod, a kódután leírom hogyan:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const nofill As Double = 16777215
    If Target.Column = 1 Then
        uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column
        If Target.Interior.Color = nofill Then
            Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(252, 213, 180)
        Else
            Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(255, 255, 255)
        End If
    End If
End Sub

Beillesztés
1. Annak a lapnak a nevén, ahová szeretnéd jobb klikk ->Kód megjelenítése vagy View Code
2. A jobb oldali ablak tetején az első legördülőt „General” helyett „Worksheet”-re állítod
3. A mellette lévő legördülőben megkeresed a „BeforeDoubleClick” eseményt.
Ezután kapsz egy üres eseménykezelő rutint, amit a fenti kóddal cserélj ki
4. Kipróbálhatod

Ha az első (A) oszlopban duplán kattintasz egy cellán, akkor az egész sort a kódban látható RGB színre színezi, majd aktívvá teszi a cella szerkesztését. Ez utóbbit nem tudtam kiküszöbölni.
Ha egy már színezett sor első celláján kattintasz duplán, akkor leveszi a színt.

5. ha tetszik, akkor a fájlt makróbarát munkafüzetnént (*.xlsm) formátumban kell mentened.

remélem sikerül, azért csatolok egy képet.

Imre

P.S
A másik kérdésben nem tudok segíteni sajnos.

• A hozzászólás módosításra került: 9 years, 3 months telt el-horvimi.

A tartománynak összefüggőnek kell lennie, legalábbis most így írtam meg.
Tehát nem lehet benne üres oszlop vagy akár teljes sor.

ha ez nem teljesül, akkor még lehetséges színezni ateljes sort.
Akkor a kódot cseréld ki erre:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const nofill As Double = 16777215
    If Target.Column = 1 Then
        uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column
        If Target.Interior.Color = nofill Then
            Target.EntireRow.Interior.Color = RGB(252, 213, 180)
        Else
            Target.EntireRow.Interior.Color = RGB(255, 255, 255)
        End If
    End If
End Sub

Imre

Örülök, hogy megoldódott.
Meg lehetne csinálni, hogy a fehér helyett a „Nincs kitöltést” adnánk meg, de ha nem muszáj, akkor ezt már rátok bíznám…

Ha megengedsz még egy megjegyzést.
Olyan táblázatokat, amiken intenzíven dolgozunk, szűrünk, keresünk, bármi, jobb ha nem formázzuk sehogy. Rengeteg kellemetlenségtől szabadulunk meg.
Legfeljebb a fejlécet, esetleg a számformátumot, hogy olvashatóbbak legyenek az adatok.

Formázni csak a „Presentation” szinten javasolt.
A világban ez a trend, a „Best Practice”

Minden jót a következő kérdésig,

Imre

P.S
Makróírást például nálunk is lehet tanulni.
http://pentaschool.hu/office/excel-makro-vba-tanfolyam.php

Ha ez az időpont nem jó neked, ami most lesz, de különben érdekelne, akkor az oldal tetején lévő kis táblázat „Érdeklődés” gombjával tudsz érdeklődőként regisztrálni egy későbbi időpontra. A megjegyzésbe írd be, hogy nappali vagy inkább esti időpont lenne jó.

• A hozzászólás módosításra került: 9 years, 3 months telt el-horvimi.

Szia!

A gond valójában az lehet, hoyg a cellaháttér színezés lefedi a segédrácsot (Grid), ami nem ugyanaz, mint a cellaszegély.
és a visszaállításkor ugye fehér színt adtam meg, ami jó ugyan, de eltünteti a grideket.

Próbáld ki ezt a verziót:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const nofill As Double = 16777215
    If Target.Column = 1 Then
        uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column
        If Target.Interior.Color = nofill Then
            Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(252, 213, 180)
        Else
            Range(Target, Cells(Target.Row, uo)).Interior.ColorIndex = xlNone
        End If
    End If
End Sub

Ez a kód a fehér háttérszín helyett a Nincs kitöltést alkalmazza ebben a sorban:
Range(Target, Cells(Target.Row, uo)).Interior.ColorIndex = xlNone

Imre