Keresés

Hirdetés

Új hozzászólás Aktív témák

  • Delila_1

    Topikgazda

    válasz Kvázi #3162 üzenetére

    A lapfülön jobb klikk, Kód megjelenítése. A megjelenő Visual Basic szerkesztőn a jobb oldalon lévő nagy üres lapra bemásolod az alábbi makrót:

    Sub Worksheet_Change(ByVal Target As Excel.Range)
    If (Target.Column = 1) Then
    Cells(Target.Row, 5) = Cells(Target.Row, 2) + Cells(Target.Row, 3) _
    + Cells(Target.Row, 4)
    End If
    End Sub

    Ez, ha az A oszlopba írsz valamit, az E oszlopba beírja az azonos sorban lévő B+C+D értéket.
    Ha nem az E-be kell, a Cells(Target.Row,5)-nél írd át az 5-öt annyira, amennyi a kívánt oszlop sorszáma az angol ABC-ben (F-nél 6, G-nél 7, T-nél 20, stb).
    Amennyiben másik lapnál is kell ez a funkció, ugyenezt a makrót a másik lap kódlapjára is másold be.

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák