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

• #3163 Delila_1 veterán Kvázi #3162

  Új Válasz 2008-02-12 08:26:08 #3163

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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.

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