Hirdetés
- IFA 2025: Sokrétű tudást kínál az AGM két friss strapabírója
- Telekom T Phone 3 5G – modern tudakozó
- Valószínűleg a Honor legolcsóbb modellje lesz
- IFA 2025: Lépcsőmászó, víztisztító, szögletes és gombóc alakú robotporszívók
- 3 milliós villanyautó, AI tamagocsi és kamerás napszemüveg - megjött az AstraUX
- Samsung Galaxy A55 - új év, régi stratégia
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- iPhone topik
- Apple Watch Ultra - első nekifutás
- Google Pixel topik
- Telekom T Phone 3 5G – modern tudakozó
- Telekom mobilszolgáltatások
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Samsung Galaxy A54 - türelemjáték
- Motorola Edge 40 - jó bőr
-
Mobilarena
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
-
mivannem
csendes tag
Üdv!
Ha a sorösszeg van megadva, az hogyan osztható szét a cellák között egy megadott súlyozást figyelembe véve de véletlenszerűen?
Valami ilyesmit:
csak 3000 sorra és ugyanennyi oszlopra kell majd, szóval nem kézzel szeretném beírni.
Ha tudtok adni megoldást, azt előre is köszönöm!
-
fogtunder
nagyúr
-
Delila_1
veterán
válasz
fogtunder
#33995
üzenetére
Meg kellene adnod a C, D és I oszlop függvényeit a Sheet1 lapon, akkor azokat is beírnám a makróval.
Sub Masolatok()
Dim usor As Long
Sheets("Sheet2").Range("A:B").Copy Sheets("Sheet1").Range("A1")
usor = Sheets("Sheet2").Range("K" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("K4:K" & usor).Copy Sheets("Sheet1").Range("H1")
Sheets("Sheet2").Range("N:P").Copy Sheets("Sheet1").Range("K1")
Sheets("Sheet3").Range("C:E").Copy
Sheets("Sheet1").Range("E1").PasteSpecial xlPasteValues
' Ide a C, D és I oszlop függvényeit add meg
usor = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("J1:J" & usor) = "=I1*J1"
Sheets("Sheet1").Range("A:M") = Sheets("Sheet1").Range("A:M").Value
End SubAz utolsó sor a Sheets1 lapon az A:M tartományt értékként ugyanoda beilleszti.
-
oke
senior tag
Sziasztok!
Adott egy excel 1 db oszloppal és kb 1000 sorral. A Cellákban különböző méretű szabad-szöveges mondat/mondatok vannak. Arra lenne szükségem, hogy ebben az egész táblázatban(tehát nem cellánként) milyen szavak fordulnak elő és ezek hányszor szerepelnek. Van erre lehetőség?
-
fogtunder
nagyúr
sziasztok,
lenne egy aránylag egyszerű makró, amivel nem boldogulok, sajnos próbálkozásaim ellenére nem megy nekem ez a téma.
szóval amit csinálnia kellene:
van 3 sheetünk, sheet1, sheet2, sheet3
sheet1 az, ahol a munka folyik, a többi adatforrásként szolgál
sheet1 a és b oszlopába az első sornál kezdve át kellene másolni sheet2 a és b oszlopát, amíg vannak benne értékek (ez változó sorszámot jelent). ugyanígy lenne sheet1 H oszlopa sheet 2 K oszlopa a negdeik sortól, sheet1 K-L-M oszlopa sheet2 N-O-P oszlopa.
sheet1 C és D oszlopában végig kell húzni egy VLOOKUP-ot a korábban bemásolt adatok mellé, majd kicserélni a függvényt értékekre a cellákban
sheet1 E-F-G értékei sheet3 C1, D1 és E1 értékei fixen lemásolva
sheet1 I egy VLOOKUP függvény végigmásolva, értékekre kicserélve
sheet1 J oszlopa a H*I szorzás az adott sorra végigmásolva, értékekre kicserélvenagyon köszi, ha valaki segít
-
bobsys
veterán
-
Zolix
tag
Sziasztok!
A segítségeteket kérném, van két munkafüzetem amit ki is tudok jelölni és így egyszerre nyomtatnám kétoldalasként. Viszont két külön oldalt nyomtat. A nyomtatót beállítottam kétoldalas nyomtatásra és word-ből nyomtat is excelből viszont nem a nyomtatási képnél két külön oldal jelenik meg, de nem kerül egy lapra!
Mit kellene még beállítanom?
-
Delila_1
veterán
válasz
botond187
#33987
üzenetére
A Sheet1 lapon a B oszlopban az adatok szöveg típusúak, a Sheet2-n viszont számként szerepelnek. Ezt úgy tudod egyszerűen ellenőrizni, hogy ráállsz az első adatra (B2), majd a Shift-et nyomva tartod, és az egérrel rendre kijelölöd az alatta lévő cellákat. Számoszlop esetén a státuszsorban változnak a Min, Max, Átlag, Összeg értékek.
A Sheet2 lapon átalakítjuk a B oszlop értékeit szöveg típusúvá a
=BAL(FIX(A2;0;1);12)képlettel, és minden OK.Tehetnénk fordítva is, hogy a Sheet1 B oszlop értékeit konvertáljuk számokká, de
1. a fuvarlevél számával nem hajtunk végre matematikai műveleteket (telefonszám, adószám is ilyen)
2. a szöveges adatok kisebb helyet foglalnak el a memóriában, mint a számértékek -
botond187
csendes tag
válasz
Delila_1
#33977
üzenetére
Köszi.
Lenne egy másik kérdésem, próbáltam a vlookup függvényt, de valamiért nem akar működni.
A képlettel szerintem nincs probléma, valami más lesz a hiba.Felkiáltójelet jelez, de nem tudom, mire gondol pontosan.
Azt szeretném elérni, hogy a sheet2-ben a "C" oszlopban ott legyen a megfelelő kód a sheet1 "C" oszlopából.
-
-
nordican
tag
válasz
nordican
#33984
üzenetére
Hú, úgy tűnik, működik!
Ez k...a jó!
Ide raktam be:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("C65"), Range("C69"))) Is Nothing Then
Rows(Target.Row).AutoFit
If Not Intersect(Target, Range("C65")) Is Nothing Then
With Sheets("Munka1").Range("B14")
.Value = Target.Value
Sheets("Munka2").Range("B14").MergeArea.UnMerge
Sheets("Munka2").Range("B14").Rows.AutoFit
Sheets("Munka2").Range("B14:E14").Merge
End With
End If
If Not Intersect(Target, Range("C69")) Is Nothing Then
With Sheets("ajánlat1").Range("B26")
.Value = Target.Value
.Rows.AutoFit
End With
End If
End If
End Sub -
Fferi50
Topikgazda
válasz
nordican
#33982
üzenetére
Szia!
Nyilván nem ezen fogunk összeveszni
A munkalap tulajdonságait Te ismered, mi csak javaslatokat tudunk adni.
Egyébként az összevonást is meg lehet szüntetni és a sormagasság állítása után vissza lehet állítani.Range("B2").MergeArea.UnMerge
Range("B2").Rows.AutoFit
Range("B2:C2").MergeÜdv.
-
nordican
tag
válasz
Fferi50
#33981
üzenetére
Igen, de ha egy oszlopot szélesebbre veszek, akkor a tőle jobbra lévő oszlopokban lévő cuccok is csúsznak (vagy keskenyebbre kéne vennem őket, de ezt meg a bennük lévő adatok miatt nem tudom). Elég kötött munkalapokkal dolgozom, szinte minden mindennel összefügg, ami ilyen szempontból elég szerencsétlen megoldás.
-
nordican
tag
-
-
nordican
tag
válasz
Fferi50
#33974
üzenetére
Fantasztikus vagy, köszönöm!
Így már sikerült a meglévő munkafüzetemre alkalmaznom, egy bökkenő van, és itt fel is adom ezt a történetet. Ha a sorban van összevont cella (és nekem sajnos van), ott nem működik, és hiába szedem szét a cellákat, a szöveg nem megy át a következő cellába. Ha leveszem a Sortöréssel több sorba opciót, akkor átfolyik a másik sorba, de a lista elemei egymás mögött jelennek meg. Magyarul kellene egy jó széles oszlop, ahová kompletten beférnek a lista elemei (amik egyébként fájlnevek), ehhez meg újra kellene csinálnom az összes munkalapot. 
-
Fferi50
Topikgazda
válasz
nordican
#33971
üzenetére
Szia!
Íme:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("A3"))) Is Nothing Then
Rows(Target.Row).AutoFit
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Sheets("Munka2").Range("B2")
.Value = Target.Value
.Rows.AutoFit
End With
End if
If Not Intersect(Target, Range("A3")) Is Nothing Then
With Sheets("Munka2").Range("B4")
.Value = Target.Value
.Rows.AutoFit
End With
End If
End If
End SubÜdv.
-
Delila_1
veterán
válasz
nordican
#33971
üzenetére
Csak most nézem a feladatodat, de már az elején zavaros. Biztosan ezért nem kapsz érdemi választ.
"...az A1 és az A3 cellában készül két különböző (többtételes) lista..."Egy cellában nem lehet lista, csak egyetlen adat.
Tegyél fel egy füzetet, amiben a lapjaid neve az igazi. Írj valamilyen adatokat, ahova kell, és írd bele azt is, hogy mit akarsz ezekből kihozni.
-
nordican
tag
válasz
Fferi50
#33964
üzenetére
Fiúk-lányok, tök rendesek vagytok, hogy ennyi időt beleöltök más problémájába, de nekem ez még mindig túl elvont. Még azt kérhetném, hogy egy konkrét példára fordítsátok le ezeket a kódokat?
Szóval tegyük fel, hogy a Munka1 lapom a főlap, itt az A1 és az A3 cellában készül két különböző (többtételes) lista, és a Munka2 lapon a B2 és B4 cellában kellene megjelennie automatikusan az A1 és A3 listának, és egyúttal automatikusan át is kellene méreteződnie a Munka2 lap 2 és 4-es sormagasságának. Én pedig megfogom a kódot és egy az egyben beszúrom a Worksheet/Change lapra, és beszámolok az eredményről. Ha működik, akkor már csak a cellák meg a lapok nevét kell lecserélnem, ami elvileg még nekem is menni fog. -
poffsoft
veterán
válasz
Fferi50
#33964
üzenetére
Én értem.
Nem biztos, hogy nordican is értette az uniont.Szóval, ha csak azokat a
cellákat figyeled, amik az A oszlopban (A:A) vannak, és a B1:E100 tartományban, meg a 23. sort:If Not Intersect(Target, Union(Range("A:A"), Range("B1:E100"), Range("23:23"))) Is Nothing Then -
Zola007
veterán
válasz
Delila_1
#33954
üzenetére
Akit érdekel, Word-ben is megoldható a StatusBar elrejtése:
Sub Statusbar_Hide()
CommandBars("Status Bar").Visible = False
End Sub
__________Sub Statusbar_Show()
CommandBars("Status Bar").Visible = True
End SubAutomatára még nem sikerült beírnom, hiába betettem a Normal sablon - This Documentbe, de így legalább külön indítható Alt-F8 után és bármikor ki-be tudom kapcsolni egy gombnyomással.
Nagyon tetszik ez az Excel VBA dolog
Nem rég kezdtük a tanfolyamon a programozást, tök jó dolgokat lehet csinálni és teljesen megváltoztatja az ember szemléletét.
köszi mindenkinek!
Delila-t meg még fogom nyaggatni sokat, mert veszélyes és fárasztó tudok lenni, ha engem elkezd érdekelni valami
-
Fferi50
Topikgazda
válasz
poffsoft
#33962
üzenetére
Szia!
Egyetértek, mert így csak egy cellát kell állítani, de azt meg kell előtte vizsgálni, hogy valóban a listát tartalmazó cellát szerkesztette-e. Ezért van a feltételsor.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("K1"))) Is Nothing Then
'ide sorold fel az Union függvényen belül azokat a cellákat, ahol listád lesz.
Sheets("Munka1").Rows(Target.Row).AutoFit
Sheets("Munka2").Rows(Target.Row).AutoFit
'és így tovább
End If
End SubÜdv.
-
Fferi50
Topikgazda
válasz
nordican
#33959
üzenetére
Szia!
Ez soha nem fog a makrók között megjelenni - és nem is kell neki - mivel eseménykezelés paraméterekkel.
Amit írtál, az minden esetben az első sor magasságát fogja automatikusan állítani, amikor a munkalapon változtattál valamit - de ez nyilván felesleges minden alkalommal. Ezért írtam, hogy a Change eseményben kell megvizsgálni, hogy szükséges-e a sormagasság állítása (csak nem tűnt ki a hozzászólásból rendesen):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("K1"))) Is Nothing Then Makró1
'ide sorold fel az Union függvényen belül azokat a cellákat, ahol listád lesz.
End SubA meghívott makróba pedig beleteszed az összes olyan munkalapot, ahol változtatni kell:
Sub Makró1()
Sheets("Munka1").Range("A1").Rows.AutoFit
Sheets("Munka2").Range("A1").Rows.AutoFit
Sheets("Munka1").Range("K1").Rows.AutoFit
Sheets("Munka2").Range("K1").Rows.AutoFit
'és így tovább, minden lapra és cellára
End SubTehát két részből áll a folyamat. Az első rész a Change eseményben van, ami megvizsgálja, kell-e állítani sormagasságot, ha igen, meghívja a második részt (makró1), ami ténylegesen elvégzi az állításokat.
Üdv.
-
poffsoft
veterán
válasz
nordican
#33959
üzenetére
nem is .
ez egy lap eseményhez rendelt makró.
vagyis, minden alkalommal, ha a munkalapon megváltoztatod valamelyik cella tartalmát, automatikusan lefut.
Mondjuk én a target.rows.autofitet használnám, vagyis annak a sornak a magasságát állítani, amelyikben éppen szerkesztettél.
ha ugyanezen a címen kell igazítanod a másik lapon, akkor még beszúrnám:
sheets("Munka2").range(target.address).rows.autofit -
Rcsi
csendes tag
Szia!
A lóerőt nem számolom ki, mivel az adott, csak nincs benne a táblázatban.
Úgy gondoltam hogy ha lehetséges több oszlopos fkeres, akkor csinálok egy táblázatot amibe megadom a márkát, hengerűrtartalmat, üzemanyag fajtáját, és manuálisan beírom a hozzá tartozó lóerőt.
Ebből a táblából kellene kiszednie a függvénynek az értéket, azaz a lóerőt. -
Rcsi
csendes tag
Sziasztok!
Ismét bizalommal fordulok hozzátok egy számomra nagyon magas feladat megoldása érdekében.
Szerintem Fkeres, és HA függvények szükségesek a megoldásához, de mivel ezeket nem ismerem, így meghaladja szerény képességeimet.
A feladat egy egyszerűsített példája:
A oszlop: Márka
B oszlop: Hengerűrtartalom
C oszlop Üzemanyag Típusa
D oszlop LEA D oszlopot kell kiszámítanom. A B oszlopban nem pontos számok szerepelnek, mint 1583ccm, hanem csak annyi hogy 1.6 vagy 2.0 vagy 2.5 stb.
Egy Opel 1.6 benzin 101 LE, de egy Audi 1.6 benzin 140LE, és egy Opel 1.6 Diesl 90LE.
Emiatt a variációk száma elég nagy.Az én táblázatom pedig még több lehetőséget tartalmaz.
Honnan kellene megindulnom, és milyen utat bejárnom a függvényekkel, hogy kitisztuljon a dolog.
Ha egy képletet írtok válaszba ahhoz kérnék egy rövid leírást is, mert még nem dolgoztam ezekkel a függvényekkel.
Az Fkeres alapját az tudom, de ott csak egy 2 oszlopos táblázatból választom ki a megfelelő eredményt.
Ha nagyon macera, akkor küldjetek el egy programozóhoz melegebb éghajlatra!Köszi!
-
Zola007
veterán
válasz
Delila_1
#33952
üzenetére
ez nem teljesen sikerült
próbáltam makróként is felvenni és közvetlen beírni mint "module", de egyikkel sem jött össze, hogy indítás után menjen automatikusanígy néz ki a module1 a personalban :
Sub makró1()
Application.DisplayStatusBar = False
End Subha kézzel indítom a makrót, akkor lefut és működik, de magától nem
-
-
-
Fferi50
Topikgazda
válasz
nordican
#33944
üzenetére
Szia!
Magától nem növekszik a sormagasság
, akkor sem, ha egyszer beállítottad ezt a tulajdonságot. Sajnos minden alkalommal újra kell állítani, amikor adat kerül bele. Erre csinálhatsz egy makrót (rögzítés), amit betehetsz a főlapod változás eseményébe (worksheet_change). Ezáltal lefuthat, valahányszor módosítod a celládat.
Pl.Range("A1").Rows.AutoFit
Ha eléteszed a munkalapot, akkor az adott munkalapon hajtja végre:Sheets(1).Range("A1").Rows.AutoFit
Az esemény vizsgálatnál meg kell nézned, hogy valóban egy listás cellát változtattál-e meg, ennek egyik módja lehet:
IPrivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("K1"))) Is Nothing Then Makró1
'ide sorold fel az Union függvényen belül azokat a cellákat, ahol listád lesz.
End SubSub Makró1()
Sheets("Munka1").Range("A1").Rows.AutoFit
Sheets("Munka2").Range("A1").Rows.AutoFit
'és így tovább, minden lapra és cellára
End SubÜdv.
-
nordican
tag
Sziasztok, volt már itt korábban szó a sormagasság automatikus átállítódásáról, és sok biztatót nem mondtatok, de lehet, nem tudom megkerülni. Van egy összesítő munkalapom, ahol néhány cellában listát szoktam készíteni (aminek a hossza, tehát a lista tételeinek száma változó), ennek megfelelően a sormagasság is változik. Ehhez az összesítő munkalaphoz tartozik több párhuzamos munkalap, ahol automatikusan kellene módosulnia a sorok magasságának az összesítő munkalapon lévő lista hosszának megfelelően (mert a cella tartalma ugyanaz). Van erre ötletetek? Sajnos most egyenként kell végignéznem a munkalapokat, hogy melyiken kell átállítanom a sormagasságot, ami elég macerás.
-
Zola007
veterán
Működik a teljes táblázat, mint írtam, kiraktam külön az FKERES függvényt, ad értéket, tehát tárolva van a fájlban az utolsó beolvasás értéke, jelen esetben pl. 57.5
Ezzel kellene behelyettesíteni a cellaképletben, tehát ehelyett:
=(B7*0.01*FKERES(B2;'D:\2017\TP\[derv14.xlsx]Inputs'!$A$2:$D$23;4;HAMIS)*(B3*B4/(100-B7))ez legyen
=(B7*0.01*57.5)*(B3*B4/(100-B7)) -
-
Zola007
veterán
Köszi, de mondom, hogy nem jó úgy
pl.=(B7*0.01*FKERES(B2;'D:\2017\TP\[derv14.xlsx]Inputs'!$A$2:$D$23;4;HAMIS))*(B3*B4/(100-B7))Ha erre nyomok egy "csak értéket", akkor lesz ugyan egy végeredményem, csak éppen buktam a képlet többi részét, ami a saját munkalapon belüli egyéb adatokkal dolgozik.
Tehát ha a B3, B4 vagy B7 értékét változtatom, akkor ez nem fog változni.Olyan megoldás kellene, ami dokumentumszinten a külső forrásból importáló cellákban csak az importált értéket tartsa meg
Jelen esetben azFKERES(B2;'D:\2017\TP\[derv14.xlsx]Inputs'!$A$2:$D$23;4;HAMIS)-nek aktuálisan megfelelő értéket
Mert tárolni biztosan tárolja valahol, mivel a fájl nem elérhető -
Zola007
veterán
nincs olyan, csak unicode szöveg vagy szöveg.
Nem most másolom és nincs meg nekem a fájl, amire hivatkozik.
Az összes kisebb táblázatot sem szeretném egyenként felülírni saját magával, mert van olyan adat, ami ugyanebben a fájlban lévő másik munkalapra hivatkozik és azok meg kell, hogy maradjanak. -
-conrad-
addikt
sziasztok,
még nem vagyok jó makrókból, illetve nem mindenki futtatja nálunk ezért a következő problémában kérném a segítségeteket, makró nélkül.
Van egy fkeres függvény, ami egy másik fájlból húz be adatokat. Ez a forrásfájl hetente változik, másik mappában van (heti elnevezés) és más a neve (heti elnevezés). az alapfájlban ez a függvény sok helyen szerepel, nem szeretném a forrásfájl változása miatt átírogatni, illetve akinek dolgozni kell vele az sem fogja tudni ezt megoldani.
Arra gondoltam, hogy egy linket elhelyezek egy cellában, hogy hol a heti fájl amiből dolgozni kell, és az fkeres függvény mindig ebben a fájlban keres.
Valahogy így, nyilván nem működik így, de erre kellene megoldás:
Változik a heti mappa meg a fájl neve a hét miatt, de ha mint link betenném mindig egy cellába onnan nem lehet behúzni a függvénybe, mint keresési hely? -
kezdosql
tag
válasz
Fferi50
#33923
üzenetére
Igen, ilyenekkel en is szivtam idonkent csv fajloknal.
Hulye excel ilyenkor az egesz sornyi adatot egyetlen cellaba olvasta be.
A megoldas az volt, hogy txt-re at kellett nevezni, akkor mar elindult a konverzios varazslo, amelyik tudta, hogy vesszo es pontosvesszo is lehet hatarolo.
Kar, hogy kulon nem lehet elinditani a konverzios varazslot. -
-
Fferi50
Topikgazda
válasz
smerch
#33919
üzenetére
Szia!
Ugyanabban az oszlopban képlettel nem tudod megváltoztatni, csak makróval.
Képlettel a mellette levő oszlopba tudod az új dátumot megkapni:
Ha A oszlopban van a dátumod,A2 cellától, akkor a B2 cella képlete:=DÁTUM(ujév;ujho;ujnap)+MARADÉK(A2;INT(A2))
Az ujév,ujho,ujnap amit meg szeretnél adni.Üdv.
-
bobsys
veterán
Merre induljak el ha a kovetkezot szeretnem megoldani?
1. Munkafuzet
A1: Bobsys
A2: PH
A3: Forum2. Munkafuzet
A1: Hello B1: Egy
A2: Bobsys B2: Ketto
A3: Ize B3: HaromAmit szeretnek, hogy a fuggveny az 1. munkafuzet B1 cellajaba beirja a 2. munkafuzet megfelelo B cellajat az alapjan, hogy megtalalhato-e barhol a 2. fuzet A oszlopaban az 1. fuzet A1 karakterhalmaza
-
Rcsi
csendes tag
Sziasztok!
Újra itt egy újabb kérdéssel.
Mostanáig nagyon jól haladtam köszönhetően a segítségeteknek.Két adatbázist kellene egyesítenem (még ha nem is ez a megfelelő szó erre), azaz kapok két külön adatbázist különböző formákban, nevekkel stb., de mégis tartalmazza ugyanazon termékeket.
Addig már eljutottam, hogy a cikkszámok (ez a legfontosabb része, ez alapján azonosít a rendszer ahová fel kell majd töltenem) egyező formájúak, így lehet pl. az ismétlődőket eltávolítani.
Viszont nekem arra lenne szükségem, hogy ne foglalkozzon a termék nevével, vagy más paraméterekkel, kizárólag a cikkszám alapján dobja ki az ismétlődőket úgy, hogy a különböző nevekből egy tetszőlegeset használjon.
Na ezt aztán megfogalmaztam, remélem megérti valaki.
Van erre valami megoldás?Üdv!
Excel2007 Magyar
-
-
Dronte
aktív tag
válasz
Fferi50
#33911
üzenetére
Köszi, énis erre jutottam eddig, viszont módszertanilag nem tudom egészen hogy érdemes nézni. Tehát mire húzzam a függvényt - éves százalékos változásokra, vagy nominális értékekre.. esetleg kezdő és végső időpontra? Hogy mutat reális képet? Igazából ez lehet részletkérdésnek hangzik, de elég nagy elemzésről van szó
-
Dronte
aktív tag
Sziasztok!
Kicsit meghaladta a statisztikai / excel tudásom az alábbi feladat:
Adott ~30 db ország 15 évnyi adata: GDP és XY bevétele
Azt szeretném valahogy kiszámolni, megnézni, értelmezni, hogy az egy főre jutó GDP változása milyen hatással volt az XY bevételekre. Ezt akár összesítve 15 évre minden országra, vagy éves bontásban összesítve is jó lenne.
Tehát van-e kapcsolat a GDP változása és az XY bevételek változása között. Erre valami tipp? Lehet ez inkább statisztikai kérdés elsősorban mint Excel
Előre is köszi a segítséget!
-
Pakliman
tag
Szia!
Az táblázat megnyitása (a tulajdonképpeni "program" elindítása) nélkül ez nem megy
Viszont van kerülő út, pl.:
- a win. indítópultjába berakod, így az a gép (újra)indításakor megnyílik, a program lefut. Hátránya, hogy bezárni Neked kell
- VBScript, időzítő programok használata...Hogy csak egyszer lehessen futtatni:
Makró kell.
Ki kell választani egy cellát valamelyik munkalapon (lehet egy kimondottan erre létrehozott, esetleg rejtett!).
Ez lesz a CheckDate...
A lekérdezést/másolást végző makró elejére kell beírni egy kódot, ami ellenőrzi, hogy a CheckDate cella tartalma mi: ha üres vagy a mai napnál régebbi dátum szerepel benne, akkor mehet tovább a feldolgozás,
egyébként esetleg MsgBox a júzernek, hogy ma már nem futhat... -
Erre esetleg valaki?
Leírom példával, hátha csak túl sokat kértem korábban. A munkalap A1-es cellájától XYZ1-es celláig tartalmazza az év összes napját. B1-es cellától kezdődően minden nap be kellene kerülnie a C1 cella értékének, tehát a mai érték B1-be, a holnapi a B2-be, azután a B3-ba, így tovább. A C1 cella értéke SQL script által frissül, az excel megnyitásával egyidőben. Hogy a C1 cella értékének másolása gombnyomásra, vagy excel megnyitásra történik-e, már mellékes kérdés.
Köszönöm a segítséget előre is!
-
poffsoft
veterán
válasz
nordican
#33903
üzenetére
Liste=Activesheet.NameGondolom, le lehet kérdezni a kijelölt sheetek neveit is.
Ha csak az aktivesheet kell, akkor pl:
Sub Makro1()
Dim rng As Range
Dim c As Range
Set rng = Range("A1:F100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
End Sub -
válasz
Fferi50
#33902
üzenetére
Ugyan nem tudom milyen csúnya szavakat használsz, de a leírtakkal mintha megoldódott volna a probléma. Létrehoztam a segédmezőt a leírtak szerint és így mintha lenne eredménye
Nagyon szépen köszönöm a segítséget!
Amit ajánlottam, fenntartom - bármikor van szegedi út, szívesen meghajigállak sütivel
-
nordican
tag
válasz
poffsoft
#33896
üzenetére
Köszi, ez az! Szerinted olyat bele lehet építeni, hogy az éppen aktív vagy a kijelölt munkalapokon végezze el a cserét? Próbáltam az ActiveSheet-tel, de ezzel nem működik.
Sub Makro1()
Dim list() As String
Dim liste As String
Dim i As Integer
Dim c As Range
Dim rng As Rangeliste = "ActiveSheet" 'a munkalapok nevei, ahol keresni kell, vesszővel elválasztva
list() = Split(liste, ",")
For i = 0 To UBound(list)
Set rng = Sheets(list(i)).Range("A1
100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
Next i
End Sub -
Fferi50
Topikgazda
válasz
bitpork
#33897
üzenetére
Szia!
Úgy látom, ez a verzió nem eszi meg a tartományok konkatenálását
Biztos, hogy tömbképletként (Shift+Ctrl + Enter) vitted be? (Kapcsos zárójelbe kell a képletnek kerülnie.)Akkor az az út járható, hogy csinálsz egy segédoszlopot mindkét táblában, amelybe az =A2&E2 képletet húzod végig az oszlopon.(Pl. az X oszlopba)
Ezután használhatod a
=H2-INDEX('2compareW'!H$2:H$333,MATCH('Men+Women'!X2,'2compareW'!X$2:X$333,0))képletet.
Üdv.
-
Delila_1
veterán
Kedves Törzstagok és nem törzsek!
Fferi felvetette, hogy hozzunk létre egy tárhelyet, ahol a többször felvetett kérdésekre válaszoltunk (GYIK).
Kérem, segítsetek!Ha eszetekbe jut egy-egy ilyen kérdés, írjátok be egy hsz-be, és esetleg írjátok be mellé a választ tartalmazó hsz sorszámát.
Ezeket átmásolom a LOGOUTomba, ami a nevem alatt lévő LOGOUT blog (1)-re kattintva jön elő. Később, ha már több téma összejött, az összefoglalóba is beteszem az elérhetőségét.
Köszönöm a segítségeteket,
Delila
Ez k...a jó!
100")
Új hozzászólás Aktív témák
- Kínai és egyéb olcsó órák topikja
- Építő/felújító topik
- Synology NAS
- Xbox Series X|S
- Gumi és felni topik
- Samsung Galaxy A55 - új év, régi stratégia
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- Autós topik látogatók beszélgetős, offolós topikja
- Mibe tegyem a megtakarításaimat?
- Autós topik
- További aktív témák...
- Battlefield 6 - Digitális játékkulcs
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Antivírus szoftverek, VPN
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- ÚJ Xiaomi Mi Robot Vacuum Mop Essential robotporszívó feltörlő 2db 1999 Ft
- Vállalom telefonok,tabletek javítását ,(szoftveres hibát is,frp lock-ot is)márkától fügetlenűl
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- Bomba ár! HP ProBook 640 G8 - i7-1165G7 I 32GB I 512GB SSD I 14" FULLHD I Cam I W11 I Gari!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest