- Az akkumulátor AI lehet a Galaxy S25 fegyvere
- Érintésnélküli fizetési megoldások - PayPass via NFC
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Honor Magic5 Pro - kamerák bűvöletében
- Milyen okostelefont vegyek?
- Megérkezett az új Nokia 3210 4G Magyarországra, ennyit kérnek érte
- iPhone topik
- 3 milliméterrel szélesebb lehet a Galaxy Z Fold 6 kijelzője
- Ezek a OnePlus 12 és 12R európai árai
- Netfone
Hirdetés
-
Hivatalosan is reagált a Core CPU-k stabilitási gondjáira az Intel
ph A végleges megoldás a Default profil lesz, amit kötelező beépíteni az alaplapgyártóknak.
-
Több stúdiót is bezár költségcsökkentésként a Microsoft Xbox részlege
it Lassul a gamingipar, ennek keretében pedig már a Microsoft Xbox részlege is nagy költségcsökkentéseket eszközöl.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
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
-
Zola007
veterán
válasz Delila_1 #35269 üzenetére
köszönöm, de sajnos nem működik
a grafikonom több mint egy képernyőnyi, ha ezzel megcsinálom, akkor bugzik az excel és egymásba ágyazott képek sora ("kép a képben") jelenik meg, ha mozgok a dokumentumbanMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
föccer
nagyúr
válasz Delila_1 #35332 üzenetére
Nem, nem erről van szó, ez mind a kettő megvan. Nem szemantikailag, hanem szintaktikailag jött egy Heuréka. Csak én fordítva fogom csinálni, hogy a segédtáblából veszem a teljes mennyiséget és abból számolom ki a részarányokat.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
BullZeye
veterán
válasz Delila_1 #35319 üzenetére
Belefutottam egy hibába, ha duplikálom a sort makróval, amiben védett cellák vannak (bármit lehet, csak kijelölni nem), ott a képletet nem viszi át. Formázás átmegy tökéletesen, viszont az összes képlet hiányzik.
És persze Run-Time error '1004'
A módosítani kívánt cella vagy diagram védett lapon van. Ha módosítani szeretné ezt az elemet, oldja fel a munkalap védelmét. Lehet, hogy ehhez meg kell adnia egy jelszót.Ez a makró, amit használnék a sor duplikáláshoz:
Sub Duplicate()
'
' Duplicate Makró
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
' Billentyűparancs: Ctrl+d
'
End SubVan valami egyszerű módja kiegészíteni ezt, hogy védett cella függvényt is copyzzon? Cella védelem csak amiatt van, hogy még véletlenül se tudjak rákattintani és kitörölni a képleteket, és ne kelljen minden alkalommal ellenőrizni, hogy mindegyik megvan e még.
-
föccer
nagyúr
válasz Delila_1 #35356 üzenetére
Majdnem. 10 paraméter van, ami külön-külön vűáltoztatható, ezért mindegyikre be van állítva az érvényesítés. Ellenben elég sokszor előfordul az, hogy az összes paramétert ugyan arra az értékre kell visszaállítani, ekkor legyen csak egy gombnyomás, hogy ne kelljen külön-külön végig zongorázni az összesen. Lappa megoldása pörfikt és elég egyszerű hozzá, hogy még én is megértsem.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #35368 üzenetére
Egyetlen egy lapnak a nyomtatasarol van szo. Atallitom a parametereket, a formanyomtatvany megcsinalja a szamitasokat es nyomtathato A4 formatumban jeleniti meg a dolgokat, kvazi csak nyomtatni kell. Majd vissza korabbi lapra, parametereket allitani ellenorizni legpodulokat allitani minden biz-baz technologusi dolgot megcsinalni majd nyomtatni. Es ezt meg jo sokszor.
Kosz a valaszolat este atnezrm.
Építésztechnikus. Építőmérnök.
-
-
Juditta_56
aktív tag
válasz Delila_1 #35396 üzenetére
Mindig mondom, hogy istennő vagy! Most az első copy-t bemásolja!
A másodiknál viszont ugyanaz a hiba, ha átírom a Te formuládra, ha hagyom az enyémet akkor is!
'Az alábbi másolást-beillesztés megcsinálja
Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 10, 4), Cells(OsszSor + 18, 4)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Köszönöm! ♥
Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 20, OsszOszl), Cells(OsszSor + 18, OsszOszlMax)).Copy
'ENNÉL A SORNÁL HIBAÜZENET: "Run-time error '1004'. Application-defined or operation-defined error." MIÉRT?
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial xlPasteValues
'MEG ENNÉL IS:
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseBocs, nem leszek gépnél egy darabig, úgyhogy nem sürgős!
[ Szerkesztve ]
"You may say that I'm a dreamer But I'm not the only one"
-
Juditta_56
aktív tag
válasz Delila_1 #35404 üzenetére
Oooóóóóh, megint tanultam valamit, kösz, átírom! Úgy tudtam (sejtettem, inkább!), hogy ha vesszővel, egymás után beírom őket, akkor mind integer lesz!
Ezt is köszi!Szerk: "Az eredeti specbeillesztésnél néhány olyan paraméter szerepelt, ami alapértelmezés, azokat elhagyhatjuk."
Itt mire gondolsz?[ Szerkesztve ]
"You may say that I'm a dreamer But I'm not the only one"
-
Dilikutya
félisten
-
sztanozs
veterán
-
sztanozs
veterán
válasz Delila_1 #35525 üzenetére
Használatra példák:
=RegExExtract(A1)
- kiszedi a valamelyik nyitó ([{ és valamelyik záró )]} közül a szöveget=RegExExtract(A1,"","@")
- kiszedi az emailcím elejéről a nevet=RegExExtract(A1,"@","")
- kiszedi az emailcím végéről a szervert=RegExExtract(A1,"[","]", True)
- kiszedi a szögletes zárójeles szöveget (úgy hogy a zárójelet is visszaadja)RegExExtract.bas
Option Explicit
Dim rx As Object
Const REPLACABLE = "()[]{}-+*.\"
Public Function RegExExtract(Text As String, Optional StartMarker As String = "([{", Optional EndMarker As String = "}])", Optional Include As Boolean = False) As String
Dim sm As String
sm = ""
If StartMarker <> "" Then
Dim ix
For ix = 1 To Len(StartMarker)
If InStr(REPLACABLE, Mid(StartMarker, ix, 1)) > 0 Then
sm = sm & "\" & Mid(StartMarker, ix, 1)
Else
sm = sm & Mid(StartMarker, ix, 1)
End If
Next
sm = "[" & sm & "]"
End If
Dim em As String
Dim im As String
em = ""
im = ""
If EndMarker <> "" Then
For ix = 1 To Len(EndMarker)
If InStr(REPLACABLE, Mid(EndMarker, ix, 1)) > 0 Then
em = em & "\" & Mid(EndMarker, ix, 1)
Else
em = em & Mid(EndMarker, ix, 1)
End If
Next
im = "[^" & em & "]*"
em = "[" & em & "]"
Else
im = ".*"
End If
Dim rxt As String
If Include Then
rxt = "(" & sm & im & em & ")"
Else
rxt = sm & "(" & im & ")" & em
End If
If rx Is Nothing Then
Set rx = CreateObject("vbscript.regexp")
rx.IgnoreCase = True
rx.Global = True
rx.MultiLine = True
rx.Pattern = rxt
ElseIf rx.Pattern = rxt Then
'cached
Else
rx.Pattern = rxt
End If
Dim Matches
Set Matches = rx.Execute(Text)
If Matches.Count > 0 Then
Dim M
For Each M In Matches.Item(0).SubMatches
If M <> "" Then
RegExExtract = M
Exit For
End If
Next
Else
RegExExtract = ""
End If
End Function[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz Delila_1 #35527 üzenetére
Csináltam neki külön bejegyzést, hátha így könnyebben meghivatkozható később, és szerkeszteni is könnyebb utólag: [link]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
bsh
őstag
válasz Delila_1 #35574 üzenetére
de ez egy külön gomb megnyomásakor történik. (és most én is gy csinálom, kényszerűségből)
én pont azt akarom, hogy a refedit_change eventnél egyből validálja a tartalmat és addig a "tovább" gomb inaktív marad, amíg a refedit nem felel meg a feltételeknek. de semmilyen event nem fut le a refediten. -
maestro87
őstag
válasz Delila_1 #35597 üzenetére
Én nem ilyen manuálisra gondoltam.
Van a Tervezés menüpontban egy olyan, hogy Összegsor. Ha azt bekapcsolod, akkor automatikusan képzi az oszlopban lévő számok összegét, átlagát, maximumát vagy amit akarsz, merthogy átkapcsolható a cella lenyíló menüjében. Na ezt szeretném felülre hozni. -
veterán
válasz Delila_1 #35613 üzenetére
Köszönöm, valóban (Office 2008-ban PERCEK van, PERC helyett )
De mégsem lesz ez a jó megoldás.
Amit meg szerettem volna oldani ezzel, hogy van egy adat halmom időpontokkal, és azt szeretném egy beosztással összepárosítani.
Tehát hogy a mellékelt képen a B oszlopba (vagy akárhová) írja oda, hogy melyik műszaknak felel meg az adott időpont.
A ami nehezítés, hogy a Nappalos műszak 5:30-tól van 17:30-ig.
Milyen megoldással lehetne ezt kivitelezni? -
-
veterán
válasz Delila_1 #35617 üzenetére
12 órás munkarend van, így a nappalos eleje és vége, az éjszakás műszak vége és eleje A képen amit küldtem, a jobb oldalon ott van példának egy hónap, pl az júniusi, hogy mikor melyik műszak dolgozik (Vízszintesen az A, B , C, D mint műszak jelölés, függőlegesen pedig a napok) Így van két nap meló délelőtt, aztán két nap pihi, aztán megint két nap meló délelőtt, kettő pihi, majd két nap éjszaka, kettő pihi, megint két nap és végül két nap éjszaka.
Megnéztem a képletet, amit küldtél, de abból nem tudom hogy tudnám megcsinálni tovább[ Szerkesztve ]
-
Geryson
addikt
-
Carasc0
őstag
válasz Delila_1 #35668 üzenetére
Szia!
Nem teljesen értem mi lehet a baj, de nem úgy működik ahogy vártam. Egyrészt csak 1x fut le a kód. Ha utána kézzel feloldom a munkalapot onnantól nem mükszik.
Megpróbálom részletezni amit szeretnék.
Legyen az A1 cella. Ebbe a cellába nem kézzel írnak bele, hanem az értéke egy HA függvénnyel van megadva. Na most ha a HA függvény pont úgy fut le, hogy pont az-az érték kerül az A1-be ami által már nem szabad hogy szerkeszthető legyen, na akkor kell a scriptnek lefutnia. De ha a függő cellában változik az érték, akkor is maradjon az A1 cella NE szerkeszthető. Magyarul ha egyszer megkapja az A1 cella a kívánt értéket, akkor onnantól kezdve a HA függvény ne legyen rá érvényes.
Az a baj hogy ezt nem tudom letesztelni, mivel a script csak 1x fut le. Utána nem.
FRISS!
Csak akkor fut le még egyszer a script ha kézzel írom be a zárolással járó értéket!
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Carasc0
őstag
válasz Delila_1 #35670 üzenetére
Kilogikáztam!
Igen, a függő cellát kell Targetnak megadnom! Már a célban vagyunk, de van egy óriási hiba. Én azt akarom elérni hogy amikor A1 cella megkapja az X-et a target cella értéke alapján, akkor az A1 cella értéke maradjon örökre X. Mert ugyan zárolva lesz, de ha a Target-ban más értéket adok meg, akkor a zárolt cellában is megfog változni!
Nem csak az A1-et, hanem azt a cellát is zárolni kell, amelyiknek a hatására az A1 felvette a kritikus értéket.
Na azt nem akarom! Az egy általam kézzel változtatott cella.
Máshogy fogalmazok!
Az A1 cellában egy HA függvény működik. Megoldható-e az, hogy ha az A1 cella megkapja a kritikus értéket, akkor az A1 cella értéke ne HA függvény legyen, hanem a megkapott kritikus érték mint konstans. Végülis ugyanazt az eredményt kapom. Nem a zárolás a lényeg végülis. Hanem hogy amint megkapta a kritikus értéket a cella, az az érték büdösödjön meg benne és ne változzon tovább más cella hatására.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Carasc0
őstag
válasz Delila_1 #35677 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$I$16" And Target >= 3 Then
Range("AZ16") = "I"
Range("$I$16").Locked = True
End If
End SubNa ez kellett nekem! Én a zárolást csak azért hoztam fel, mert azt hittem azzal lehet megoldani a problémát. Tehát nem kellett a zárolás. No most ez a kód kéne nekem tartományra. Írom a példát:
I16 >>> AZ16
I17 >>> AZ17
I18 >>> AZ18
stb..Az kritikus érték természetesen továbbra is >=3.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Carasc0
őstag
válasz Delila_1 #35681 üzenetére
Köszönöm tökéletesen működik!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
End SubÍgy viszont már nem! Ugyanis nekem több tartományra kéne érvényesítenem a dolgot. A BE oszlopos tartománynál már más a kritikus érték. Így nem engedi.
Gondolkodj globálisan és tegyél lokálisan!
-
Carasc0
őstag
válasz Delila_1 #35683 üzenetére
Tökéletes, de miért dob néha Type Mismatch hibát, mikor kézzel törlöm ki az I oszlopban az értékeket?
If Target >= 3 Then
<---- erre a sorra adja be.Nézd meg, nem szöveg formátumúra van-e a cella állítva?
Nem! Szám formátumra van belőve, 0 tizedesjeggyel. (
I16:I35
tartományt néztem)[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
nemlehet
őstag
válasz Delila_1 #35689 üzenetére
Nem jó így se. Egyszerűen az oszlop összes cellájára a Q3 cella teljesülését vizsgálja. Nem bírom felfogni, hogy a másik oszlopban miért működik máshogy mint ebben.
Nokia 3310->3410->3100->6500 Slide(RiP Nokia)->Acer Liquid Metal ->Xiaomi Hongmi-> Xiaomi Redmi Note 3
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest