Hoppááá mégegy kérdés:) Légyszives világosítsatok fölfelé, hogy mondjuk a folyamatosan bõvített, egyszavas cellákat az 50-edik sornál kezdje új oszlopban. Próbáltam a Beszúrás/törés hadmûveletet, de nem jött össze. Ez azért lenne nagyon hasznos mert akkor az egy oszlopban lévõ szavakat nem kellene folyton másolgatni egymás mellé. (oldalbeállítás?)
Tíz1000szer köszi!
Üdv Mindenki! Excel dilemma--> nyelvtanuláshoz szándékozom valamiféle szótárat összeütni... ez a kisebbik baj, ezt megoldom sima beirogatással. :) A kérdésem imígyen hangozék: Egy oszlopban egymás alá bepötyögött szavakat szeretném egy másik oszlopban úgy megjeleníteni, hogy összevissza, véletlenszerûen sorolja fel azokat. Erre a sajátmagam tesztelése kényszerít, mert ha mindig ABC sorrendben gyakorolom akkor úgy megszokásból irogatok. Kérem, valaki segítsen, ötleteljen!
Köszönöm: TókeszMukesz
Szívesen.
Nem szükséges ehhez makró, a RÉSZÖSSZEG függvény megadja a darabszámot. =RÉSZÖSSZEG(2;A2:A1000), ahol a 2-es függvényszám tudatja a függvénnyel, hogy darabszámot kell visszaadnia. Ezzel a függvénnyel több dolgot (összegét, maximumát, minimumát, átlagát, szórást, stb.) tudhatsz meg a megadott tartományról, az eredmény a függvényszámtól (1-11) függ. A súgóban megtalálod a felsorolást.
Sub LáthatóDarab() Dim usor As Integer usor = Range("A1").End(xlDown).Row Range("A2:A" & usor).Select Db = WorksheetFunction.CountA(Selection.SpecialCells(xlCellTypeVisible)) MsgBox Db End Sub
Szia Delila! Hogyan lehet lekérdezni markóval azt, hogy egy autószûrõvel leszûrt táblázatban hány sor maradt?(Ami látszik) Tehát hány sor felelt meg a szûrési feltételnek.
Megvan, így is jó lesz köszi :)
A Worksheet_SelectionChange eseményhez rendelt makró minden alkalommal lefut, mikor egy cellára rálépsz. Inkább rendeld egy gombhoz az adopaste makrót, ami csak a gomb megnyomására indul.
Sziasztok Forumotok segítségével írtam egy makrót, most szeretném, ha akkor kezdene futni amikor az egyébként üres sheet1 re bemásolok egy táblázatot, valamint miután lefutott utána bármit módosítok többet ne futassa a makrót Betettem egy ilyesmit, hogy:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.Run ("BacsiLista1.xlsm!adopaste") End Sub De ahogy csinálok valamit a fülön egészen a következõ hibaüzenetig futatja a makrót: Run time error 28 Out of stack space Tudtok ebben segíteni?
Köszönöm a segítséget Delila mûködik tökéletesen!!!
Csak sikerült kitörölnöm a képet a #1195-bõl. A feltöltéskor idétlenkedtem, kétszer töltöttem fel azonos névvel, és most sikerült azt kitörölnöm, amit ide belinkeltem. Pedig nem vagyok szõke. Szerencse, hogy egy semmitmondó kép volt.
meg tudtam csinálni, de több felhasználói lépés is kell. lehet lehetne rá írni makrót, de most nincs idõm rá, s lehet nem is menne. elküldök egy excelt Neked! abból rá fogsz jönni hogy kell
(ha az alap fülre bemásolod az adatokat, s az 1 lépésnél kitöltést használsz akkor menni fog :-) a 2. lépéstõl meg menni fog Neked a mozgatás s a sorba rendezés.
megnyitod a saját galériád, kiválasztott képre klikk, majd jobb klikkel elõhozod a menüjét. ott kép címének másolása. majd idejössz a kép beszúrása gombot megnyitod s ctrl+v -vel bemásolod a hivatkozást.
Halmozott oszlopdiagramot kell ábrázolnom, ahol az egyik oszlop három komponensû, a másik pedig csak egy. Hogyan lehet azt megvalósítani, hogy az értékbevitelnél - a második oszlopnál a növekményénél - nullát adhassak meg, ne egy fals (0 értékkel rendelkezõ cellahivatkozást...)
Nem sikerült feltölteni a képet. Az A1:J1 tartományban vannak a lapnevek, alattuk a képletek. Nálam a lapok A28 cellájában van a napi összegzés.
Valaki mesélje már el a kép csatolásának a menetét, nem tudok rájönni a nyitjára.
Igen, hibás a képlet. Ha pl. a cellák összegét akarod az összegzõ lapon megkapni, akkor helyesen =szum(Munka1:Munka3!A1) a képlet. Számolhatsz így átlagot, minimumot, stb.
A diagramhoz az új lap elsõ sorába (de lehet máshova is) vidd be a lapjaid nevét. [IMG][/IMG]
Az A2 képlete: =HA(HIBÁS(INDIREKT(A1&"!$A$28"));0;INDIREKT(A1&"!$A$28")) ezt másold jobbra.
Hali 1kérdésem lenne remélem tudtok segiteni:) (office 2007)
diagrammot hogy tudok csinálni több munkalapra? arra gondolok hogy a munkalapjaim napok minden nap végén van 1 összegem és ebbõl szeretnék a legvégén(havi szinten) egy diagrammot csinálni viszont az adattartomány kijelölésénél ha több munkalapot választok ki (pl igy néz ki ='Munka1:Munka3'!$A$1) akkor azt írja hogy a beírt képlet hibás -addig eljutottam hogy ha külön munkalapra összeszedem az adatokat ugy tudok diagrammot csinálni viszont nekem ugy kellene hogy ha beszurok még munkalapokat akkor ezeket is adja hozzá a diagrammhoz
Nem baj, lényeg, hogy false-ra átírva jó lett a makró.
Köszönöm szépen! Én ugyan nem a rejtet sorokra gondoltam hanem azokra amik látszanak de ha jól látom akkor csak a true-t kell kicserélni false-ra és jó lesz.
A makró átmásolja a szûrõvel elrejtett sorokat a Munka2 lapra. Mivel a másik lapon szintén rejtettek lesznek, a makró végén fel kell oldani ezt.
Sub RejtettSorok() sor_1 = 2 usor = ActiveSheet.UsedRange.Rows.Count For sor = 2 To usor If Rows(sor).Hidden = True Then Rows(sor).Copy Sheets("Munka2").Cells(sor_1, 1) sor_1 = sor_1 + 1 End If Next Sheets("Munka2").Rows("2:1000").Hidden = False End Sub
Sziasztok! Egy makróval kapcsolatos kérdésem lenne. Egy autószûrõvel leszûrt táblázatból hogyan lehet makróval átmásolni vagy kiolvastatni a megmaradt cellákat?
Joebácsi: módosítva - mûködik - köszönöm
1. Írd be egy cellába, hogy 10%, majd állj rá.
2. Feltételes formázás képlet alapján, képlethez írd be: =párose([relatív_cellahivatkozás]*100) pl: =párose(b2*100) A cella az legyen, amire ráálltál.
3. Állítsd be a zöld színt
4. Formátummásolóval másold át a feltételes formázást az alkalmazandó cellákra
Van egy táblázat %-os értékekkel, és a feladat: Feltételes formázással oldd meg, hogy a páros %-értékek zöld számokkal jelenjenek meg Ezt hogy lehet megvalósítani?
Átírtam egy kicsit a makrót. Könnyebb követni a beírások sorrendjét, ha idõpont helyett sorszám jelenik meg a beírás melletti oszlopban.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 4 And Target.Row < 21 Then Cells(Target.Row, 3) = Application.WorksheetFunction.Max(Range(Cells(2, Target.Column + 1), Cells(20, Target.Column + 1))) + 1 End If Select Case . . . End Select
End Sub
A sorszámot tartalmazó oszlop formátuma általános, vagy szám legyen.
Ha sok indítani való makród van, érdemesebb a sok If helyett a Case utasítás. Átláthatóbb, és gyorsabb.
Select Case Target.Address Case "$C$26" hétfõ Case "$D$26" Kedd .. .. .. Case "$V$26" Lómáj End Select
Mindezt persze szépen tagolva a tab billentyû alkalmazásával. A Case "$ez$az" 1, a hétfõ, kedd 2 tabulátorral beljebb, mint a Select Case, és az End Select.
If Target.Address="$C$26" Then hétfõ If Target.Address="$D$26" Then Kedd
Helló! :-) na még egy kérdés :-)
azt meg lehet oldani, ha egy cellába beírok valamit, majd enter nyomására elindítson egy makrót?
pl. szavazó munkalapon a a C26 cellába beírok valamit, s enter lenyomása után elindítaná a hétfõ nevû makrót és ha pl a D26 os cellába írok be valamit akkor meg a Kedd neví makrót idítsa el. és így tovább. (a konkrét cella még nem ismert, hogy hova jönnek ki a kitöltendõ cellák, de gondolom e példán keresztül át tudom írni :-) )
jaja mûködik :-) ennek örülök köszi! átnéztem de nem igen jöttem rá hogy mûködik :-( megtaláltam a sorokra való hivatkozást ám az oszlopokét nem :-( legalábbis megpróbáltam még azt hogy máshol is mûködjön, de nem jött össze :-( mit kell még hozzásfûznöm, hogy ez más oszlopban is mûködjön :-) pl a G oszlopban írom az 5 - 20-ig H ba is megjelenjen az idõpont :-) s mit hogy kell változtatnom? Köszi!
Ehhez egy egyszerû makró kell. A lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztõben jobb oldalon kapott üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 4 And Target.Row < 21 Then _ Cells(Target.Row, 3) = Now() End Sub
ismét megakadtam! :-D lehet elég egy függvény de lehet makro kellene nemtom! nekem nem jön össze! :-( probléma:
pl B5-B20 - ig lehet különbözõ sorrendekben bevinni idõpontokat. mellette a C5-C20 as oszlopban kellene egy sorszám (ami a bevitel idõpontjával növekszik), vagy a bevitel pontos idõpontja. a lényeg az az, hogy meg tudjam késöbb állapítani milyen sorrendben lett bevíve az adat.
köszönöm!
üdv Zsolt!
Sajnos a probléma nem ilyen egyszeru és majdnem 100%-ig biztos vagyok abban, hogy a hiba az Excelben keresendo. Utánanéztem a hibaüzenetnek, és úgy tunik, hogy ez egy bug. A probléma az, hogy ezt a bug-ot elvileg SP2-vel kiirtották Excel 2003-ból. Én eddig Excel 2003-at használtam SP3-al, de csak azért, hogy elkerüljem a hibaüzenetet upgreadeltem a szoftvert 2007-re, feltettem SP2-t is, de a bug továbbra is jelentkezik... Nem baj, azért köszönöm a segíto szándékot.
Próbáld meg az Excelben a bõvítményeknél bekapcsolni a két Analysis kezdetût. Az End Sub elé mindenképp be kell tenni egy Application.DislpayAlerts=True sort.
Egy kereskedelmi forgalomban kapható szoftvert szeretnék programozni matlab környezetben. A közös platform, amin keresztül a programozás megy: excel. Nem vagyok járatos VBA-ban, ezért a szükséges makrót simán felvettem ’makró rögzítése’ paranccsal. Ha excelbõl futtatom ezt a makrót, simán lefut, ha matlabból futtatom ugyanezt a makrót, akkor azt a hibaüzenetet kapom, hogy: 'A makrólapon nincs sem VISSZA(), sem MEGÁLL() függvény.' Próbáltam már kikapcsolni a hibaüzenetet, de nem értem el vele semmit. A teljes makró ennyi:
Application.DisplayAlerts = False Application.Run "MenuRunAnalysis" (ez futtatja a másik szoftver makróját) End sub
Rájöttem, hogy végülis az kellene, hogy a az aktuális dátum legyen = az aktuális dátumnak megfelelõ váltásnak. pl. 2001.01.04=200 ezután már csak össze kellene szorozni az eurot a dátummal és meg lenne az eredmény. de ezt vajon, hogy lehet megcsinálni?
Tehát arra kellen függvény, hogy elõször keresse meg a megegyezõ dátumot és az eurós összeget szorozza meg a váltás oszlopban szereplõ Ft-tal.
Meg vannak adva bizonyos pénzösszegek és hogy melyik nap kapta meg az egyes cég euróban. ezt kellene átváltani egy másik táblázatban szereplõ napi árfolyamnak megfelelõen. Tehát két oszlop a dátum azonos, az egyikben van egy olyan oszlop, hogy összeg (€-ban), a másikban, h váltás (Ft-ban). A dátumok 2001.jan.1-tõl 2001.febr.28-ig vannak. Milyen függvénnyel kellene szerintetek ezt megoldani? Nem tudom, h érthetõ volt-e a feladat.
Az =ÁTLAG(tartomány) jó eredményt ad.
Ellenõrizheted az =SZUM(tartomány)/DARAB2(tartomány) képlettel.
Átlagot szeretnék számítani, pozitív-negatív számmal. A talált képlet nem ad jó eredményt. Tud ebben valaki segíteni?
Eléggé érintõleges téma, de nem tudtok egy megbízható, free .dbf to .csv konvertert, ami tudja a következõket: - minden dbf-et tudjon átkonvertálni - be lehessen állítani a separator karakterét (,/;) - konvertálható sorok száma ne legyen korlátozva
Elvileg excel/access is meg tud nyitni dbf-et, gyakorlatilag sok fajtát nem. Átmeneti (konkrétan 30 napos :)) megoldásom van, de az nem az igazi.