- Út Korea turistaparadicsomába, amiről talán még sosem hallottál: Csedzsu-sziget
- Perplexity Pro AI képszerkesztési limit -egy képgenerátor függő tapasztalatai
- Adattár lemez előkészítése távlati Windows telepítéshez
- Jelszóvédett IBM Thinkpad R50e működőképessé tétele.
- ATK Blazing Sky X1 Ultimate Metallic Red gamer egér
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- gerner1
- GoodSpeed: Perplexity Pro AI képszerkesztési limit -egy képgenerátor függő tapasztalatai
-
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 Range
Dim selectedRange As Range
Dim cell As Range
Dim countByColor As Long
Dim sumByColor As Double
Dim refColor As Long
Set selectedRange = Application.InputBox("Select a range to evaluate:", _
"Kutools for Excel", _
Type:=8)
If selectedRange Is Nothing Then Exit Sub
Set sampleColor = Application.InputBox("Select a conditional formatting color:", _
"Kutools for Excel", _
Type:=8)
If Not sampleColor Is Nothing Then
refColor = sampleColor.Cells(1, 1).DisplayFormat.Interior.Color
For Each cell In selectedRange
If cell.DisplayFormat.Interior.Color = refColor Then
countByColor = countByColor + 1
sumByColor = sumByColor + cell.Value
End If
Next cell
MsgBox "Count: " & countByColor & vbCrLf & _
"Sum: " & sumByColor, _
vbInformation, "Results based on Conditional Format Color"
End If
End 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
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- PC Game Pass előfizetés
- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Bomba ár! Lenovo ThinkPad T490 - i5-8GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- iKing.Hu-Samsung Galaxy S24 FE Blue Stílusos erő, 120 Hz AMOLED 8/128 GB Használt, karcmentes
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Asus TUF Gaming F15 FX507 - 15,6"FHD 144Hz - i5-12500H - 8GB - 512GB SSD - RTX 3050 - 1 év garancia
- Xiaomi Redmi Note 10 Pro 128GB // Számla+Garancia //
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest