-
GAMEPOD.hu
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
-
-
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.F.K.T.
-
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.
Cancel all my meetings. Someone is wrong on the Internet.
-
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
DisplayFullScreen
van a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele aWindowState
is. 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.Cancel all my meetings. Someone is wrong on the Internet.
-
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.
-
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. -
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 OffsetSwitch Tax
-
AttyVin
aktív tag
Igen.
Nagyon egyszerűen úgy fogalmazva, van három grafikon, ahol az X-tengely azonos "léptékű", csak az egyes értékeihez hozzárendelt "mérési" értékek száma különbözik.
Pl. a 212-es ponthoz az elsőn 1 db, a következőn 11 db, a harmadikon szintén 11 db eredmény tartozik.[ Szerkesztve ]
Üdv, Vino
-
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
-
jcage
tag
Próbáltam demonstrálni, mit szeretnék. A oszlop tartalmát szeretném vizsgálni, hogy a B oszlopban szereplő tartomány része-e, ha igen, akkor ez látszódjon C-ben. Ha még meg is számolná azzal a mozdulattal, már csak hab lenne a tortán.
Viszont a CIDR tartományok változatosak /16 - /30 között.
A kritikus olyan, mint a nőgyógyász: ott keresi a problémát, ahol más az élvezetet...
-
-
Fferi50
őstag
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.[ Szerkesztve ]
-
tamas1985
aktív 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[ Szerkesztve ]
-
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[ Szerkesztve ]
-
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?
-
Triathlete
senior tag
-
istvankeresz
aktív tag
Ez az eredeti képletem nekem is. Ezzel csinálja azt amit a képen látsz.
Ezt lehúzva kitölti azokat a cellákat is, ahol c oszlopban nincs semm.szerk:
Látom közben szerkesztetted a hsz-t.
Kipróbálom, de lehet h csak hétfőn tudom már.
Köszönöm[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
-
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.
[ Szerkesztve ]
-
mckay
aktív tag
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen