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

• #20859 bteebi veterán Psytróger #20857

  Új Válasz 2014-03-09 14:38:11 #20859

  Ú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

  

  bteebi

  veterán

  válasz Psytróger #20857 üzenetére

  Ha jól értettelek, akkor ez jó lesz:

  Sub melleir()
  Dim i As Integer, LastRow As Integer
  LastRow = Columns(1).Find("*", SearchDirection:=xlPrevious).Row
  For i = 1 To LastRow
  If Cells(i, 1).Value = "" Then
  i = i + 1
  End If
  If Cells(i, 1).Value = Cells(i, 2).Value Then
  Cells(i, 4) = 1
  Else: Cells(i, 4) = 2
  End If
  Next i
  End Sub

  Működésre bírni az itt leírtak alapján tudod. Nem kell semmit se lemásolnod, az egész tartományra működik.

• #20855 bteebi veterán Psytróger #20851

  Új Válasz 2014-03-09 13:25:10 #20855

  Ú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

  

  bteebi

  veterán

  válasz Psytróger #20851 üzenetére

  Erre ez működik:

  Sub melleir()
  Dim i As Long
  For i = 1 To Rows.Count
  If Cells(i, 1).Font.ColorIndex = 3 Then
  Cells(i, 3).Value = Cells(i, 1).Value '"P"
  End If
  Next i
  End Sub

  Ebben az esetben az A oszlopban lévő cella tartalmár írja a C oszlopba. Ha a "P" elől kitörlöd a Cells(i, 1).Value-t és az aposztrófot, akkor minden piros betűs cella mellé P betűt tesz.

• #20851 Psytróger tag Psytróger #20848

  Új Válasz 2014-03-09 12:02:31 #20851

  Ú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

  

  Psytróger

  tag

  válasz Psytróger #20848 üzenetére

  Illetve még egy egyszerűbb, ha már színeztek:
  Hogy tudok kiíratni teszem azt egy P betűt C oszlopba A oszlop azon sorai mellé, amiben píros a szöveg színe?

• #9031 Delila_1 veterán Psytróger #9030

  Új Válasz 2011-01-07 07:07:29 #9031

  Ú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 Psytróger #9030 üzenetére

  Szivi.

• #9026 Delila_1 veterán Psytróger #9025

  Új Válasz 2011-01-06 16:38:01 #9026

  Ú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 Psytróger #9025 üzenetére

  Vegyük, hogy a két csapat neve A2-ben, ill. B2-ben van. A gólok a C2, és D2 cellában vannak.

  E2 -> =HA(D2>C2;0;HA(C2=D2;1;3))
  F2 -> =HA(D2>C2;3;HA(C2=D2;1;0))

• #5094 Fehér Mancs tag Psytróger #5090

  Új Válasz 2009-06-29 12:35:24 #5094

  Ú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

  

  Fehér Mancs

  tag

  válasz Psytróger #5090 üzenetére

  Egy alernatív megoldás, egy képlettel (B1-P1-ig vannak az adatok):

  =SZORZATÖSSZEG(NAGY(B2:P2;{1;2;3;4;5;6;7;8;9}))/9
  vagy ugyanez, csak a sorszámokat paraméterezve:
  =SZORZATÖSSZEG(NAGY(B1:P1;SOR($A$1:$A$9)))/9

  Ha nincs 9 szám, akkor Delila megoldásához hasonlóan hibaüzenetet ad vissza, de ezt is le lehet kezelni, bár ez már a tömbképlet tömbképlete (az üresek helyére 0-t tesz - Negatív számoknál problémát okozhat!!!)

  =SZORZATÖSSZEG(NAGY(HA(SZÁM(B2:P2);B2:P2;0);SOR($A$1:$A$9)))/9

  a végén pedig ctrl+shift+enter

• #5093 Delila_1 veterán Psytróger #5092

  Új Válasz 2009-06-28 22:17:31 #5093

  Ú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 Psytróger #5092 üzenetére

  Nincs mit, szívesen.

• #5091 Delila_1 veterán Psytróger #5090

  Új Válasz 2009-06-27 19:36:12 #5091

  Ú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 Psytróger #5090 üzenetére

  S1-től írj növekvő sorszámot 1-től 9-ig, ez az AA1-ig fog tartani.
  S2 képlete: =NAGY($B2:$R2;S$1)
  Ezt jobbra húzod az AA2 celláig.
  AB2 képlete: =ÁTLAG(S2:AA2)
  Az S2-től AB2 -ig tartományt lemásolod a többi sorba.
  Nézd meg a NAGY függvény leírását a súgóban.

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