-
GAMEPOD.hu
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
-
sztanozs
veterán
Erre való a Pivot tábla.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Gandalf80
csendes tag
Sziasztok!
Mivel tudom megoldani a következő műveletet.
Következő adatokat kellene leszűrnöm egyszerűen:
Például.
A Körtéből Hány darab 50 grammos van? A Körtéből hány darab 30 grammos van? 100g? 250g? stb. Jó lenne mellé azt is, hogy mi a díja az adott súly 1 darabjának. Aztán azt is, hogy TV; Ajánlott vagy TV&Ajánlott. (De az utolsó kérdésem annyira nem is lényeges, mert azt Fkeressel megoldom).
Természetesen ezt lejátszva a többi "gyümölccsel" is.Tuti van egyszerű megoldása. Makrót nem szeretnék, mert azt még nem tudom biztosan használni (lehet, sosem tanulom meg )
Előre is köszönöm.
Az is elég, ha ötleteket kapok, hogy merre induljak.
[ Szerkesztve ]
"Az élet pókerjátszmájában a nőket elviszi a bank." http://mikrolimitpoker.blog.hu
-
dellfanboy
senior tag
tudtok valami ötletet az alábbi problémára? van egy cella amiben ez szerepel értékként: nok x7 (telefon neve) ezt szeretném kiegészíteni nokia x7-re
erre van ötletetek? milyen fv-vel tudnám ezt megoldani? sql-el működne, de xls-ben nem tudok rá fv.teladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
bugizozi
őstag
válasz dellfanboy #15204 üzenetére
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
-
Wasquez
senior tag
Sziasztok
Egy oszlopon belül hogyan lehet a legnagyobb értéket megszínezni?
Maximum keresés, meg feltételes formázás, de hogyan?
Vagy más megoldás kell?PC
-
sztanozs
veterán
válasz Wasquez #15207 üzenetére
Úgy is megy, de Off 2010-ben (de talán már 2007-ben is) van erre feltételes formázás típus.
Amúgy feltételbe az kell, hogy <cellacím> = MAX(<régió>) - viszont ha több maximum elem is van, mind ki fogja színezni...
Ha kötelezően csak egy (az első) kell akkor lookup kell, az csak egy elemet talál meg, és kell keresni egy olyan mezőt, ami egyedi (vagy csinálni egy számláló mezőt az oszlopok !végére!):
<egyedimező-a-sorban> = vlookup(max(<régió>), <tábla-az-értékoszloptól>, <egyedi-mező-címe->,0)[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
Sziasztok Mesterek!! Lehet csinálni olyan oszlop diagramot, aminek van úgy 10 oszlopa, egyszínűek, pl zöld, de ha valamelyik értéke nagyobb mint 60 akkor az váltson piros színűre? Na és persze ezt automatikusan? Vagy megoldható valamilyen makró féleséggel? Vagy ez fantazmagória?
[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
sztanozs
veterán
Az aláhúzott résznél adod meg mennyinél kell nagyobb (vagy kisebb, vagy bármilyen) legyen.
Sub Macro1()
Sheet1.ChartObjects("Chart 1").Activate
Dim val()
val = ActiveChart.SeriesCollection(1).Values
Dim ix
For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
If val(ix) >= 60 Then
ActiveChart.SeriesCollection(1).Points(ix).Select
With Selection.Format.Fill
.Solid
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End If
Next
End SubJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia Sztanozs!
Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
Sheet1.ChartObjects("Diagram 8").ActivatePedig a Diagram 8 a veve a rajzterületnek.
A hiba pedig: Object requiredSub KimDiagSzín()
'
' KimDiagSzín Makró
Sheet1.ChartObjects("Diagram 8").Activate
Dim val()
val = ActiveChart.SeriesCollection(1).Values
Dim ix
For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
If val(ix) > 60 Then
ActiveChart.SeriesCollection(1).Points(ix).Select
With Selection.Format.Fill
.Solid
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End If
Next
End Sub[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
MaciLaci68
csendes tag
Szervusztok,
A1, A2, A3-ban a következő szöveg van:000000005353973716M 18,362 18,362 AJ. 1000 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1000 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1000 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1000 TQA901 0,6 000000005353120102 53PC-2420
000000005353973717M 22,029 22,029 AJ. 1200 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1200 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1200 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1200 TQA901 0,6 000000005353120102 53PC-2420
000000005353973718M 25,695 25,695 AJ. 1400 EP 400/2+1T 8/3 N-SZG TQA901AJ. 1400 EP 400/2+1T 8/3 N-VK TQA901 AJ. 1400 EP 400/2+1T 8/3 N-ME TQA901 EP 400 2+1 8 3 N-SZG 1400 TQA901 0,6 000000005353120102 53PC-2420Ha Mentés másként-el manuálisan menten el akkor OK.
Ha viszont az alábbi makróval, akkor elejére és végére tesz idézőjelet ( " )Sub TXT_készítés()
ActiveWorkbook.SaveAs _
Filename:="D:\Dokumentumok\" & "mérvanidézőjel", _
FileFormat:=xlText
End SubLehet erre megoldás vagy nyugodjak bele? Eddig manuálisan vágólapról másoltam be a txt-be, de szeretném kényelmesebbé tenni. A továbbiakban a txt-t egy SAP program eszi meg, amit sajnos nem lehet megváltoztatni, hogy az idézőjeleket ne venné figyelembe.
-
sztanozs
veterán
válasz MaciLaci68 #15217 üzenetére
Ezt használd:
FileFormat:= xlTextPrinter
Esetleg még ezt tedd hozzá (ha local codepage kell, ami a gépen van és nem US):
Local:= TrueJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
pirit28
csendes tag
Szia Sztanozs !
Köszönöm a gyors választ, én kicsit lassan reagáltam a megoldásoddal küzdök 2 napja..
Utánaolvastam ennek az INDIRECT dolognak.Valamit rosszul csinálhatok mert folyamatosna #REF! üzenet fogad.Ha mindent jól fogtam fel akkor ezt olyan esetekben lehet használni ,mikor mindkét excel file nyitva van ...Ha nem így lenne akkor légyszi helyesbíts.Megprobálom szemlélteni ,hogy mit is szeretnék ...
Minden adat ami az egyes dátumok alatt szerepel, dátum alapján és gyümölcsököt figyelembe véve külön file-okból vlookup-al kerül a mezőkbe.Minden nap készül egy excel file,és minden hónapban egy újabb mappa készül az adott havi file-oknak.Jelenleg a vlookup-ot úgy hajtom végre hogy ,a vlookup-ban átírom az file elérhetőségét.Hogy ezt meg tudjam könnyíteni, lehetséges -e hogy a vlookup-ba szerepeljen vagy helyettesítődjön az elérhetőségi cím.Tehát a dátumok lennének a file-oknak a elérhetőségi címei amire a vlookup hivatkozna.Nekem csak annyit kellene tennem hogy pl:;commanderben kijelölve az adott hónapra vonatkozó file-okat "címmel együtt" és bemásolnom ,folytonólagosan a dátumok után.Bele lehet a rakni valahogyan ? Vagy esetleg egy másik megoldást megköszönnék.
Remélem érthető voltam ,ha nem akkor elnézést .
A választ előre is köszönöm.[ Szerkesztve ]
-
sztanozs
veterán
válasz pirit28 #15221 üzenetére
Szerintem a legegyszerűbben úgy tudnád megtrükközni, hogyha a napi fájl mindig ugyan azon a néven szerepelne, és az előző napi fájl pedig átneveznéd napi fájlnak:
2012 10. 09.
export aktualis.xls2012 10. 10.
move aktualis.xls backup_2012_10_09.xls
export aktualis.xls2012 10. 11.
move aktualis.xls backup_2012_10_10.xls
export aktualis.xlsígy minden nap csak az összegző fájlt kell frissítened mert a napi fájlnak mindig ugyan az a neve
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
MaciLaci68
csendes tag
válasz sztanozs #15220 üzenetére
Köszi. De ez egy PRN fájlt készít. Nekem TXT kellene.
Érdekes hogy ha a PRN fájlt átnevezem TXT-re, akkor megnézhető és eltűnnek az idézőjelek, de a sorokat kettétördeli valszeg azért mert a prn csak 240 karakterig tud cellából olvasni, az én szövegem pedig 400 felett van. -
Attas
aktív tag
válasz MaciLaci68 #15219 üzenetére
Opsz. Ez is igaz.. Köszönöm!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
sztanozs
veterán
válasz MaciLaci68 #15223 üzenetére
Mentsd el txt kiterjesztéssel...
Amúgy nekem DOS Text-két mentve SaveAs-sal (menüből) is berakja macskakörömbe. Te pontosan milyen Text módba mented, ahol nem macskakörmöl?JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
egil
csendes tag
Sziasztok!
Kolléganőmnél furcsa probléma jelentkezik.
Szűrés eredménye x db sor, ezeket kijelöli és törli. Érdekes módon törlődnek a köztük lévő sorok is. Ez mitől lehet?Silence, i kill you!... (Achmed the Dead Terrorist)
-
Attas
aktív tag
Üdv
Ha van egy tartományom, nevezzük gép1-nek amiben a képen látható adatok vannak, milyen makróval tudom ebből a tartományból az időadatokat átmásolni mondjuk az A oszlopba úgy, hogy csak azok legyenek átmásolva, minden cellába kerüljön időadat és növekvő sorrendbe rakja azt?"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
sztanozs
veterán
válasz MaciLaci68 #15227 üzenetére
Megpróbáltam most FileFormat:=xlText-tel és nekem nem macskakörmöli...
Pontosabban a te szövegedet kézzel és makróval is macskakörmöli.[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz sztanozs #15230 üzenetére
Nem tudtam a PRN-en kívül kézzel sem olyan módba menteni, hogy ne rakjon köré macskakörmöt...
De makróval mondjuk meg tudod csinálni, fájl manipulációs parancsokkal.
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia. A makró amit írtál csak egy adathoz tartozó oszlopot ír át pirosra ha 60 nál nagyobb és az érték változásakor, ha esetleg 60 alá esnem nem lesz újra zöld. Vagy mindegyik pontra meg kell ezt csinálni? Ha igen hogy kell egymásba fűzni hogy értelmes legyen a makró?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
sztanozs
veterán
Persze - ha többre is kell, akkor végig kell járni az összes SeriesCollection-t is
Itt az egyes csak az első "oszlopot" jelöli:
ActiveChart.SeriesCollection(1).ValuesJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
ThisWorkbook-ba:
Dim WithEvents CHT As ChartPrivate Sub Workbook_Open()
Set CHT = Sheets("Sheet1").ChartObjects(1)
End SubPrivate Sub CHT_Calculate()
'ide kell a makró
End SubJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
MaciLaci68
csendes tag
válasz sztanozs #15230 üzenetére
Köszi a próbálkozást. Nem jöttem rá eddig mikor tesz körmöt és mikor nem. Hossztól függ vagy szóköztől, vagy kutyafülétől nem tudom. De mindegy is mert nekem csak olyan jó hosszú szöveg kellene.
A fájl manipulációs megoldásod gondolom nem Exceles ugye?
Hát akkor ennyi. Marad a jó öreg CtrlC+ CtrlV. -
sztanozs
veterán
válasz MaciLaci68 #15235 üzenetére
Excel (VBA) - Open / Write / Close utasítások - de ahogy olvasom ez is felejtős - ez is helyettesít, meg macskakörmöl, ha valami nem tetszik neki a szövegben
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
válasz MaciLaci68 #15235 üzenetére
Köszönöm szépen! Működik ahogy kell!
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
megamurashy
csendes tag
Sziasztok,
Hogy tudom az időt átkonvertálni számra? Van két időm pl:
6:00:00 és 7:15:00 a kettő különbsége a runtime-om azaz 1:15:00, ezt hogy tudom számra átkonvertálni, nem úgy hogy cellaformátumot állítok, hanem hogy tudjak vele számolni heti összesítésben, azaz tudjam azt mondani, hogy 40. héten volt 67, 43 óra gyártásom .
Köszi,
Mura -
ancarian
csendes tag
Sziasztok! Szakdolgozatot készítek és már csak a kérdőívem kiértékelése van hátra. Ehhez van egy 150fős adatbázis. A gondom csak annyi, hogy néhány összesítésre használt képletet nem ismerek. Tudnátok segíteni?
Két kérdésem lenne.
1. Melyik képlettel lehet egy oszlopban található összes olyan cellát megszámoltatni, ahol a kritérium egy adott szó? Az olyan cellák is érdekelnének, amelyek az adott szón kívül mást is tartalmaznak.2. Két oszlop adataiból szeretnék egy összehasonlítást. Az egyik oszlop értékei igen vagy nem. A másik pedig 1-5ig tartalmaz értékeket. Hogyan lehetne ebből 1-1 oszlopdiagramot készíteni?
Köszönöm előre is a segítségeteket! Ha valaki privátban ír, az is tökéletes. Akkor legalább nem értetlenkedem itt végig a topicot
-
sztanozs
veterán
válasz ancarian #15239 üzenetére
Excel 2010-el marha egyszerű mind a kettő:
1) Filter -> keresőmezőbe beírod, amit tartalmaznia kell és leszűri azokra
2) Pivot tábla -> diagram (lehet, hogy pivot sem kell, csak nem értettem meg a kérdést)[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
ancarian
csendes tag
válasz sztanozs #15240 üzenetére
2003-as excelem van. Valahogy eddig úgy voltam, h egyszerűbb kezelni. Közben meg rengeteget felejtettem
A második kérdés teljesen homály nekem is.Az egyik oszlopban a "sportol-e?" kérdésre vannak a válaszok. A másik oszlop lényegében több oszlop Itt különféle ételek fogyasztási gyakoriságai vannak feltüntetve 1-5 között. De ugye minden étel külön oszlop. Gondolom a kritérium az igen vagy a nem. A kérdés az, hogy melyik diagramnak tudnék megadni kritériumot? -
medvezsolt
senior tag
Halihó!
Van arra mód eXcel 2003-ban, hogy ha egy cellába X-et rakok akkor a másik cellába beiródjon az aktuális dátum?
VB kód kell ehhez? segítenétek?
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
sztanozs
veterán
válasz medvezsolt #15242 üzenetére
=IF(<cella-x-el>="x",now(),"")
Ha az kellene, hogy azx- beíásakori dátum maradjon ott, azt makróval lehet megcsinálni... De mintha rémlene, hogy ezt már kérdezted (vagy valaki kérdezte) mostanában...JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz medvezsolt #15242 üzenetére
A sheet lapjára kell bemásolni:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'A figyelt oszlop száma
checkedcolumn = 3
For areaindex = 1 To Target.Areas.Count
For columnindex = 1 To Target.Areas(areaindex).Columns.Count
If Target.Areas(areaindex).Columns(columnindex).Column = checkedcolumn Then
For Each cell In Target.Areas(areaindex).Cells
If cell.Value = "x" Then
If (Cells(cell.Row, cell.Column + 1).Value = "") Then Cells(cell.Row, cell.Column + 1).Value = Date
End If
Next
End If
Next
Next
Application.EnableEvents = True
End SubCsak az üres mezőket tölti fel dátummal, a már kitöltötteket nem frissíti le.
mod: most nézem, hogy van rendes Application property az események tiltására, lemódosítottam arra...[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
Topikgazda
válasz medvezsolt #15244 üzenetére
Nem közölted, hova akarod írni az X-et, és hol legyen a dátum.
A makró akkor írja be a B oszlopba a dátumot, ha az A oszlopba írod be az X-et.
A laphoz rendelt a makrót.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target = "X" Then _
Range("B" & Target.Row) = Date
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.
-
medvezsolt
senior tag
válasz Delila_1 #15246 üzenetére
Kösi a helpet. Viszont : Ha én sose törlöm ki az Xet a cellából akkor jó a sima IF-es szerkezet is, nem? ... másnap amikor megnyitom a doksit akkor is a tegnapi dátum fog szerepelni ha nem nyúlok az X-hez többet..
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
Delila_1
Topikgazda
válasz medvezsolt #15247 üzenetére
Akkor most kezdd el lassan az elejétől.
Hova írod az X-et?
Hol jelenjen meg a dátum?
Ahol X van, a dátum mindig az aktuális legyen, vagy az, amikor beírtad az X-et?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Attas
aktív tag
Sziasztok!
Ha van egy olyan képletem amely adatok hiányában #ZÉRÓOSZTÓ! hibára megy, át lehet úgy hogy ez esetben kapjon egy értéket? pl, beletenni egy HA függvénybe ezt a függvényt."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
Új hozzászólás Aktív témák
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Autós topik
- Projektor topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen TV-t vegyek?
- Számtech boltosok memoárjai, azaz amikor kiborulunk...
- Modern monitorokra köthető 3dfx Voodoo kártya a fészerből
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Budapest és környéke adok-veszek-beszélgetek
- Toyota topik
- További aktív témák...
- World of Warcraft Shadowlands Collectors edition EU EN
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!