- iOS alkalmazások
- Minden a BlackBerry telefonokról és rendszerről
- Megjelent a Poco F7, eurós ára is van már
- One mobilszolgáltatások
- Sony Xperia 1 V - kizárólag igényeseknek
- Amazfit Active 2 NFC - jó kör
- Android alkalmazások - szoftver kibeszélő topik
- Motorola Edge 60 és Edge 60 Pro - és a vas?
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
-
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
-
-
bsasa1
csendes tag
Szia,
attól is függ, hogy a feltételnek megadott oszlopok közül csak egyben, vagy többen is lehet-e "X".
Ha csak egy "X" lehet, akkor 4 darab szumha függvénnyel simán összeadod
+SZUMHA(K:K;"X";E:E)+SZUMHA(L:L;"X";E:E)+...
vagy egy tömbképlettel 1-ben is meg lehet oldani. Az valami ilyesmi lesz:
+SZUM(HA(K:N="X";E:E;0)
Ha több oszlopban is lehet "X", akkor egy segédoszlopban megvizsgálod, hogy adott sorban K:N-ig tartalmaz-e "X"-et, és az lesz a szumha függvény kritériumoszlopa. -
bsasa1
csendes tag
válasz
Declare
#32669
üzenetére
Szia,
volt egy hasonló makróm, kicsit átírtam. Nem pontosan úgy működik, mint a másik, de lehet, hogy segít. Illetve ennek is működnie kell nálad.
Sub reszosszeg()
Dim sor As Integer, darab As Integer, elozoertek As Integer, p As Integer, i As Integer
darab = WorksheetFunction.CountIf(Range("G:G"), "S. Gewerk")
sor = 1
elozoertek = 0
For i = 1 To darab
Set myfind = Range("G:G").Find(what:="S. Gewerk", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=Range("G" & sor))
sor = myfind.Row
Range("F" & sor).FormulaR1C1 = "=Sumif(R2C[1]:R[-1]C[1],""S. Titel"",R2C:R[-1]C)"
p = Range("F" & sor).Value
Range("F" & sor).Value = Range("F" & sor).Value - elozoertek
elozoertek = p
Next i
End Sub -
#32598
bsasa1
csendes tag
Kalogenius
#32597
bsasa1
csendes tag
válasz
Kalogenius
#32597
üzenetére
Válassz egy párt és nézd meg mi köztük a különbség. Előfordulhat, hogy valamelyik név után be van ütve egy szóköz, akkor már nem azonosak a cellák, viszont ugyanúgy néznek ki.
Ha nem találsz próbáld ki, hogy kitörlöd a nevek közül mindkettőnél a szóközt, mert az is lehet, hogy az egyik (vagy mindkettő) nem sima space, hanem valamilyen speciális karakter. Bár nem tudom ilyennel ki szórakozna... -
#32590
bsasa1
csendes tag
Kalogenius
#32589
bsasa1
csendes tag
válasz
Kalogenius
#32589
üzenetére
Szia,
elvileg jól csinálod, próbáld meg, hogy belemész a Feltételes formázás / szabályok kezelése pontba, ott kiválasztod, hogy ez a munkalap, vagy ez a táblázat és ezt kellene látnod:
Az érvényességbe mindkét esetben legyen benne a teljes táblázat.
-
#32539
bsasa1
csendes tag
customer114
#32538
bsasa1
csendes tag
válasz
customer114
#32538
üzenetére
Nem, bármekkora számot tud kezelni, csak maximum 255 argumentumot vesz figyelembe. De például a teljes D oszlopot ha kijelölöd az 1 argumentum lesz a függvényben. Menj bele a függvény beszúrásával, kezd el kitölteni és egyből látni fogod.
-
-
bsasa1
csendes tag
válasz
mjanoshu
#32461
üzenetére
Szia!
Sima függvénnyel ez szerintem nem fog menni csak valamilyen makrós megoldással. Pl egy:
Képletek/névkezelő/új:
Név: hatter
Hivatkozás: =CELLÁT.VESZ(63;Munka1!$A1)
ez visszaadja az A1 cellában beállított háttérszín kódját
színes cella mellé B1-be: +HA(hatter="ide az általad beállított zöld kódja kell idézőjel nélkül";1;0)Utána csak lehúzod a képletet.
Azt így hirtelen nem tudom, hogy frissül-e automatikusan a dolog. -
bsasa1
csendes tag
válasz
Lipton
#32434
üzenetére
Szia!
Azért elsőre nekem sem volt túl egyértelmű, hogyan is néz ki ez a táblázat,
de feltételes formázásban cellák kijelölése képlettel:
=+MAX(HA(B$2:B$9=B2;A$2:A$9;0))-A2=0
Dátumok nálam az "A", rendszámok a "B" oszlopban a 2-től a 9-ig sorig.
Dollárjelekkel kell egy kicsit játszani, attól függően, hogy csak egy oszlopot, vagy az egész sort szeretnéd jelölni. -
bsasa1
csendes tag
válasz
alfa20
#32305
üzenetére
Szia, persze simán.
Sub szamol()
Dim FolderPath As String, path As String, count As Integer
FolderPath = "mappa teljes elérési útja"
path = FolderPath & "\*.xls"
Filename = Dir(path)
Do While Filename <> ""
count = count + 1
Filename = Dir()
Loop
'count tartalmazza a .xls fájlok számát a mappában, ha xlsx, akkor fent is .xlsx
End Sub -
-
bsasa1
csendes tag
válasz
b3n1t0
#32226
üzenetére
Szia!
Hát nem vagyok valami nagy vba-s, de egy régebbi makrómat átszabtam a tábládra.
Sor azonosítók nem látszódnak, feltételeztem, hogy a 2. sorban van adat.
Nálam működik, de egy hozzáértő biztos szebben oldaná meg.Sub makro1()
Dim i As Integer, j As Integer, f As Integer
Dim sor As Integer, hova As Integer
hova = InputBox(prompt:="Hányadik sorba?") - 1
sor = Range(("K2"), Range("K2").End(xlDown)).Rows.Count
For i = 1 To sor
For j = 1 To 8
Range("K" & hova + (i - 1) * 8 + j) = Range("K" & 1 + i) + Cells(2 + i - 1, 36 + j - 1)
Range("L" & 1 + i & ":O" & 1 + i).Copy Destination:=Range("L" & hova + (i - 1) * 8 + j & ":O" & hova + (i - 1) * 8 + j)
For f = 1 To 19
Cells(hova + (i - 1) * 8 + j, 16 + f - 1) = Cells(1 + i, 16 + f - 1) * Cells(2 + i - 1, 44 + j - 1)
Next f
Next j
Next i
End Suba nullás sorok törlése kimaradt véletlen, de előbb ebéd
-
bsasa1
csendes tag
válasz
DeFranco
#31836
üzenetére
Szia!
Bár nem hiszem, hogy már érdekes, de ha mégis, akkor ez a te mátrixodra is tud működni.
2 sor képlete:
Oszlopok megtalálása:
HAHIBA(KICSI(HA(($A2:$T2)<>"";OSZLOP($A2:$T2);"");1);""), tömbképlettel, annyi, hogy az 1-est kell cserélni attól függően hányadik találatot szeretnéd.
Mellé értékek:
HAHIBA(INDEX($A2:$T2;;V2);"") -
bsasa1
csendes tag
-
#32109
bsasa1
csendes tag
Juditta_56
#32100
bsasa1
csendes tag
válasz
Juditta_56
#32100
üzenetére
Bocsi, közben leesett, hogy igazából ez is egy makró, úgyhogy nem fogod tudni sima xlsx-be lementeni.
-
#32106
bsasa1
csendes tag
Juditta_56
#32100
bsasa1
csendes tag
válasz
Juditta_56
#32100
üzenetére
Szia,
ha megfelel úgy, hogy egy tömbbe íratod ki a munkalapneveket, akkor egy megoldás pl:
bármelyik szabad cellára: Képletek / Név megadása: ide beírsz egy nevet, alulra a hivatkozásba a képlet:
=HELYETTE(MUNKAFÜZETET.VESZ(1);"["&MUNKAFÜZETET.VESZ(16)&"]";"")ezután kijelölsz egy vízszintes tartományt, amennyi lapod van (vagy többet), és beírod a nevet, amit megadtál és Ctrl+Shift+Enter egyszerre.
De így csak tömbben sorban tudod megjeleníteni a neveket, innen még be kell őket hivatkozni abba a cellába ahová szeretnéd.
Bár lehet a legújabb exceleken már nem működik a dolog.
-
#32096
bsasa1
csendes tag
dajkapeter
#32095
bsasa1
csendes tag
válasz
dajkapeter
#32095
üzenetére
Az oszlopszámban tudod megadni, hogy a táblázat hányadik oszlopából hozza be a találatot.
Ha például az azonosítók az "A" oszlopban a nevek a "B" oszlopban vannak, akkor egy 2-es.
Annyi, hogy mindkettőt ki kell jelölni a kereséshez. -
#32094
bsasa1
csendes tag
dajkapeter
#32092
bsasa1
csendes tag
válasz
dajkapeter
#32092
üzenetére
Szia,
ha lehetséges fordítsd meg az alaptáblában, hogy először szerepeljenek a számok, utána a nevek. Akkor egy sima fkeres függvénnyel is rá tudsz keresni. Ebben a formában kicsit bonyolultabb a dolog.
Hirtelen én pl nem is vágom Offset-tel ez hogy jön össze...
-
bsasa1
csendes tag
válasz
adamssss
#32040
üzenetére
Szia,
Képletek/Számolási beállításokban át tudod állítani, hogy csak manuálisan számoljon az excel. Pl ha egy nagy táblában dolgozol rengeteg képlettel ne számoljon folyton újra minden változtatásnál, mert az sok ideig is eltarthat, csak mikor szeretnéd. Az F9 ennek a billentyűparancsa.
-
-
bsasa1
csendes tag
válasz
Declare
#31864
üzenetére
Szia, nálam így működik:
Sub FormatText()
Dim i As Integer
For i = 1 To Range("A55").End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("H" & i), "w") > 0 Then
Range("A" & i & ":H" & i).Select
Selection.Font.Name = "Calibri"
Selection.Font.FontStyle = "Italic"
Selection.Font.Underline = xlUnderlineStyleSingle
Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
Range("E" & i).HorizontalAlignment = xlRight
Range("A" & i & ":D" & i).ClearContents
End If
On Error Resume Next
If Range("H" & i).Value = "p" Then Range("F" & i).Formula = "=Sum(" & Range("F" & Range("H1:H" & i - 1).Find(what:="p", LookIn:=xlValues, SearchDirection:=xlPrevious, lookat:=xlWhole).Row + 1).Address & ":" & Range("F" & i - 1).Address & ")"
If Err <> 0 Then If Range("H" & i).Value = "p" Then Range("F" & i).Formula = "=Sum(" & Range("F1:F" & i - 1).Address & ")"
On Error GoTo 0
Next i
End SubDe pl ha az első sorban van a "p", vagy több van egymás után akkor azt nem tudja túl jól kezelni.
-
bsasa1
csendes tag
válasz
DeFranco
#31836
üzenetére
Szia!
Szerintem függvénnyel maximum jópár segédoszloppal oldható meg.
Kell mellé egy másik ugyanakkora mátrix, bele mindenhova üres képlettel, így az üres cellák IGAZ, az adatot tartalmazó cellák HAMIS értéket kapnak. Erre már rá tudsz keresni a HOL.VAN függvénnyel, de minden találat után el kell csúsztatni a hivatkozást, amiben keresel pl ELTOLÁS függvénnyel.
Így sorban mindet meg tudod találni, de makróval szerintem egyszerűbb......közben érkezett is egy
S.
-
bsasa1
csendes tag
válasz
rozsa89
#31591
üzenetére
Pl. ha A1 cellától mennek lefelé a számok akkor az első kézzel kell megcsinálni a B1 cellába, de utána működik B2-től lefelé: ÖSSZEFŰZ("S1-";KÖZÉP(A2;6;3);"/";DARABTELI($A$1:A1;A2)+1).
Azt csinálja, hogy veszi az "S1-" kefejezést, a mellette lévő cellából hozzá teszi a számot (234), egy "/" jel, majd felfelé megszámolja, hogy hányadik ugyanolyan számsor, és a végéhez fűzi.
A közép függvény csak akkor jó, ha minden számsorból a 6. karaktertől kell egy háromjegyű szám, egyébként rá kell keresni, ami kicsit bonyolultabb.Csak azért fura, mert bár nem tudom, de ha van pl:
K-000234/20
K-000234/22
ezekből ugyanaz a számsor lesz. -
bsasa1
csendes tag
-
bsasa1
csendes tag
Sziasztok!
Az lenne a kérdésem, hogyan tudom megcsinálni azt, hogyha egy pivot tábla alaptáblázatában bármit frissítek, módosítok, akkor az arra épülő kimutatások automatikusan lefrissüljenek a munkafüzetben?
Láttam, hogy vannak ilyen nevű worksheet eventek, de nekem sajnos csak nagyon körülményesen sikerült megoldanom a dolgot. Előre is köszi,BS
-
bsasa1
csendes tag
Sziasztok!
Nekem az lenne a kérdésem, hogyan oldható az meg, ha a munkalap egy bizonyos részén lévő cella van kijelölve, akkor annak értéke egy másik cellába automatikusan átmásolódjon? Ezt a beállítási lehetőséget megtaláltam:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(2, 12) = ActiveCell
End Sub
De hogyan tudom úgy beállítani, hogy csak akkor történjem másolás, ha a B5: B62-es területen belül lesz új cella az aktív? Előre is köszi, üdv:
BS -
bsasa1
csendes tag
Sziasztok!
Nekem a következő lenne a kérdésem:
van egy hasonló negyedfokú egyenletem,
y=0,1x^4-0,2x^3+0,3x^2-0,4x+1,5
Most azonban meg kellene fordítanom, és adott "y" érték mellett szeretném kiszámoltatni az "x"-et. Célérték keresővel teljesen jól működik is, de abban "y"-t csak értékként tudom megadni, nekem viszont több száz sorban van "y" változóm. Valaki tud megoldást?
Köszi a segítséget!Bsasa
Új hozzászólás Aktív témák
Hirdetés
- Autós topik
- Milyen processzort vegyek?
- Építő/felújító topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Nem tetszik a Procon-SP-nek, hogy a Nintendo távolról kivégezheti a Switch 2-t
- Elder Scrolls IV - Oblivion - Olvasd el az összefoglalót, mielőtt írsz!
- Acer notebook topic
- LEGO klub
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Lenovo ThinkPad L15 Gen 2 - 15.6" FullHD IPS - i5-1135G7 - 8GB - 256GB SSD - Win11 - MAGYAR
- Nintendo Switch bazár (Okosított Nintendo Switch konzolok, játékok, tartozékok)
- 15" Workstation: Lenovo Thinkpad P1 gen2 // P52s // P15 gen1 // FHD, 4K oled touch
- LG 65QNED87T / 65" - 164 cm QNED / 4K UHD / 120Hz & 3ms / HDR 10 Pro / FreeSync Premium / HDMI 2.1
- Honor Magic 7 Pro - Fekete - Új kipróbált készülék! Karcmentes gyárilag független! 512GB Memória!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest