Telefonszámunk: 1-472-0679

Hozzászólás: Excel jelölők!

Kezdőlap Fórumok Excel témák Excel jelölők! Hozzászólás: Excel jelölők!

#1718
horvimi
Adminisztrátor

    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, 8 months telt el-horvimi.
    Attachments:
    You must be logged in to view attached files.