- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- MasterDeeJay: Gigabyte GA-B350M-D2 - AM4 lap 2016-ból amikor még nem volt Ryzen!
- Magga: PLEX: multimédia az egész lakásban
- Elektromos rásegítésű kerékpárok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
LOGOUT
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
veterán
Egy másik megoldás Fire-éhez képest, hogy a laphoz rendelsz egy kódot (lásd az Összefoglalóban).
Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Address = "$G$1" And Target = "" ThenRange("A1").AutoFilter: Range("A:E").AutoFilterRange("G1:K1").ClearContentsApplication.EnableEvents = TrueExit SubEnd IfIf Target.Row = 1 ThenSelect Case Target.ColumnCase 7ActiveSheet.Range("$A:$E").AutoFilter Field:=1, Criteria1:=Target.ValueCase 8ActiveSheet.Range("$A:$E").AutoFilter Field:=2, Criteria1:=Target.ValueCase 9ActiveSheet.Range("$A:$E").AutoFilter Field:=3, Criteria1:=Target.ValueCase 10ActiveSheet.Range("$A:$E").AutoFilter Field:=4, Criteria1:=Target.ValueCase 11ActiveSheet.Range("$A:$E").AutoFilter Field:=5, Criteria1:=Target.ValueEnd SelectEnd IfApplication.EnableEvents = TrueEnd Sub
G1-be beviszed az A oszlop egyik értékét, mire az autoszűrő szűri erre az állományt. A H1-be a szűrt állomány B oszlopából veszed a következő értéket, ekkor folytatódik a szűrés a B oszlopra is. És így tovább a K oszlopig, amikor A-tól E-ig minden oszlop szűrve van.
Mikor törlöd a G1 cella értékét, a szűrő "kinyit", a G1: K1 tartományból törlődnek az értékek.
-
#51361
Fire/SOUL/CD
félisten
vamzi
#51360
-
Fferi50
Topikgazda
Szia!
Ha mindkét oszlopot bevonod az ismétlődések eltávolításába (ezért írtam, hogy az egész táblázatra alkalmazd), akkor együtt törlődik mindkét oszlopból az adott nap azonos adata.
A dátumokból pedig csak a dátumoszlop alapulvételével törölheted az ismétlődéseket. Egy oszlopot átmásolva.Üdv.
-
Fferi50
Topikgazda
Szia!
Egy ötlet: Az egész táblázatod átmásolod egy új helyre (segédtábla). Ezen a helyen az egész táblára Adatok-ismétlődések eltávolítása. Majd darabteli függvénnyel megnézed, hogy egy dátumból hány db maradt.
A dátumok hasonló módon: a Dátum oszlopot átmásolod, majd ismétlődések eltávolítása. Ezután mellé írhatod a darabteli függvényt - a segédtáblát alapul véve.Üdv.
-
Delila_1
veterán
A lenti makrót a VB szerkesztőben a ThisWorkbook laphoz kell rendelned.
A Sheets("Munka1") helyett a saját lapodat add meg, a Range("A1") helyett pedig azt a cellát, ahova az aktuális időt akarod beíratni. Ennek a cellának a formátuma lehet például éééé.hh.nn óó:pp:mmPrivate Sub Workbook_Open()
With Sheets("Munka1")
.Range("A1") = Now
.Range("A1").Copy
.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub -
Mutt
senior tag
Hello,
Ezt: [link] hogyan tudnám úgy átalakítani, hogy ne cellánként számoljon, hanem egy teljes tartományt? A teljes A oszlopon szeretném használni.
Erre nem láttam választ, de két sort plusz kell. Itt az új kód.
Function SumNums(cell As Range, Optional strDelim As String = " ") As Double
Dim vNums As Variant, lngNum As Long, rngS As Range
For Each rngS In cell 'új sor a tartományhoz
vNums = Split(rngS, strDelim)
For lngNum = LBound(vNums) To UBound(vNums) Step 1
If InStr(1, vNums(lngNum), ",") > 0 Then vNums(lngNum) = Replace(vNums(lngNum), ",", ".")
SumNums = SumNums + Val(vNums(lngNum))
Next lngNum
Next rngS 'új sor a tartományhoz
End FunctionHa a teljes A-oszlophoz akarod használni, akkor be tud lassulni, mert az üres mezőket is kiértékeli ezért érdemes plusz ellenőrzést ennek elkerülésére beletenni. Továbbá tuningolható, hogy a tizedesvesszőt tartalmazó számokat is kezelni tudja.
Function SumNums(cell As Range, Optional strDelim As String = " ") As Double
Dim vNums As Variant, lngNum As Long, rngS As Range
Dim workrange As Range
Set workrange = Intersect(ThisWorkbook.Sheets(cell.Parent.Name).UsedRange, cell)
For Each rngS In workrange 'új sor a tartományhoz
vNums = Split(rngS, strDelim)
For lngNum = LBound(vNums) To UBound(vNums) Step 1
If InStr(1, vNums(lngNum), ",") > 0 Then vNums(lngNum) = Replace(vNums(lngNum), ",", ".") 'tizedesvessző kezelés
SumNums = SumNums + Val(vNums(lngNum))
Next lngNum
Next rngS 'új sor a tartományhoz
End Functionudv
-
azopi74
addikt
Ja, oszoponként kéred a megoldást? MErt te aztr írtad, hogy A és B cégek összesen
Akkor még egyszerűbb (beraktam az A sorba)
A cégre pédául:
=SUMPRODUCT(Table1[Cég A]/Table1[Kapacitás (fő)],Table1[Méret (m2)])
(bocs, de táblázattá alakítottam a tartományod, mert úgy szebb, de ha akarod visszaalakíthatod Range-dszé
-
#18210
m.zmrzlina
senior tag
vamzi
#18208
m.zmrzlina
senior tag
Esetleg próbálkozz ezzel a (gondolatébresztő) saját függvénnyel:
Function HOLAKORTE(tartomany As Range, ertek_1 As Variant, ertek_2 As Variant)
For Each cella In tartomany
If cella.Value = ertek_1 And cella.Offset(0, -1).Value = ertek_2 Then HOLAKORTE = cella.Offset(0, -2).Value
Next
End FunctionHárom argumentumból az első az a tartomány amiben az ertek_1-et keresed (esetedben a C1:C9). Az ertek_1=100, az ertek_2="körte"
-
#18209
m.zmrzlina
senior tag
vamzi
#18208
m.zmrzlina
senior tag
Nekem ezzel a makróval (vagy valami nagyon hasonlóval) tűnik legegyszerűbbnek a feladat megoldása:
Sub holakorte()
For Each cella In Range("C1:C9")
If cella.Value = Range("E1").Value And cella.Offset(0, -1).Value = Range("F1").Value Then Range("G1").Value = cella.Offset(0, -2).Value
Next
End SubE1-ben és F1-ben adod meg a feltételeket. Az E1 ben lévő értéket fogja keresni a C oszlopban, az F1 értékét a B-ben és G1-be írja ki az eredményt.
-
lappy
őstag
Szia!
=HA(ÉS(ÜRES($A$1);NEM.SZÖVEG($A$2));0;1) bár nem tudom mit is szeretnél megvalósítani
Ez megnézi hogy A1-ben van e vmi, ill. az A2 is vizsgálja attól függően milyen képlet van is benne.
Ezt a képletet kell beilleszteni a feltételes formázás "feltételes formázás képlettel sorba és kijelölöd a tartományt! -
-
Delila_1
veterán
A B3 cellába: {=SZUM((E$3:E$17=A3)*(D$3:D$17>1))}
Ezt úgy tudod létrehozni, hogy beírod a =SZUM((E$3:E$17=A3)*(D$3
$17>1)) képletet, és Shift+Ctrl+Enterrel viszed be. Utána már másolhatod az alatta lévő cellákba.Szerk: a lófogú vigyori figura kettőspont és D betű akar lenni, de ha konvertálatlanra veszem, nem ad félkövér formátumot.
$17>1)) képletet, és Shift+Ctrl+Enterrel viszed be. Utána már másolhatod az alatta lévő cellákba.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Háztartási gépek
- E-roller topik
- AMD Navi Radeon™ RX 9xxx sorozat
- Delta Force (2024)
- Xbox Series X|S
- Autós topik
- Projektor topic
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- Windows Phone felhasználók OFF topikja
- További aktív témák...
- LG Gram 14 WUXGA IPS i7-1360P 5.0Ghz 12mag 32GB DDR5 1TB SSD Intel Iris XE 10óra Akku Win11 Garancia
- Samsung Galaxy S24 Ultra / 12/256GB / Gyári független / 12Hó Garancia
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3327, 94% Akkumulátor
- Apple iPhone 12 Pro / 128GB / Kártyafüggetlen / 12Hó Garancia
- Apple iPhone 14 Pro Max / Kártyafüggetlen / 256GB / 12Hó Garancia / 87% akku
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest