- Mikrotik routerek
- ASUS routerek
- Otthoni hálózat és internet megosztás
- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
- Linux kezdőknek
- Windows 10
- Microsoft Excel topic
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Aliexpress tapasztalatok
-
IT café
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
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 SubA 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).Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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.
[ 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
- Steam kulcs turkáló :: Friss Excel lista 1200+ játékkal :: Közte VR, AAA és indie címek olcsón!
- GameStar / PC Guru játékmellékletek tokkal és borítóval 500Ft/db
- Eladó PC Játékok Bontott és Bontatlan csomagolásban.
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- PC játékok 1200Ft/db
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen