-
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
-
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
- WoW avagy World of Warcraft -=MMORPG=-
- Assetto Corsa EVO
- A fociról könnyedén, egy baráti társaságban
- EA Sports WRC '23
- Fotók, videók mobillal
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Hogy is néznek ki a gépeink?
- Xbox Series X|S
- Autós topik
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft és egyéb dobozos retro szoftverek
- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Prémium iPhone 15 Pro Max 256 GB tárhellyel, 100%-os akkumulátorral (5 ciklus) és 6 hónap garival
- BESZÁMÍTÁS! Részletfizetés 0% THM ÚJ Sony PlayStation 5 Slim digital / lemezes / Pro konzol 27% áfa
- Dell Precision 7550 i7-10850H 32GB 512GB Nvidia RTX5000 16GB 1 év garancia
- Honor 90 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50