- A választási tévinformációk ellen küzd a Meta
- Hálózati / IP kamera
- 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
-
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
-
akipapi
tag
Sziasztok!
Tudnátok segíteni ebben a feladatban?
A segédtáblázat harmadik sorába határozza meg – függvény segítségével –, hogy mely megyében termelték a legnagyobb mennyiséget az egyes gyümölcsfajtákból! A megyék neve kerüljön a mennyiségek alá!
Info tanárom szerint AB.MEZŐ függvényt kell használni, de nekem nem jön össze.
Válaszokat előre is köszönöm.
[ Szerkesztve ]
-
the radish
senior tag
Van olyan függvény, amely az előző év, azonos hetének, azonos napjára mutat?
Konkrétan:Fenti esetben úgy oldottam meg, hogy a feltétel = a mai nap - 364 nap, ez ugye a tavalyi hét azonos napjára mutat. Azonban ez már problémát jelent pl. szökőév esetén, arról nem is beszélve, hogy nem túl elegáns.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz the radish #20305 üzenetére
=DÁTUM(ÉV(MA())-1;HÓNAP(MA());NAP(MA()))
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
-
Julot
aktív tag
Sziasztok!
A segítségeteket szeretném kérni! Egy oszlopban 650 soron keresztül számok vannak, amivel számolni szeretnék, de a számok ezres értékenként szőközökkel vannak elválasztva tehát így néz ki: 112 897 654 254. Hogyan, mivel tudom egyszerűen, gyorsan átalakítani a számokat úgy, hogy számolni tudjak velük, ergo eltüntetni a szóközöket?
Köszönöm!
Üdv.:
Julot[ Szerkesztve ]
...nincs tökéletes ember, csak tökéletes szándék!
-
Julot
aktív tag
-
Julot
aktív tag
válasz pdw_ph #20315 üzenetére
Az alábbi dőltbetűs idézet alapján sikerült megoldanom, az index excel fórumjában egy kedves olvtárs adta az ötletet, és igaza volt! A szóköz nem is szóköz, csak annak látszott, ezért nem ment...
"Próbáld így:
A cellában kijelölöd azt a karaktert, amit ki akarsz szedni, másol, utána kilépsz a cellából.
A keresés/csere panelbe a kereséshez ctrl+v behozza a kimásolt részt.
A csere részbe "" vagy üresen hagyod. (Mivel valószínűleg nem szóköz az, amit szóköznek látsz.)
..és voilá, sikerült!
Azért köszönöm a ti segítségeteket is!
Jó éjt!
[ Szerkesztve ]
...nincs tökéletes ember, csak tökéletes szándék!
-
Rihard83
tag
Sziasztok!
Valaki tudna segíteni miért nem tudok Macrot csinállni?Már megnéztem az összes youtubeos videót és enable all macros-ra tettem a macro settings-et és az Activx-et és még mindig ott van a sárga felkiáltó jel és nem birok macrot rendelni a gombokhoz.Csak form controlokat tudok kitenni azokhoz nem tudok macrot rendelni, activex-ek meg szürkék és nem lehet őket használni.2007-es Excel. Remélem csődbe megy a microsoft ezzel a sza*os ki be kapcsolósdi baromságaival.
még a neheze hátra van hogy összehozzam amit akarok, erre még csak else tudom kezdeni...köszi előre is a segítséget
[ Szerkesztve ]
-
ztoldy
senior tag
Sziasztok!
Segítséget szeretnék kérni a következőben:
Adott egy excel munkalap, aminek A és B oszlopában tetszőleges értékek vannak. A két oszlop értékeit kellene összehasonlítani, hogy vannak-e egyező értékek és ha igen, akkor ezt jelezni, akár másik oszlopban.(A gépen office 2003 van, ha ez számít)
https://www.refundo.hu/?ref=175161
-
Delila_1
Topikgazda
válasz bandus #20320 üzenetére
Ez teljesen jó, ha az azonos számok azonos sorokban vannak az A és B oszlopban. Ha viszont nem, akkor a
=HA(DARABTELI(B:B;A1);"Van a B oszlopban";"") képlet megtalálja.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Slownz
senior tag
Sziasztok!
Sajnos Excel-ben annyira nem vagyok otthon. A kérdésem az lenne, ha ezt a scriptet végre lehet-e benne hajtani:
HA B1 cella üres, akkor A1 cella értékét adja eredményül, HA viszont B1 cella tartalmaz értéket, akkor B1cella értékét adja vissza, HA B1 cella értéke nem üres, akkor nézi C1 cellát is. HA C1 cella üres, akkor B2-t adja eredményül, ha meg tartalmaz értéket, akkor C1-et.
Nagyon szépen köszönöm, aki segít nekem!
-
lappy
őstag
válasz Slownz #20326 üzenetére
Szia!
Ezt biztos hogy így gondoltad? :"HA viszont B1 cella tartalmaz értéket, akkor B1cella értékét adja vissza, HA B1 cella értéke nem üres, akkor nézi C1 cellát is"
mert ez szerintem nem megvalósítható, csak akkor ha vmi kikötés van még hozzá pl: szám, vagy szöveg eseténBámulatos hol tart már a tudomány!
-
stranger28
addikt
Üdv!
Azt hogyan lehet megoldani, hogyha keresek egy oszlopban értéket, ne csak az első előfordulást kapjam meg, hanem az összeset? Lehetőleg új táblában.
Illetve úgy másolni néhány sort, hogyha módosulnak, akkor azon a helyen is az látszódjon, ahova másolódtak. Egyesével menne, de több van.Biztos alap dolgok, de eddig csak max-min-szum volt, amire használtam. Köszi.
[ Szerkesztve ]
-
bteebi
veterán
Sziasztok!
Egy olyan makróra lenne szükségem, ami egy adott lap élőfejébe (többek között) egy másik lapon lévő cella tartalmát beleírja. Annyit már el tudtam érni (más példák alapján), hogy működjön, de csak úgy, ha manuálisan lefuttattam a makrót, és ha meg volt adva az összes fülnek a neve egyesével.
A példában legyenek a fülek: "Lista", meg mondjuk különböző autótípusok nevei ("Suzuki", stb.). A "Lista" lap adott cellájában (itt A1) lévő értéket szeretném beleírni az élőfejbe az összes fülön, a "Lista"-t leszámítva.
Sub Varos()
Sheets("Suzuki").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
Sheets("...").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
.
.
.
End SubMeg lehet úgy csinálni, hogy automatikusan (például az A1 cella tartalmának változására, vagy fül váltására) lefusson a makró az összes fülre? Kivéve persze a "Lista"-t, de ha csak ezen múlik, akkor annak a fejlécében is benne lehet, vagy akár a kód végén az is lehetne, hogy
Sheets("Lista").PageSetup.CenterHeader = ""
Tudnátok tanácsot adni az automatikus futtatásra, és esetleg arra, hogy ne kelljen minden fülre külön megadni a parancsot? Előre is köszönöm a segítségeteket!
Cancel all my meetings. Someone is wrong on the Internet.
-
gaben1117
senior tag
Sziasztok!
Hogy tudnék megoldani egy olyat, hogy adott mondjuk egy szám: 5 779 800
És azt szeretném, ha felkerekítve jelenne meg csak ennyi: 5780 Tehát ezresig kerekítve, vagy adott esetben lefelé kerekítve.
Előre is köszi!
-
Cheesy
őstag
Sziasztok!
Megoldást keresek a következő problémára:
Adott egy folyamatosan bővülő város-távolság mátrix a "varosok" munkalapon, valamint a "KM_elszamolas" munkalap. Utóbbi nem csak ennyiből fog állni természetesen, de itt az egyik kulcsképletet szeretném működésre bírni, ami a mátrixban szereplő sorok és oszlopok metszéspontjánál lévő értéket helyettesíti be, attól függően, hogy a A4 és B4 cellában mit választok a dropdown listából.
Az INDEX() képletet vizsgáltam, de nem bírtam működésre bírni... rossz helyen keresgéltem?www.vakbelmutet.hu
-
Delila_1
Topikgazda
válasz bteebi #20329 üzenetére
A Lista laphoz kell rendelned a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lap%
If Target.Address = "$A$1" Then
For lap% = 1 To Worksheets.Count
If Sheets(lap%).Name <> "Lista" Then
Sheets(lap%).PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
End If
Next
End If
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.
-
nimmy001
csendes tag
Sziasztok,
Hogy lehet az, hogy adott egy makrós megosztott excel fájl, aminek utolsó mentése egy olyan éjjeli időpont, amikor éppen biztos, hogy senki nem dolgozott benne, és nem volt bekapcsolva egy olyan gép se, ami ezt a fájlt eléri? Előző nap végén minden remekül működött benne, másnap reggel már a fájl zárolt lett, és a makrókhoz se lehetett hozzáférni.
-
Attas
aktív tag
Sziasztok!!
Kis segítség kellene.
De időközben rájöttem... (még belefért a szerkesztésbe)[ 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!"
-
-
Attas
aktív tag
válasz Delila_1 #20339 üzenetére
Ez vajon miért nem működik újfent?
Option Explicit
Sub TípusVálasztás()
Dim WÜM As Worksheet
Set WÜM = Sheets("Ütemidő műveletenként")
WÜM.Select
If WÜM.Cells(13, "C") = "x" Then UserForm1.Controls("AF10") = True Else UserForm1.Controls("AF10") = False
If WÜM.Cells(13, "D") = "x" Then UserForm1.Controls("AF20") = True Else UserForm1.Controls("AF20") = False
If WÜM.Cells(13, "E") = "x" Then UserForm1.Controls("AF30") = True Else UserForm1.Controls("AF30") = False
If WÜM.Cells(13, "F") = "x" Then UserForm1.Controls("AF40") = True Else UserForm1.Controls("AF40") = False
If WÜM.Cells(13, "G") = "x" Then UserForm1.Controls("AF50") = True Else UserForm1.Controls("AF50") = False
If WÜM.Cells(13, "H") = "x" Then UserForm1.Controls("AF60") = True Else UserForm1.Controls("AF60") = False
If WÜM.Cells(13, "I") = "x" Then UserForm1.Controls("AF70") = True Else UserForm1.Controls("AF70") = False
If WÜM.Cells(13, "J") = "x" Then UserForm1.Controls("AF90") = True Else UserForm1.Controls("AF90") = False
If WÜM.Cells(13, "K") = "x" Then UserForm1.Controls("AF100") = True Else UserForm1.Controls("AF100") = False
If WÜM.Cells(13, "L") = "x" Then UserForm1.Controls("AF110") = True Else UserForm1.Controls("AF110") = False
If WÜM.Cells(13, "M") = "x" Then UserForm1.Controls("AF120") = True Else UserForm1.Controls("AF120") = False
If WÜM.Cells(13, "N") = "x" Then UserForm1.Controls("AF130") = True Else UserForm1.Controls("AF130") = False
If WÜM.Cells(13, "O") = "x" Then UserForm1.Controls("AF140") = True Else UserForm1.Controls("AF140") = False
If WÜM.Cells(13, "P") = "x" Then UserForm1.Controls("AF150") = True Else UserForm1.Controls("AF150") = False
If WÜM.Cells(13, "Q") = "x" Then UserForm1.Controls("AF160") = True Else UserForm1.Controls("AF160") = False
If WÜM.Cells(13, "R") = "x" Then UserForm1.Controls("AF180") = True Else UserForm1.Controls("AF180") = False
If WÜM.Cells(13, "S") = "x" Then UserForm1.Controls("AF210") = True Else UserForm1.Controls("AF210") = False
If WÜM.Cells(13, "T") = "x" Then UserForm1.Controls("AF215") = True Else UserForm1.Controls("AF215") = False
If WÜM.Cells(13, "U") = "x" Then UserForm1.Controls("AF216") = True Else UserForm1.Controls("AF216") = False
If WÜM.Cells(13, "V") = "x" Then UserForm1.Controls("AF220") = True Else UserForm1.Controls("AF220") = False
UserForm1.ListBox1.List = WÜM.Range("CellTípusok").Value
UserForm1.Show
End SubEddig működött amíg a rövidítést nem alkalmaztam
Hibaüzenet " Method of 'range' of object'_Worksheet' failed[ 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!"
-
Cheesy
őstag
Van egy Access fájlom, benne Magyaroroszág és egy pár környező európai ország városainak közúton mért távolságaival, de más-más adatbázisokban. Létezik-e arra módszer, hogy egy távolságmátrixba én ezt átrakosgatom (ideális esetben importálom) Excelbe?
www.vakbelmutet.hu
-
bteebi
veterán
válasz Delila_1 #20333 üzenetére
Szia!
Nagyon köszönöm a segítséget , egyelőre azonban valamiért még nem működik a kód. Azt írja, hogy a Range osztály Select metódusa hibás.
Valamennyit javult a makróm, de ha az
If Target.Address = "$A$1" Then
sor volt megadva, akkor nem működött. Csak akkor futott le magától, ha a lentebb látható módon próbáltam:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Suzuki").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
'és ez a sor ismételve az összes lapra, de az elég gagyi
Application.EnableEvents = True
End SubEzt viszont nem tudtam úgy átírni eddig, hogy működjön. Pedig az ötleted tök jó, de valamiért nem megy. Kipróbáltam egy M$ honlapon lévő makrót is, de nem tudtam úgy átírni, hogy jó legyen (mondjuk az az összes lapra működne elvben, úgyhogy a te megoldásod jobb lenne):
Sub WorksheetLoop2()
Dim Current As Worksheet
For Each Current In Worksheets' Insert your code here.
Next
End SubDe ezt se tudtam úgy átírni, hogy működjön . Ilyet próbáltam:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim Current As Worksheet
For Each Current In Worksheets
.PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
'ez így hibás, valahogy máshogy kellene megadni, de ActiveSheet-tel se megy
Next
Application.EnableEvents = True
End SubVan ötleted, hogy mi lehet a probléma?
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
válasz bteebi #20342 üzenetére
Nálam csont nélkül végrehajtotta.
Próbáld meg, hogy a Lista laphoz ennyit rendelsz:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cimsor
End SubEgy modulba pedig ezt:
Sub Cimsor()
Dim lap%
For lap% = 1 To Worksheets.Count
If Sheets(lap%).Name <> "Lista" Then
Sheets(lap%).PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
End If
Next
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.
-
Delila_1
Topikgazda
Előkaptam a régi fájlodat, ahol a 3. sorban voltak az X-ek, nem a 13-ban. Átírtad a lapon, vagy esetleg ez a sorszám a hiba? Még az is lehet, hogy nem mindegy, x vagy X az érték a cellákban.
[ 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.
-
Attas
aktív tag
-
bteebi
veterán
válasz Delila_1 #20343 üzenetére
Működik! Hálás köszönet érte!
Igazából úgy is megy, ahogy először leírtad, valamit én ronthattam el.
Már csak egy dolgot nem értek: csak úgy működik, ha a Target.Address abszolút hivatkozással van megadva, tehát "$A$1". Se úgy nem megy, hogy "A1", se úgy, hogy Me.Range("A1"), és úgy se, hogy Sheets("Lista").Range("A1"). Nem kellene egyébként mindig lefutnia a makrónak, ha bármelyik lapon változik az A1-es cella? Nem teszi (és nekem így jó), de valahol logikusnak tűnne, mert elvileg akkor le kellene futnia, ha az A1-es cella változik. Vagy a private sub-ban lévő abszolút hivatkozás csak az adott lapon érvényes? (Igen, jól gondolod, sajnos nem értek hozzá .)
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
válasz bteebi #20347 üzenetére
Ha másik lapon is akarod futtatni, akkor a másik laphoz is hozzá kell rendelned az eseménykezelő makrót.
Az ilyen típusú makrók már csak ilyen természetűek.Meg lehet oldani, hogy minden lapon működjön, de akkor a ThisWorkbook laphoz kell beírnod a makrót.
[ 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.
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- A fociról könnyedén, egy baráti társaságban
- Óra topik
- Futás, futópályák
- USB to S/PDif konverter a modern RIAA, elektroncsövekkel
- A választási tévinformációk ellen küzd a Meta
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: MárkaLánc
- PlayStation 5
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen