-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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)))/9Ha 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
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
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 SubEbben 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.
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
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 SubMű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.
Cancel all my meetings. Someone is wrong on the Internet.
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office