- Computex 2024: monstrumhűtő a DeepCoolnál (videóval!)
- Computex 2024: szimpatikus Montech billentyűzetek a porondon
- Computex 2024: háznézőben a Montech asztalainál
- Computex 2024: kompakt AIO-k és tápegységek a Montech receptje alapján
- Computex 2024: a Ducky klaviatúrái sem restek felülni az analóg vonatra
Hirdetés
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Computex 2024: háznézőben a Montech asztalainál
ph A vállalat sok portékájának közös vonása, hogy a csatlakozóikat túlsó felükre száműző alaplapokat és az óriásira hízott VGA-kat is tárt karokkal várják.
-
Frissítve! Summer Game Fest 2024 - Az összes bejelentés egy helyen!
gp A show késő este kezdődik, de utána az összes trailert összegyűjtjük egy helyre.
-
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
-
perfag
aktív tag
Dolgom volt du., közben látom Delila már adott rá megoldást, de ha már kész, ide teszem.
Sub copy_data()
Dim rng As Range
Dim tcell As Range
Dim w, i, j, k As Integer
'előkészítés
j = 1 'célcella számláló
k = 2 'dátum oszlop távolsága jobbról
'a gyűjtőlapon C4-be kezd adatot áthozni
Set tcell = Worksheets(1).Range("C4")
'de előbb lefelé 100 cellának törli a tartalmát
Range(tcell(1), tcell(100)).ClearContents
'munkalapok
For w = 2 To 6
'az adatok D3:D8-ban
Set rng = Worksheets(w).Range("D3:D8")
'vizsgáódás, másolás
For i = 1 To 5
If Not rng(i) = Empty Then
'a mai naphoz képest mi régebbi, mint 3 hónap,
'ám én inkább 90 napot használnék:
'If DateDiff("d", rng(i, k), Now) >= 90 Then
If DateDiff("m", rng(i, k), Now) >= 3 Then
tcell(j) = rng(i)
j = j + 1
End If
End If
Next
Next -
DjSteve85
csendes tag
Sziasztok!
Szükségem lenne egy függvényre, vagy képletre, vagy mifélére!
A problémám a következő :
2 lapfüles a táblázat:
Lapfül1:
Az ország összes települése
A oszlop: irányítószámok
B oszlop: települések
Lapfül2:
Az ország bizonyos települései
A oszlop: üres
B oszlop: "bizonyos települések"Szeretném ha A oszlop nem üres lenne, hanem áttenné az irányítószámokat, ha pedig elírás lenne, akkor pl. HIBA üzenettel helyettesítené.
Segítségeteket előre is köszönöm!
Üdv! Steve -
cousin333
addikt
válasz DjSteve85 #10656 üzenetére
Üdv!
Célszerűen rendezd az 1. lapfül elemeit az irányítószám szerint sorrendbe, majd cseréld fel az A és B oszlopokat (hogy a településnév legyen elöl).
Feltételezem, hogy az 1. lapon A1:A100-ig vannak a nevek, és B1:B100-ig az irányítószámok.
Ekkor a 2. lapfülön az A oszlop első sorába írd ezt a függvényt:
=FKERES(A1; Fül1neve!$A$1:$B$100; 2; HAMIS)
A Fül1neve helyett nyilván az első fül neve kell (de ha kijelölöd, automatikusan beírja neked). Ha nincs olyan nevű település (mert pl. elgépelted), akkor #HIÁNYZIK hibát dob.
[ Szerkesztve ]
"We spared no expense"
-
Delila_1
Topikgazda
válasz DjSteve85 #10658 üzenetére
Egy apró kiegészítés cousin333 válaszához:
Amikor nem talál a helységnévhez megfelelő irányítószámot az FKERES függvény, akkor nulla értéket ad. Az
=HA(FKERES(A1;Fülneve!A:B;2;0)="";"Hiányzik az irányítószám";FKERES(A1;Fülneve!A:B;2;0))
függvény ezt kiküszöböli.
Az FKERES függvény tartományát ki lehet terjeszteni a teljes A:B oszlopra, nem szükséges a kezdő- és befejező sort beírni.
[ 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.
-
sz.j
nagyúr
Szevasztok.
Bővítenem kellene az eddig használt Excel táblázatot jó pár sorral ill. egy-két oszloppal és ehhez kérem a segítségeteket.
Open Office org-ot használok.
Hogy tudok sorokat, ill. oszlopokat úgy beszúrni/másolni, hogy a cellákban lévő képletek is bennük legyen, ne kelljen cellánként külön-külön beírni?Előre is köszi a segítséget.
Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
m.zmrzlina
senior tag
Ugyanúgy mint Excelben.
Insert (sor vagy oszlop ami kell) aztán Copy>Paste special, és kiválasztod, hogy mit akarsz beilleszteni.
Szerk:
Arra azért figyelj, hogy jónéhány Excel függvény nem működik OO-ban.
[ Szerkesztve ]
-
bugizozi
őstag
válasz Delila_1 #10647 üzenetére
Köszi, ez egész jó lenne, csak van benne egy bibi
Ha pl 35-t írok be, akkor a 40 cellát színezi, ha 60-t akkor a 65-t...
de amúgy pl 13 nagyszerűen hozza a 15 cellát, 26-ra a 30-t és ez a képlet magamról rá nem jöttem volnaVCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
válasz bugizozi #10663 üzenetére
A C1 képlete legyen
=HA(HIBÁS(FKERES($A$2;B:B;1;0));HOL.VAN($A$2;B:B;1)+1;HOL.VAN($A$2;B:B;0))
(ezt írhatod a háttér színével, hogy ne zavarjon), a feltételes formázásé pedig =SOR()=C$1
[ 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.
-
sz.j
nagyúr
válasz m.zmrzlina #10662 üzenetére
Sajnos nekem nem sikerült, mert ha a a Beszúrás -- Sorok- ra kattintok akkor csak egy képletek nélküli üres sort szúr be.
Íme:
kép 1
kép 2Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
sz.j
nagyúr
válasz m.zmrzlina #10662 üzenetére
Bocs, ez lemaradt:
"Arra azért figyelj, hogy jónéhány Excel függvény nem működik OO-ban."
Ezzel az OOo-val jó régen már csináltam ilyen beszúrást és akkor sikerült a képleteket is tartalmazó új sorok beszúrása ...., csak sajna elfelejtettem hogyan kell csinálni ....
Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
sz.j
nagyúr
válasz m.zmrzlina #10671 üzenetére
Közben én is próbálkoztam ...., lehet, hogy nem "szakszerű a menet" de az alábbiak szerint sikerült.
Sor(ok) kijelölése --- jobb klikk a sorra --- Másolás --- újabb jobb klikk a kijelölt sorra --- Irányított beillesztés --- OK
Annak ellenére, hogy sikerült, nekem úgy rémlik, hogy hajdanán sokkal egyszerűbb megoldással lehetett ezt megcsinálni .....
Amúgy még egyszer köszi a segítséget!
Műanyag, alumínium és motoros redőnyök, valamint szúnyoghálók készítése, szerelése. www.szaboredony.hu
-
félisten
Az egér, meg a billentyűzet (főleg együtt), csodákra képes...
Kijelölsz egy területet/teljes sort/teljes oszlopot stb, akkor ugye a kijelölést egy vastagabb fekete vonal/keret veszi körül. Ha erre a keretre ráállsz az egérkurzorral, bal egér nyomva tartása mellett, már mozgathatod is pl. Egy pár tipp a lehetőségekről.
# egérkurzor a kereten -> kijelölés mozgatása, ha a célterület nem üres, rákérdez a felülírásra
# egérkurzor a kereten + CTRL -> kijelölés másolása, ha a célterület nem is üres, akkor sem kérdez rá a felülírásra
# egérkurzor a kereten + SHIFT - >kijelölés mozgatása beszúrással (vízszintes vagy függőleges beszúrás)
# egérkurzor a kereten + CTRL + SHIFT -> kijelölés másolása beszúrással (vízszintes vagy függőleges beszúrás)
Ezek azok a dolgok, amiket nem szoktak tanítani, kevesen ismernek, mégis ezek az "apróságok" teszik lehetővé/segítik elő, hogy valaki hatékonyan dolgozzon az Excel-el...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
perfag
aktív tag
válasz Fire/SOUL/CD #10674 üzenetére
Ha már itt vagy: a [10637]-ben kérdeztem, hogy a DATDIF miért mostohagyereke az Excelnek, erről nem tudsz valamit?
[ Szerkesztve ]
-
félisten
-
Mr.Csizmás
félisten
üdv!
újabb excel kínlódás....
majdnem száz db file-ben kellene lecserélni az élőlábat....ugyanaz a szöveg mindenütt, semmi extra. hogy lehetne megoldani?
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
félisten
válasz Mr.Csizmás #10677 üzenetére
1. betöltöd a munkafüzetet
2. módosítod az élőlábat/láblécet
PageSetup.LeftFooter = "Balra kerülő szöveg"
PageSetup.CenterFooter = "Középre kerülő szöveg"
PageSetup.RightFooter = "Jobbra kerülő szöveg"3. mented a munkafüzetet és bezárod
az 1-3 pontokat ismétled, szép egymás utánba megnyitva a munkafüzeteket.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
Akit érint, letölthető az MS Office 2010 első javítócsomagja:
Szervizcsomag a Microsoft Office 2010 (KB2460049) 32 bites kiadásához - MagyarSzervizcsomag a Microsoft Office 2010 (KB2460049) 64 bites kiadásához - Magyar
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Mr.Csizmás
félisten
válasz Fire/SOUL/CD #10678 üzenetére
ezt akarnám elkerülni, hogy mind a 86 darabot egyenként kelljen megnyitogatni...
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
perfag
aktív tag
válasz Mr.Csizmás #10677 üzenetére
Ha megvan a fájllistád: List files in a folder
Megnyithatod a fájlokat: How to open a file from VBA
És jöhet a Fire javasolta módosítás. -
perfag
aktív tag
válasz Mr.Csizmás #10683 üzenetére
Bakker, ez régen működött. A 2010-ben nálam sem megy, valamit megváltoztattak.
Sőt, az innen List of all files contained within a Directory letöltött fájl is kiakad.
John Walkenbach oldalán ez nálam műxik. -
félisten
válasz Mr.Csizmás #10683 üzenetére
Egy kérdésem lenne, aztán gyorsan megírom, szóval a fejléc/lábléc minden munkalapon más és más lehet. Azt szeretnéd, hogy az összes munkafüzet összes munkalapján ugyanaz legyen a lábléc?
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Mr.Csizmás
félisten
válasz Fire/SOUL/CD #10685 üzenetére
egen
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
félisten
válasz Mr.Csizmás #10686 üzenetére
Oksa, akkor ennyi lenne, felkommenteztem, ahol kell, remélem egyértelmű.
Private Function FSCD_Header_Footer_Changer()
'hol találhatóak az Excel munkafüzetek
Const MY_PATH = "D:\mrcsizmas\"
'mi a kiterjsztésük
'(ez így azért is jó, mert az xlsx fájlok is olvashatók)
Const MY_EXTENSION = "xls"
Const MY_HEADER_LEFT = "Fejlécben BALRA kerülő szöveg"
Const MY_HEADER_CENTER = "Fejlécben KÖZÉPRE kerülő szöveg"
Const MY_HEADER_RIGHT = "Fejlécben JOBBRA kerülő szöveg"
Const MY_FOOTER_LEFT = "Láblécben BALRA kerülő szöveg"
Const MY_FOOTER_CENTER = "Láblécben KÖZÉPRE kerülő szöveg"
Const MY_FOOTER_RIGHT = "Láblécben JOBBRA kerülő szöveg"
'csak a láblécek legyenek módosítva
'False értékre állítva, a fejléceket is módosíthatod
Const MY_ONLY_FOOTER = True
Dim My_WorkBook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FName = Dir(MY_PATH & "*." & MY_EXTENSION)
Do While Len(FName) > 0
Set My_WorkBook = Workbooks.Open(MY_PATH & FName)
With My_WorkBook
For i = 1 To .Worksheets.Count
.Worksheets(i).PageSetup.LeftFooter = MY_FOOTER_LEFT
.Worksheets(i).PageSetup.CenterFooter = MY_FOOTER_CENTER
.Worksheets(i).PageSetup.RightFooter = MY_FOOTER_RIGHT
If Not MY_ONLY_FOOTER Then
.Worksheets(i).PageSetup.LeftHeader = MY_HEADER_LEFT
.Worksheets(i).PageSetup.CenterHeader = MY_HEADER_CENTER
.Worksheets(i).PageSetup.RightHeader = MY_HEADER_RIGHT
End If
Next i
.Save
.Close
End With
Set My_WorkBook = Nothing
FName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("Az összes munkafüzet módosítása sikeresen megtörtént.")
End FunctionUI: Először azért készíts másolatot a módisítani kívánt fájlokról, biztos , ami biztos...
[ Módosította: Grafiqs ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz Fire/SOUL/CD #10687 üzenetére
A fene, balfax voltam, illet volna egy üzenetet kiírni, amikor befejeződött a "villódzás"...
Szólok is egy modinak, hogy szerkesszen bele.Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Mr.Csizmás
félisten
válasz Fire/SOUL/CD #10688 üzenetére
KÖSZÖNÖM
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
sonar
addikt
Meg tudja valaki mondani nekem, hogy Gauss görbét hogyan lehet rajzolni?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
félisten
-
ArchElf
addikt
Mármint excelben levő pontokból, vagy hogy képzeled el kb...? Mit szeretnél, kicsit konkrétabban?
"Csak úgy" szeretnél gauss görbét rajzolni, vagy megadott pontokra Gausst illeszteni?
AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
sonar
addikt
válasz ArchElf #10695 üzenetére
Van kb 100.000 mért adatom és szeretném megnézni az eloszlását.
Ha pivottal csinálok egy XY-os chartot akkor kb megkapom a Gauss görbét, csak elég hepehupás lesz mert minden adatot ábrázol.
Illetve a szórásokat is ki akarom számolni.A linkeket kösz, majd átolvasom, meg azt hiszem kicsit fel kell elevenítenem a statisztika tudományát.
[ Szerkesztve ]
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
petrusz82
aktív tag
Sziasztok!
Kellene egy kis segítség a következővel kapcsolatban:
A lényeg, hogy a "link" szöveg eltűnjön, mint a "http://www." részben.
Ezt a felső részben úgy tudtam elérni, hogy a hivatkozás szerkesztése menüben a "megjelenő szöveg" tartalmát töröltem.
Azonban ezt a műveletet megközelítőleg 30000 esetben kéne végrehajtani.
Tehát a cél, hogy a hivatkozás elérési címe látszódjon, a link pedig nem.A segítséget előre is köszönöm!
-
petrusz82
aktív tag
válasz Fire/SOUL/CD #10698 üzenetére
Nagyon szépen köszönöm, tökéletesen működik, Két napi agyalásomat oldottad meg egy csapásra!
Hálám örökké üldözni fog!
Üdv: Péter
-
tökfey
tag
Sziasztok!
Azt szeretném megoldani, hogy egy olyan munkaidő beosztást csináljak, amiben a műszakok mellett ott vannak a hozzájuk kapcsolódó bérpótlékok szorzói is. Tehát, az első sorban az szerepelne, hogy délelőtt/délután/éjszaka/stb., mellette pedig ugye az aktuális műszakra járó bérpótlékok szorzói. Na és nem akarom minden egyes alkalommal bepötyögni, hogy a délelőttre ennyi jár, a délutánra meg annyi. Az lenne a legjobb, ha elég lenne beírnom, hogy délelőtt, stb. és mellette magától beírná, hogy arra mennyi pótlék jár. Remélem érthetően, amit szeretnék...Ezt hogy lehetne megoldani?
Ezt most mondtam, vagy csak gondoltam?
Ú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!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam kulcsok - UTALÁS/REVOLUT
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs