Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- MasterDeeJay: ASRock B250M Pro4 coffeetime mod! (DDR4)
- Hieronymus: Pihole + Unbound
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Gurulunk, WAZE?!
- hcl: Olympus E-PL1 nyomozás
-
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
-
Fferi50
Topikgazda
válasz
Talala
#53721
üzenetére
Szia!
[Itt van példa] makróval megoldásra.
Üdv. -
Fferi50
Topikgazda
válasz
Talala
#53721
üzenetére
Szia!
Igen, ez egy jó megoldás, vagyis a feltételes formázásnak megfelelő módon számolhatunk, amit bonyolultabb feltételnél a makróban is kell használni. (Amit másodszorra találtál makrót, az sajnos nem működik függvényként, csak eljárásként(Sub), valószínűleg a feltételes formázás nem felel meg a függvény alkalmazhatósági "feltételeinek". Erre majd rákérdezek MS-nél.)
A ...hatöbb függvények ÉS feltétel szerint számolnak, tehát mindegyik feltételnek meg kell felelni, akkor számolja be az adott értéket.
Üdv. -
Talala
senior tag
válasz
Talala
#53720
üzenetére
Közben sikerült megoldani más módszerrel, makró nélkül (nem a színre szűrve).
Egy kérdésem van csak kíváncsiságból. Az alábbi képletet lehetne egyszerűbben?
A ...hatöbb függvények nem akartak megfelelően működni=SZUM(DARABHA(C11:G16;AS4);DARABHA(C11:G16;AS5);DARABHA(C11:G16;AS6))
Egy tartományból szeretnék számolni 3 vagy több feltétel alapján, nem kell minden feltételnek megfelelni. -
Talala
senior tag
válasz
Talala
#53719
üzenetére
Ez lenne a másik, ami ugyan számolná a feltételes formázással színezett cellákat is, de kézzel kell futtatni és kijelölni a területet stb. A végén pedig egy msg boxba adja az eredményt. Ezt szeretném az első hozzászólásban látottaknak megfelelően cellába írni a hónapok alá.
Sub SumCountByConditionalFormat()Dim sampleColor As RangeDim selectedRange As RangeDim cell As RangeDim countByColor As LongDim sumByColor As DoubleDim refColor As LongSet selectedRange = Application.InputBox("Select a range to evaluate:", _"Kutools for Excel", _Type:=8)If selectedRange Is Nothing Then Exit SubSet sampleColor = Application.InputBox("Select a conditional formatting color:", _"Kutools for Excel", _Type:=8)If Not sampleColor Is Nothing ThenrefColor = sampleColor.Cells(1, 1).DisplayFormat.Interior.ColorFor Each cell In selectedRangeIf cell.DisplayFormat.Interior.Color = refColor ThencountByColor = countByColor + 1sumByColor = sumByColor + cell.ValueEnd IfNext cellMsgBox "Count: " & countByColor & vbCrLf & _"Sum: " & sumByColor, _vbInformation, "Results based on Conditional Format Color"End IfEnd Sub -
Delila_1
veterán
válasz
Talala
#36426
üzenetére
Ezt egy rövid, laphoz rendelt makróval (lásd a Téma összefoglalót) lehet elérni.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
Cells(Target.Row, "B") = Date
End If
End SubAz If Target.Column = 1 jelzi a makrónak, hogy az első (A) oszlopba írás esetén írja be a dátumot.
Ha nem a B oszlopba akarod íratni, a Cells(Target.Row, "B") = Date sorban a "B" helyére írd a céloszlop betűjelét.
Új hozzászólás Aktív témák
Hirdetés
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- The Elder Scrolls Online Imperial Collector s Edition
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- LENOVO X380 Yoga 360 touch - 13,3" FHD - i5 8250U, 8GB RAM, SSD, jó akku, - számla, 6 hó gar
- BESZÁMÍTÁS! 2TB Samsung 870 EVO SATA SSD meghajtó garanciával hibátlan működéssel
- ÚJ AKKU! Ár/ÉRTÉK BAJNOK! Dell Latitude 5330 i3-1215U 6mag! 16GB 512GB 13.3" FHD 1 év gar
- 27% PNY GeForce RTX 5070 EPIC-X RGB OC 12GB GDDR7 192bit (VCG507012TFXXPB1-O) Videokártya
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50