-
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
-
core1113
csendes tag
wjani! köszönöm a gyors reagálást!
az írányítószámokat megyénként szeretném csoportosítani, külön lapokon. igazából öt megye releváns ebbő a szempontból. arra már meg van a szabály, hogy melyik irsz. intervallum egy megye. ....és gombnyomásra tökéletes. köszönöm , hogy foglakozol vele.
[ Szerkesztve ]
-
-
FireShadow
senior tag
hasonló problémám lenne. adott egy telefonszámla digitális formában
szám | idötartam
5551616 52
5552626 14
5553636 23
5551616 42
5550606 34
5552626 11
és azt szeretném ha erröl dobna nekem egy kördiagramot, hogy kivel mennyit beszéltemehhez össze kell adnia nevenként(számonként) az idötartamokat és ezt ábrázolnia a diagramon
ezt lehet valahogy egy lépésben vagy kell egy segéd táblázat ahova berakom a számokat és mellé az összeget (mert abból már csakcsak összehozom a diagramot)
a bibi az hogy nem 3-4féle szám van, szóval valami automatizált megoldás kellene.. de én még egy SZUMHA-t se tudok müködésre birni
[ Szerkesztve ]
Keeping secrets away from everyone Staring out into another world .. Ocean city girl
-
Attas
aktív tag
Köszi a válaszod.
Megnéztem nála...a makrók engedélyezve vannak. Ugyanabban a mappában van a 2 fájl.
Sub HetiMasolasTípus1() 'Statisztikába másolás Típus 1
Workbooks("Statisztika").Sheets("Típus 1.").Protect Password:="**********", UserInterfaceOnly:=True
Application.ScreenUpdating = False 'Frissítés tiltása
Dim sor As Integer
Range("Gépek").Copy
Workbooks("Statisztika").Activate
Sheets("Típus 1.").Select
Range("C1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks("Ütemidő_számolás_ZKG_FLEX.xlsm").Activate
Sheets("Kimutatás").Select
Application.ScreenUpdating = True 'Frissítés engedélyezése
End SubÍgy néz ki a programkód. 8 típus van, ugyanezzel iiletve van egy hasonló makró ami töröl adatokat a Statisztika fájlból. Nálam minde tökéletessen működik. A főnökömnél meg egyik sem. Próbáltam úgy is, hogy a védelmet levettem akkor itt akad el a makró futása:
Workbooks("Statisztika").Activate
Ha a védelem marad akkor már a védelem feloldásánál... Nos nemtom....."Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
Meglett a megoldás. a 'Statisztika' elnevezés kevésnek bizonyult. kellett neki a kiterjestése is. Így már működik a főnök gépén is. Bár azt hogy nálam miért működik azt nem értem. Köszönet a segítségért:-)
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Delila_1
Topikgazda
Könnyebb elkészíteni, mint leírni a munka menetét.
Az előzőnél nem írtam be a figyelmeztető szöveget.
A ComboBox-ok listáját a RowSource tulajdonságnál adtam meg.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Létezik, de ezt elegánsabbnak gondoltam.
Töröld a figyelmeztetést tartalmazó címkét. A Gomb2-höz tartozó makró így módosul:Private Sub Gomb2_Click()
If Igeny1 = "Nem kérem" Then
MsgBox "Figyelmeztető szöveg", , "Box címe"
Igeny2.Visible = True
IgenyL.Visible = True
Else
Igeny2.Visible = False
IgenyL.Visible = False
End If
End SubAhhoz, hogy a lapok közötti váltásnál csak akkor jelenjen meg a B lap IgenyL címkéje, és az Igeny2 ComboBox, mikor az A lapon a "Nem kérem" szöveg van érvényben, írd be ezt a rövid makrót a többi közé:
Private Sub MultiPage1_Change()
Igeny2.Visible = False
IgenyL.Visible = False
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ennek csak a címe öröknaptár, de igazából nem az. Megadod egy cellában a kezdő dátumot, azzal indul az A oszlop napja.
Van viszont egy másik, ami tényleg az, de tegnap hiába tettem fel bármit a Data.hu-ra, nem engedte letölteni. Elküldjem a címedre?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
paatrick
senior tag
Félreértetted.
Szóval, megnyomom az autószűrő kis gombját a cella jobb sarkában akkor legördül az amit fent is linkeltem. Ki tudom választani hogy csak a 4-eseket mutassa egy gombnyomással, de ha csak a 15-ösöket akarom látni akkor le kell gördítenem (mellesleg gördíteni nem is tudok csak a csúszkát húzni) és csak utána tudok rányomni a 15-ösre.
Szóval azt akarom hogy az autoszürő legördülője "hosszabb" legyen lefelé és beleférjen 0-15 egyben.csináltam egy képet és akkor jobban látszik mi a vágyam:
6 év "lelkes újonc", 4 év "kvázi-tag", 2 év "tag", 1 év "aktív tag", már senior tag. I'm doing my part. ¯\ ʕ•ᴥ•ʔ /¯
-
paatrick
senior tag
Sajnos nincs, és azóta nézegettem videókat a 2007-es, 2010-es változatról ott tényleg van nagyítási lehetőség az általad említett jobb alsó sarkos módon. Szóval arra a következtetésre jutottam hogy ez a funkció az én 2003-as excelemben még nincs.
Így aztán marad a csúszka húzogatás, de legalább megtudtam hogy a későbbi verziókban van.Köszönöm a segítséget.
Jó éjt6 év "lelkes újonc", 4 év "kvázi-tag", 2 év "tag", 1 év "aktív tag", már senior tag. I'm doing my part. ¯\ ʕ•ᴥ•ʔ /¯
-
m.zmrzlina
senior tag
Köszi a választ.
Ezt a tulajdonságot ismerem csak azt reméltem, hogy lehet a függvények relatív cellahivatkozásához hasonlóan elérési útra is hivatkozni úgy hogy nem "betonozod" bele a makróba a teljes elérési utat.Az lesz a megoldás, hogy a <ThisWorkbook.Path> legutolsó "\" utáni karaktereit kicserélem a forrásfájl nevére mivel a forrásfájl mindig eggyel makrót tartalmazó mappa feletti mappában van.(a képen ez a test mappa) és a két fájl relatív helyzete mindig ugyanaz.
Új hozzászólás Aktív témák
- AMD Radeon™ RX 470 / 480 és RX 570 / 580 / 590
- Autós topik
- Poco F5 - pokolian jó ajánlat
- LEGO klub
- Ford topik
- Amazon Prime Video
- Aliexpress tapasztalatok
- Autóápolás, karbantartás, fényezés
- Így állítsd be a gyermeked androidos készülékét
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."