Hirdetés
-
A virágcsokor mellé hardvert is ajándékozhatunk anyák napján
ph A héten desktop PC-k, monitorok, gamer kiegészítők és házak vannak a kirakatban.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Újabb részleteket kaptunk a Terminator: Survivors című játékról
gp A játékot egyedül, vagy társakkal együtt is játszhatjuk majd elsőként PC-n, később majd konzolokon.
-
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
-
m.zmrzlina
senior tag
válasz sedyke #23547 üzenetére
A tiédhez nagyon hasonló probléma volt itt.
-
Fferi50
őstag
válasz sedyke #23547 üzenetére
Szia!
Ezt attól függ, hogy milyen "technikával" hoztad létre összesítéseket.
Ha ugyanannyi sorral van lejjebb, használhatod az indirekt függvényt:
pl. Az első sorban = indirekt("munka1!B" & (sor()-1)*X+1) ahol az X az a szám, amennyivel lejjebb van a következő számlaszám. Ezt a képletet húzod végig az oszlopon.
Az összegre hasonlóan, csak nem +1 amit hozzáadsz, hanem az első összegnek a sorszámát (itt 45).Üdv.
[ Szerkesztve ]
-
Wyll
őstag
válasz sedyke #25197 üzenetére
Szerintem itt ez a cikk elég jól körüljárja a
"Hogyan számoljuk meg excel-ben az egyedi értékek számát"
témát. Több módszert is mutat. Üres cellák figyelembevétele vagy nem vétele is benne van. Példamunkafüzet, videó is van. Hasonló slashing megoldásához is.[ Szerkesztve ]
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
slashing
senior tag
válasz sedyke #25373 üzenetére
valószínűleg nincs olyan találat(pontos egyezőség) ezért #n/a az az nincs-et ad eredményül, ellenőrzid a szumha kritériumát(nem a képletben hanem ahol a képlet keresi, lehet elgépelted) bár így látatlanban elég nehéz.... illetve nézz rá képletkiértékelővel hogy hol akad meg..... mást így nehéz mondani rá...
[ Szerkesztve ]
-
Fferi50
őstag
válasz sedyke #25376 üzenetére
Szia!
Ha jól értem, akkor a keresendő táblázatodban nem találja meg az adott dátumot. Próbáld meg arra a dátumra rámásolni az előző dátumot (amit megtalál), majd utána átírni arra, amit keresel.
Sokszor észrevehetetlen "formai" okok játszanak közre a meg nem találásban (főleg a dátumoknál).Üdv.
-
Fferi50
őstag
-
-
Delila_1
Topikgazda
válasz sedyke #25709 üzenetére
A lapodhoz rendelt a lenti eseményvezérelt makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then Cells(Target.Row, "T") = Date
End SubMikor a D oszlopba viszel be adatot, a T oszlopba beírja az aktuális dátumot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #25712 üzenetére
Azt nem ismerem, de olvastam tőle a "Makróhasználat Excelben" című könyvet, és olyanok vannak benne, amik nem igazak. Például:
"Minden változónak van egy neve és egy értéke. (Más programnyelvekben típusa is, amely meghatározza,
hogy milyen jellegű adat tárolható a változóban. Itt a típust többnyire nem szükséges definiálni, azt az első értékadás határozza meg.)""...az FKERES függvény csak ábécébe rendezett listában működik..."
Legtöbben Kovalcsik Géza Az Excel programozása című könyvét javasolják. Krizsák Lászlónak van egy az azonos című könyve, amit kezdők jobban tudnak használni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #25843 üzenetére
Képet tegyél fel az "egy datumra 3 kulonbozo oszlopban mutatja az ertekeket, de mindegyik oszlop ketto adatreszbol allna ossze, vagyis minden oszlop osztva lenne ketfele" diagram kinézetéről!
Szegényes a fantáziám, látnom kell, miről van szó. Gondolom, azért nem kaptál eddig választ, mert esetleg más is így van vele.
Az sem baj, ha mutatod az adataid elhelyezkedését, és egy kézzel rajzolt diagramot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
azopi74
addikt
válasz sedyke #26680 üzenetére
Azt javaslom, szerintem írd felül az üzletileg kritikus (titkos) részeket, és töltsd fel valahova a felhőbe, akkor valószínűleg tudunk segíteni. Lehetnek egész oszlopra hivatkozó függvények, telehányt Name Manager (névkezelő) , vagy akármi. Látatlanban nehéz megmondani.
-
azopi74
addikt
válasz sedyke #26820 üzenetére
Hát akkor nincs más hátra, mint visszaállítgatni egyesével.
Vagy ha van valami logika/törvényszerűség abban, hogy miket kell átállítanod, (mi állítódtak el) akkor használhatsz feltételes formázást is. De neked is csak azt tudom mondani, hogy vakon nehéz jó tanácsot adni, az is lehet, hogy pofonegyszerűen, pár kattintással vissza lehetne állítani, csak ahhoz látni kéne a file-t....
Annál is inkább gyanús, mert azt mondtad, hogy véletlenül állítottad át, valami billenytűzetkombinációval... -
-
Delila_1
Topikgazda
válasz sedyke #27058 üzenetére
3 kérdésem van
1. Ha 2003-asnál magasabb verziót használsz, makróbarátként mentetted-e a füzetet?
2. Az aktuális dátumnak a T oszlopban kell megjelennie, mikor a D-be írsz. Oda írsz?
3. A lapodhoz rendelted a makrót?Ha minden lapon el szeretnéd érni, hogy a D oszlopba történő íráskor a T-be íródjon be a dátum, akkor a makrót a ThisWorkbook laphoz kell rendelned.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27356 üzenetére
A leírásodból arra következtetek, hogy a keresett termék 1-1 egyszer fordul elő. Ehhez itt a makró.
Sub In_Use()
Dim lap As Integer, sor As Long
For lap = 1 To Sheets.Count
sor = Application.Match("keresett_termék", Sheets(lap).Columns(1), 0)
If Not VarType(sor) = vbError Then Sheets(lap).Cells(sor, "W") = "in use"
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27360 üzenetére
Azt hiszem, ne pontosan írtad le a feladatot. Megírtam a makrót a következő felállásra:
A füzet első lapja az összesítés, ahol a termékek az A oszlopban vannak. Azt az esetet vettem, hogy nincsenek üres sorok, és az első a címsor.
Az összes többi lapon keresünk.A makró megjegyzi az összesítő lap A2-es cellájának az értékét, majd sorban ellenőrzi a többi lapon, hogy van-e ilyen nevű termék. Ha valamelyiken talál, akkor az összesítő lap W2 cellájába beírja a kért szöveget.
Következik az A3-as cella vizsgálata, majd így tovább az utolsó sorig.Sub Van_e()
Dim talal, sor As Long, usor As Long, nev, lap As Integer
Dim WS As Worksheet
Set WS = Sheets(1)
usor = WS.Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
nev = WS.Cells(sor, "A")
For lap = 2 To Sheets.Count
Sheets(lap).Select
Set talal = Cells.Find(nev, LookIn:=xlValues, lookat:=xlWhole)
If talal Is Nothing Then
GoTo Tovabb
Else
WS.Cells(sor, "W") = "in user"
Exit For
End If
Tovabb:
Next
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27365 üzenetére
A makró angol nyelven van, nem is lehet másképp.
A füzetedben Alt+F11-re megnyílik a VBA szerkesztője. Bal oldalon kiválasztod a füzetedet, Majd Insert menü, Module.
Beszúrtál egy új modult, ami Module1 névre hallgat. Ez van kijelölve a beszúrás után. Az ablakod jobb oldalán kapsz egy nagy üres felületet, oda másold be a makrót. Bezárhatod ezt az ablakot, és a szokásos módon (Alt+F8) futtathatod a makrót.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27367 üzenetére
A lap egy változó, az lehet bármi, akár lgjdh82lk-t is írhatunk helyette.
Akkor fut, ha az összesítő lapod a sorban az első. Ilyen az elrendezés? A termékek A2-től lefelé, folyamatosan vannak megadva. Ez is áll?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27370 üzenetére
Szívesen, örülök, hogy végül összejött.
For lap = 2 To Sheets.Count
Sheets(lap).SelectIde kell beszúrni a kihagyandó lap sorszámát. Ha például az ötödiket akarod kihagyni (beleszámolva az elsőt is), akkor
For lap= 2 To Sheets.Count
If lap=5 Then Exit For
Sheets(lap).SelectTöbb lap kihagyásánál a feltétel sora például
If lap=3 Or lap=5 Or lap=6 Then Exit For
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz sedyke #27372 üzenetére
Közben erre a kérdésre válaszoltam.
Azt is megteheted, hogy azt a bizonyos lapot az utolsó helyre teszed, és a for lap=2 to sheets.count végére írsz egy -1-et, akkor nem kell az If-es sor.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Fferi50
őstag
válasz sedyke #27554 üzenetére
Szia!
A Pivottábla tulajdonságai között van ilyen:
a háttérbeni frissítés engedélyezése illetve
adatfrissítés a fájl megnyitásakor, ehhez kapcsolódik a külső adatok eltávolítása a munkalapról bezárás előtt.
Ez utóbbi csökkenti a méretet, de lassítja a megnyitást.Próbáld ezeket a beállításokat variálni.
Úgy gondolom, gyorsítaná a működést, ha csak az első pivottábla kapcsolódna közvetlenül az adatforráshoz, a többi pedig ezt az első pivottáblát használná forrásként (ugyanis abban is látszik az eredeti forrás minden adata rejtetten).
Üdv.
-
azopi74
addikt
válasz sedyke #27556 üzenetére
Ha másolod az első pivottáblákat, (nem pedig újra létrehozod az eredeti adatforrásból) és utána álltgatod csak be kedved szerint, akkor az új pivot ugyanazt a "köztes" adatbázist fogja használni adatforrásként, mint az eredeti, nem növelve feleslegesen a méretet és lassítva a műkődést.
-
azopi74
addikt
válasz sedyke #27556 üzenetére
"Az eredeti okom a gyorsitasra, hogy amikor szeretnem megjeleniteni az ertek nelkuli teteleket is, akkor megfagy az egesz es nem csinalja meg."
Ott akkor szerintem valami más gond lesz. (több oka is lehet) Ha nem nagyon titkos az adatok, töltsd fel valahová, vethetünk rá egy pillantást.
Új hozzászólás Aktív témák
- Fejhallgató erősítő és DAC topik
- Milyen okostelefont vegyek?
- DIGI internet
- gban: Ingyen kellene, de tegnapra
- Egyre nagyobb a balhé a Helldivers II körül
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- PlayStation 5
- Mobil flották
- Mesterséges intelligencia topik
- E-roller topik
- További aktív témák...
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest