Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Gurulunk, WAZE?!
- Luck Dragon: Asszociációs játék. :)
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Parci: Milyen mosógépet vegyek?
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- bambano: Bambanő háza tája
- sziku69: Szólánc.
-
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
- A fociról könnyedén, egy baráti társaságban
- Soundbar, soundplate, hangprojektor
- BestBuy topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Suzuki topik
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Házimozi belépő szinten
- exHWSW - Értünk mindenhez IS
- Windows 10
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- További aktív témák...
- Asus RP-AC87 AC2600 Wi-Fi range extender
- REFURBISHED és ÚJ - Lenovo ThinkPad 40AY Universal USB-C Dock
- 5G LTE! Microsoft Surface Pro 8 i7-1185G7 16GB 512GB 1 év garancia
- LÉZEREZÉS! külföldi billentyűzet magyarra kb. 20-30p alatt!
- Lenovo ThinkPad P15 Gen 2 i7-11850H 32 GB RAM 1000GB SSD NVIDIA T1200 Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50