-
Fototrend
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
-
Cuci3
tag
válasz
ulrik19
#6165
üzenetére
Nos az igaz, hogy ilyenre nem lehet felkészíteni.
A cím függvényt nem ismertem, azt köszi. Valami ilyesmi lesz a vége, ha egyszer belefogok:
INDIREKT("'Statement Assumpt - DB'!"&CÍM(45,C$3))
Az a gond, hogy a C3-ban számolódik ki, hogy melyik oszlopot kell használnom. Egy üzleti terv része, és megcsináltam a főnökségnek, hogy a 6 partner csatlakozási hónapja dinamikusan változtatható. Szóval lehet, hogy nem parktikus, de ez van. -
Cuci3
tag
válasz
ulrik19
#6163
üzenetére
Egész okos ez a 2007-es telepítő, simán felrakta magát a 2003 mellé.
2003-as verziót nyitottam meg 2007 alatt. A függvények szépen leváltottak angol megfelelőre. Csak az indirekt hasalt be, mivel valamelyik fordító volt szíves az R1C1 hivatkozási stílust átültetni S1O1-re.
Aztán, ha szövegként rakom össze a képletet, akkor naná, hogy az angol Excel nem érti. 
Magyar: INDIREKT("'Statement Assumpt - DB'!S32"&"O"&C$3;0)
Angol: INDIREKT("'Statement Assumpt - DB'!R32"&"C"&C$3;0) -
-
Delila_1
veterán
válasz
ulrik19
#6145
üzenetére
Nagy példát adtál a türelemre.
Szerintem felháborító, hogy bár 10 órán át dolgoztatják az embereket, igyekeznek ott megvágni őket, ahol csak tudják.
Ha valaki 13:00-kor kezd, és 10 órát dolgozik, akkor 1 óra délelőtt, 8 óra délután (délutános pótlék), és 1 óra éjszaka (éjszakás pótlék) számolandó el.
A délelőtt 6-14-ig, délután 14-22-ig, éjszaka 22-6-ig tart, az 5-kor kezdő melósnak 1 óra éjszakai pótlék jár.
A szüneteket sem a legnagyobb pótlékos időszakból, hanem arányosan kell levonni, nyilván nem az utolsó időszakban ebédel. Megkockáztatom, hogy a 8 órán túl dolgozó embernek több szünet jár(na).
Az sem normális dolog, hogy egy alkalmazottat kényszerítenek egy olyan elszámoló program elkészítésére (elkészíttetésére), ami kizsigereli a többi alkalmazottat. Hasonló módon akartak régebben velem is összeállíttatni egy elszámolást, de csak a törvényest voltam hajlandó megcsinálni. Beletörődtek... -
#6144
Fire/SOUL/CD
félisten
ulrik19
#6143
-
VANESSZA1
őstag
válasz
ulrik19
#6137
üzenetére
Őszinte leszek, már abszolút nem értem .
A szünet a következőből áll össze :
-étkezési szünet 20perc
-cigaretta szünet 2x 5percÍgy összesen 30perc műszakonként
A másik az 5:30-as probléma.
Szerintem nem jó ha kitoljuk a határt 9 órára, mert inkább azt kellene figyelembe venni valahogy, hogy ha a megkezdett idő 14:00nál magasabb akkor délutános, ha a megkezdett idő 22:00 felett van akkor éjszakás x órán keresztül, egész reggel 6-ig. -
-
VANESSZA1
őstag
válasz
ulrik19
#6127
üzenetére
"pl. 0-6 óra közé eső rész az előző naphoz tartozzon? de ha valaki mondjuk 3-kor kezd, akkor?"
Legjobb lenne ha pl a 0-4:30 közötti rész az előző naphoz tartozzon.
Mert van olyan dolgozó aki reggel 4:30 kor kezd, de Ő még ettől a délelőtti műszakhoz tartozik, mert előbb 12:30 kor.
De ha megkezdte a 22:00 után akkor mindenképp, reggel 6-ig számolja az éjszakaihoz. -
VANESSZA1
őstag
válasz
ulrik19
#6124
üzenetére
Műszakonként 45 perc, de lehet hogy ez változni fog, és azért van egy cella ahol a műszakonkénti szünet van.
Ha 2 műszakban dolgozott, akkor abban a műszakban, ahol tovább volt ott van a 45 perc, a másikban semmi.A másik kérdés:
Ha éjszakai műszakban dolgozik, 22:00-től reggel 06:00-ig akkor nem ír ki semmilyen eredményt. Valami nem stimmel,mert ilyenkor is 8 órát dolgozott az éjszakaiban, de mindhárom műszaknál csak ######### van.
-
VANESSZA1
őstag
válasz
ulrik19
#6121
üzenetére
Igen , addig jó, hogy a délelőttit jól számolja, de ha 8:00-tól 16:00-ig dolgozott akkor az a délelőttiben 6 óra , és 2 a délutániban.
De nem így jön ki.A másik , ha 10:00-től volt 22:30-ig az a
délelőttiben 4 óra,
délutániban 8 óra,
éjszakaiban 0:30 percés itt se az jön ki,sajnos.
-
válasz
ulrik19
#6104
üzenetére
DateLastModified és DateLastAccessed
ezekkel az a baj, hogy az utolsó megnyitás dátumát írja ki, nem pedig az utolsó modosításét!aham, a kód most így néz ki:
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("R:\Dell\Reporting\Production_Daily.xls")
Workbooks.Open FileName:="R:\Dell\Reporting\Production_Daily.xls"
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy
Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Data").Range("A47") = adatfile.DateLastModified
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End Sub -
VANESSZA1
őstag
-
válasz
ulrik19
#6072
üzenetére
Szia!
Látom pörögtök a témán, rendesek vagytok!
Egyébként egyre jobban úgy gondolom, hogy valóban az lehet a gond, hogy amit a server lement annak nincsenek ilyen paraméterei, mert egy linux szerver generálja, és menti le. Én azt hittem, hogy a file atriputumából szerzi az időt, nem pedig egy tulajdonságok részből. Olyat nem lehet?Egyébként most így néz ki a kód. A semmi pedig azt jelenti, hogy lefut a macro és kész, de nem írod ki sehova az időpont.
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")
Workbooks.Open FileName:="R:\Dell\Reporting\Production_Daily.xls"
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy
Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End Sub -
#6071
Fire/SOUL/CD
félisten
ulrik19
#6070
válasz
ulrik19
#6070
üzenetére
Hali!
1. Ha nálad fut 2000 alatt, akkor mindenhol kell futni 2000 alatt. Ha nem így van, akkor ahol nem fut ott valami gond van. Az Office és/vagy az OS van "megrogyva"
2. A fájl szinten hozzáférés addig jó, amíg nem kell foglalkozni hozzáférési jogokkal, például ha egy szerveren van a fájl. Ha ott korlátozva van hozzáférés és/vagy a fájl jogok nem megfelelően vannak beállítva, akkor azon a fájlon nem kell fájlműveleteket elvégezni.
(persze szerver alatt nem a húgom gépét értem, ami szomszéd szobában van
)3. Természetesen a kódot kifogástalan, nehogy azt gondold, hogy a kódod kritizálom, dehogy. Ezek csak észrevételek/tények, amit Pulsar-nak kell végig gondolnia/gyakorlatban megvalósítania, alkalmazni
Fire.
UI: Nem teljesen poénnak szántam a format c-t.
Annó írtam egy összetettebb macrót egy emberkének, nálam ment, nála nem, ua. az office volt fent nála is. Mindenféle hibákat dobált, ilyen csomag hiányzik, nem megnyitható, dll, parse error stb stb. 1 hétig napi 4-5x váltottunk levelet és szüntetgettem meg neki a hibákat, de mindig jött egy újabb. Na ezt meguntam, mondtam neki, hogy most 2 lehetősége van, az egyik hogy újratelepíti az OS-t meg az office-t, vagy a másik, hogy elfelejt.(nem vagyok én System Repair )
2-3 óra múlva hív, hogy megtörtént, és az 1 héttel korábban küldött kód kifogástalanul működik...1 hetet szívtam, mikor már az elején megmondtam hogy format c, 1 hét alatt meg ki tudja hányszor újra lehetett volna telepíteni az OS-t -
#6069
Fire/SOUL/CD
félisten
ulrik19
#6067
válasz
ulrik19
#6067
üzenetére
Hali!
De ugye nem egy gépre van telepítve a 2000 és a 2003 vagy 2007 is?
pl Nálam: [link]
Ilyen esetben persze hogy "fut a 2000-en" is, merthogy nem azon fut... Ha meg csak a 2000 van fent és mégis fut nálad, Pulsar-nál meg nem, akkor passz.
(Ilyenkor szoktam javasolni a format c parancsot
)Fire.
-
Cuci3
tag
válasz
ulrik19
#6042
üzenetére
Én nem hiszem, tudom, hogy lehet.
2003-ban: Eszközök/Közös használat. De nagyon meg tudja bolondítani a dolgot, ha egy cellát két ember szerkeszt. Tehát ajánlom, hogy emberenként jelöljetek ki területeket.
A frissítések csak akkor láthatóak, ha kb mindenki rányom a mentésre.
Amúgy a közös használattal néhány funkció (pl.: cellaegyesítés, diagramkészítés) nem használható -
#6033
Fire/SOUL/CD
félisten
ulrik19
#6031
-
válasz
ulrik19
#6029
üzenetére
egy linuxos szerver generál egy adathalmazt, amit ki tud exportálni exelbe. szóval nem. csak azt nem értem, miért működött itthon. mikor hazahoztam pendrive-on, és lementettem, akkro valószínűleg hozzáíródtak az infók?
aha, és azt hogyan használjam?
Fire/SOUL/CD ja, értem... ok oda figyelek rá, köszi
-
Delila_1
veterán
válasz
ulrik19
#5990
üzenetére
Hogy mind az első, mind az összes többi mentés korrekt legyen:
Sub MentésElőzőnévÉsDátumNévvel()
Dim FN, utvonal
utvonal = "C:\"
If Len(ActiveWorkbook.Name) > 15 Then
FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 15)
Else
FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
End If
FN = FN & "_" & Date
ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
End SubEz a 2007-nél régebbi verziókra vonatkozik, 2007-nél a levonás 16, és 5, a 4 jegyű kiterjesztés miatt.
-
Delila_1
veterán
válasz
ulrik19
#5987
üzenetére
Erre az esetre
Sub MentésElőzőnévÉsMaidátumNévvel()
Dim FN, utvonal
utvonal = "C:\"
FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
FN = FN & "_" & Date
ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
End SubBár ezzel az a baj, hogy az első ilyen mentés után a fájlnév tartalmazza a mentés dátumát, a következő mentésnél 2, majd 3, végül n db dátum lesz a névben. Hacsak az
FN = Left(...) sorban le nem vonjuk minden alkalommal az előző dátumot is. -
ulrik19
tag
válasz
ulrik19
#5980
üzenetére
és hogy teljes legyen a kép, ezeket lehet lekérni
Title
Subject
Author
Keywords
Comments
Template
Last Author
Revision Number
Application Name
Last Print Date
Creation Date
Last Save Time
Total Editing Time
Number of Pages
Number of Words
Number of Characters
Security
Category
Format
Manager
Company
Number of Bytes
Number of Lines
Number of Paragraphs
Number of Slides
Number of Notes
Number of Hidden Slides
Number of Multimedia Clips
Hyperlink Base
Number of Characters (with spaces)(word-del együtt elvileg)
-
Cuci3
tag
válasz
ulrik19
#5942
üzenetére
Csak annyit fűznék hozzá, hogy a CSE nem csak akkor kell, mikor a végösszegre vagyok kíváncsi. Például mátrixszorzásnál vagy tömbszorzásnál (MSZORZAT), ha nem akarok vacakolni képlettel, hanem függvénnyel akarom megoldani.
Legyen egy 2x3-as és egy 3x4-es mátrixom, ebben a sorrendben berakom az MSZORZAT-ba, majd az eredményt kijelölöm úgy, hogy egy 2x4-es mátrix/tömb első cellája legyen, F2+CSE, és fel van töltve az eredménymátrix.
Tudom, hogy ennél a bugyuta példánál jobb lenne a sima képlet. -
-
válasz
ulrik19
#5838
üzenetére
Szia!
A két táblázat eredménye nem egyezik, cak példa
olyan nincs, hogy több ugyanaz az állomás ugyanabban az időben kétszer szerepel. A G cell az adott paraméterek eredménye: NOof SN = Number of Serial number.
Tehát azt mutatja, hogy adott álomáon Pass-os vagy failos hány darab volt.Milyen minta filest küldjek?
Igazából én ezt már megcsináltam de nagyon bonyolultan. VLOOKUP hegyek, meg makrós másolgatásokból áll az egész, csak nagyon nem szép megoldás. de ezt elküldöm. -
ulrik19
tag
válasz
ulrik19
#5833
üzenetére
hmmm, egy picit módosítanom kellett:
Public Sub ktgelosztas()
Dim osszeg As Double, i, strAr, strAr2
osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:")))
strAr = Split(Selection.Value, ";")
For i = 0 To UBound(strAr)
strAr2 = Split(strAr(i), "=")
Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + Int(osszeg * Val(strAr2(1)) / 100)
Next i
End SubHa nem egész százalékra van szükséged, akkor tizedespontot kell használni. Pl. harmadoláshoz: 33.3333
-
ulrik19
tag
válasz
ulrik19
#5802
üzenetére
Ez pedig egy elegánsabb megoldás:
'végigmegy az összes munkalapon, és amelyik nem a kijelölt terület munkalapja,
'összeadja az azonos elhelyezkedésű cellák értékét
Public Function SubTotal(cRange As Range)
Dim lap As Worksheet, Sum As Double
Sum = 0
For Each lap In Worksheets
If Not lap.Name = cRange.Worksheet.Name Then Sum = Sum + lap.Cells(cRange.Row, cRange.Column)
Next
SubTotal = Sum
End FunctionEnnek használata pedig:
=SubTotal(L154)Persze, lehet más cella is az argumentumban. Azt a cellát kell belerakni ebbe a képletbe, amiket szeretnénk az összes többi sheeten összegezni. Mivel cellahivatkozás, másolható máshová, tehát "átírja" a hivatkozást, mint bármilyen más függvény használatakor.
(Bár a Sum = 0 sor nem lenne kötelező, javaslom, hogy minden hasonló helyzetben adjátok meg a kezdőértéket. Néha előfordulnak cifra dolgok ennek elhagyása esetén
)
THX!
Aztán, ha szövegként rakom össze a képletet, akkor naná, hogy az angol Excel nem érti. 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
)
)
Annó írtam egy összetettebb macrót egy emberkének, nálam ment, nála nem, ua. az office volt fent nála is. Mindenféle hibákat dobált, ilyen csomag hiányzik, nem megnyitható, dll, parse error stb stb. 1 hétig napi 4-5x váltottunk levelet és szüntetgettem meg neki a hibákat, de mindig jött egy újabb. Na ezt meguntam, mondtam neki, hogy most 2 lehetősége van, az egyik hogy újratelepíti az OS-t meg az office-t, vagy a másik, hogy elfelejt.(nem vagyok én System Repair 
Új hozzászólás Aktív témák
Fferi50- Xiaomi Mi 10 - nem olcsóbb, hanem kedvezőbb árfekvésű
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Battlefield 6
- Vezetékes FEJhallgatók
- Linux kezdőknek
- Melyik tápegységet vegyem?
- Wise (ex-TransferWise)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Autós topik
- További aktív témák...
- BESZÁMÍTÁS! 8TB Western Digital Red Plus SATA HDD meghajtó garanciával hibátlan működéssel
- Telefon felvásárlás!! Apple iPhone SE (2016), Apple iPhone SE2 (2020), Apple iPhone SE3 (2022)
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5500 / RX 6600XT / 32GB DDR4 / 512GB SSD
- AiOOO! HP EliteOne 800 G3 23.8" FHD Érintőkijelző i5-7500 16GB 512GB 1 év garancia
- Dell Precision 7560 Workstation i7-11850H 32GB RAM 512GB SSD Nvidia T1200 4GB 1 év garancia
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest