Hirdetés
- ThinkPad (NEM IdeaPad)
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- Fapados Biostar alaplap érkezett
- Milyen notebookot vegyek?
- Melyik tápegységet vegyem?
- Kormányok / autós szimulátorok topikja
- Tudjuk, de nem tesszük: a magyarok többsége nem törődik adatai védelmével
- Apple MacBook
- Bluetooth hangszórók
- Riasztó topik
-
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
-
mckay
aktív tag
-
Onderon
senior tag
De, viszont 0:16-ra már járna túlóra, mert csak az első 15 perc "van ingyen", a te függvényeddel azonban 0:29-ig jár nulla, 0:30-ra pedig már a teljes túlóra jár, pedig a lépték 15 perces kellene legyen arányosan. Elnézést, azt hiszem nem fogalmaztam meg érthetően.
Szóval a túlóra emelkedik, de arányosan kapjuk, minden megkezdett 15 perc után, ahol a legelső 15 percért nem jár semmi, viszont a második 15 percért (15-30) már jár a túlóra 2/4-e, a harmadikért (30-45) jár a 3/4-e, majd 45-60-ig a 4/4-e és stb.
-
-
luckyboi82
tag
Uhh, ez nekem teljesen nem magyar.
A világos szürkével írtakat ki kell törölni? Az E3 az a cella ahol pl. 401,1 van írva? Worksheets-hez a lapfül nevét kellene írni, azon belül a Range az a tartomány lenne gondolom. Hogyan lehet a kész eredményt megtalálni? Külön kell menteni? -
the radish
senior tag
Köszönöm!
+1:
Adott egy zip fájlt kitömörítő makró:Sub Unzip()
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String
Fname = Application.GetOpenFilename(Filefilter:="Zip Files (*.zip), *.zip", _
MultiSelect:=False)
If Fname = False Then
'Do nothing
Else
'Destination folder
DefPath = "D:\Data\" '<<< Change path
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If
FileNameFolder = DefPath
' 'Delete all the files in the folder DefPath first if you want
' On Error Resume Next
' Kill DefPath & "*.*"
' On Error GoTo 0
'Extract the files into the Destination folder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
MsgBox "You find the files here: " & FileNameFolder
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End If
End SubSzeretném a "GetOpenFilename" opciójaként megadni, hogy pl. a fájl tallózása során a "munka" elnevézű fájlokra is szűrjön, de eddig csak a fájl típus szűrést találtam.
Egy másik formációval ez sikerült, ott meg a kitömörítéssel nem jutok dülőre:
Sub OpenFileFromDefaultPath()
Dim fileDialogBox As Office.FileDialog
Dim fileName As String
Set fileDialogBox = Application.FileDialog(msoFileDialogFilePicker)
With fileDialogBox
.InitialFileName = "D:\Data\"
.InitialFileName = "*munka*"
If .Show = True Then
' e nélkül is működik
fileName = .SelectedItems(1)
End If
End With
End Sub -
tamas1985
tag
nem , kicsit rosszul fogalmaztam, adott egy táblázat, ez kerül nyomtatásra, majd kézzel kitöltésre, van benne egy sorszám rész, amit jó lenne úgy megoldanom, hogy ha mondjuk nyomattok belőle 20 oldalt, akkor ne keljen mindet végig sorszámoznom.
Nem egy darab sorszám van, hanem egy oszlopnyi
, az lenne jó ha folyamatos lenne -
Fferi50
Topikgazda
Szia!
Viszont amennyiben 6 szám átlaga kell, akkor kevesebb számból nem ér átlagot számolni
Egyébként nálad is feltétel az, hogy egymást követő 6 sort néz, nem pedig egymást utáni 6 számot. Ez utóbbi feltétel teljesíthetőségén - azaz 6-6 számot nézzen akkor is, ha nem egymást követő sorokban vannak - még morfondíroznom kell. (pl. 1,3,b,8,9,d,10,2,z,,8 ... hat-hat darab szám átlaga v. összege, mert abból már lehet átlagot számolni könnyen.)
Üdv. -
jcage
tag
-
Msony
tag
Nagyon köszi.
De ez fizetős.
Olyat én is tudok.Ingyenesből van VBA kódos: link és link
Mike barátunk az általa írt makróval megoldja, hogy a Sankey elkészül a böngészőben, még módosítani is lehet ott, de ez is egy külső megoldás, amit le kell fotózzak és képként beilleszteni a doksiba.Szóval szeretném használni a google diagramjait, mert a Script lab ezt ingyenesen lehetővé teszi.
Külső modullal készült és képbefotózós megoldást többet is ismerek, de az lassú és nem szép.üdv
-
AttyVin
aktív tag
-
MasterMark
titán
Köszi, tökéletes.

Ez lett belőle:
For Offset = 3 To 7
Formula = Loc.Resize(1).Offset(0,Offset).Formula
ExpArray = Split(Formula, "+")
Exprr = ExpArray(UBound(ExpArray))
Exprr = Replace(Exprr, CStr(Loc.Row - 1), CStr(Loc.Row - 2))
Loc.Resize(1).Offset(0,Offset) = Formula & "+" & Exprr
Next Offset -
Kence Fice
lelkes újonc
Ismertek az eddigi havi költések témakörök szerint, annyit sejteni lehet, hogy ebből a rezsi az nagyon komolyan megemelkedik, valószínűleg az élelmiszerárak is, de kisebb mértékben.
A szabad pénzmennyiségre kell fókuszálni, hogy mennyivel csökkentsük a más témakörökre költéseket, a minimális tartalékot valahogy megtartsuk, hogy mindig legyen valamennyi készpénz. -
bozsozso
őstag
Szerintem rosszul fogalmaztam és már csak azt mutattam mit akarok a végén.

Tehát jelenleg A oszlopban ez van:
1111111
2222222
3333333
4444444pl: a 1111111-et szeretném 365 sorban, hogy a B oszlopba tudjam berakni a dátumot január 1-től december 31-ig
Minden azonosítót 365 soron szeretnék látni.
-
bteebi
veterán
Így vagy úgy, de fura. Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen. Egy dolgon kellett módosítani, mert talán nincs simán olyan, hogy Workbook_Close (tulajdonképp logikus), csak olyan, hogy Workbook_BeforeClose:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
End SubHa csak a
DisplayFullScreenvan a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele aWindowStateis. De akármilyen módban is hagyom ekkor (ribbon mutatás/rejtés, vagy épp ablak/teljes képernyő), a következő file-t annak megfelelően nyitja meg ribonnal vagy anélkül, ablakban vagy teljes képernyőn. -
bteebi
veterán
Egy kis félreértés van, valamelyest becsapós a megfogalmazás.

Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az
Application.DisplayFullScreen. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...
Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.
-
psg5
veterán
Bocsánat! Probaltam mindig tomiren egyszeruen leirni.
Tényleg koszonom mert ha a legujabb officet hasznalja mindenki akkor teljesen jol mukodik a fülek rejtese jelszoval.
Sajnos tobb regebbi excel is használatban van igy siman egy mappábavtesszuk a különböző munkafuzeteket (amelyek eddig fulek voltak) es egy = fuggvennyel mjndegyikbol behuvjuk az adatot egy torzs munkafuzetbe. Igag azt nem talaltuk hogy milyen modon lehet megoldani hogy ne kelljen minden cellába végig = fuggvenyt kézzel irigatni mert ilyenkor nem engedi sima huzassal ervenyesiteni a következő cellára. -
-
psg5
veterán
Igen köszönöm ez megvan.
Sajnos valamit nem jol masolok modositok, mert van amikor bár eltunnek a fulek, hiaba irom be a jelszot. Es van hogy hiaba irom be a makrot nem tunnek el a fulek.
Illetve az altalad kuldottben hiaba irom be a makros jelszavadat nem tortenik semmi. -
Silious
tag
Nem, pontosan megadnám, hogy hol keressen, tehát lehetne úgy is értelmezni, hogy az A oszlóbban lévő sor001.jpg, és a B oszlopba pedig ezt a képet beillessze nekem automatikusan.
Mondhatni a B2 cellába akarok egy függvényt vagy makró, aminek megadom, hogy az A2 cellában lévő fájlnevet keresse, és megadom neki, hogy a C:\kepek\ mappába keresse meg és persze illessze is be.
-
hódmaci
senior tag
Idő formátumnál történik ez. Azt állítottam be.
Ezért nem értem laikuskén mit keres ott a dátum.
Fire/SOUL/CD
Vagyis ha jól értelek akkor minden cellába be kell pötyögnöm a xx:00 -t
Nem tudom azt megtenni, hogy autómatikusan a 17et átalakitsa 17:00 ra -
z123456789
addikt
Elnézést mindenkitől, nem sűrűn használok excelt, ha igen, akkor is a legalapabb funkcióit, nem tudom mire képes a program. Csak sejtem, hogy kb mindenre.
Azt akkor gondolom nem tudja, hogy a Trello alkalmazáson belül levő adatokra hivatkozzon. Tehát mondjuk, ha azt a leírást kimásolom egy TXT fájlba, azzal már tudnk valamerre haladni?
Egyébként mostanában láttam ezt a makró funkciót, azzal gondolom meg lehet oldani, de nem tudom hogy működik. Illetve így "hangosan" gondolkodva, nem is azzal van a baj, hogy annak utána járjak, hanem azt gondoltam, hogy egyből tudom ipmortálni a Trelloban levő adatokat. De akkor ez így ebben a formában nem működik, igaz? Kell valami másik program, ahova kimásolom ezeket az adatokat, és az excel táblázat arra tud majd hivatkozni? Valami ilyesmi?
-
z123456789
addikt
Adott a Trello nevű app, amiben lényegében minden adatot tök jól tudunk rögzíteni, tehát lényegében ő lenne az adatbázis. Már amennyire lehet a Trelloban levő adatokat adatbázis nyilvántartásként kezelni.
(Szerintem amúgy már itt bukik a dolog.) A képen látni, hogy Adott cég adatai szerepelnek egy trello kártya leírásában, rendezett sorokban. Ezeket az adatokat szeretném átültetni a linkelt excelbe, mindegyiket oda, ahova való.49284detroitrw
Köszönöm, ezt néztem én is, de ha van mód rá, akkor inkább a fent leírtak szerint készíteném, hogy ne nagyon legyen még plusz dolgom vele.
-
istvankeresz
aktív tag
Szia!
Lehet, hogy nem jól írtam le, de így talán jobban érthető:
Ez az "adatbázisom" az egyes lapfülön:
Ezt szeretném a második lapfülön:
Ha B3-ba beírok egy 2-est akkor C3 és D3 automatikusan kitöltődik, azaz így néz ki:
Ha esetleg letudnád írni erre a példára a konkrét függvényt, akkor azon eltudnék indulni.
Előre is köszi!
-
Dilikutya
félisten
Nem, csak lehet rosszul írtam le. Szóval:
Van egy cél oszlop, egyszerűség kedvéért A2:A10 mondjuk (amúgy J
), és van az értékek tömbje, ez B2
10.
A szerint van színezve, hogy a tömb értékei hogy viszonyulnak az A-hoz (<90, 90<értékek<100, >100). De bejön egy plusz feltétel, ezek legyenek a 11. sorban, B11
11, az értékek alatt. Ez ha nulla, marad a fenti formázás, de ha nagyobb nullánál, akkor az az érték B2
10-ben legyen szürke, tökmindegy, hogy viszonyul az A oszlophoz. -
Dilikutya
félisten
Visszazárás, feloldás után jó lett, valóban a celláknál volt. Valószínűleg így lett anno megcsinálva, a 100. sorig kijelölve, és úgy zárolva. A makróban nincs ilyen, az csak amikor a második oszlopba beírunk, felold, beírja az elsőbe a dátumot, és visszazár. Fél perc guglizással bárki feltöri, szerencse hogy ezeknek annyi esze van mint egy marék molylepkének, így elég a védelem.

-
Delila_1
veterán
Az előzőnél az
oszlop = Application.Match(cim, Range("G1:BB1"), 0)
sor olykor 0 értéket ad, ha nem található a G1 : BB1 tartományban a cím.
Az eredetiIf VarType(oszlop) = vbError Then
sort ezért kibővítettemIf VarType(oszlop) = vbError Or oszlop=0 Then
-re, de lemaradt egy p betű az oszlop végéről. -
Delila_1
veterán
Sub Masolas()Dim cim As String, sor As Long, tartomany As Range, oszlop As Integer, usor As LongSet tartomany = Selectionsor = tartomany(1).Rowcim = Cells(sor, 2)On Error Resume Nextoszlop = Application.Match(cim, Range("G1:BB1"), 0)If VarType(oszlop) = vbError Or oszlo=0 Thenoszlop = Cells(1, Columns.Count).End(xlToLeft).Column + 1Cells(1, oszlop) = cimElseoszlop = oszlop + 6End Ifusor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1Selection.Copy Cells(usor, oszlop)End Sub -
lappy
őstag
A következő probléma megoldásában kérném a segítségeteket:
Adott egy bemásolt lista az A1 cellától lefelé. A lista elemei legyenek a példa kedvéért sorban
pl.: cikkszám, mennyiség, egység, megnevezés, ár, …. , de a listában egymás után több cikkszám, mennyiség, egység … van
A következőt szeretném az átalakításhoz
A lista elemeit oszlopokba helyezze, de csak azt amelyikre éppen szükségem van – kijelöléssel történne és adom meg mettől meddig. Kijelölök egy tartományt akkor helyezze át a következő üres oszlopba majd a következő tartományt mellé (akár ezek az áthelyezések lehetnek egy munkalapon is). De a csavar az benne, hogy utána újabb listát másolok be és azt is mint az előző kijelölés után tegye az általam megadott oszlop utolsó eleme után. -
lumpy92
aktív tag
Közben rájöttem, hogy rosszul irtam le, fordított az irány.
Tehat van egy cellám (szöveg a cellaformátum), amiben szerepel, hogy 84,09. Cserével a vesszőt kicserélem pontra és szept.84 lesz az érték a cellában.
(Hiába állítom be a formátumát, már nem az eredeti értéket kapom vissza, hanem a dátum számértékét).
Ezt szeretném kiküszöbölni. -
VGYke
addikt
Nem jó, a feladat bonyolultabb. Egy hívjuk adatbázis munkalapról szeretném kiválogatni majd sorba rendezve egy másik munkalapon megjeleníteni a szükséges adatokat, makrók nélkül, csak képletekkel megoldva.
Már az is jó lenne, ha képlettel ki tudnám nyerni az adott cellába beszúrt hivatkozást.
lenkei83: nem jó az "Adatok beolvasása és átalakítása" (lekérdezés)?
Csak pár másodpercet játszottam vele, de nekem sikerült:
-
kormo1
csendes tag
igazából arra gondolok, hogy van egy cellában sok-sok karakter és azt a makró az első karaktertől az utolsóig kijelölje/válóglapra rakja és ezt majd én be szeretném illeszteni valahová, de ha az egész cellát jelölöm ki és beillesztem akkor nem ugyanaz lesz a végeredmény, szóval a nekem egy adott cellában lévő összes karakter kijelölése kell...
-
Lasersailing
senior tag
Azt nem, tudtam, akkor sorry.
daver88:
Akkor amit szerintem lehet tenni, de ez nagyobb meló:
csinálsz egy adatbázis file-t, ill. egy másik file-t. A másik file-t nyitja meg minden felhasználó, az sem baj, ha csak read only-ban, mert más is használja.
Ez a másik file struktúrája ugyanúgy néz ki, mint az adatbázis maga:
1-es felhasználónak betöltöd a teljes file-t, míg
a 2-es felhasználónak csak az AB oszlopokat.
Végül mentésnél kiírod az adatokat az adatbázisba.Csak az a gond, hogy gondoskodnod kell az alábbiakról:
- mi van akkor, ha ugyanazt az adatot két ember egyszerre írja felül? Kinek lesz igaza, vagy esetleg szólsz a második mentőnek, hogy ezt közben valaki felülírta (ez esetben kell egy "láthatatlan" másolatot betölteni, hogy lássad, hogy miről mire változtatott a felhasználó, és a "miről"-t összehasonlítani az adatbázissal
- sortörlés, sorbeszúrás kezelése
- és millió dolog ami még nem jutott eszembe...
Én csináltam ilyen jellegű programot, de ott a felhasználó csak 2-3 oszlopot írhat át (átírhat többet is, de azok elvesznek makrós-mentéskor)
- nincs sorbeszúrás - törlés gond (13-jegyű cikkszámok alapján azonosítja a sort)
- És rajtam kívül még 1 felhasználó használja (+ programok mentenek az adatbázisba), akit ki lehetett képezni a használatra. Ez utóbbi a legfontosabb! Ha nagyon alap tudással rendelkeznek a felhasználók, akkor nagyon sokat kell programozni, hogy minden lehetséges hibát lekezelj... -
Melorin
addikt
Van egy saját táblázatom, amiben vezetem azokat a termékeket, amikre szükségem van a munkámhoz. Ezeknek a beszerzési árát folyamatosan vezetnem kell, hogy mire a megrendelésre kerül a sor, tudjam, hogy mennyibe kerülnek, ráadásul ha lejár az ára egy terméknek, meg sem lehet rendelni addig, amíg nem kérek új árajánlatot rá, és nem frissül a központi adatbázisban az ára. Ha jön rá árajánlat és frissül az ára, kapok egy emailt amiben leírják, hogy mennyi az új ára és hogy azt milyen dátumig tudják tartani a cégek.
Nemrég jöttem rá, hogy a központi adatbázisból le lehet kérni az összes létező anyag aktuális árát és annak érvényességi dátumát.
Mutatom milyen formátumban (nyílván ez két külön táblázat, csak most hogy egy képen szerepeljenek, egymás alá másoltam őket egy táblázaton belül):
[kép]A felső a saját táblázatom, amiben vezetem azt, hogy mikor kértem új árat egy termékre.
Az alsó a rendszerből lekérdezett.
Az lenne a feladat, hogy amennyiben a lekérdezett táblázatban egy anyag árának érvényessége újabb mint ami az én táblázatomban szerepel (zölddel jelöltem egy példát erre), írja át az én táblázatomban ezt a dátumot erre az értékre, és törölje ki a mellette lévő árkérési dátumot, mivel már megkapta az új árat.
Sajnos ahogy látszik, a lekérdezett dátum formátuma eléggé érdekes finoman szólva.
Ahogy a folyamatot elképzelem:
- Lekérem a legfrissebb adatbázist a rendszerből, lementem egy adott mappába.
- A makrót elindítom és cikkszám alapján végigmegy és összeveti az én táblázatomban szereplő adatokkal cikkszám keresés alapján (A oszlop).
- a "C" oszlopból pl. 20200930 ~ 20221231 értékből 2022.12.31-et kell csinálni
- ezt beírni a saját táblázatomban a megfelelő sor E cellájába, és az F cella tartalmát kitörölni amennyiben annál a dátumnál újabb ez az új dátum.
-És természetesen az ár oszlopban szereplő értéket is írja át mindenképp, akár más az előzőhöz képest akár nem.Ezt meg kell csinálnia minden egyes sorral a táblázatomban.

-
-
nyikszi
őstag
Miért nem lottózom?
Annyira biztos voltam benne, hogy erre kell 
A Pulover's Macro Creator program kell neked, van portable verziója is. Én egy játékban kattintás helyettesítőnek használom. Ugyan nem lett gyorsabb a kattintás, sőt, de viszont nincs is ínhüvelygyulladásom, mint egy játékostársamnak

Lényeg, hogy lehet benne mindenfélét csinálni, tutorialt is találsz hozzá, kifejezetten Excelhez valót is találsz. Most 2 perc alatt csináltam egy olyat, ami arrébb lépteti az Excelben a kurzort és az előre meghatározott szövegből ír be egy szöveget. Lehet véletlenszerűen is időt választani két parancs közti időtartamra.Honlap: [link]
Letöltés (portable is): [link]
Új hozzászólás Aktív témák
- Chieftec-Prohardver nyereményjáték
- EU-s vám vethet véget a nagyi temus vásárlási lázának
- ThinkPad (NEM IdeaPad)
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- WLAN, WiFi, vezeték nélküli hálózat
- Mikrotik routerek
- Milyen okostelefont vegyek?
- Fapados Biostar alaplap érkezett
- Örömkönnyek és üres kezek a TriFold startjánál
- LEGO klub
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Eladó Samsung Galaxy S21 FE 5G 6/128GB / 12 hó jótállás
- BESZÁMÍTÁS! MSI B450M R5 5600X 32GB DDR4 512GB SSD RTX 3070 8GB Zalman Z1 PLUS GIGABYTE 750W
- BESZÁMÍTÁS! ASUS H510M i3 10100F 8GB DDR4 120GB SSD 1TB HDD GTX 1050Ti 4GB Fractal Design 500W
- Dell Latitude 7320 i5-1145G7 16GB 256GB 1 év garancia
- 155 - Lenovo LOQ (15IRH8) - Intel Core i5-13505H, RTX 4060
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

A világos szürkével írtakat ki kell törölni? Az E3 az a cella ahol pl. 401,1 van írva? Worksheets-hez a lapfül nevét kellene írni, azon belül a Range az a tartomány lenne gondolom. Hogyan lehet a kész eredményt megtalálni? Külön kell menteni?







Fferi50

