- Törvénnyel pörgetné fel az európai zöldtechnológiát az EU
- Egyre több európai használja a Telegramot, ezért megkereste az EU
- Synology NAS
- Itt van az eddig legjobban teljesítő kétfiókos NAS a TerraMastertől
- Mobilinternet
- Vivaldi (böngésző)
- Linux kezdőknek
- Autodesk - Revit
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
-
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
-
Mittu88
senior tag
Lehet úgy hivatkozni munkalapra, hogy egy cella értéke a munkalapnév?
Pl. ha A1 értéke Január, akkor tudok valahogy azon keresztül a Január munkalapra hivatkozni? -
-
Mittu88
senior tag
-
Delila_1
Topikgazda
válasz Mittu88 #23958 üzenetére
Nem ismerem a fájlod felépítését. Ha régi adatok vannak benne, amiket képletekkel számolsz ki, és már biztosan nem változnak, érdemes értékként magukra beilleszteni. Sokat gyorsí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.
-
snorbi82
senior tag
Sziasztok!
Egy kérdésem lenne, ami nem kicsi! Gdrive A linkben van egy minta tábla. Természetesen nekem olyan táblám van ami nem így néz ki. Jelen pillanatban van egy táblám amiben 100 ember van, adatai egymás mellett. Természetesen, hogy jó legyen a napom, a 100 embert 100 excel táblába kell tenni, de úgy, ahogy a linken szereplő táblázat.
Nem tudom, hogy lehetséges e olyan script vagy bármi ami varázsol nekem 100 excel táblát a linken szereplő formában.
Előre is köszönöm!IPhone 15 Pro Max, Iphone 13
-
félisten
válasz snorbi82 #23961 üzenetére
Ennyi info alapján senki sem fogja megmondani neked, hogy kivitelezhető-e avagy sem. Itt csak annyi látszik, hogy Rekordtípus-tól Ellenőrző szám-ig vannak az oszlopok és a rekordtípus határozza meg, hogy mely oszlopokba kerüljenek adatok.
A te eredeti táblád felépítése nélkül senki sem tudja, hogy honnan/hogyan kellene ezeket az adatokat belemásolni. Ha az eredeti táblát nem is, de az eredeti táblázatoddal teljesen megegyező, csak kamu adatokkal feltöltött táblázatot kellene megosztanod, hogy lássuk, mégis mi-merre hány lépés...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)
-
snorbi82
senior tag
válasz Fire/SOUL/CD #23962 üzenetére
Szia!
Csináltam gyorsan egy kamut... Ahogy kinéz jelen pillanatban.... Gdrive! köszönöm
IPhone 15 Pro Max, Iphone 13
-
félisten
válasz snorbi82 #23963 üzenetére
Azt hiszem félreértjük egymást... Nekem/nekünk ez a táblázat kellene, amiről így teszel említést:
"Természetesen nekem olyan táblám van ami nem így néz ki. Jelen pillanatban van egy táblám amiben 100 ember van, adatai egymás mellett."Na ez a tábla kellene, valami kamu adatokkal.
[ 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)
-
Delila_1
Topikgazda
válasz snorbi82 #23963 üzenetére
Ebből nem lehet kitalálni a sorazonosítókat. Mi melyik sorba kerül?
Az oszlopokat ki lehetne következtetni, de ezeket neked kellene megadnod, ne az számolgasson, aki segíteni akar.Tegyél ki egy olyan füzetet, ami 3-4 ember adatait tartalmazza, természetesen kamu névvel.
Meg egy olyant, amilyenre át kell alakítani személyenként.[ 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.
-
félisten
válasz Delila_1 #23965 üzenetére
"Meg egy olyant, amilyenre át kell alakítani személyenként."
Az a minta tábla, amit eddig is megosztott. Csak 1 név/ügyfél szerepel benne(az összes adat ahhoz az 1 ügyfélhez tarozik), ilyen táblákat kellene legyártani 100 darabot a 100 ügyfélről egyenként.[ 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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #23966 üzenetére
Igen, de ezt füzetben, ne a kép alapján kelljen a segítőnek számolgatnia, formázgatnia. A kép alapján nem lehet meghatározni az egyes sorokat.
[ 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.
-
félisten
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #23968 üzenetére
Tényleg. Ettől sem lettem sokkal okosabb.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
snorbi82
senior tag
válasz Delila_1 #23969 üzenetére
Nem kell szamolni semmit! Minden adat megvan nekem.
Az lenne a lenyeg, hogy adott tabla Minta Janosnak a 18 sorban van minden adata. En azt szeretnem valahogy, hogy egy ures tablazatban a a 18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
A kovetkezo tablam ami lesz ugye 19. sorba lesz Minta Janosne, akit egy ures tablamba szeretnek atmenteni ugy, hogy:18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
Nekem eleg lenne az elso nevre ezt megcsinalni es a tobbit en magam megcsinalom...
Olyan scriptet irtam .vbs-be, hogy letre hoz egy uj táblat es a fix adatokkal kitolti, de amit egy meg levo tablabol kell atemelnie azt nem tudom, hogy kell... Sajnos csak ennyit tudok.. Elnezest!
u.i: bocsanat telefonrol irtam...IPhone 15 Pro Max, Iphone 13
-
Wyll
őstag
Vajon mi a baj?
Azt akarom, hogy egy userform-on lévő toggle button akkor és csak akkor legyen benyomva (value=1), amikor bizonyos oszlopok nincsenek elrejtve (hidden = false); illetve hogy a be vagy kikapcsolása egyben rejtse is el vagy jelenítse is meg a cellákat.
A rejtés/felfedés funkció működik is szépen, csak az inicializálás nem: ha a cellák el vannak rejtve, akkor sem lesz benyomott állapotú a userform indulásakor.
Private Sub togbutTranslate_Click()
If Range("b_forditocellak").EntireColumn.Hidden = True Then
Range("b_forditocellak").EntireColumn.Hidden = False
Else
Range("b_forditocellak").EntireColumn.Hidden = True
End If
End Sub
Private Sub UserForm_Initialize()
If Range("b_forditocellak").EntireColumn.Hidden = True Then
Me.togbutTranslate.Value = True
End If
Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
End Sub[ Szerkesztve ]
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
Fferi50
őstag
válasz snorbi82 #23970 üzenetére
Szia!
Itt ugyan a 25. sorban van Minta Janika, de sebaj, mindegy is melyik sorban van, azt majd megadod.
Nagy vonalakban a javaslatom:
Indulsz a meglevő, beolvasott csv adatokkal.
A változó deklarációkat rád bízom...set adatok=activesheet
utsor=cells(1000,1).end(xlup).row 'megkeressük az utolsó sort
For ugyfsor=18 to utsor ' ettőll eddig kell a ciklusnak menni
set ujws=workbooks.add.sheets(1) 'létrehozza az új munkafüzetet és aktívvá teszi
range(adatok.cells(ugyfsor,"J"),adatok.cells(ugyfsor,"Z").copy range("J18")
range(adatok.cells(ugyfsor,"AA"),adatok.cells(ugyfsor,"AB").copy range("J19")
range(adatok.cells(ugyfsor,"AC"),adatok.cells(ugyfsor,"AD").copy range("J20")
' és így tovább..... ha az első oszlopnál akarod kezdeni, akkor range("A18") a "J18" helyett stb.
' ha végig értél az ügyfélen
ujws.parent save as filename:=fájlnév ' (amit természetesen neked kell megadni)
ujws.parent close false
next 'és megy vissza az elejére a ciklusRemélem, tudsz belőle valamit használni.
Üdv.
-
Fferi50
őstag
Szia!
Tedd a kódot a Userform Activate eseménybe (is).
Egyébként lehetne rövidebben:
Private Sub togbutTranslate_Click()
Range("b_forditocellak").EntireColumn.Hidden = Not Range("b_forditocellak").EntireColumn.Hidden
End Sub
Private Sub UserForm_Activate()
Me.togbutTranslate.Value =Not Range("b_forditocellak").EntireColumn.Hidden
Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
End SubÜdv.
-
Fferi50
őstag
Szia!
Az Initialize csak egyszer fut le, akkor amikor betöltődik a form.
Az Activate mindig, amikor megjeleníted.Elképzelhető, hogy mást kell csinálnia az első megjelenéskor, mint a következőknél, ahhoz, hogy jól működjön.
Szerintem most az inicializálást el lehet hagyni. (De próba és már meg is tudod....)Üdv.
-
bteebi
veterán
Sziasztok!
Van egy táblázatom, aminek a sorai alapján (1-50-ig) diagramokat generálok. Úgy van megcsinálva, hogy ha egy adott cellában (jelen esetben az A1-ben) lévő számot megváltoztatom, akkor a diagram annak megfelelően dinamikusan változik. Át szeretném másolni az összes diagramot egy másik munkalapra, egymás alá: egy adott sorban az lenne kiírva, hogy hanyadik ábra, alatta pedig a diagram lenne. Word dokumentumba még jobb lenne, de sajnos egyelőre még csak ott tartok, hogy egy másik lapra másolja át. Pontosabban még ott se, mert valamiért nem működik. (Ráadásul nem is "elegáns".)
Sub graphcopy()
Dim i As Integer
For i = 1 To 50
Sheets("Adatok").Range("A1") = i
Sheets("Adatok").ChartObjects("Diagram 1").Activate
ActiveChart.ChartArea.Copy
Sheets("Diagramok").Cells(2 + (i - 1) * 28, 2) = i & ". ábra"
Sheets("Diagramok").Cells(2 + (i - 1) * 28, 2).Font.Bold = True
Sheets("Diagramok").Cells(3 + (i - 1) * 28, 2).Select
ActiveSheet.Paste
Next
End SubAzt írja, hogy "Range osztály Select metódusa hibás". Mi a baj? Nem túl elegáns egyébként a makró; próbáltam úgy is megcsinálni, hogy Sheets("Adatok").ChartObjects("Diagram 1").Copy, de úgyse ment, a makrórögzítős gagyi megoldással (ActiveChart.ChartArea.Copy
és ActiveSheet.Paste) működött, de ha egymás alá akarom tenni a diagramokat, akkor nem megy.Cancel all my meetings. Someone is wrong on the Internet.
-
aakosch
tag
Sziasztok!
Ennek hogyan lehetne kiszámítani a görbe alatti területét. Egész pontosan a csúcs alattit.
Time Intensity
10 0,0015
11 0,0161
12 0,1346
13 0,8775
14 4,4562
15 17,6247
16 54,2879
17 130,2299
18 243,3016
19 354,0017
20 401,1365
21 354,0017
22 243,3016
23 130,2299
24 54,2879
25 17,6247
26 4,4562
27 0,8775
28 0,1346
29 0,0161
30 0,0015Köszi szépen!
[ Szerkesztve ]
-
Fferi50
őstag
válasz bteebi #23976 üzenetére
Szia!
A select csak az aktív munkalapon használható. Itt pedig az aktív munkalap Sheets("Adatok").ChartObjects("Diagram 1").Activate alapján az "Adatok" munkalap.
Te pedig a Sheets("Diagramok").Cells(3 + (i - 1) * 28, 2).Select szerint a "Diagramok" munkalapon adod ki a selectet.Üdv.
[ Szerkesztve ]
-
bteebi
veterán
válasz Fferi50 #23979 üzenetére
Köszi a segítséget! Így már (első közelítésben) működik, még ha nem is a legszebb/leggyorsabb.
"A select csak az aktív munkalapon használható."
Ezt nem tudtam/nem gondoltam rá, pedig logikus...Az activate/select-et amúgy nem lehet megkerülni? Próbáltam úgy, hogy
Sheets("Adatok").ChartObjects("Diagram 1").ChartArea.Copy
Sheets("Diagramok").Cells(3 + (i - 1) * 29, 2).Paste,de sajnos nem működik. Lehet valahogy "rendesen" diagramot másolni?
Cancel all my meetings. Someone is wrong on the Internet.
-
slashing
senior tag
válasz bteebi #23981 üzenetére
próbáld úgy hogy a diagramot másolod és képként illeszted be, ez talán a legegyszerűbb módja a diagram másolásnak és nálad ahogy kiveszem a szavaidból úgy tűnik hogy a legenerált diagrammoknak már nem kell érték alapján változni így egy képpel könyebb dolgozni mint hogy megőrizzék a cellahivatkozásokat....
Szerk. ha meg legenerálta az összes diagrammot egy másik munkalapra azt el lehet menteni külön fájlként, word-ben meg be lehet szúrni objektumként.
[ Szerkesztve ]
-
Fferi50
őstag
válasz bteebi #23981 üzenetére
Szia!
A Paste szintén olyan metodus, amelyik csak az aktív lapon működik.
Sajnos a vágólapra helyezett dolgokat (a Copy odateszi), csak ezen a módon tudod VBA-ból elérni.
A Diagram elég különleges "állatfajta" ebből a szempontból is, hiszen forrásadat nélkül csak "módosíthatatlan" képként tudod egyik helyről a másikra áttenni.Én is javaslom a Chart.CopyPicture alkalmazását.
Üdv.
-
tgumis
tag
válasz m.zmrzlina #23926 üzenetére
Ha csak ötlet is de köszönöm. Ès mindenkinek minden segítsègèt köszönöm. Sokat tanultam màr itt tőletek.
Külön köszi Delila -
Delila_1
Topikgazda
válasz bteebi #23981 üzenetére
A laphoz rendelt eseménykezelő makróddal meghívhatsz egy modulba helyezett makrót – átadva a változók értékét –, ami már tud másik lapon is dolgozni.
Ezt általánosságban értem, Egy teljesen primitív példában az első a laphoz rendelt-, a második a modulban lévő makró. A Másik lap E1 cellájában lévő értéket felszorozza az első lapra bevitt számmal. Itt most nem térek ki a hibakezelésre, ami ellenőrizné, hogy a bevitt érték valóban szám-e, vagy nem.
Private Sub Worksheet_Change(ByVal Target As Range)
Szoroz Target 'nem szükséges Target.Value módon megadni, a Value az alapértelmezés
End Sub
Sub Szoroz(szorzo)
Sheets("Másik lap").Range("E1") = Sheets("Másik lap").Range("E1") * szorzo
End SubEbből az is látszik, hogy az átadott-, és átvett változó(k) nevének nem kell feltétlenül megegyezniük.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bteebi
veterán
válasz slashing #23982 üzenetére
slashing, Fferi, Delila, köszönöm!
slashing: Tényleg elég képként, sőt máshogy nem is nagyon lehet. Közben amúgy még tegnap este magamtól is módosítottam a makrón emiatt, mert ha csak lemásoltam a diagramot (tehát "élő" hivatkozás volt a forrásadatra), akkor hiába generálta le mind az 50 ábrát, csak egyfélét jelzett ki (a legutolsót), mivel fix adatokra hivatkozott . A változás egyébként minimális, ActiveSheet.Paste
helyett
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)". Amúgy képpel tényleg könnyebb dolgozni. Jártam már úgy, hogy a szerkeszthetőség miatt először csak simán bemásoltam az ábrákat Wordbe, de kicsit szétcsúsztak, úgyhogy végül képként lett beillesztve az összes.A Worddel még majd futok egy kört.
Fferi50: Köszönöm, ki fogom próbálni. Az utóbbi két válaszodból egyértelműen kitűnik, hogy nem ártana (valahonnan) megtanulnom az alapokat, hogy ne kérdezzek alapvető hülyeségeket is .
Delila: Köszönöm, hasznos infó ez is.
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
Xterms
tag
Delila, írtam üzit. (Túl specifikus a problémám, és nem akartam ide.)
A barátok olyanok, mint a hó…………ha rájuk pisilsz, eltűnnek.
-
PETEE78
senior tag
Sziasztok!
Amit szeretnék megfalósítani függvénnyel:
ha egy táblázatban D5-től G5-ig lévő cellákkal megegyező adatok-értékek már szerepeltek a táblázat ugyan ezen oszlopaiban előtte, akkor az új sor (5.sor) végére mondjuk a P oszlopba rakjon egy x betűt jelölésként.
?
bocs, ha túl egyszerűYou are being revived
-
PETEE78
senior tag
válasz Delila_1 #23990 üzenetére
akkor ír x-et, ha mindegyik cella abban a sorban ugyan olyan értékű...
Én azt szerteném, ha egymás mögött lévő cellák adatai már előtte szerepeltek így a táblázatban, akkor jelölje x-el.
pl d5= zsiráf e5=lámpa F5=14 és ezek így már szerepeltek előtte a táblázatban, akkor az új sorba, ahol ismétlődtek, annak a végére rakjon egy x-et.
Bocs, ha érthetlen vagyokYou are being revived
-
PETEE78
senior tag
válasz m.zmrzlina #23992 üzenetére
Igen csak,ha minden kívánt oszlopban van egyezés, akkor rakjon x-et az ismétlődő sor végére, de csak az ismétlődő sor végére kell a jelölés, ahol először megjelent az adathalmaz oda nem kell
You are being revived
-
PETEE78
senior tag
válasz m.zmrzlina #23992 üzenetére
tehát pl az 5.sorban található értékek már szerepeltek így egymás után előtte, akkor jelölje x-el az 5.sor végén valahol
You are being revived
-
-
slashing
senior tag
válasz Delila_1 #23995 üzenetére
darabtelivel ez nem lesz jó mert az egész oszlopban fog számolni egyezés után akár hogy szabályozzuk a kritériumát >1-et nem adhatunk meg mert lehet talál 5 egyformát csak nem abban a sorban amiben kéne neki.
A képen van ugye egyezés az utolsó sorminta alapján az első sor az. De ha onnan kiszeded az 1-et akkor is marad az X. mert a második sorban talált 1-est....
szerk: vagy lehet megint félreértem az egészet és nem kell egyeznie az egész sornak....
[ Szerkesztve ]
-
Fferi50
őstag
válasz slashing #23998 üzenetére
Szia!
Igazad van.
Csinálni kell egy segédoszlopot, amibe összefűzzük a négy oszlop celláit és abban keressük a vizsgálandó sor összefűzött értékét. Az összefűzésnél akár elválasztó jelet is alkalmazhatunk.
Tehát Delila példájánál maradva: H1 =D1&E1&F1&G1 ezt kell végighúzni a H oszlopban, majd az I4 cella képlete:
=HA(Darabteli($H$1:$H4;D4 & E4 & F4 & G4)>1;"x";"")Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs