- Imilenni: Egy kis depi, remélem elfér itt :) 2#
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Mister_X: Tényleg le kell nyelnie az embernek az önbecsülését?
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- Eztis_Aztis: Hogyan tovább....
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
#20598
Mutt
senior tag
*Frenszisz*
#20595
Mutt
senior tag
válasz
*Frenszisz*
#20595
üzenetére
Hello,
Szerintem a munkalap Change eseményét használd erre:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value < Range("B1").Value Or IsEmpty(Range("B1").Value) Then Range("B1").Value = Target.Value
End If
End Subüdv
-
#20597
Mutt
senior tag
the radish
#20594
Mutt
senior tag
válasz
the radish
#20594
üzenetére
Hello,
Két megoldás van:
1. A Style tulajdonságát állítsd át fmStyleDropDownList -re és/vagy
2. A MatchRequired tulajdonságot True-ra.üdv
-
Mutt
senior tag
Hello,
Egy olyan fuggvenyre lenne szuksegem, amivel az excel kepes eldonteni, hogy az 1 flottahoz tartozo kocsik kozul melyiknek a legmagasabb a rendszama.
Ha legalább Excel 2007-et használsz akkor az ÖSSZESÍT függvénnyel megoldható a legnagyobb rendszám keresése (A oszlop flotta, B rendszám, C-E oszlopok dátumok; 5000 sorig múködnek a képletek):
=ÖSSZESÍT(14;6;$B$2:$B$5000/($A$2:$A$5000=A2);1)Bármelyik Excel verzióban pedig az alábbi tömbképlet működik:
{=MAX(HA($A$2:$A$5000=A2;$B$2:$B$5000;))}A fenti képletek vmelyikét választva a calculated cellád képlete:
=HA(csodakeplet=B2;E2-D2;E2-C2)Ha a rendszámod alphanumerikus, akkor ezt tudom javasolni:
=HA(SZORZATÖSSZEG(($A$2:$A$5000=A2)*($B$2:$B$5000>B2))=0;E2-D2;E2-C2)üdv
-
#20595
*Frenszisz*
újonc
*Frenszisz*
újonc
Sziasztok!
Elakadtam.... Van egy program amely adatokat, jelen esetben random számokat küld 1másodpercenként excelbe pl az A1 cellába. Az lenne a feladat hogy a B1 cellába írja ki az eddig megjelent számok közül a legkisebbet. Ha pl. 5 másodperc alatt az A1ben megjelentek ezek a számok: 400, 22, 9, 40, 51... akkor a B1-ben 9 jelenjen meg. Próbálkoztam különböző függvényekkel, körkörös hivatkozásokkal de belegabalyodtam...
-
#20594
the radish
senior tag
the radish
senior tag
Egy CompoBox esetén kivitelezhető az, hogy csak a legördülő listában felajánlott lehetőségek között szereplő adatokat lehessen megadni?
-
Kobe
veterán
hello
egy kis segitseg kellene, valami intelligens lookup figgvenyre lenne szuksegem, amit makroba is eleg konnyu implementalni.
Adott egy lista, sok szaz sorral, par alapveto oszloppal.
Flotta Rendszam Datum 1 Datum 2 Datum 3 Calculated
123456 12345601 1/1/2014 1/28/2014 1/29/2014
123456 12345604 1/1/2014 1/18/2014 1/31/2014
123456 12345603 1/5/2014 1/7/2014 1/19/2014
123457 12345701 1/1/2014 1/28/2014 1/29/2014
123458 12345802 1/1/2014 1/18/2014 1/31/2014
123459 12345901 1/5/2014 1/7/2014 1/19/2014
123459 12345902 1/1/2014 1/28/2014 1/29/2014
123459 12345904 1/1/2014 1/18/2014 1/31/2014Egy olyan fuggvenyre lenne szuksegem, amivel az excel kepes eldonteni, hogy az 1 flottahoz tartozo kocsik kozul melyiknek a legmagasabb a rendszama. Erre azert lenne szuksegem, mert a legmagasabb rendszammal rendelkezo kocsiknal pl a calculated mezobe a Datum 3 - Datum 2 kulonbsege kell keruljon, az annal kisebb rendszamunal meg Datum 3 - Datum 1 lenne a keplet.
Vagyis pl azon sorok kozott, ahol a Flotta = 123456, nezze meg, melyik az a sor ahol a rendszam oszlopban a elgmagasabb ertek van
Ezt az osszehasonlitast csak es kizarolag az egy flottahoz tartozo sorok kozotti adatokra kellene elvegezni, kicsit bonyolitja, hogy vannak olyan flottak is amiben csak 1 kocsi van, ergo a rendszam oszlopban elvo 1etlen ertek egyben a legnagyobb is.
azt gondolom, hogy a calculated mezobe hogy milyen kivonast vegezzen, egy sima IF fuggvennyel beirhato, kerdes csak a feltetelt hogyan lehet igy megadni, hogy az az osszehasonlitas legyen.
-
#20592
Delila_1
veterán
the radish
#20591
Delila_1
veterán
válasz
the radish
#20591
üzenetére
Szivi.
-
#20590
Delila_1
veterán
the radish
#20589
Delila_1
veterán
válasz
the radish
#20589
üzenetére
A labelre írási részt tedd át a gomb Click eseményéből a textbox AfterUpdate eseményébe. A füzetbe írást viszont hagy a gombnál, mert a dátumon még módosíthatsz a gomb megnyomása előtt.
-
alfa20
senior tag
válasz
Delila_1
#20584
üzenetére
ez azért nem jó, mert akkor minden nap újra kellene írni a makrót, mert a 0219 hónapot és napot jelölni
Akkor lehet másképpen kell megoldani...
#20583:
bakter, már tudom mi volt a hiba.
A makró neve ugye MB_R(), én meg szépen ott is hagytam a két záró jelet.
ezer köszönet -
Delila_1
veterán
válasz
Geryson
#20585
üzenetére
Nézd meg az A oszlopban az adataidat. Valószínű, hogy az A24 és A25 cellák tartalma nem azonos, csak annak látszik. Valamelyik a kettő közül tartalmaz egy szóközt, vagy egyéb, nem látható karaktert. A HOSSZ függvénnyel le tudod kérdezni az egyes cellák tartalmának a hosszát. Vagy: a cellán állva F2-re (szerkesztő üzemmód) a kurzor a cella végén jelenik meg, és azonnal látható, hogy van-e előtte szóköz.
Az A oszlopban feltehetően máshol is előfordul az A2 érték, abból adódik a C2 értéke.
Feltételes formázás:
Feltételes formázás | Új szabály | A formázandó cellák kijelölése képlettel | Értékek formázása, ha ez a képlet igaz. -
Geryson
addikt
válasz
Delila_1
#20360
üzenetére
Szia Delila!
Sajnos nem volt eddig időm kipróbálni azt, amit írtál, azaz:
A C2 képlete legyen =ÁTLAGHA(A:A;A2;B:B), ezt másold végig.
Adhatsz feltételes formázást az A2:C4000 tartományra.
A képlet legyen =DARABTELI($A:$A;$A2)>1, és adj neki valami feltűnő formátumot.A feltételes formázásra egyszerűen nem jövök rá, hogy hogyan állítom be (a képletet nem tudom hova írom), de ez talán a kisebbik gond. A nagyobbik az az, hogy az első képlet így nekem nem megy. Mellékelek egy képet, amit látszik, hogy az első helyen (C2) kapásból valamit számol és nem jövök rá, hogy mit (nem értem, hogy miért más a C2 mint a B2 értéke). Aztán a C24/C25-ben meg nem számol semmit. Ugye az én kérésem az az lenne, hogy ha az A oszlopban ugyanaz az azonosító van, akkor a C oszlopba a B oszlopból számított átlagot írja (tehát pl. a C24/C25-ben annak kellene állni, hogy 984758, mert ez a kettő érték átlaga.
-
alfa20
senior tag
volna egy ilyen képletem:
Range("D2").FormulaR1C1 = _
"=SUMPRODUCT(--('[" & k49_nev & "]" & k49_fulnev & "'!R1C1:R999C1=RC[-3]),--('[" & k49_nev & "]" & k49_fulnev & "'!R1C3:R999C3=RC[-2]),'[" & k49_nev & "]" & k49_fulnev & "'!R1C6:R999C6)"viszont ezt megelőzően rendezés és formázás miatt a fülnév megváltozott, így most az eredeti (0219.49) fülből szeretne keresni de az nem jó, mert az adatok időközben átkerültek a (0219.49_RND) fülbe.
Lehet változtatni ezen a részen, hogy a fülnévhez az "_RND" hozzárakodjon és úgy keressen?
" & k49_fulnev & "' -
#20580
Delila_1
veterán
the radish
#20579
Delila_1
veterán
válasz
the radish
#20579
üzenetére
-
#20578
Delila_1
veterán
the radish
#20577
Delila_1
veterán
válasz
the radish
#20577
üzenetére
Nincs szükség a B1:C2, és D1:D7 tartományokra.
A Mutt által írt makróba egyetlen sort kell beírnod a tInput.SetFocus sor alá:Label1 = Format(Weekday(Range("A1"), 2), "dddd")
A Label1 Caption tulajdonságából töröld ki a Label1 szöveget, mert az zavaró.
Látod, itt nem textbox, hanem label szerepel, mert ezt nem a felhasználónak kell megadnia, hanem a bevitt dátum alapján a makró írja be.
A füzetben is elég lenne a B1 képlete, ahol a formátumot az egyéni kategóriában nnnn-nek állítod be. Erre csak akkor van szükség, ha a lapodon is rögzíteni akarod, hogy a bevitt dátum milyen napra esik. Még jobb, ha egyáltalán nincs függvény a lapon, hanem a weekday-es sor után a makróba beírt
range("b1")=label1 sorral fixen megadod a cellába a napot. -
#20577
the radish
senior tag
Mutt
#20575
the radish
senior tag
Közben még egy akadályba ütköztem és valószínűleg nem ez lesz az utolsó:
Adott egy texbox, amely le van zárva:
Értéke pl. a C1 cellára mutat, mely az adott dátumhoz tartozó napot tartalmazza a HÉT.NAPJA függvény segítségével.
Jön a dátum megváltoztatása:
A végeredmény:
A problémám az, hogy a dátum egyszeri megváltozását követően a C1 cellában lévő képlet kitörlődik és onnantól kezdve kezdve változatlan, fals értéket mutat.
Létezik olyan kapcsoló a textboxban, amellyel a cella tartalma nem íródik felül?
Vagy van erre valami megoldás? -
#20575
Mutt
senior tag
the radish
#20572
Mutt
senior tag
válasz
the radish
#20572
üzenetére
Vmi ilyenre gondoltál?
-
#20574
Mutt
senior tag
Mr. Erikszon
#20569
Mutt
senior tag
válasz
Mr. Erikszon
#20569
üzenetére
Hello,
20 percnél hosszabb hívások száma:
=DARABTELI(C5:C19;">20")Leghosszabb hívás ideje:
=MAX(C5:C19)Leghosszabb hívás időpontja, itt több egyszerű megoldás van:
=FKERES(MAX(C5:C19);C5:F19;2;0)
=INDEX(D5:D19;HOL.VAN(MAX(C5:C19);C5:C19;0))Költsége:
=FKERES(MAX(C5:C19);C5:F19;4;0)
=INDEX(F5:F19;HOL.VAN(MAX(C5:C19);C5:C19;0))Leggyakrabban használt fülke.
=MÓDUSZ(B5:B19)Vagy tömbképletettel:
=INDEX(B5:B19;HOL.VAN(MAX(DARABTELI(B5:B19;B5:B19));DARABTELI(B5:B19;B5:B19);0))Átlagos beszélgetési idő:
=KEREKÍTÉS(ÁTLAG(C5:C19);1)Medián:
=MEDIÁN(C5:C19)üdv
-
#20573
Mutt
senior tag
Mr. Erikszon
#20567
Mutt
senior tag
válasz
Mr. Erikszon
#20567
üzenetére
Hello,
Valaki nem tudna segíteni először is abba hogy mire jó a SUM meg az ilyen fontosabb ,parancsok'
Elég tág a kérdés, nem könnyű megválaszolni, de sok könyv és oktató video elérhető az Excel kezdő és haladó használatához. Több mint 400 beépített függvény található az Excelben, ezek különböző csoportba vannak rendezve a könnyebb használat miatt.
Ha az angol nyelv megy, akkor Mike Girvin Youtube csatornáját javaslom, ott is az Excel Basics és Highline Excel videokat. A csatorna címe: http://www.youtube.com/user/ExcelIsFun/videosKezdésnek ezt vagy ezt tudom javasolni.
Magyar nyelven Kovalcsik Géza csatornája vagy ez a fórum tud segíteni.
Sok sikert!
-
#20572
the radish
senior tag
Mutt
#20571
the radish
senior tag
Szia!
Nagyon szépen köszönöm.
Igen, az userformok betöltése és szerkesztése eddig - ahogy azt írtam is - számomra ismeretlen terület volt, azonban nagyon megtetszett, számtalan lehetőséget látok benne. Az elindulás és a többfajta beviteli mező alakítgatása mostanra már megy, azonban az alábbiban mégis további segítséget kérek:
A calendarform nagyon tetszik, ötletes, de - mivel általában régebbi dátumok megadása szükséges - egy kissé bonyolultabbá teszi a dolgot, mint pl. a 12-12-31 beütése.
Az érdekes az, hogy ezt sehogy nem tudom összehozni, mármint hogy yyyy.mm.dd formátumban kelljen megadni. Leellenőriztem a vezérlőt, de nem találtam elírást.Ha szépen megkérlek készítenél egy userformot egy textbox-al, ami pl. 5-12 beadása esetén mondjuk az A1 cellába teszi a 2014.05.12 dátumot és a textboxban is a bevitelt követően ez jelenik meg? Nagyon megkönnyítenéd a munkámat.
Előre is köszönöm.
-
#20571
Mutt
senior tag
the radish
#20568
Mutt
senior tag
válasz
the radish
#20568
üzenetére
Hello,
Létrehoztam egy "userformot", bemásoltam az általad leírtakat, de nem tudom működésre bírni.
A macro-ba kell valami hivatkozás, hogy menjen?A userformot be kell tölteni, majd meg kell jeleníteni. Ezt mind egy modulban, a userformon kívül kell megtenned.
A betöltés elhagyható, csak akkor érdemes külön foglalkozni vele, ha a form elindítása időigényes és nem akarod hogy a felhasználó erre várjon.Tipikusan egy form elindítása így megy:
Sub SajatForm()
UserForm.Show
End SunEkkor a UserForm Initialize eseményében megadott eljárások futnak le és megjelenik a form.
A form bezárása annyiban tér el, hogy a UserForm egyik eleméhez (többnyire egy Bezárás gombhoz) írod, nem pedig egy külön modulba. A bezárás Unload paranccsal megy, el is lehet rejteni a Hide-al, ekkor memórában marad, de nem látható.
Ide felraktam egy egyszerű mintát.
...TextBox1.Text = Format$(Date, "yyyy.mm.dd")
miért csak a mai dátummal tölti ki a cellát amit ráadásul át sem tudok írni.A Date VBA függvény, amit használsz mindig az aktuális dátumot adja meg.
A szövegdonboz vezérlőnek valószínű a locked tulajdonsága True-ra van állítva. Esetleg az Enabled pedig Falsera, ekkor szürke a tartalma.Az egyik nagy hiányosság, hogy alapból nincs olyan vezérlő az Excelben, amely a dátumválasztást segíti. Korábbi változatokban volt egy DatePicker, de az megszűnt, helyette mindenki vmit összerakott és azt használja. Én ezt használom.
üdv
-
repvez
addikt
Már egyszer kérdeztem talán,de azóta sem találok rá megoldást. Hogyan tudok 2 külön excel fájlt 2 külön ablakban megnyitni ugy hogy egyszerre láthassan őket? Mert most ha megnyitok 2 fájlt mindig ugyan abban az ablakban nyilik meg a tálcán 2 ikonjuk van ott tudok váltani köztük,de egyszerre mindig csak az egyik tartalmát látom.
A másik problémám, hogy egyik napról a másikra átállt angol nyelvüre és nem tudom hogy állitsam vissza.
2007-es excelről lenne szó.
-
#20569
Mr. Erikszon
senior tag
Mr. Erikszon
senior tag
Valaki meg tudja mondani az utolsó 6 táblázat képletét?
-
#20568
the radish
senior tag
the radish
#20565
the radish
senior tag
válasz
the radish
#20565
üzenetére
Private Sub TextBox1_Change()
TextBox1.Text = Format$(Date, "yyyy.mm.dd")
End SubMost már csak egy kérdésre nem tudom a választ, mégpedig, hogy miért csak a mai dátummal tölti ki a cellát amit ráadásul át sem tudok írni.
-
#20567
Mr. Erikszon
senior tag
Mr. Erikszon
senior tag
Gondjaim vannak mivel sulit illetve szakot váltottam.
Eddig reál szakon voltam ami azt jelenti hogy volt egy olyan óránk ahol algoritmusokat oldottunk és egy óránk ahol exceleztünk,powerpoint,word...
Na és most olyan szakon vagyok ahol csak excelezünk heti 2 órában és nagyon le vagyok maradva.
Valaki nem tudna segíteni először is abba hogy mire jó a SUM meg az ilyen fontosabb ,parancsok' -
-
#20565
the radish
senior tag
the radish
#20561
the radish
senior tag
válasz
the radish
#20561
üzenetére
Még mindig a formátum:
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "yy-mmm-dd")
End SubA végeredmény azonban:
Mit és hol szúrok el?
-
nimmy001
csendes tag
válasz
nimmy001
#20562
üzenetére
Közben megtaláltam, de ez is egy bolond hibája az excelnek.
Ha a formátum szöveg adott celláknál, akkor a képletet nem értékeli ki, ha a képlet módosítása után módosítom a formátumot, akkor ugyanúgy nem értékeli ki, szóval a képlet módosítása előtt kell módosítani számolható formátumra az adott cellákat.
Nem tudom, más botlott-e már ilyenbe, de ez nem jó így, mert hivatkozni kódokra hivatkozok, de az néhol egy számsor, néhol meg szöveg, néhol betű és szám, nem egységes, és hogy jól kezelje a kinézetet, azért használom szöveg formátumra, de attól még a képletet képletként akarom használni, függetlenül attól, hogy a megjelenést milyen formátum szerint szeretném. Jajj, Microsoft, lennének ötleteim, hogy a design lecsupaszítása helyett mit fejlesszenek.Bocs, srácok. :-)
-
alfa20
senior tag
Sziasztok,
Abban tud nekem segíteni valaki, hogy makróban hogyan tudok makrót indítani.
Amiről szó lenne:
Van egy makró amit most írok, ez megnyit nekem 4-5 Excel táblát amiket majd szépen össze kell FKERES-nie. viszont az alaptáblák nem éppen használhatóak, így ezeket meg kell formázni használhatóra, erre van egy makróm is.persze ha minden megnyitott Excel táblához át másolom a formázást, úgy működik, csak nekem ez nem tetszik
,
olyat tudok, hogy a formázó makrót a 'Module2'-be beteszem és a nyitás után le is fut, majd nyitja a következőt táblát
pl.:Sub rendezes_mehet()
k50_allnev = Range("c3").Value
k49_allnev = Range("c4").Value
k35_allnev = Range("c5").Value
vab_allnev = Range("c6").Value
aktnev = ActiveWorkbook.Name
Workbooks.Open Filename:=k50_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=k49_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=k35_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=vab_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
End Sub(/C)[/M] -
nimmy001
csendes tag
Sziasztok,
Előfordult már valakivel, hogy az excel nem engedte képletet javítani?
Vagyis az van, hogy ki szeretném egészíteni az aktuális képleteimet, de amint jóváhagyom a javítást, utána nem képletértéket jelenít meg, hanem magát a képletet, mint ha betettem volna egy aposztrófot a képlet elé, de én biztos nem tettem be, az excel nem értékeli ki a képletet. Mi lehet a gond? -
#20561
the radish
senior tag
the radish
senior tag
Most ismerkedek az userform adta lehetőségekkel, de máris elakadtam.
A textboxba milyen paramétert (és hol) tudom beállítani, hogy a dátumformátum a következő legyen?
2014.02.19.Vagy nem fogadja el, vagy - amit találtam példafile-t - 19/02/2014
Előre is köszönöm.
-
bteebi
veterán
válasz
autox3c
#20558
üzenetére
Ez talán segít, persze a puding próbája az evés:
PDF-fájlok átalakítása Excel formátumba1. Nyissa meg a fájlt az Acrobat XI alkalmazásban.
2. Válassza az Eszközök > Tartalomszerkesztés > Fájlexportálás célpontja, majd a Microsoft Excel munkafüzet lehetőséget.
3. Adjon nevet az Excel-fájlnak, és mentse tetszés szerinti helyre. -
bteebi
veterán
válasz
bteebi
#20556
üzenetére
És működik!
Egy talált kódot átírva sikerült megoldanom, hogy úgy mentse el, ahogy szeretném:Sub SaveAs()
Dim utolsopont As Long
utolsopont = InStrRev(ActiveWorkbook.FullName, ".")
Dim UjNev As String
UjNev = Left$(ActiveWorkbook.FullName, utolsopont - 1) & "_mod" & Mid$(ActiveWorkbook.FullName, utolsopont)
Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Path & UjNev
End SubKipróbáltam, FullName helyett Name-mel is megy, de akkor kell bele a "\".
-
bteebi
veterán
válasz
bteebi
#20533
üzenetére
A SaveAs-t egy módon már meg tudom oldani:
Sub SaveAs()
Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Path & "\" & "teszt.xls"
End SubAzt viszont nem értem, hogy csak akkor működik, ha modulba teszem, különben Complie error van ("Member already exists in an object module from which this object module derives"). Miért baj, ha objektumba van beletéve, és nem modulba?
Fura amúgy, hogy kell a "\", de ha nincs ott, akkor ugyan jó mappába menti a file-t, viszont az utolsó mappanevet összefűzi a "teszt"-tel. Esetemben így a teszt.xls-ből Excelteszt.xls lett volna, mert egy ...\Excel\ nevű mappába ment volna a mentés.
A többi kérdést azonban egyelőre még nem tudtam megoldani - például azt se, hogy az eredeti file névhez annyit fűzzek hozzá mentéskor, hogy "_mod".
-
#20555
Ferenc1989
tag
Ferenc1989
tag
Üdv!
Lenne egy problémám.
Adott egy lista amiben nevek találhatóak. Ezek közül egyet kiválasztva mellette megjelenik a fényképe és a személyes adatai.
A legnagyobb gond a képek beszúrásával van..Ezt hogy lehetne megoldani macro nélkül? Van valakinek ötlete? Hol tároljam a képeket, hogyan illesszem be, hogy egyforma méretű legyen, stb.
Előre is köszi a választ
-
#20554
antikomcsi
veterán
Delila_1
#20552
antikomcsi
veterán
válasz
Delila_1
#20552
üzenetére
Szia!
Köszönöm, átküldtem levélben.
Sajnos valóban nagyok a karakterek, de szükség van rájuk. Valamelyest finomítottam ugyan a méretükön, de ilyen nagynak kell lenniük.
Szóval akkor azt nem lehet beállítani, hogy amikor felugrik a lista, abban is jó nagyok legyenek a választható elemek. Kár.
-
#20553
bteebi
veterán
antikomcsi
#20551
bteebi
veterán
válasz
antikomcsi
#20551
üzenetére
Sub mentes()
If Range("F5").Value >= Range("B2").Value -3 Then
ThisWorkbook.Save
Else
End If
End Sub -
#20552
Delila_1
veterán
antikomcsi
#20551
Delila_1
veterán
válasz
antikomcsi
#20551
üzenetére
Tedd elérhetővé a füzetet.
A 2. kérdésedre:
Indokolatlanul kicsire állítod az egyes lapjaid nagyítását, a cellákban lévő karakterek óriások, ezért az érvényesítés normál méretű karakterei ezekhez képest eltörpülnek.
A pár napja elküldött füzetedben kijavítottam ezeket a formázási anomáliákat. -
#20551
antikomcsi
veterán
Delila_1
#20549
antikomcsi
veterán
válasz
Delila_1
#20549
üzenetére
Szia!
Nem tudom mennyire emlékszel még a makróra amit csináltál nekem, de az lenne a kérdésem, hogy a #20536-ban lévő kép szerint, hogyan tudom azt elérni, hogy a makró csak akkor mentsen, ha az F5 dátum az nagyobb, egyenlő, mint a B2 mínusz 3 nap?
Illetve hogyan lehet a legördülő listában lévő karakterek méretét megnövelni?
Köszönöm!
-
bteebi
veterán
Szia!
Kíváncsiságból kipróbáltam ezt a saját függvényt, betettem az adott lapba a kódját, de nem ment, #NÉV? hibaüzenetet dob. Azóta már megoldottam, de ha esetleg más se tudná: saját/custom függvényt külön modulba kell tenni: meg kell nyitni a Visual Basic Editort (Alt+F11), Insert -> Module, oda betenni a kódot, és úgy már működik. Egy modulban több custom függvény is lehet, tehát csak a modul a lényeg. Részletes leírás az MS oldalán.
-
#20549
Delila_1
veterán
privatposta
#20548
Delila_1
veterán
válasz
privatposta
#20548
üzenetére
-
#20547
Delila_1
veterán
privatposta
#20546
Delila_1
veterán
válasz
privatposta
#20546
üzenetére
Az Adatok, Szövegből oszlopok menüpont erre való.
-
#20546
privatposta
tag
privatposta
tag
Sziasztok,
Szeretném ezt a sort cellákra tagolni:
20|0|0||6705.0|25.98|74829|1379023200000|keg|1||
A pipe jelenti a cella tagolását. Ez egy csv file egyetlen cella tartalma, de ha ez megvan, akkor már tudom folytatni.
Előre is köszi!!! -
#20544
Mutt
senior tag
antikomcsi
#20536
Mutt
senior tag
válasz
antikomcsi
#20536
üzenetére
Hello,
A SZUMHATÖBB függvényt tudod használni.
J3-ba ez a függvényed:
=SZUMHATÖBB(Adatok!BQ:BQ;Adatok!$A:$A;">="&kezdodatum;Adatok!$A:$A;"<="&végdatum)A kezdődátum képlete:
=DÁTUM($B$15;HOL.VAN($B$17;{"január";"február";"március";"április";"május";"június";"július";"augusztus";"szeptember";"október";"november";"december"};0);1)A végdátumé pedig:
=DÁTUM($B$15;HOL.VAN($B$17;{"január";"február";"március";"április";"május";"június";"július";"augusztus";"szeptember";"október";"november";"december"};0)+1;0)A jobb olvashatóság miatt nem egy hosszú képletként adtam meg, de te nyugodtan beviheted egyben.
üdv.
-
Mutt
senior tag
Hello,
...napi rendszerességgel kell excelben megnyitnom és bizonyos oszlopokat kiszednem...
Ha php, akkor talán az awk -ot is tudnám javasolni. Promptból is futtatható, pl. a fájl 2 és 5 oszlopát így tudod kimenteni:
awk < bemenet.txt '{ print $2, $5 }' > eredmeny.txtHa Excel-ben akarod akkor pedig érdemes lenne makrórögzítővel felvenni a lépéseket és azt használni minden alkalommal.
A 17823-as hozzászólásban van egy általános makró is, amely a fájlt Excelbe olvassa. Azt is megpróbálhatod átalakítani, segítünk ha kell.
üdv
-
storkie
újonc
válasz
bteebi
#20540
üzenetére
Szia(sztok),
Próbáltam úgy leírni akkor nem sikerült
Elég nehéz úgy megfogalmaznom, hogy tisztán lássátok de megpróbálok.(a hiba bennem van)
Adott egy "szum.xls" és adott "1";"2";"3";"4" nevezetű tábla
1-2-3-4-s nevű tábla tartalmilag ugyan úgy néz ki.
Hozok egy általános példát:
1es fájl:
van egy fül egy táblával Jan-Dec-ig, a sorok A-Z-ig és ezek keresztmetszete adja meg pl a D cég Júniusi bevételét
ebben a fájlban van egy fő fül ahol beírom hogy D és Junius és INDEX(HOL.VAN) függvénnyel előhívom és ide kiíratom az eredményt; mittomén (1.215.898Ft)Ugyanebből az adatokból áll a 2-3-4-s excel tábla is.
Amit akarok:
Lenne egy Szum.xls ahol a legördülőmenüből kiválasztom(a legördülő menü készítése az stimm) - jelen esetben az 1-2-3-4-et beírom ide is a hónapot és példáúl az F céget, és ezekből a táblákból (1-2-3-4) beolvassa a megfelelőt, amire nekem szükségem van, nem kell megnyitnom a táblát.
Itt négy táblával dobálóztam, de nekem olyan 30-ra lenne ez és így jelentősen megkönnyítené a munkám.
Remélem sikeredett a fogalmazásom
Köszönöm a gyors választ!!!!!
-
bteebi
veterán
válasz
storkie
#20539
üzenetére
Nem teljesen világos a probléma, kicsit átfogalmazhatnád (bár lehet, hogy csak én nem értem
). Tudsz legördülő listát készíteni? Adatok -> Érvényesítés -> Lista. A lista elemeit pontosvesszővel válaszd el, de cellahivatkozásokat is megadhatsz, és akkor dinamikusan fog változni. -
storkie
újonc
Sziasztok!
Kérlek segítsetek:
Adott egy összetett díj kalkulációs tábla ahol bizonyos adatok (kg, méretek, távolság) megadásával megkapok egy díjat.
Legyen példaképpen egy "Francia" táblázat, ahol megadom a súlyt, a FR ir számot, a HU ir számot, kilogrammot és megkapok egy díjat. Ebből a táblából van vagy 10( Német, Olasz, Lengyel...stb)Azt szeretném megoldani, hogy egy táblában(legyen ez import) legördülőmenüből megadom a ki induló Országot(jelen esetben a Francia) érkeztetés a magyar... megadom a súlyt, és a többi táblából behúzom az adatokat. Próbáltam hivatkozással, de nekem nem működött.
Egyáltalán milyen irányba lehetne elindulnom????
Nagyon köszönöm a gyors segítséget!!!!
Itt egy kép a tábláról:
http://itcafe.hu/dl/upc/2014-02/17/481943_wotrybd6wuxtcsxh_table_pic.jpg
-
bteebi
veterán
válasz
bteebi
#20533
üzenetére
3. Save as-nél probléma: a "_mod"-dal kiegészítve nem pont úgy írja át, ahogy szeretném: a filenév végéhez írja a "_mod"-ot, a kiterjesztés után. Ezt meg lehetne kerülni a kiterjesztést jelölő pont előtti/utáni részre való szűréssel. Ezt viszont egyrészt én nem tudnom megírni, ráadásul ha a filenévben is van pont, akkor a "legjobboldalibb" pont előtti/utáni részre kellene szűrni.
Mondjuk a jobb szélső pont felvetése olyan szempontból megoldható, hogy jobbról keresve (Right) az az első pont. Közben találtam egy kódot, ami közelebb vihet a megoldáshoz:
Function CheckExtension()
CheckExtension = Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - InStrRev(ActiveWorkbook.Name, "."))
End FunctionEbből kiindulva - remélhetőleg - a SaveAs problémát talán meg tudom majd oldani.
-
#20536
antikomcsi
veterán
antikomcsi
veterán
Sziasztok!
A következőkben kérem megint segítségeteket.
Adott egy két lapos füzet. Azt szeretném elérni, hogy az adatok lap BQ, BR, BS oszlopainak értékét szummázná a munka 1 lap J3, L3, N3 cellájába, de csak azokat, amelyeknél az év és a hónap megegyezik az adatok lap A oszlopában. Tehát a 2014 januáriakat adatok BQ-ból munka1 J3-ba, BR -ből L3-ba, és BS-ből N3-ba.
És mindig az a szumma érték látszódjon J3,L3,N3-ban, ami dátumilag a munka1 B15, B17 cellája szerint aktuális.
Tehát ha a B15, B17 értékeket változtatom, akkor annak megfelelően szummáza az értékeket az adatok lap megfelelő oszlopaiból a munk1 lap celláiba.
Remélem érthető.
-
#20534
the radish
senior tag
Delila_1
#20528
-
bteebi
veterán
Sziasztok!
Egy (nekem
) meglehetősen komplex problémám van. Innen-onnan összeszedtem egy kódot, aminek az lenne a feladata, hogy egy (vagy akár több) Excel file kiválasztása után a képleteket jelenítse meg a számolások helyett (működik), széthúzza a cellákat úgy, hogy minden látszódjon és megjelenítse a sor- és oszlopazonosítókat (ez is megy), és elmentse más néven a filet, mondjuk origi.xls helyett origi_mod.xls-ként. A file mentés része nem megy (nem úgy nevezi át, ahogy szeretném.). Ezután még az egész file-t elküldi a nyomtatóra. Ez is viszonylag jól működik, de nem tökéletes: ha xlDefault-nak adom meg a .Orientation-t, akkor hibaüzenettel (400-as hibakód) kilép, ha xlLandscape-nek, akkor lefut. Viszont nem feltétlenül Landscape kellene, mert lennének majd olyan file-ok, amiknél van Landscape/Portrait lap is. Mi lehet a gond?A kód:
Sub ellenorzes()
Dim ablak As FileDialog
Dim fajlnev As String
Set ablak = Application.FileDialog(msoFileDialogOpen)
Dim FileChosen As Integer
FileChosen = ablak.Show
ablak.Title = "Válaszd ki a file-t"
ablak.InitialFileName = "C:\"
ablak.InitialView = msoFileDialogViewList
ablak.Filters.Clear
ablak.Filters.Add "Excel 2003 worksheet", "*.xls"
ablak.Filters.Add "Excel 2010 worksheet", "*.xlsx"
ablak.Filters.Add "Excel makró", "*.xlsm"
ablak.FilterIndex = 1
If FileChosen = -1 Then
fajlnev = ablak.SelectedItems(1)
Workbooks.Open (fajlnev)
Else: Exit Sub
End If
Dim lap%
For lap% = 1 To Worksheets.Count
Sheets(lap%).Activate
ActiveWindow.DisplayFormulas = True
ActiveSheet.Columns("A:Z").EntireColumn.AutoFit
With ActiveSheet.PageSetup
.PrintHeadings = True
.PaperSize = xlPaperA4
.Orientation = xlLandscape
End With
Next
ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Name & "_mod"
If MsgBox("Kinyomtatja az összes munkalapot?", vbInformation + vbYesNo, "Munkalapok kinyomtatása") = vbYes Then
ActiveWorkbook.PrintOut
Else: Exit Sub
End If
End SubTovábbi problémák, észrevételek:
1. Első futáskor nem alkalmazza a szűrőket (.xls, .xlsx, kiindulási mappa). Másodjára már igen, még akkor is, ha csak elindítom a makrót, de nem választok ki file-t, tehát kilépek.
2. A file megnyitása párbeszédpanelnél hogy lehetne a Sajátgépet, vagy azt a mappát kiválasztani, amelyikben az adott file van (amiből a makró fut)?
3. Save as-nél probléma: a "_mod"-dal kiegészítve nem pont úgy írja át, ahogy szeretném: a filenév végéhez írja a "_mod"-ot, a kiterjesztés után. Ezt meg lehetne kerülni a kiterjesztést jelölő pont előtti/utáni részre való szűréssel. Ezt viszont egyrészt én nem tudnom megírni, ráadásul ha a filenévben is van pont, akkor a "legjobboldalibb" pont előtti/utáni részre kellene szűrni.
4. Nekem úgy lenne logikus, ha az "If FileChosen = 1" lenne, de úgy nem csinál semmit, csak a -1-re. A kód, ami alapján csináltam, így volt:
If FileChosen <> -1 Then
Else
fajlnev = ablak.SelectedItems(1)
Workbooks.Open (fajlnev)5. Ha meg van nyitva a módosítani kívánt file (pl. az előző makrófutás után nyitva maradt), és azt nem írom felül, akkor hibaüzenetet ad. (A kódot az ActiveWorkbook.SaveAs sor nélkül futtattam, mivel az nem működött.)
6. Hogy lehetne a "400" hibaüzenet okát kiíratni? Ilyet találtam, hogy
On Error GoTo Errorcatch
and at the end of the code put
exit sub
Errorcatch:
MsgBox Err.Description
De ezt sehogy se tudtam működésre bírni. Eleve ha Exit Sub-ot írtam a kód legvégére, akkor Compile Error van (End Sub-ot kér).
7. Hogy lehetne azt megoldani, hogy a file mentésénél is legyen egy párbeszédpanel, aminek a default mappája vagy egy általam megadott hely lenne (pl. C:\mod\), vagy pedig a) a makrót tartalmazó file útja, esetleg b) a módosítani kívánt file útja.
8. Hogy lehetne mindezt megcsinálni több file-lal egyszerre? Több file-t is ki lehet jelölni, de a makró csak egy file-on fut le.Bocsánat, kicsit hosszúra sikeredett
. Egyelőre itt tartok. Természetesen tovább próbálkozom majd a hibák kijavításával. Minden javaslatot, javítást nagyon köszönök! -
Louro
őstag
Sziasztok!
Adott egy nagy txt (tab-bal tagolt). Kb. napi rendszerességgel kell excelben megnyitnom és bizonyos oszlopokat kiszednem és úgy továbbítanom.
Munkahelyen nincs php, powershell, sql futtatási lehetőség.Esetleg excelben van olyan lehetőség, akár makróval, hogy betöltöm az excelt és kiköpné a módosított fájlt? (Alap php tudásommal megtudnám csinálni, de a portable xampp se akart futni
). Az is jó, ha rávezettek, hogy mit kellene megnéznem, ha lehet. Rászánnám az utánajárást, hogy idővel nyerjek időt.Segítségetek előre is köszönöm.
-
#20530
Delila_1
veterán
the radish
#20529
Delila_1
veterán
válasz
the radish
#20529
üzenetére
Szívesen.
-
#20528
Delila_1
veterán
the radish
#20526
Delila_1
veterán
válasz
the radish
#20526
üzenetére
CommandButton1.ForeColor = &HFF& 'piros
CommandButton1.ForeColor = &H8000& 'zöld -
#20525
Delila_1
veterán
the radish
#20524
Delila_1
veterán
válasz
the radish
#20524
üzenetére
Private Sub UserForm_Activate()
Application.Wait Now() + TimeValue("00:00:03")
gomb.Visible = True
gomb.Enabled = True
End Sub3 mp után látható, és engedélyezett lesz a gomb. Nincs szükség mindkét beállításra.
Azt is megteheted, hogy a gomb felirata pl. piros, míg le nem telt a késleltetés, majd megváltozik. -
#20524
the radish
senior tag
the radish
senior tag
Sziasztok!
Azt hogy tudom kivitelezni, hogy egy MsgBox felületén lévő gombok x ideig inaktívak legyenek?
Előre is köszönöm.
-
#20523
Delila_1
veterán
szőröscica
#20522
Delila_1
veterán
válasz
szőröscica
#20522
üzenetére
Nincs mit.
-
#20521
Delila_1
veterán
szőröscica
#20520
Delila_1
veterán
válasz
szőröscica
#20520
üzenetére
A kritériumot idézőjelek között add meg, ">35".
-
#20520
szőröscica
addikt
szőröscica
addikt
Sziasztok!
Szumha, vagy szumhatöbb függvény használatával kapcsolatban lenne egy problémám, de az is lehet, hogy szimplán nem jó függvénnyel állok neki a problémának.
Van egy adatbázisom, amiben az egyik oszlop a dolgozók nemét tartalmazza (0 nő, 1 férfi), egy másik a korukat, a harmadik pedig az órabérüket.
Ebből kellene meghatároznom a 35 évnél idősebb nők összes bérét egy órára.
A szumhatöbb viszont nem kezeli a >35 kritériumot, azt írja, hogy hibás a beírt képlet. Sima szumhával szépen kijön ha csak a nők fizetését akarom, de a második kritériumot, miszerint 35 évnél idősebb legyen, nem tudja kezelni.Persze sorbarendezéssel meg tudom csinálni a feladatot, de ennél elegánsabb megoldást szeretnék.
-
bulanjoe
tag
válasz
Delila_1
#20509
üzenetére
Még egy kérdés. ÉS akkor tényleg békénhagylak. Mi van, ha egy szünetet be kell ékeljek. Ha duplázom az ÉS-t akkor csak azt bizonyítja, hogy idióta vagyok.
=HA(ÉS(ÉS(F$1>=$B2;F$1<=$C2);ÉS(F$1>=$D2;F$1<=$E2));1;0)Példa: Béla 7től 15ig és 16tól 21ig
Megvan! VAGY!
Helyesen:
=HA(VAGY(ÉS(F$1>=$B2;F$1<=$C2);ÉS(F$1>=$D2;F$1<=$E2));1;0) -
#20513
the radish
senior tag
the radish
#20512
the radish
senior tag
válasz
the radish
#20512
üzenetére
DARABTELI függvénnyel sikerült megoldani
-
#20512
the radish
senior tag
the radish
senior tag
Fenti táblázatban szeretném, ha az azonos értékekhez tartozó adat csak először és mindössze egyszer szerepeljen.
Van erre megoldás?
Köszi előre is. -
Delila_1
veterán
válasz
bulanjoe
#20508
üzenetére
A képen láthatod a képleteket.
Az E2 képletét másold jobbra és le, a D10-ét jobbra.A lapon kikapcsoltam a "Zéró mint érték" funkciót, az E2:AA4 tartományra feltételes formázást adtam.
Ha a cella értéke 1, akkor piros kitöltés, és körben fehér keret.
Szerk.: mivel a zéró mutatását kikapcsoltam, a D1 cellában sem látszik. Tegyél a cella fölé egy szövegdobozt, aminek az értéke legyen 0.
-
bulanjoe
tag
Hali
A következőt kéne megoldani. Leltem rá megoldást, viszont nagyon sok gépeléssel jár, és biztos lehet valahogy automatizálni, de én ahoz kevés vagyok.
Munkabeosztásról van szó.
Legyen Béla, Kati és Tamás. Változó beosztásban dolgoznak. Pl. 9-3 és 5-10 között. 3 és 5 között szünet van.
Van aki hamarabb kezd, van aki később. A szünetek is váltakoznak.
Na nekem egy olyan csodára lenne szükségem, ami kiírja egy cellába, hogy egy adott érték között, hányan vannak egyszerre a munkahelyen. Így mikor a jövő heti beosztás készül, rögtön látni hogy a forgalmas időpontban elég ember van e benn, illetve a szünetek révén van e legalább egy ember.Eddig egy ilyenre jutottam:
a1=9=HA(KatiStart>A1;0;1)+HA(BelaStart>A1;0;1)+HA(TamasStart>A1;0;1)
Azt nem tudom elérni, hogy irtózatos mennyiségő gépelés nélük, tudjak átmenni minden óraközre, ahol a1=10, a1 =11....
szerintem baromira nem voltam érthető, de nem teljesen egyszerű a projekt
-
Mutt
senior tag
válasz
orkester
#20485
üzenetére
Hello,
Viszont ha után a cellából át szeretném másolni a szöveget pl. egy txt-be, akkor az egészet idézőjelek közé teszi.
Van megoldás, hogy ez ne így legyen?Mentésre gondolsz, ugye? Másoláskor nem kerül bele plusz jel.
Mentéskor pedig csak azon sorokat teszi idézőjelek közé, ahol már eleve volt a szövegben.Makró nélkül nem lehet megoldani, hogy ne tegye bele.
üdv
-
#20505
Mutt
senior tag
the radish
#20500
Mutt
senior tag
válasz
the radish
#20500
üzenetére
Hello,
1. A makró futását követően x ideig ne lehessen újra futtatni, akkor sem, ha újraindítjuk az excelt.
A registryben lehet rögzíteni adatokat a SaveSetting függvénnyel, kiolvasni GetSetting-el lehet, törolni pedig DeleteSetting-el.
Pihi = TimeSerial(0, 30, 0) '30 perc kell 2 futtatás között
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ProgiM bejegyzés alatt lesz megtalálható az érték
'kiolvassuk az UtolsóFutás értékét, ha nem létezik akko 0-nak vesszük
'ha eltelt 30 perc akkor futhat, különben hibaüzenetet adunk
If CDate(GetSetting("ProgiM", "Defaults", "UtolsoFutas", 0)) + Pihi < Now Then
'eredeti makró rész jön ide
'mentjük az utolsó futtatás idejét
SaveSetting "ProgiM", "Defaults", "UtolsoFutas", Now
Else
MsgBox ("A makró futtatása még " _
& Format(CDate(GetSetting("ProgiM", "Defaults", "UtolsoFutas")) + Pihi - Now, "N") _
& " percig nem engedélyezett!")
End If2 ...az első vesszőig lévő tartalomra
Makró nélkül is megoldható.=HA(HIBÁS(BAL(A1;SZÖVEG.KERES(",";A1)-1));A1;BAL(A1;SZÖVEG.KERES(",";A1)-1))
A 18684-es hozzászólásban egy függvényt is bemutattam, amely itt is használható.
üdv
-
Attas
aktív tag
Sziasztok!
Van egy lapom legyen a neve AW amelyen az adatok L oszlopban vannak 10- 52 ig. Egy másik lapon a neve ZÉ viszont vízszintesen kellene képletekkel hivatkoznom az előző lapon említett adatokra. Ez a képletem B1 cellában: =HA(A1<HÉT;AW!L10;"")
Na ezt a képletet akarom vízszintesen elhúzni hogy a B2 ezy legyen: =HA(A2<HÉT;AW!L11;"")
B3: = =HA(A3<HÉT;AW!L12;"")
De sajna a képletben ha húzom akkor az L11 helyett M10 kapok majd N10
Ha csak át kéne írnom emiatt 52 képletet nem lenne gond, de sok ilyen sornyi képlete lesz.
Lehet ezt valamilyen INDIRECT megoldással megcsinálni?Köszönet
-
Lonsi
tag
Sziasztok! Lenne egy hülye kérdésem. Van egy excel táblám amelynek egyik oszlopa szerint szeretnék szűrni, mégpedig olyan módon, hogy csak azokat a sorokat jelenítse meg, ahol ez az attribútum csak egyszer fordul elő. Vagyis az ismétlődéseket szeretném kiszűrni. Remélem érthető voltam. Biztos vagyok benne, hogy léteznie kell ilyen gombnak, de nem lelem sehol. Tudnátok segíteni? Köszi!
.
). Tudsz legördülő listát készíteni? Adatok -> Érvényesítés -> Lista. A lista elemeit pontosvesszővel válaszd el, de cellahivatkozásokat is megadhatsz, és akkor dinamikusan fog változni.
Új hozzászólás Aktív témák
Fferi50- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok a legjobb áron: Steam
- Antivírus szoftverek, VPN
- Honor Pad X8 64GB, Wi-Fi, 1 Év Garanciával
- Honor 200 Pro 12/512GB Szép állapot! Jótállás: 2027.08.12.-ig
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3022
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest