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

• #3071 Delila_1 veterán fap333 #3068

  Új Válasz 2008-01-31 08:31:05 #3071

  Ú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 fap333 #3068 üzenetére

  Visual Basic programnyelv, amiben írod, az a Visual Basic Editor (VBE).

  Nézd meg még a #3014-es hozzászólást az utolsó sor és oszlop kikereséséhez. Nem túl jól sikerült megfogalmaznom, ha kérdésed van, ne kímélj.

• #3065 Delila_1 veterán fap333 #3062

  Új Válasz 2008-01-30 14:50:19 #3065

  Ú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 fap333 #3062 üzenetére

  Sub szaznal_nagyobb()
  For sor = 2 To 20 '20 helyett az utolsó sor kell
  For oszlop = 2 To 7 '7 helyett az ucsó oszlop sorszáma (A=1, B=2, C=3)
  If Cells(sor, oszlop).Value > 100 Then
  Range(Cells(sor, 2), Cells(sor, oszlop)).Select
  Selection.ClearContents
  End If
  Next
  Next
  End Sub

• #3064 Delila_1 veterán fap333 #3062

  Új Válasz 2008-01-30 14:28:20 #3064

  Ú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 fap333 #3062 üzenetére

  Most látom, hogy teljesen félreértettem a feladatot.
  Van egy táblázatod, ami A1-től ???-ig tart.
  Ebben itt-ott vannak 100-nál nagyobb értékek. Ha ez először C5-ben fordul elő, akkor törölni kell az értékeket B5-től C5-ig (nem A5-től, mert A5-ben a sor neve van).
  Így gondolod?

• #3063 Delila_1 veterán fap333 #3062

  Új Válasz 2008-01-30 13:48:49 #3063

  Ú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 fap333 #3062 üzenetére

  Szia!
  Adatok/Szűrő/Autoszűrő
  A legördülőből kiválasztod az Egyénit, feltételnek megadod, hogy legyen nagyobb (vagy egyenlő) 100-nál.
  A szűrt listát kijelölöd, Delete.

• #3009 Delila_1 veterán fap333 #3005

  Új Válasz 2008-01-21 09:57:35 #3009

  Ú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 fap333 #3005 üzenetére

  Másold be az alábbi makrót:

  Sub Atlag()
  Sheets("Munka1").Select
  usor = ActiveSheet.UsedRange.Rows.Count
  uoszlop = ActiveSheet.UsedRange.Columns.Count
  Sheets("Munka2").Select
  For sor = 2 To usor
  Cells(sor, 1).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(Munka1!RC[" & uoszlop - 3 & _
  "]:RC[" & uoszlop - 1 & "])"
  Next
  End Sub

  A Munka1 lap 3 utolsó oszlopát átlagolja a Munka2 A oszlopába.
  Ha B oszlopba kell az átlag, a Cells(sor,1)-et írd át Cells(sor,2)-re, és az ActiveCell.FormulaR1C1 kezdetű sorban az uoszlop-3 és uoszlop-1 értékeket is növeld eggyel (uoszlop-3 és uoszlop-2).

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