- 3D nyomtatás
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Amlogic S905, S912 processzoros készülékek
- Kompakt vízhűtés
- Azonnali informatikai kérdések órája
- OLED TV topic
- Plazma TV topic
- HTPC (házimozi PC) topik
- Hogy is néznek ki a gépeink?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
Hirdetés
-
Fejlesztői videón a The Casting of Frank Stone
gp A PC-re és konzolokra érkező alkotás a tervek szerint még idén elérhető lesz PC-re és konzolokra.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Az üzleti szférának szól a SmartThings Pro
ma A kütyüket összefogó megoldásból irodák, üzletek és hotelek is profitálhatnak.
-
PROHARDVER!
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
válasz Fehér Mancs #3850 üzenetére
Teljesen igazad van. [Itt a minta]
Az utolsó paraméter az fkeresnél 1, vagy IGAZ is lehet.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 RoyalFlush #3846 üzenetére
Nézz rá a #3850 és #3851-es hozzászólásokra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
CSorBA
őstag
Sziasztok!
Látom elég profin nyomjátok, így hátha kapok egy egyszerű kérdésre választ. Sajnos nem találtam meg, mivel nem is igazán tudtam, hogy milyen szavakkal kereshetnék rá itt a topicban..Szóval van egy adathalmazos táblám, és ugye van a legfelső sor, amibe beleírtam az oszlopok neveit.. Azt szeretném, hogy ez a sor ne gördülődjön, hanem mindig maradjon legfelül. 2007es verzióm van.
köszönöm a segítséget
-
Anor
csendes tag
excel 2007-ben meg lehet oldani programozás nélkül a következőt?
adott 5 cella benne a köv. adatokkal: 1 2 3 4 5 - ezekből a legnagyobb kiválasztása - ez eddig megy az eredmény 5 de ha 4 és 5 cellaszíne más akkor azokat hagyja figyelmen kívül és a maradékból válassza ki a legnagyobbat vagyis ebben az esetben a 3-at
Az értelem csodákra képes. A hiánya mindenre! - V.H.
-
Delila_1
Topikgazda
válasz RoyalFlush #3854 üzenetére
Ne vond össze a cellákat. Az FKEREShez a két oszlopnak (Alsó határ, Minősítés) egymás mellett kell lenniük, csak úgy működik. Ez egy segéd táblázat, a lap bármelyik részén lehet, itt nem a formázás a lényeg.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
őstag
-
gsc73
aktív tag
Sziasztok!
Egy kérdésem lenne! Az alábbi kódrészlettel tudok VB-ben hivatkozni az aktuális munkafüzet lap nevére:
Range("A1").Select
ActiveCell.FormulaR1C1 = ActiveSheet.NameVan erre valamilyen függvény is, amit beírva egy cellába megjelenik a kérdéses név?
Azt szeretném, hogy a munkahüzet lap neve belekerüljön egy cellába, de Makrót, és VB-t nem lehet használni.
Köszi: g.
kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.
-
gsc73
aktív tag
válasz Delila_1 #3863 üzenetére
Kedves Delila_1!
Köszönöm!!!
Gyorsan, és pontosan válaszoltál, segítettél mint mindig!
g.
kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.
-
Anor
csendes tag
3856#
Az értelem csodákra képes. A hiánya mindenre! - V.H.
-
Delila_1
Topikgazda
Úgy tűnik, programozás nélkül nem megy.
Amit Lúzer ajánlott – Cella("szín",A2), az sajnos nem arra vonatkozik. Sikerült megtalálni a súgóban, aztán gyorsan el is vesztettem. Olyasmit tartalmaz, hogy ha negatív szám esetén más színt adunk a karakternek, mint pozitívnál, akkor 1 lesz az értéke a képletnek, azonos színnél 0 (vagy fordítva(?)).
Miért nem akarsz makróval dolgozni?Mindenesetre megírtam két makrót. Az első a színezett cellán állva egy üzenetboxban kiírja a háttér színkódját, ezt a kódot add meg a második makró If-fel kezdődő sorában.
Sub szin()
MsgBox Selection.Interior.ColorIndex
End SubNálam a színkód 44 (sötétsárga) volt.
A második makró számolja a nem színezett cellák tartalmának átlagát, mégpedig A2-től (feltételezve, hogy az A1 oszlopcímet tartalmaz) addig, amíg az A oszlopban talál adatot. Az utolsó adat utáni cellába írja az eredményt.Sub Atlag()
For sor = 2 To Range("A65536").End(xlUp).Row
If Cells(sor, 1).Interior.ColorIndex <> 44 Then
osszeg = osszeg + Cells(sor, 1)
oszto = oszto + 1
End If
Next
Cells(sor, 1) = osszeg / oszto
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.
-
Anor
csendes tag
Köszönöm a segítséget!
Az értelem csodákra képes. A hiánya mindenre! - V.H.
-
Anor
csendes tag
Mellesleg azért nem akarok makróval dolgozni mert egyeltalán nem értek hozzá még arra is nehéz lesz rájönnöm hogy ezt hogy kell alkalmazni
Az értelem csodákra képes. A hiánya mindenre! - V.H.
-
Delila_1
Topikgazda
Most ugyan nem vagyok 2007-es közelében, de megpróbálom leírni.
Az utolsó menüpont Fejlesztés, vagy hasonló névre hallgat. Innen hívd meg a Visual Basic-et. Bal oldalon láthatod a megnyitott füzeteid nevét, állj rá arra, amelyikbe be akarod másolni a makrót.
Insert menü, Module hatására jobb oldalon kapsz egy üres lapot, oda másold be a makrókat.
Ha a cellának nem a hátterét, hanem a karaktereket akarod színezni, az Interior-t mindenhol írd át Font-ra.
Innen is indíthatod a makrókat. A magnókon szereplő ikonokhoz hasonlóak.
A füzetből való indítás szintén a Fejlesztés menüből történhet, a Makrók nevű gombbal. Erre a gombra kattintva megjelennek a füzethez rendelt makrók, az egyik kiválasztása után az Indítás gombbal működtetheted, vagy az indítandó makró nevén duplán kattintasz..
Jó munká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.
-
cousin333
addikt
Üdv mindenkinek!
Az volna a kérdésem, hogy hogyan lenne lehetséges - ha egyáltalán az - Office 2002 alatt kombinálni az XY és a felület ábrázolást egy diagramnál. Tehát:
- van egy "adatmátrixom", két változóval (X és Y)
- minden X-Y kombinációra van egy konkrét Z értékem
- az X és Y változók is paraméterek (konkrét értékek), nem csupán címkék
- szeretnék egy olyan felületet ábrázolni (mint a felület diagramnál), ahol az egyes XY pontok nem egy négyzetháló kereszteződéseiben helyezkednek el, hanem az X ill. Y értékekkel arányosan (mint az XY ábrázolásnál, csak nem két változóm van, hanem 3: a Z az X és az Y függvényében)Remélem, érthető voltam, várom szíves válaszaitokat
[ Szerkesztve ]
"We spared no expense"
-
Delila_1
Topikgazda
Pl. ha így adod meg A2-ben a formátumot: # ##0;[Piros]-# ##0, akkor a
Cella("szín";A2)
visszatérési értéke 1, mert a hivatkozott cella negatív értékét más színnel jeleníti meg, mint a pozitívat.[ 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 cousin333 #3874 üzenetére
Miért kérdés 3 oszlop adataiból terület diagramot rajzoltatni? Valamit félreértek?
[Itt egy kép]Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
cousin333
addikt
válasz Delila_1 #3876 üzenetére
Természetesen ez nem okozna problémát, nem is erre gondoltam. A képedet alapul véve képzeld el a következőket:
- nincs első sor
- A2 üres
- hogy az X értékek az A3 : A10 tartományban vannak
- az Y értékek az B2 : C2 tartományban vannak
- a Z értékek a B3 : C10 tartományban vannakEzt szeretném 3D-ben ábrázolni úgy, hogy az X, Y, Z értékek a hasonló nevű tengelyeken szerepeljenek. Ezt csinálja a "felület" grafikon. De azzal az a problémám, hogy az (1) X=4, Y=2, Z=1 pont az YX síkon pontosan fele olyan messze van a (2) X=7, Y=2, Z=4 ponttól, mint a (3) X=6.5, Y=2, Z=3.5 ponttól. Tehát az X tengely mentén haladva az origóból kiindulva, előbb következik az (1), aztán a (2), végül a (3). De ha megnézed az X értékeit, akkor előbb kellene lennie (1)-nek, aztán a (3)-nak (mert 6.5<7), majd a (2)-nek. A példaként írt értékekből az is látszik, hogy az XY síkon az (1)-nek ötször olyan messze kellene lennie a (3)-tól, mint a (2)-nek a (3)-tól....
Megkísérlek én is összeütni egy példa-képet, mert ez így nehezen emészhető...
[ Szerkesztve ]
"We spared no expense"
-
cousin333
addikt
válasz cousin333 #3879 üzenetére
No, akkor egy vizuális példa:
Az Y értékek az első sorban, az X értékek az első oszlopban vannak, a Z-k meg közöttük. Ebből csináltam egy szép felület diagramot. Amint az látható, az X értékeket címkeként kezelte a program, nem értékekként. Ennek eredményeképpen az X tengelyen teljes összevisszaság van (2, 4, 5, 6, 3). Ha úgy jelenítené meg, ahogyan én gondolom, akkor előbb jönne a 2-es, és hozzá a neki megfelelő Z pont, aztán a 3-as, és hozzá a neki megfelelő Z pont... stb.
Ez működik is, ha XY-ként ábrázolom, de az csak két adatsorral működik (X és Y)
Szóval a fentieket kellene kombinálni. Bár már gyanítom, hogy nem fog menni...
[ Szerkesztve ]
"We spared no expense"
-
mimi_bacsi
tag
Régebben volt már itt Delila válaszolt is, de nem tudom hogy keressem meg, kérlek Benneteket segítsetek!
Adva van egy adatsor (1 Név Készpénz 2008.01.09 16.667,00 3.333,00 20.000,00) és ezeket az adatokat szeretném külön cellába tenni, hogy a név, a fizetés módja és az értékek mindegyike külön kezelhető legyen) -
lúzer
veterán
válasz mimi_bacsi #3882 üzenetére
biztos van jobb:
kimentettem szövegfájlba (txt), bezártam
majd excelben megnyitottam mint szóközzel tabulált fájlMO. RIP. - az utolsó kapcsolja le a villanyt.
-
lúzer
veterán
válasz mimi_bacsi #3884 üzenetére
Ok.
egyébként, pl. A1-ben van a szöveg, akkor pl:
B1 cella =SZÖVEG.KERES(" ";A1)
C1 cella =BAL(A1;B1)
A2 cella =CSERE(A1;1;B1;"")és így tovább...
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
Alex123
senior tag
Sziasztok!
Adott egy excell-es adathalmaz:
- Az "A" oszlopban kb. 3000 e-mail címmel
- A "B" oszlopban kb. 150 e-mail címmelA következő a kérdésem:
Szeretném megvizsgálni, hogy a "B" oszlopban szereplő 150db cím szerepel-e az "A" oszlop 3000 címében és ha igen, akkor amelyik szerepel, azt törölni (kivonni) kellene az "A" oszlopból....
(tehát ha A és B oszlop mutat pl. 42db megeggyező címet, akkor azt a 42db-ot törölni kellene az "A" oszlopból)
Tudna Valaki segíteni?
-
Delila_1
Topikgazda
válasz Alex123 #3886 üzenetére
A lenti makró elvégzi a munkát.
Ha biztos vagy benne, hogy az A oszlopban minden cím csak egyszer szerepel, akkor így jó lesz a makró, ha nem biztos, akkor az Exit For sort töröld a futtatás előtt.Sub egyezo_torles()
ucsoA = Range("A65536").End(xlUp).Row
ucsoB = Range("B65536").End(xlUp).Row
Cells(1, 3).FormulaR1C1 = "=COUNTIF(C[-2],RC[-1])"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C" & ucsoB)
For sorB = 1 To ucsoB
If Cells(sorB, 2) > 0 Then
email = Cells(sorB, 2)
For sorA = 1 To ucsoA
Cells(sorA, 1).Select
If Cells(sorA, 1) = email Then
Selection.Delete Shift:=xlUp
Exit For
End If
Next
End If
Next
Columns("C:C").Select
Selection.ClearContents
Range("A1").Select
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.
-
Lehdog
csendes tag
Sziasztok!
Szükségem lenne egy egyszerű VB makróra, igaz nem excelben, hanem access-ben szeretném használni.
Van egy táblám melynek első oszlopa azonosítókat tartalmaz. A gond az, hogy ezek az azonosítók nem egyediek, tehát több ugyanolyan is van egymás után. A tábla 3. oszlopa viszont csak az első azonosítónál van kitöltve, a többinél üres.
A feladat az lenne, hogy a makró lemásolja az adott azonosítóhoz tartozó kódokat, és kitöltse az üres mezőket.
Pl: van 3 darab 1-es ID-jű sorom. De ebből a 3 sorból csak az elsőhöz tartozik kód.
Én azt szeretném, ha mindhárom 1-es ID-jű sorhoz tartozna ugyanaz a kód.
Ha valaki tud, legyen szives segítsen nekem -
Balinov
félisten
Sziaszto, Excel 2007 (angol) eseten futottam bele egy erdekes, am annal idegesitobb problemaban.
Dolgozok napi szinten egy cirka 2500 sorbol allo ill. AN oszlopig kiterjedo Oraclebol exportalt excel tablaval. formazas semmi kulonos, egy auto filter van az oszlopnevekhez, meg a fejadatok vannak szinnel kiemelve. A gondom az, hogy pl. egy vevore leszukitem a forrast (legyen a neve A), kijelolom oszlopcimmel egyutt es egy Crtl+N-t bokve uj fileba akarnam copy-paste-vel beilleszteni. Na ilyet rendkivul gyakran kell csinalni. Nem regota raktak fel a cegnel az Office 2003 helyett a 2007-et. Nagyon sokaig mukodott is, am egyszercsak azt kezdte el csinalni, hogy Crtl+V utan az uj munkafuzetben csak a kijeloles merete (x*y oszlop es sor) latszik, de a forras munkafuzet cellainak az erteke nem kerul at az ujba.
Igy csinalom: Szurovel kivalasztom XYZ vevot. Kijelolom az adatokat (pl. A1-tol X16ig) egerrel. Crtl+C masol. Uj munkafuzet megnyit, goto A1 cella. Crtl+V beilleszt.
Rohadjon meg, most hogy irom a postot ujbol megprobalom. Ha az oszlopcimes sort (C sor) kijelom, kopipeszt megy. Ha filter nelkul kijelolok kb. 50 sort oszlopfejlecestol, megy. Ha raszurok xzy vevore, kijelolom, kopipeszt uj munkafuzetbe, nem megy. Hat Ilyet nem ertem. Mi lehet a gond?
1db makro van csak, de az is csak a formazast csinalja meg nekem, hogy kb 1 kepernyo szelessegben a legfontosabb adatokat tartalmazo oszlopok latszodjanak.
Valakinek tippe, otlete?
Koszi
Balinov6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
takyka77
tag
Sziasztok!
Van egy táblázatunk amiben a dolgozók vezetik, hogy mit dolgoztak adott napon.
A sorok felelnek meg a hónap napjának.
Úgy kellett elkészíteni a táblát, hogy visszamenőleg csak az utolsó hét adatait lehessen módosítani, az előtte lévőket már nem.
A tábla megnyitásakor lefutott egy makró amely zárolta azokat a sorokat, amelyeket már nem lehet módosítani. Ez addig jó volt, amíg jelszó nélkül adtuk meg a lapvédelmet. Amint jelszót állítottunk be lapvédelemnél, megnyitáskor megállt a makró és kérte a lapvédelem feloldásához szükséges jelszót.
Van-e lehetőség arra, hogy makróból zároljak cellát, ha jelszó van beállítva lapvédelemnél?
Milyen más lehetőség van arra, hogy cellákat ne tudjanak felülírni?Zoli
-
attiati
veterán
Hogy lehetne az alábbi munkalapok közötti másolást megoldani legegyszerűbben?
Az 1. munkalapra kb. 30 gyümölcs árát, nevét, azonosítóját... másolom ki minden nap egy táblázatba. Egy sor = egy gyümölcs. A többi 30 munkalap pedig egy-egy gyümölcs, és azok árat tartalmazza 2002 óta. Egy sor = egy nap. Ezeket most kézzel kell beírni sheetenként.
A cél az lenne, hogy az 1. munkalapról pl. az alma mai adataiból az ár, és mennyiség rákerüljön az alma munkalapjára a többi napi adat alá egy új sorba a dátummal együtt. Tehát meg kéne hagyni az alma korábbi napi árainak sorait is. (nem jó, ha egyenlővé teszek két cellát)
A legjobb az lenne, ha az 1. munkalap napi adatait nem kéne tárolnom, hanem csak rámásolni az aznapi adatokat, és az szépen kimásolná a gyümölcsök sheetjeire új sorba az aznapi árakat.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz attiati #3893 üzenetére
A lapot, amit másolsz valahonnan, "Másolt_lap"-nak neveztem el (két helyen szerepel a makróban, írd át a saját lapod nevére). Ezen az A oszlopba írtam a dátumot, B-be a termék nevét, C-be az árat. Mindezt a második sortól, mert feltételezem, hogy az első sorban oszlopcímek vannak. A gyümölcsök lapjára már nem kell minden sorba az azonosítót beírni, azért nem tettem be az adatok közé.
Az gyümölcs lapokra csak két oszlopot vettem fel, a dátumot és a hozzá tartozó árat.Sub Másol()
Sheets("Másolt_lap").select
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnév = Cells(sor, 2)
ár = Cells(sor, 3)
Sheets(lapnév).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ár
Sheets("Másolt_lap").Select
sor = sor + 1
Loop
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.
-
attiati
veterán
válasz Delila_1 #3894 üzenetére
köszi, hogy vetted a fáradtságot!
akkor is működni fog, ha angol nyelvű az excel? Illetve, ha az 1. munkalapon a "gyümölcsök" nevei 50-60 karakterrel vannak kiírva, viszont a sheetek neve már mozaikszó, vagy rövidítés?
gondolom kell valami közös azonosító a sheetek neve és az 1. munkalap között...(lapnév)-et is át kell írnom?
-
Delila_1
Topikgazda
válasz attiati #3895 üzenetére
Angol nyelvűnél is működik, de csak akkor, ha a gyümölcsök és a lapok neve megegyezik.
Másképp honnan tudná a program, hogy melyik lap adataihoz írja a következőt?Vegyél fel egy új lapot, ahol az A oszlopban a hosszú név, B-ben a hozzárendelt rövid lapnév szerepeljen. Kibővítettem a makrót. A Masolt_lap E oszlopába beírja az
=fkeres(a2;Uj_Sheet!a:b;2;hamis) függvényt, és ezután a lapnevet nem a B, hanem az E oszlopból olvassa ki.Sub Masol()
Sheets("Masolt_lap").Select
usorm = Range("A65536").End(xlUp).Row
Range("E2").Select
ActiveCell.Formula = "=VLOOKUP(B2,Uj_Sheet!A:B,2,FALSE)"
Selection.AutoFill Destination:=Range("E2:E" & usorm)
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnev = Cells(sor, 5)
ar = Cells(sor, 3)
Sheets(lapnev).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ar
Sheets("Masolt_lap").Select
sor = sor + 1
Loop
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.
-
takyka77
tag
Sziasztok!
Az lenne a kérdésem, hogy makróból meg lehet azt oldani, hogy az ESZKÖZÖK\VÉDELEM\LAPVÉDELEM FELOLDÁSA menüt ne érjék el a felhasználók amíg adott tábla nyitva van?
-
Delila_1
Topikgazda
Szia Lúzer!
Az A65536-on állva nyomj egy Ctrl+fel nyilat. A kurzor az A oszlop utolsó, adatot tartalmazó cellájára áll. Ez ennek a műveletnek a VBA-s megfelelője. Így keresem ki az alsó sort.
Lehetne range("A1").end(xldown).row is, de akkor, ha az adatok (még mindig A oszlopban)között üres cella van, nem az utolsó kitöltött sorra állna, hanem az első csapat adat utolsó cellájára.
Másik hátránya, hogy ha csak A1-ben van adat (vagy ott sem), akkor leugrik a 65536-ra, és külön be kell írni a makróba egy feltételt, hogy ha fenti uatsítással meghatározott sor a 65536, akkor az utolsó sor értéke legyen 2, vagy 1 – van, vagy nincs címsor..A Ctrl+nyilakat a munkalapon az adatok közötti navigálásra is jól fel lehet használni.
[ 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.
-
elmoraan (r)
aktív tag
Üdv!
Tud valaki olyan módszert, amivel sok linket át tudok javítani egyszerűen? (Átpakolták a cégnél a cuccainkat másik könyvtárba.) Valami keresés és csere formájú megoldás kellene, bár akármi másnak is örülnék...
"Now all the stars have gone / faded into cracks of dawn"
Új hozzászólás Aktív témák
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig