Hirdetés
-
Olimpia: az AI majd törli a sértő bejegyzéseket
it AI-t alkalmaznak, hogy a közösségi médiában kiszűrjék a sértő tartalmakat, amik a versenyzőkre és szervezőkre irányulnak.
-
Spyra: nagynyomású, akkus, 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! :)
-
Olyan telefon lett az idei foci EB hivatalos mobilja, ami nem kapható Európában
ma Folytatódik a Vivo és az UEFA együttműködése, a készülékválasztás megkérdőjelezhető.
-
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
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz foregister #14449 üzenetére
Szívesen, örülök, hogy tetszik.
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 bozsozso #14447 üzenetére
Egy füzet két lapján csináltam meg, de biztosan nem jelent gondot 2 füzetre átírni.
A lényeg, hogy az A és B oszlop adatait összefűzöm, és azt kerestetem. Érdemes közéjük pl. egy szóközt tenni, mert a 112 és 15 közvetlenül összefűzve ugyanazt az eredményt adja, mint a 11 és 215 összefűzése.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 foregister #14449 üzenetére
Most látom, hogy az első érvényesítés képletét elírtam a magyarázó szövegben, de nyilván észrevetted, és a második C2 helyett C3-at adtál meg.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
akyyy
senior tag
hogy lehet azt megcsinálni hogy van egy kódom egy cellába, ugyanazt szeretném majd alatta. ugye a jobb also sarkába ott a kis kereszt amivel egér segitségével lefelé húzható és akkor vagy ugyanazt beteszi, vagy egy számmal nagyobbakat.
ugyanezt szeretném elérni, de csakis billentyüzet segitsévégel. ezt is és azt is.
-
Delila_1
Topikgazda
-
lacid90
csendes tag
Hát próbálkozom, próbálkozom...., de úgy látszik ez nekem nem nagyon megy, ezért kivonatosan leírom hogy volt eddig, és én hogyan próbáltam javítani.
Dim szin, le, valasz, oszl
Private Sub CommandButton1_Click() 'v.zöld 35
szin = 35: le = 1
SumColor
End Sub
Private Sub CommandButton2_Click() 'sárga 6
szin = 6: le = 0
SumColor
End Substb...stb.., majd az oldal végén a szubrutin
Sub szinek()
Application.ScreenUpdating = False 'a képernyőfrissités kikapcsolása (makró gyorsítás)
Dim CV As Range, usor As Long
oszl = ActiveCell.Column
ActiveCell.Interior.ColorIndex = szin
...
...
Application.ScreenUpdating = True
ActiveCell.Offset(le).Activate
End SubHa minden az oldalon van akkor jól működik.
A szinek szubrutint áthelyeztem a modul1-be, és oldalon maradt részt átírtam a javaslatod szerint.Public szin As Integer, le As Integer, valasz As Integer, oszl As Integer
Private Sub CommandButton1_Click() 'v.zöld 35
szin = 35: le = 1
szinek
End Sub
Private Sub CommandButton2_Click() 'sárga 6
szin = 6: le = 1
szinek
End SubSajnos így sem működik, pedig már próbáltam úgy is hogy a gomb vezérlő részt átraktam a ThisWordbook mappába mivel minden oldalon ugyanazt a dolgot kell ellátnia.
Kérlek segíts ebben, és ha van időd egy pár szóval írd le hogy mit miért kell úgy csinálni hogy jó legyen. Ha netán tudsz egy linket ahol egyszerűen le vannak írva ezek a dolgok az is nagy segítség lenne.
Előre is köszönöm. -
csferke
senior tag
válasz Delila_1 #14451 üzenetére
Hát valóban, ez túl egyszerű lenne.
Mindenesetre nem ragaszkodom a Pivot-hoz.Feladat:
Egy munkafüzetlap adataiból készíteni egy kimutatást (másik lapot, amit majd esetleg nyomtatok is).
1.LAP adatai
- dátum, számlaszám, cég, fizetési esedékesség dátuma, számlázott összeg, befizetett összeg, számlázott-befizetett összegEzekből kellene egy összesítést készítenem, sorba rendezve 1.cégnév, 2.számlaszám szerint. Összegezve cégek szerint és a végén GrandTotal.
Ebben az összesítésben természetesen nem kell, hogy szerepeljenek azok a számlák amelyek már teljesen megfizettetésre kerültek.Egyszerűbben, adósok listája cégek szerint rendezve, összesítve.
köszönöm
-
Delila_1
Topikgazda
válasz csferke #14459 üzenetére
Az 1. lapra betennék egy új oszlopot, ami a számlázott-, és a befizetett összeg különbségét adja. Az adatokat az adatlapon is rendezheted, de a kimutatásban is.
A kimutatás sorába kerül a cég neve és a számlaszám, az adatokhoz ez a különbség. Itt még megjelennek a nulla tartozást mutató sorok. Ezeknek az eltüntetéséhez írtam egy kis makrót, amit egy gombhoz rendelhetsz.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
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 lacid90 #14457 üzenetére
Nem értem, mit is akarsz végrehajtani. A két gombhoz rendelt makróval a SumColor makrót hívod meg, de a szinek makrót akarod indítani.
A gombhoz rendelt makrókban értéket adsz két változónak (szin, le). Ezeket a pillanatnyi értékeket át kell adnod a meghívott, szinek makrónak.
Így csináld:
Private Sub CommandButton1_Click() 'v.zöld 35
szin = 35: le = 1
szinek szin, le 'a változók megadásával hívod meg a szinek makrót
End Sub
Sub szinek(szin, le)
Application.ScreenUpdating = False 'a képernyőfrissités kikapcsolása (makró gyorsítás)
Dim CV As Range, usor As Long
oszl = ActiveCell.Column
ActiveCell.Interior.ColorIndex = szin
...
...
Application.ScreenUpdating = True
ActiveCell.Offset(le).Activate
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 csferke #14459 üzenetére
Hibáztam! Az
If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
sort cseréld ki
If Cells(sor%, "C") = 0 Then Rows(sor%).EntireRow.Hidden = True-ra.
Ez elrejti azokat a sorokat, ahol a C oszlop – a tartozás – nulla. Bármikor felfedheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lacid90
csendes tag
válasz Delila_1 #14461 üzenetére
Igazad van, összekevertem a dolgokat, figyelmetlen voltam, bocs.
Megcsináltam a változtatásokat és láss csodát, működik- köszönöm szépen. A subrutin a modulban van, és a gombok vezérlése a munkalapokon. Mivel minden munkalapon ugyan az a táblázat van (12 hónap) ezért úgy gondolom, hogy az lenne az elegáns megoldás ha ezt a részt is csak egyszer kellene beírni. Ezért gondoltam hogy beteszem a ThisWorkbook mappába, és így az egész munkafüzetre vonatkozik majd. Hát sajna ez nem igaz, biztos innen is hiányzik valami, vagy lehet ez nem is kivitelezhető így.
Mégegyszer köszönök minden segítséget. -
bozsozso
őstag
válasz Delila_1 #14453 üzenetére
Köszönöm szépen ezt is ki fogom próbálni.
Az alábbi kis makróval oldottam a feladatot. Nem egy gyors, de így működik.
Set cel = ActiveSheet
fnev = Application.GetOpenFilename("Forgalmi adatok (*.xls),*.xls)")
If fnev = False Then
Exit Sub
End If
Workbooks.Open Filename:=fnev, ReadOnly:=True
For i = 2 To 3398
For a = 2 To 4964
If ThisWorkbook.Worksheets(1).Cells(i, 2) = Cells(a, 3) And Cells(a, 6) = ThisWorkbook.Worksheets(1).Cells(i, 6) Then
ThisWorkbook.Worksheets(1).Cells(i, 9) = Cells(a, 20)
End If
Next
Next
ActiveWindow.CloseEsetleg ha valaki tuds segítené még abban, hogy kicsit gyorsabb legyen az jó lenne.
Előre is köszönöm.
-
Delila_1
Topikgazda
válasz lacid90 #14465 üzenetére
Az egyes lapokon ne az ActiveX-, hanem az űrlap vezérlők közül tegyél ki gombot. Az előbbiek csakis a saját kódlapjukon szereplő makróval működnek, míg az utóbbiakhoz rendelhetsz azonos makrót, akár valamelyik modulban lévőt, nem szükséges a ThisWorkbook-ban lennie.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
basaharc502
aktív tag
Sziasztok!
Olyan "problémám" lenne, hogy excelben szerkesztettem egy táblázatot...namost ezt a táblázatot beraktam egy power pointba. Viszont a táblázatban szereplő néhány adatot szeretném "animálni"...viszont ez nem megy. Ugyanis ha egy cellában lévő adatot kijelölök és animálom, akkor az egész táblázat animálódik, nem pedig csak az az egy cella...
Hátha így érthetőbb:
A táblázatban évszámok mellé van beírva a másik cellába, hogy mi történt akkor. (töri óra...)
Azt szeretném, ha a gyerekek amikor nézik kivetítve, csak az évszámokat látják utána pedig én csak egy kattintással behozom az évszámhoz megfelelő eseményt.Hogyan lehet azt megoldani, hogy a táblázatban szereplő adatokat be tudjam animálni?
-
lappy
őstag
válasz basaharc502 #14469 üzenetére
Szia!
Igazából ez nem is excel probléma!
A tanácsom a következő:
- egyesével vidd be az évszámokat
- majd tedd be az eseményt
Na most következik a trükk!
az animálásnál kell beállítani a következőket
(az évszámokat akár egyesével kattintásra hozhatod be vagy már mind látszik ezt rád bízom)
az egyik eseményt kiválasztva be lehet állítani hogy milyen animációval és mire induljon el
jobb gomb majd effektus beállítása
időzítés (a képen láthatod hogy mit is kell beállítani)
remélem segítettem![ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
akyyy
senior tag
van egy listám különböző számokról (legyen ez pl gyártási szám)
van vagy 200 tétel belőle.van egy másik listám számokkal ebbe jóval több van.
hogyan lehetne azt megcvsinálni hogy pl pirossal kiszinezze nekem a 200 elemből azokat az elemeket, amiknek a száma megtalálható a másik listában?
-
dellfanboy
őstag
létezik olyan makró ami az pdf-ből kivesz bizonyos adatokat?
A pdf egy scannelt kép ami okozza a nehézséget ált nem a legjobb minőségben de vmi ocr karakterfelismerővel kombinálva működhet szerintetek?
Tehát kapok egy pdf-et jelenléti ív erről kellene nekem adat sima fkeres fv-el.eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
lappy
őstag
válasz dellfanboy #14473 üzenetére
Szia!
Alap esetben nem! De sok fáradságos és kitartó munkával igen!
[link]
vagy ez a módszer!
Először mindenképpen át kell konvertálni pl. word formátumúvá.
(persza ha kinyomtatott doksi lett szkennelve és úgy lett pdf, akkor sokkal macerásabb lesz a visszakonvertálás, minta a dokumentum közvetlenül pdf-be került nyomtatásra)Bámulatos hol tart már a tudomány!
-
csferke
senior tag
válasz Delila_1 #14462 üzenetére
Ez a "soreltüntető" Elrejt() makró működik.
Lenne még egy óhajom ezzel kapcsolatban.
Amikor kiválasztom a lapot akkor mindig az előző állapot látszik.
Frissítem a Pivot-ot.
Megjelennek azok a sorok amelyekre nincs szükségem.
Klikk a gombra, hogy eltűnjenek a felesleges sorok, amelyekre soha nincs szükség.Hozzá lehet-e rendelni az egészet ahhoz az eseményhez, hogy amikor megnyitódik a lap akkor lefusson egy makró automatikusan. Frissítse a Pivot-ot és lefuttassa az Elrejt()-et.
Így nem kell a felhasználóra hagyatkozni, hogy frissítse az adatokat és a gombra kattintva futtassa le az Elrejt()-et, hogy a megfelelő adatok látszódjanak.
köszi
-
Delila_1
Topikgazda
válasz csferke #14475 üzenetére
Meg lehet oldani. A laphoz kell rendelned az alábbi makrót.
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
Elrejt
End SubMikor a kérdéses lapra lépsz, ennek a makrónak az első sora frissíti a kimutatást. Ha nem Kimutatás1 a neve, írd át.
A második sor meghívja az Elrejt 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.
-
csferke
senior tag
Valamikor az őskorban (dbase III, Clipper '87) én is programoztam. Megírtam egy kisebb cég komplett ügyviteli software-ét. Valamennyit konyítok az Excel-hez is.
Sajnos azonban nem sikerült egy kimerítő "bibliához" jutnom, mint annó "Clipper '87 Biblia" amiben részletesen le vannak írva a lehetséges parancsok (pl. Private Sub Worksheet_Activate(), EntireRow.Hidden, Application.ScreenUpdating = False és hasonlók) magyarázattal, példákkal.
Ez vagy Excel makró vagy Visual Basic de mindkettőhöz "tudástár" kellene.Tudtok-e könyvet ajánlani, letölthetőt (pdf) vagy megvásárolhatót Excel 2007-hez?
köszi
[ Szerkesztve ]
-
pero19910606
csendes tag
Sziasztok!
Azt meg lehet valahogy oldani, hogy teljesen írásvédetté tegyek egy excel file-t? Tehát még másolni se tudjon belőle se beleírni csak olvasni.
Köszi előre is!
Üdv!
-
atillaahun
veterán
válasz pero19910606 #14480 üzenetére
Szia,
Korrektúra > Lapvédelem > Zárolt cellák kijelölése > pipa ki, és akkor nem lehet másolni belőle. Meg ott van minden egyéb is. -
pero19910606
csendes tag
válasz atillaahun #14481 üzenetére
ááh ez az köszönöm szépen a gyors választ!
Üdv!
-
lacipapi
csendes tag
Sziasztok!
Az megoldható, hogy egy Excel fájl betöltése után automatikusan teljes képernyőre váltson át (tűnjenek el a szerkesztő lécek), az ESC billentyűt kikapcsolni, és a visszaállítást egy billentyű kódhoz, vagy jelszóhoz rendelni. A fájlban vannak makrók, úgyhogy ezt is egy makróval kéne megoldani ami automatikusan elindulna.
Köszönöm a segítséget.[ Szerkesztve ]
Lelkes, de már egy kicsit idős amatőr
-
zseszter0705
csendes tag
Segítsetek légyszi, megőrülök! nem tudok az exelben a fel-le nyilakkal mozogni a cellák között, csak egérrel. mit állíthattam el vajon. A kijelölt cella mindig ugyanaz marad menten idegbajt kapok. Köszi
-
lappy
őstag
válasz zseszter0705 #14484 üzenetére
Szia!
Ha elmented és újra indítod akkor is ugyanez van?Bámulatos hol tart már a tudomány!
-
lacipapi
csendes tag
válasz zseszter0705 #14484 üzenetére
Próbáld újra indítani a gépet.
Lelkes, de már egy kicsit idős amatőr
-
poffsoft
addikt
-
iceQ!
addikt
Sziasztok!
Következő hiba megoldásban kérem a segítségetek.
Van egy táblázat( képen látható) amit valaki úgy összebarmolt hogy csak olyan kicsi ablakban látható. Nem lehet vele semmit csinálni, pedig az összes oldalbeállítást, margók...stb-t próbáltam. Így nem nagyon lehet benne dolgozni( lehet csak nagyon keserves)
Ebben tud valaki segíteni?
Válaszokat előre is köszönöm!
Üdv iceQ
KÉP:
Amiből lekvárt lehet főzni abból pálinkát is! A csavargó embert nem lehet munkára fogni! Samsung S23 Ultra Dual SIM | Notebook: HP Omen | Car: Volkswagen Passat B6 1.9 PD TDi BLS
-
félisten
Füzetvédelem van bekapcsolva és az Ablakok opció is be van jelölve. Fel kell oldani a védelmet.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
iceQ!
addikt
válasz Fire/SOUL/CD #14489 üzenetére
Köszönöm!
Meg is volnék vele!
Amiből lekvárt lehet főzni abból pálinkát is! A csavargó embert nem lehet munkára fogni! Samsung S23 Ultra Dual SIM | Notebook: HP Omen | Car: Volkswagen Passat B6 1.9 PD TDi BLS
-
Wasquez
senior tag
Sziasztok
Olyan gondom van, hogy a cellák formátumát hiába állítom mondjuk dátum formátumra, nem szól érte semmit, ha szöveget írok bele, simán megjelenik.
Mintha semmi hatása nem lenne a beállításnak!
Örököltem a gépet munkahelyen telepítve, valószínűleg minden el van állítgatva rajta, de nem tudom, hogy mi és hol?
2003Van valakinek ötlete?
PC
-
félisten
válasz Wasquez #14491 üzenetére
"Olyan gondom van, hogy a cellák formátumát hiába állítom mondjuk dátum formátumra, nem szól érte semmit, ha szöveget írok bele, simán megjelenik."
Ez nem hiba, ez mindig is így volt. A kérdés az, hogy miért írsz szöveget egy dátumra formázott cellába?Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Wasquez
senior tag
válasz Fire/SOUL/CD #14492 üzenetére
Próba képen, de ha dátumot írok, azt sem alakítja át a kívánt formátumra.
Azt gondoltam, hogy szól érte, hogy ebbe a cellába nem lehet szöveget írni?!PC
-
félisten
válasz Wasquez #14493 üzenetére
Amikor dátumra formázod a cellá(ka)t, akkor nézd meg, hogy milyen elválasztó karaktert használ (pont vagy kötőjel, perjel stb). ha ez megvan, akkor ennek megfelelően írj be egy dátumot(teljes dátumot, pl pont elválasztó esetén 2012.01.01 formában), így mi történik?
(Ha egy dátum cellába klasszikus értelembe véve írsz be szöveget (pl ubul), arra nem fog figyelmeztetni és természetesen dátumként sem tudja megjeleníteni, de mint írtam, ez nem hiba)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Wasquez
senior tag
-
akyyy
senior tag
beírom táblázatba egymás alá hogy:
3
5
7
31
12
8majd erre hogy szürés, és beirom hogy szürjön ezekre:
3*mégse jelenit meg semmit.
1miért?
2hogyan lehetne mégis? -
#26949760
törölt tag
Sziasztok!
Egy kis makróhoz szeretnék segítséget kérni.
A feladat:
Alapvetően egy sörözőben standoláshoz csinálok egy táblázatot. A Munkafüzetben 10 olyan munkalap van ahol adatokat viszek fel. Már itt is vannak olyan adatok amiket a másik munkalapokról hivatkozok meg. A lényeg a következő lenne:
Beteszek egy jelölőnégyzetet. Ezzel lezár egy adott munkafüzetet, azaz ne lehessen beleszerkeszteni. Emellett ugyanez a jelölőnégyzet hatására egy másik tabon kiszámolja a képleteket (meghivatkozza a korábbi zárókészletet nyitókészletnek).Tudtok ebben segíteni?
Előre is köszönömkizy
-
Delila_1
Topikgazda
válasz #26949760 #14498 üzenetére
Rajzold meg a jelölőt az Űrlap eszköztárról. Modulba vidd be a makrót.
Sub Jelölőnégyzet1_Kattintáskor()
Dim lap As Integer
Calculate
For lap = 1 To Worksheets.Count
Sheets(lap).Select
Cells.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub[ 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.
-
lacipapi
csendes tag
Sziasztok!
Hogyan kell egy billentyű kombinációt figyelő makrót írni, ami állandóan készenlétben áll.
Pl.: CTRL+ALT+D kombinációra gondoltam.
Köszi a segítséget.Lelkes, de már egy kicsit idős amatőr
Új hozzászólás Aktív témák
- Politika
- Napelem
- Kertészet, mezőgazdaság topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- EA Sports WRC '23
- A fociról könnyedén, egy baráti társaságban
- Milyen légkondit a lakásba?
- Kínai, és egyéb olcsó órák topikja
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- További aktív témák...