- Otthoni hálózat és internet megosztás
- Ubuntu Linux
- Amazon Prime Video
- Aliexpress tapasztalatok
- Mozilla Firefox
- Windows 11
- Musk szerint már jövőre itt vannak a Tesla Optimus humanoid robotok
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- PHP programozás
- A személyre szabott reklám lehet a streaming következő slágere
-
IT café
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
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
-
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[ Szerkesztve ]
-
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!
Ha jól tudom az excel cellák úgy is hivatkozhatóak, hogy a "sorszámukat" adom meg. Erre gondolok: A1=1, B1=2, C1=3...
Nem tudja véletlenül valaki, hogy vba-ban hogyan tudom ezt az értéket lekérdezni, anélkül hogy számolni kelljen?Köszi,
bsasa -
bsasa1
csendes tag
-
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
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 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 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 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 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. -
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.
[ Szerkesztve ]
-
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.
-
bsasa1
csendes tag
-
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
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
[ Szerkesztve ]
-
-
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 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.[ Szerkesztve ]
-
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 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.
[ Szerkesztve ]
-
bsasa1
csendes tag
válasz Kalogenius #32589 üzenetére
-
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... -
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 -
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.[ Szerkesztve ]
Új hozzászólás Aktív témák
- EAFC 24
- Samsung Galaxy A55 - új év, régi stratégia
- Hobby rádiós topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Autós topik
- Kormányok / autós szimulátorok topicja
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Trollok komolyan
- Otthoni hálózat és internet megosztás
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!