Hirdetés
- Google Pixel topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Nagy aksival és erős hardverrel megjött Magyarországra a Poco X8 Pro és Pro Max
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- Milyen okostelefont vegyek?
- iPhone topik
- Yettel topik
- Samsung Galaxy S26 Ultra - fontossági sorrend
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Google Pixel 10 Pro XL – tíz kicsi Pixel
-
Mobilarena
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
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- 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
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- 27% - ASUS Prime 850W 80 PLUS Gold ATX 3.1 Táp!
- Telefon felvásárlás!! Apple iPhone 16, Apple iPhone 16e, Apple iPhone 16 Plus, Apple iPhone 16 Pro
- iPhone 13 128GB Red-1 ÉV GARANCIA - Kártyafüggetlen, MS4593, 100% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Gainward RTX 5060 Ti Python III 16GB GDDR7 Videokártya!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50
