-
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
-
norbika84
csendes tag
Sziasztok!
A Munka1 lapon van egy Táblázat1 nevű táblázatom dátum szerint rendezve(Dátum nevű oszlop a táblázatban), és tele vannak megrendelésekkel. Egy másik lapra szeretném átvinni az adatokat, amik egy napon vannak. Pl. ha beírom a Munka2 lap B2 cellájába a mai dátumot (ott kell megadni, hogy melyik napot szeretném kinyerni), akkor a Táblázat1 táblázatból az összes mai dátumú sort hozza át. Ezt meg lehet oldalni egyetlen egy képlettel? Nekem nem sikerült csak többel, segédcellák segítségével.
Az INDEX HOL.VAN párossal próbálkoztam, de csak az első eredményt adja vissza, az azon a napon lévő többi sort nem.
Ha van rá megoldás, valaki le tudná írni. -
norbika84
csendes tag
válasz Delila_1 #47053 üzenetére
A szűrést ismerem, de nekem azért kell átvinnem egy másik táblába az adatokat, mert az máshogy néz ki, és ezt nyomtatjuk ki. A szűrés nem megoldható, mert az eredeti táblázatban több adat is van ,amit nem kell nyomtatni, ez így gyorsabb, ha az adatokat átvisszük egy másik táblázatba, amin már csak azok az adatok vannak, amik kellenek. Így az eredeti táblázathoz nem kell hozzá nyúlni (oszlopokat elrejteni, stb).
-
MostaPista
tag
Adatokbol vissza lehet szamolni a fugvenyt 2003-as excelben?
Ugy ertem, hogy ismerek nehany reszeredmenyt, ami grafikon alapjan nagyjabol linearis fuggvenynek nez ki, meg lehet gyorsan hatarozni a fuggvenyt, minimalisan a zeruspontot es a meredekseget?
-
lappy
őstag
válasz MostaPista #47056 üzenetére
Ha lineáris akkor igen
Ismerni kell a meredekséget hozzá.
m= (y2-y1) /(x2-x1)[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
lappy
őstag
válasz MostaPista #47058 üzenetére
nem igazán tudom hogy nálad mi a 52-55
azért írtam le a képletet amivel ki tudod számolni a meredekséget
veszel két pontot az egyenesről és az egyes pontokhoz tartozik egy (x;y) koordináta, na abból tudod kiszámolni
vagy tegyél ide egy példátBámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz MostaPista #47060 üzenetére
Szia!
Csinálj belőle vonalas grafikont, a grafikonhoz rendelj lineáris trendvonalat. Az Excel megmondja az egyenletet is hozzá. Jelen esetben a trendvonal megegyezik az eredeti diagramvonallal - azaz viszonylag szoros az összefüggés a két adatsor között.
Üdv.[ Szerkesztve ]
-
zsolti_20
senior tag
Sziasztok!
Lehetséges Excel VBA kóddal, egy stringet splitelni az összes karakterre?
Pl a string értéke "343,fsdf.5434"fdsa$fg;bbb". Egyszerűen nem jövök rá, hogyan tudnám egyesével szétválasztani.Próbáltam a sima split funkciót használni, de ott a probléma az hogy egy előre megadott karakterrel splitel és meg sem tartja az értéket. Szóval 175.258-ből lesz 175 és 258. A pont eltűnik.
-
szricsi_0917
tag
válasz Delila_1 #47045 üzenetére
Szia
Ahogy mondtam neked becsatolom az elvileg majdnem végleges megoldást. Most 4x csinálja meg a folyamatot, mert 4 sheeten is végig kell mennie. Ahogy látom így is elég gyors lett.
Private Sub Kalkuláció_Click()
Dim i As Long, InduloIdo As Single
InduloIdo = Timer
Dim sor_allapot As Integer
Dim sor_anyag As Integer
Dim oszlop As Integer
Dim lastrow_allapot As Integer
Dim lastrow_anyag As Integer
Dim sorszam As Integer
Dim cikkszam As String
Dim osszeg As Double
Dim TIB As String
Dim csere_sor As Integer
Dim csere_oszlop As Integer
If tib_lista.Value = "" Then
MsgBox "Nincs kitöltve TIB azonosító!", vbCritical, "Figyelmeztetés"
Exit Sub
Else
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
lastrow_allapot = Sheets("Gerinc kiépítés állapot").Range("S" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
TIB = tib_lista.Value
Sheets("Anyagösszesítő").Range("F2:F" & lastrow_anyag) = ""
For sor_allapot = 3 To lastrow_allapot
If Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, "S") = TIB Then
For sor_anyag = 2 To lastrow_anyag
osszeg = 0
cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
sorszam = Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, 1)
For oszlop = 67 To 162 Step 5
If Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop - 1) = cikkszam Then
osszeg = osszeg + Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop)
End If
Next
Sheets("Anyagösszesítő").Cells(sor_anyag, "F").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "F").Value + osszeg
Next
End If
Next
lastrow_allapot = Sheets("Alépítmény állapot").Range("z" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("g2:g" & lastrow_anyag) = ""
For sor_allapot = 3 To lastrow_allapot
If Sheets("Alépítmény állapot").Cells(sor_allapot, "z") = TIB Then
For sor_anyag = 2 To lastrow_anyag
osszeg = 0
cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
sorszam = Sheets("Alépítmény állapot").Cells(sor_allapot, 1)
For oszlop = 81 To 176 Step 5
If Sheets("Alépítmény adat").Cells(sorszam, oszlop - 1) = cikkszam Then
osszeg = osszeg + Sheets("Alépítmény adat").Cells(sorszam, oszlop)
End If
Next
Sheets("Anyagösszesítő").Cells(sor_anyag, "g").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "g").Value + osszeg
Next
End If
Next
lastrow_allapot = Sheets("Házhálózat állapot").Range("v" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("h2:h" & lastrow_anyag) = ""
For sor_allapot = 3 To lastrow_allapot
If Sheets("Házhálózat állapot").Cells(sor_allapot, "v") = TIB Then
For sor_anyag = 2 To lastrow_anyag
osszeg = 0
cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
sorszam = Sheets("Házhálózat állapot").Cells(sor_allapot, 1)
For oszlop = 84 To 179 Step 5
If Sheets("Házhálózat adat").Cells(sorszam, oszlop - 1) = cikkszam Then
osszeg = osszeg + Sheets("Házhálózat adat").Cells(sorszam, oszlop)
End If
Next
Sheets("Anyagösszesítő").Cells(sor_anyag, "h").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "h").Value + osszeg
Next
End If
Next
lastrow_allapot = Sheets("Optikai kötés állapot").Range("q" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("i2:i" & lastrow_anyag) = ""
For sor_allapot = 3 To lastrow_allapot
If Sheets("Optikai kötés állapot").Cells(sor_allapot, "q") = TIB Then
For sor_anyag = 2 To lastrow_anyag
osszeg = 0
cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
sorszam = Sheets("Optikai kötés állapot").Cells(sor_allapot, 1)
For oszlop = 64 To 159 Step 5
If Sheets("Optikai kötés adat").Cells(sorszam, oszlop - 1) = cikkszam Then
osszeg = osszeg + Sheets("Optikai kötés adat").Cells(sorszam, oszlop)
End If
Next
Sheets("Anyagösszesítő").Cells(sor_anyag, "i").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "i").Value + osszeg
Next
End If
Next
Sheets("Anyagösszesítő").Select
For csere_oszlop = 6 To 9
For csere_sor = 2 To lastrow_anyag
If Sheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = 0 Then
Sheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = "-"
End If
Next
Next
tib_lista.Value = ""
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
MsgBox "Az összesítés elkészült!" & vbNewLine & vbNewLine & "Futási idő: " & Format((Timer - InduloIdo) / 86400, "hh:mm:ss") & vbNewLine, , "" '86400 = 24*60*60
End If
End Sub[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz szricsi_0917 #47066 üzenetére
Annyit még egyszerűsíthetsz rajta, hogy beteszel egy For-Next ciklust 1-tól 4-ig, és egy Select Case utasításban adod meg a változó lapneveket, az oszlop ciklusok kezdetét és végét, miegyebeket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Dilikutya
félisten
Egzotikus, ínycsiklandozó igénybe futottam bele:
Van egy táblázat, naponta írnak bele pár új sort. Az igény az lenne, hogy a dátum automatikusan kerüljön egy zárolt cellába, tehát amikor beírnak, bekerül a dátum, és az ott is marad, másnap a másnapi dátum kerül bele automatikusan. Igen, a MA() fgv. így kilőve.
Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)
-
lappy
őstag
válasz Dilikutya #47070 üzenetére
Private Sub Worksheet_Change
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Ez minden beírt cella mellé írja a dátumot[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Pakliman
tag
válasz Dilikutya #47070 üzenetére
Szia!
1 lehetőség...:
Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük, hogy az A oszlopban kezdik a beírást, a dátum pedig az X oszlopba kerül...
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
'Ha van "zárolt" cella, akkor van bekapcsolt védelem is a munkalapra...
ActiveSheet.Unprotect "jelszo"
Cells(Target.Row, "X") = Date
ActiveSheet.Protect "jelszo"
Application.EnableEvents = True
End If
End Sub -
Delila_1
Topikgazda
válasz Pakliman #47072 üzenetére
A lenti sor 1 lépésben megoldja az engedélyezést és a tiltást a makró elején.
ActiveSheet.Protect Password:="JujjDeTitkosJelszó", UserInterfaceOnly:=True
Ez a sor csak makróból enged a zárolt cellákba írni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
smnetbp
csendes tag
Sziasztok!
Excel 2019 ben webes lekerdezés 1 URL után ad 15db 5 soros 2 oszlopos "táblázatot" szeretném mind a 15-öt egy lapon megjeleniteni es a további URL-ek eredményét (szintén URL-enként 15 "táblázat") ugyanezen a lapon az előzők alá beszúrni. Így lenne az 5 linkemből egy 375 soros táblázat
Eljutottam odáig, hogy
- webes lekérdezés
- több tétel választása (itt kijelölöm a 15 "táblázatot")
- adatok átalakítása
- lekérdezések hozzáfüzése újként (három vagy több tábla)
- hozzáadom a 15 táblátItt elakadok, ha betöltöm akkor az eredmény 15 lap + egy URL lap + egy hozzáfüzés1 lap amin rendben szerepel minden
Problémám 1: a hozzáfüzés1 mellett a többi "táblázat" 1-15-ig is megjelenik különbözö lapokon
Problémám 2: a többi URL eredményének beszúrása a már létezö hozzáfüzés1 lapra (vagy bárhova ) folytatólagosanTöbb problémám nincs...... még
Ha esetleg valakinek van valami oktató Youtube linkje azt is megköszönom.
[ Szerkesztve ]
-
andreas49
senior tag
-
smnetbp
csendes tag
válasz andreas49 #47075 üzenetére
Ha utana a Table1 - Table15 ig kitorlom, akkor mar a tulajdonsagainal ugy jelenik meg mint " csak kapcsolodas" es a hozzafuzes1 rendben mukodik tovabb es a tobbi nem jelenik meg tobbe. Viszont ez problema lehet tobb 100 erdemenyul kapott "table" eseteben, mert egyesevel kitorolni........ kicsit DOS 1.0 erzesem van Tehat szerintem a Power Query -ben lehetne talan ezt beallitani ha Excel guru lennek
[ Szerkesztve ]
-
andreas49
senior tag
válasz smnetbp #47076 üzenetére
A Power Query -ben nem találtam lehetőséget arra, hogy csak a hozzafuzes1 kerüljön betöltésre. A Table1 - Table-x munkalapokat az import után rögtön törlöm a kapcsolódással együtt, hogy ne zavarjon be, ha közvetlen utána újabb importálást végzek weblapról.
HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
gepesz13
tag
Sziasztok!
Excel 2016 ban miként tudnám megoldani, hogy egy oszlopban minden nagybetűs legyen?
Üdv, és köszi. -
user112
senior tag
Sziasztok!
A Sor beszúrás időnként eltűnik a sor jobb gombos menüjéből. Nem tudom mitől, de egy cellán ctrl c crtl v hatására visszajön.
Ennek mi lehet az oka és hogyan lehet az eltűnést megelőzni?
Más: ctrl v-re megjelenő kis ablakot (ctrl beillesztés beállításai) hogyan lehet eltüntetni, hogy sose jelenjen meg?
Köszönöm -
Sziasztok!
Van egy táblázat, mely különböző rovatokat tartalmaz, és azok összeget. Van a fő rovat pl. K311, és vannak az alábontásai pl. K311-001. A főrovat és az alábontások karakter száma is változó.
Hogyan lehetne az alábontások összegét összeadni, hogy kijöjjön a főrovat értéke?
Pl.:
K311-001: 1000
K311-003: 5000
K312-0004: 8000
K312-0012: 6000
K64-003: 10000Eredmény:
K311: 6000
K312: 14000
K64: 10000Köszönöm!
-
-
yoogie
aktív tag
Sziasztok, egy kis segítséget kérnék.
Adott 2 táblázat, össze kellene hasonlítani a 2 táblázatban 1 függőleges és 1 vízszintes oszlopot, majd az összehasonlított oszlop melletti értékeket kell vissza adnia a másik táblázatban. Milyen függvénnyel lehetséges ez?
-
ny.erno
tag
válasz Fire/SOUL/CD #46734 üzenetére
Esetleg olyan opció is van, hogy az excelnek a szűrési tartományát megváltoztatni, hogy ne csak 10.000 legyen a limit? A több munkalapos azért nem opció, mert a teljes adatbázisban kell keressem az ismétlődő értékeket, nem csak a munkalapon.
A végén csak áttérek az Accessre.. Ott is van opció az ismétlődések megjelölésére/kiemelésére? Csak jelölni szeretném, nem megakadályozni (erre találtam útmutatót). -
föccer
nagyúr
válasz temporello #47090 üzenetére
Mennyi a szűrési tartomány nagysága? Nekem az excel 365-öm ~15.000 sor felett már nem adott vissza minden elemet az autoszűrőben.
Építésztechnikus. Építőmérnök.
-
MostaPista
tag
Ha valakinek meg nem artott meg a hoseg, lenne kedve mutatni nekem egy peldat, hogyan kell pl. a foci eb-hez hasonlo "lepcsozetes" tablazatokat csinalni?
Ugye, indultak 6 tablazattal, mindegyikben 4 resztvevo, majd eloszor trukkosen, majd egyenesben feleztek oket.
-
lappy
őstag
-
Casseius
tag
Sziasztok, egy kis segítséget kérnék google munkafüzettel kapcsolatban, ami valószínüleg a legtöbbötöknek itt rutin feladat de én ehhez nagyon hülye vagyok
1. Itt annyit szeretnék hogy a kihasználtság alá ha beírom hogy 12 pl akkor az azalatti sorba kidobja hogy az 32-nek hány százaléka [link]
2. Itt pedig csak annyit hogyha a szám minuszba menne akkor ugorjon nullára és onnan számoljon tovább, tehát ne tudjon minuszba menni hanem a legkissebb szám az 0 legyen [link]
Köszönöm előre a segítséget
Don't Worry, Be Happy
-
Casseius
tag
Köszönöm a seítséget, 1-es tökéletes
2-esnél az a probléma hogy így valóban nem mutatja a minuszt, viszont a minuszból számol tovább tehát ha beírok egy 48-at aztán minusz 50-et azután pedig egy 5-öt akkor 3 lesz ott nem pedig 5, bocsánat a bonyolításért[ Szerkesztve ]
Don't Worry, Be Happy
-
andreas49
senior tag
Sziasztok, letöltöttem egy Excel file-t az internetről. Sok függőleges oszlop vízszintes sorainak celláiban képletek szerepelnek, ezek csak akkor látszanak, ha belépek a cellába. Hogyan lehetne megoldani, hogy minden cella tartalma megjelenjen a cellákban anélkül, hogy a kurzor ott legyen?
Másik kérdésem: eltűnt az egyik Excel fájlomban a vízszintes csúszka, Hogy lehet ezt visszaállítani?
Segítséget előre is köszönöm.HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
lappy
őstag
válasz andreas49 #47097 üzenetére
Minden képlet
https://support.microsoft.com/hu-hu/office/a-k%C3%A9pletek-megjelen%C3%ADt%C3%A9se-%C3%A9s-kinyomtat%C3%A1sa-65a29965-b1b1-40db-9cb7-4fd051da3a5c
Csúszka
https://support.microsoft.com/hu-hu/office/g%C3%B6rget%C5%91s%C3%A1vok-elrejt%C3%A9se-vagy-megjelen%C3%ADt%C3%A9se-a-munkaf%C3%BCzetben-2101e630-fa9b-4d22-90e0-b110278bafa7[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
andreas49
senior tag
Új hozzászólás Aktív témák
- Windows 11
- Futás, futópályák
- Gyúrósok ide!
- Google Pixel 6/7/8 topik
- Jack Hunter: Egérragasztó
- AMD GPU-k jövője - amit tudni vélünk
- Politika
- HTPC (házimozi PC) topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- 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.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs