Hirdetés
- Tamás88: Karácsonyi hangulat... de másképp
- Toomy: FOXPOST régen jó volt, de ma már jobban jársz ha elfelejted.
- Magga: PLEX: multimédia az egész lakásban
- MasterDeeJay: i7 4980HQ asztali gépben (vs i7 4770)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Geri Bátyó: Agglegénykonyha 10 – Alapanyagok/készételek többféle felhasználása
- leslieke: leslieke farmerzsebe
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
-
LOGOUT
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
-
#49500
lappy
őstag
Kence Fice
#49499
lappy
őstag
válasz
Kence Fice
#49499
üzenetére
mit szeretnél megvalósítani?
-
stigma
addikt
Sziasztok.
Ismerősömnek kellene segítenem a makrókját átírni, mert egy hálózati meghajtója költözött Sharepoint alá és a makró hibára fut, melyet nemsokára kifejtek.
A makró maga, annyit csinál, hogy a központi meghajtóról bekeresi az összes Excel-t, majd a megadott cellákat a makrós Excel fájl munkaljaira behivatkozza.
Eredeti makró elérési útja így néz ki kb:
- Ha felcsatolt a gépére a hálózati meghajtót, akkor ilyesmi elérési utat ad meg => E:\Mappa
- Ha nincs felcsatolva akkor a szokásosat => \\halozatimeghajto\Mappa
Makróban 1 gomb van, paraméternek ezt az 1 elérési utat (stringet) kell megadni.Ez szépen futott mindaddig, amíg Sharepoint alá nem kerültek fel a fájlok.
A makró kódja kb így működik: LinkSet oFSO=Createobject("Scripting.FileSystemObject")Set Folder=oFSO.GetFolder(sPath)=> itt dob Error 76 vagy error 52-t , hogy rossz elérési út
Sharepointban az alábbi elérési út lett most neki:
https:\\valami.sharepoint.com\sites\Mappa1
Utánnaolvasva pár átalakítást végeztem neki de nem jutottam sikerrel:sPath="https:\\valami.sharepoint.com\sites\Mappa1"if mid(sPath,len(sPath),1) <>"\" thensPath=sPath & "\" 'Hozzáfűzök egy "\" jelet ha nincs megadva az elérési út végénend ifsPath=replace(sPath,"\","/")sPath=replace(sPath," ","%20") 'Ha lenne benne space akkor cserélni kell a karaktereketsPath=replace(sPath,"https:","")Set oFSO=Createobject("Scripting.FileSystemObject")'Átalakítások után ez lenne az elérési út: //valami.sharepoint.com/sites/Mappa1/Set Folder=oFSO.GetFolder(sPath) => itt ismét hiba van, szintúgy 52 vagy 76-oes error-al ami a rossz elérési útat jelenti.Próbálkoztam az alábbi elérési utakkal, de szintúgy 52 és 76os error-ra jutottam:
1. fordított perjelekkel is: \\valami.sharepoint.com\sites\Mappa1\
2. hozzáadtam @SSL vagy @SSL/DavWWWRoot-ot is : \\valami.sharepoint.com@SSL\sites\Mappa1\ vagy \\valami.sharepoint.com@SSL\DavWWWRoo\sites\Mappa1\
3. próbáltam fordítva is: //valami.sharepoint.com@SSL/sites/Mappa1/ vagy //valami.sharepoint.com@SSL/DavWWWRoo/sites/Mappa1/Ötletem még a MapNetworkDrive használata lett volna, amit sosem használtam. Itt gond lenne szerintem ahogy a hivatalos oldalt és pár kódot láttam, mert a behivatkozott fájlok helyett a MapNetworkDrive-nak megadott akármilyen betüjelet használná, ami nem jó sajnos.
Valakinek van valamilyen ötlete , hogy lehet egy Sharepoint mappában (amiben van almappa is) Excel fájlokat (*.xlsx) megkeresi az összeset?
Segítséget előre is köszönöm.
-
Mutt
senior tag
válasz
bozsozso
#49493
üzenetére
Szia,
Lekérdezések kombinálása kell neked. Legyen mondjuk ez a kiinduló állapot.
Lépések:
1. A bal oldali adatsort töltsd be PQ-be, majd bármi módosítás nélkül Bezárás és betöltés opcióval gyere vissza excelbe.
2. Most állj a másik adatsorra és azt is töltsd be PQ-be. Bal oldalt látni fogod mindkét lekérdezést. Jobb oldalt pedig a lekérdezésekben használt lépések láthatóak. Itt érdemes a lekérdezésnek vmi értelmesebb nevet adni, de nem kötelező.
3. Válaszd ki bal oldalt az első lekérdezést, majd Fájl menü -> Lekérdezések egyesítése opciót válaszd ki.
Fent automatikusan megjelenik az aktuális lekérdezés, középen a legördülő listából válaszd ki a másikat.
4. Fent és lent is kattints arra az oszlopra amely alapján az egyesítést meg kell csinálni. (Itt akár több oszlopot is ki lehet jelölni, ekkor egy kis sorszám is megjelenik a fejlécben. Ekkor fontos hogy mindkét helyen azonos sorrendben legyenek kijelölve a dolgok).
5. Alul a csatlakozás (join) tipusa alapból jó, de lehet választani ha neked más egyesített halmaz kell.
6. OK-val kapsz egy új oszlopot, amelynek a jobb felső sarkába kattintva válaszd a kibontást és jelöld be azokat az oszlopokat amelyekre szükséged van. Érdemes alul - eredeti oszlopnév előtagból - kivenni a pipát.
7. Készen is vagy, lehet a bezárást és betöltést használni.
8. Ha zavar, hogy a lookup táblát egy új munkalapra betöltötte az Excel, akkor csak töröld azt a lapot. Ettől a lekérdezés még menni fog, de átváltozik kapcsolódásra (only connection), amely azt jelenti hogy minden lépés ami a lekérdezésben történik nem jelenik meg munkalapon, de továbbra is használható más lekérdezésekben.A fenti lépésekkel a teljes egyezéses FKERES-t tudod helyettesíteni. Sok adat esetén szignifikánsan gyorsabb. A közeltítő egyezéses FKERES (tipikus példa számok keresése egy tartományban) máshogy néz ki PQ-ben.
üdv
-
Fferi50
Topikgazda
válasz
Pityke78
#49494
üzenetére
Szia!
A dátum-idő ábrázolás miatt az adott cellában úgy tudod megoldani, ha ezt írod be:
=65/24/60 azaz a perceket el kell osztani 1440-nel (egy nap perceinek a száma).
Ezután a cellaformázásnál kiválasztod az idő óó:pp formátumot.
Természetesen ezt egy másik cellában is meg lehet csinálni, ha az eredeti cellában nem szeretnél módosítani.
(Az irányított beillesztés - osztás opció használatával egy vagy több cella értékét egyszerre is meg tudod változtatni - egy cellába beírod az osztó értékét, majd ezt másolás - a kívánt terület kijelölése és irányított beillesztés osztás.)
Üdv. -
bozsozso
őstag
Szia,
Úgy látom nagyon otthon vagy ebben a PQ-ben. Még egy hasonló problémám lenne mint az előző ez is egy kis "automatikus" feltöltés lenne.
Eddig eljutottam:
Minden oszlop1 adat mellé oszlop hozzáadással megcsináltam ezt:
Oszlop1 Egyéni
1001927 1464832
1001927 1165245
1002246 1464832
1002246 1165245
1005867 1464832
1005867 1165245
1004732 1464832
1004732 1165245Viszont azt szeretném egy új oszlopban, hogy az egyéni oszlopban található azonos kódok esetén ugyanaz a szám kerüljön.
Valahogy így:
Oszlop1 Egyéni
1001927 1464832 40
1001927 1165245 30
1002246 1464832 40
1002246 1165245 30
1005867 1464832 40
1005867 1165245 30
1004732 1464832 40
1004732 1165245 30Az oszlop hozzáadásnál valahogy meg tudom határozni, hogy már ne többszörözze a sorokat?
Jelenleg egy fkeressel már excelben megoldom, de ha lenne valami hasonló módszer az nagyon jó lenne.
Előre is köszönöm.
-
Misi_D
tag
válasz
Fferi50
#49484
üzenetére
Köszi, működik!
@Mutt:
Köszi neked is! A szóköz (érték átírásos) trükköt ismertem, csak ezzel két kisebb gond van: egyrészt ezt mezőnként be kell állítani, ami adott esetben 40-50 mezőn végig, hát... túl manuális. Másrészt, ekkor azért a space értéke benne marad, másolás után látszik, ezt meggondolandó azért visszatölteni az adatbáziba.
De a visszacsinálás két módját megnéztem, az még nagyon hasznos a jövőre! -
Mutt
senior tag
válasz
Misi_D
#49483
üzenetére
Szia,
A héten tanultam, hogy Pivot-ban a sor értékeket át lehet nevezni. Állj rá az "(üres)" cellára és fent a szerkesztő lécben (vagy F2-vel helyben) írd át egy szóközre az értéket.
Visszacsinálni ezt trükkös, de kb. 10-et visszaolvasva látsz tőlem egy makrós megoldást, illetve az eredeti kérdezőtől egy másikat.
üdv.
-
-
Misi_D
tag
Sziasztok!
Magyar O365-öt használok munkahelyen (verzió: 2207, build: 15427.20210). PowerQuery-n keresztül SQL selecttel kapcsolódom Oracle adatbázishoz, s az Excelben pivotba (a sorokba) húzom be az adatokat. A gond, hogy ahol az adatbázisban nincs adat, az Excel a pivotban azt mutatja, ill. tölti fel értékkel, hogy "(üres)". Az adatokat a pivotból értékkel való kimásolás és egyes módosítások után vissza kell töltenem az adatbázisba, emiatt külön törölnöm kell kézzel ezeket az "(üres)" szöveg tartalmú mezőket, hiszen azok valóban üresek kellenek legyenek számomra (már ha nem azokat a mezőket kellene eleve módosítanom persze, de általában nem
).
A pivot beállításainál természetesen az üres cella esetén megjelenítenő beállításnál nem szerepel semmi beírva, de egyébként bármire átállíthatom, nem módosít semmit - beírhatok akármit, kivehetem a pipát előle vagy vissza, mindegy, nincs változás!
A Powerpivotban ránézve az adatmodellre az üres mező valóban üres.Van arra megoldás, hogy az üres valóban üres legyen (értékként) a pivotban...?
Nem megjelenítési megoldásra van szükségem, látszólag eltüntetni a pivotból el tudom, hogy üresként jelenjen meg, de az értékkel kimásolás után megmarad a szöveges értéke, ez a gond.
Köszönöm!
-
#49482
Fire/SOUL/CD
félisten
Rhair
#49480
-
Mutt
senior tag
válasz
bozsozso
#49471
üzenetére
Szia,
Az A-oszlopban vannak egymás után az azonosítók. Egy Power Querys (PQ) megoldás, ami Excel 2016-tól működik.
1. A-oszlopban vmelyik elemen állsz, majd Adatok fülön Táblázatokból/tartományból ikonra kattintva betölti az adatokat PQ-be.
2. Átalakítás menüben válaszd a Transzponálást (ezzel minden azonosítót külön oszlopba tudunk tenni).
3. Oszlop hozzáadása -> Egyéni oszlop. A képlet pedig {44927..44927+365}
Kapcsos zárójelek listát jelentenek a PQ-ben, ha a két pont pedig felsorolást pl. {1..5} visszadja a számokat 1-től 5-ig. A 44927 pedig az Excelben 2023. jan. 1-et jelenti, ha dátumformátumot választunk.
4. Az új oszlop jobb felsősorkában lévő ikonra kattintva válaszd a kibontás új sorokba opciót.
5. Továbbra is ezen az oszlopon állva, de most a bal oldalt az ABC123-ra kattintva válaszd a Dátum formátumot.
6. Kezdőlapon Bezárás és betöltés ikont válaszd.üdv
-
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.
-
bozsozso
őstag
Sziasztok,
Szeretnék segítséget kérni abban, hogy van kb. 100-150db 7 karakteres azonosítóm. Ami pl. az "A" oszlopban található egymás alatt. Ezt szeretném, hogy minden azonosító 365 soron jelenjen meg és minden azonosító mellett 2023.01.01-2023.12.31-ig jelenjenek meg a dátumok.
Kb. így:
1111111 2023.01.01
1111111 2023.01.02
s
t
b
1111111 2023.12.31
2222222 2023.01.01
2222222 2023.01.02
s
t
b
2222222 2023.12.31Az azonosítók mind különbözőek. Erre tudnátok valami egyszerű módszert javasolni?
Előre is köszönöm.
-
Mutt
senior tag
válasz
nihill
#49466
üzenetére
Szia,
Pivot táblában át engedi írni az excel az értékeket, pl. "kutya"-t "macska"-ra.
28 év Excel használata során nem használtam ezt a dolgot, szóval tanultam vmit.
Nem találtam róla semmit, de ezzel a VBA kóddal a munkalap összes kimutatását rendbe tudod tenni.Sub GetBackTheOriginalItemNames()
Dim WB As Workbook
Dim WS As Worksheet
Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem
Set WB = ThisWorkbook
For Each WS In WB.Worksheets
For Each PT In WS.PivotTables
For Each PF In PT.RowFields
For Each PI In PF.PivotItems
If PI.Name <> PI.SourceName Then PI.Name = PI.SourceName
Next PI
Next PF
Next PT
Next WS
End Subüdv
-
nihill
őstag
Sziasztok,
Pivot táblában át engedi írni az excel az értékeket, pl. "kutya"-t "macska"-ra. Persze az adatbázis szerveren a mögöttes adat az nem változik meg, de a pivot innentől az átírt értéket mutatja.
Ami a problémám ezzel, hogy ha ráfrissítek a pivot táblára, a módosított értékek akkor sem változnak vissza az eredetire, hanem innentől már az általam beírtat mutatja adatfrissítés után is.
Na ezt szeretném valahogy visszaállítani az eredetire, ebben kérnék segítséget.
köszönöm. -
lappy
őstag
válasz
f4lcon
#49459
üzenetére
feltételes formázással kiemeled az a cellát ami nem fele meg a kritériumnak
illetve ha a cellával van további számolás is akkor a képletbe is bele lehet rakni ha az adott értéknél kisebb akkor hibás adat lesz és nem egy számolt érték.
vagy vba ami figyeli a cella értékeit -
adott egy tábla (megrendelésre használjuk), aminek az egyik oszlopa kitölthető csak
azt szeretném, ha lenne egy minimum érték, aminél kisebbet egyszerűen nem lehetne bele írni a cellába (pl 5-nél)
most egy felugró jelzés van ott, de a cella értéke ennek ellenére is állítható 2-re, ha leokézza a júzer a hibajelzést
a legördülő lista azért nem jó, mert 5 és 5555 között bármekkora szám írható kell legyen -
#49458
lappy
őstag
soslajos1987
#49456
lappy
őstag
válasz
soslajos1987
#49456
üzenetére
=ÖSSZEFŰZ(A1;".";B1;HA(ÜRES(C1);" ";".");C1)
-
#49457
lappy
őstag
soslajos1987
#49456
lappy
őstag
válasz
soslajos1987
#49456
üzenetére
ezzel a képlettel nem kell szétszedni a neveket
=HELYETTE(A1;" ";".")
vagy
ha az exceled tudja SZÖVEGÖSSZEFŰZÉS függvénnyel -
#49456
soslajos1987
csendes tag
soslajos1987
csendes tag
Sziasztok!
Van egy gondom, hogy nevek lettek szétbontva excelben, vezeték és kereszteévekre. De van ugye olyan személy akinek kettő keresztneve van.
Nos a felállás az, hogy generálni szeretnék egy olyat, hogy a vezetéknév és a keresztnév/nevek pontokkal elválasztva kerüljön egy adott cellába. A második keresztnévvel vagyok gondban. Nem vagyok egy nagy excel guru, így lövésem nincs pontosan mi lehet a megoldás. Ha függvénnyel próbálkoztam, de nem az elvárt eredményt hozta sajnos...
Példa:
=ÖSSZEFŰZ(C2;".";D2;(HA(E2="";"";E2));"@";F2)
A C2-es cella a vezetéknév, a D2-es az első keresztnév, az E2-es a második. Az F2-ben meg egyéb adat, az email címek vége található.
pl.: Mekk Elek Elek és ebből kellene. De úgy készíti ugye el, hogy Mekk.ElekElek és szükségem lenne egy pontra a két keresztnév közé, ha egyáltalán az adott személynek van második keresztneve amit az E2-es cella tartalmaz. Ha nincs neki, akkor pedig simán legenerálja azt amit kell neki. Ezt meg is oldottam. Csak a pontos második keresztnév akasztott meg.
VAGY függvény lenne a megoldás? De milyen formában??
Előre is nagyon köszönöm a segítséget és előre is bocsánat a bénázásért... -
xkoti
senior tag
Sziasztok!
Egy adott oszlopban dátumok szerepelnek ez a D6-tól indulna per pillanat egészen a D50-ig.
Nah már most hogy tudnám azt beállítani hogy 20 nap elteltével kiemelje színesen azt a cellát ami már "lejárt"
.Próbálkoztam a feltételes formázással de valószínűleg rossz függvényt használtam vagy rosszul használtam.
A lényeg hogy a beírt dátumtól számítva 20 nap elteltével emelje ki az adott cellát
(Ha még kicsit homályos amit írtam akkor nem hatott még a kávé
)Egyébként magyar excelt használok és sajnos még 2007-es.
-
#49454
Szikravadász
csendes tag
Fire/SOUL/CD
#49453
Szikravadász
csendes tag
válasz
Fire/SOUL/CD
#49453
üzenetére
Köszönöm szépen! -
#49453
Fire/SOUL/CD
félisten
Szikravadász
#49452
válasz
Szikravadász
#49452
üzenetére
A1-ben van az idő,
[ó]:ppformázott cellában, pl25:11, akkor az alábbi képlet1 nap 1 óra 11 perc-t fog kiírni.=INT(A1) & " nap " & INT(MARADÉK(A1;INT(A1))*24) & " óra " & PERCEK(A1) & " perc" -
#49452
Szikravadász
csendes tag
Szikravadász
csendes tag
Sziasztok!
Időformátum beállításban kérnék kis segítséget.
Adott egy oszlop munkadarabok elkészítési idejével [ó]:pp. Egy cellában összesíteném a gép üzemidejét és az értékét szeretném "x nap, y óra, z perc" formában látni. Egyelőre két cellára osztva (külön a nap, külön az órák-percek) működik, de egyrészt nem túl elegáns, másrészt 2 cellát foglal.
Van valami kombinált formátum erre? Próbáltam a sablonok alapján létrehozni, de a legjobb esetben is csak valami furcsa értéket kaptam.
(Office Pro Plus 2019)Előre is köszönöm.
-
Fferi50
Topikgazda
válasz
bteebi
#49447
üzenetére
Szia!
"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."
Miután esemény vezérlést szeretnél, az csak annak az objektumnak a moduljában szerepelhet, amelynek van olyan eseménye.
Munkalapnak nincs sem open sem close/beforeclose eseménye. Ilyen esemény csak a munkafüzetnél van.
A VBA nézetben ha kiválasztod a munkafüzet(Thisworkbook) illetve bármelyik munkalap kódlapját, a bal oldalon találsz egy legördülőt, amiben General illetve Workbook/Worksheet választható ki. Ha ez utóbbit választod ki akkor a jobb oldali lenyílóban a füzethez, laphoz tartozó eseményeket láthatod és választhatod ki. Ezekhez írhatsz vezérlő kódokat. General kiválasztásakor a jobb oldalon az adott modulban levő - nem eseményvezérelt - eljárások (Sub, Function) listája látható-
Üdv. -
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.
-
bteebi
veterán
Sziasztok!
Van két event makróm:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_Close()
Application.DisplayFullScreen = False
End SubAz első azt csinálná, hogy kiteszi teljes képernyőre és teljes képernyős nézetre az Excelt a file megnyitásakor, a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet.
De valamiért nem mennek... Ha külön elindítom a makrót, akkor működik, de magától nem. Pedig pont ez lenne a lényege. Makrók futása engedélyezve van. Vajon mi lehet a gond?
Közben kipróbáltam úgy, hogy az adott munkalap helyett a ThisWorkbook lapba másoltam a makrókat. Ekkor már az első működik, de a második, a Workbook_Close nem.
-
-
Dr. Mózes
aktív tag
Sziasztok!
Nem teljesen jó helyre írok, mivel amit szeretnék megvalósítani, az inkább a Google Sheetsel lehetne megoldani, de nem találtam más topicot.Egy egyszerű dokumentum nyomonkövető táblát szeretnénk létrehozni, amin látszik, hogy éppen kinél van az adott irat, és arról esetleg e-mailes értesítőt is küld, vagy automatikusan megjeleníti, hogy ki mikor módosította az irat helyét a táblába stb.
Erre van külön kiegészítő Google Sheetsben, vagy hogyan lehetne a legegyszerűbben megoldani?
Ha esetleg ezt meg lehet könnyen oldani Office 2019-el, akkor azt is szívesen hallgatom.
Nagyon szépen köszönöm!
-
Agent T
tag
Sziasztok!
Excelben megvalósítható-e, hogy a táblázat szűrésénél, csak egy adott tartományon belül rejtsen el / jelenítsen meg sorokat az excel?
[Kiinduló táblázat] [Táblázat szűrés után] -
BalanceR
addikt
Nincs véletlenül valakinek egy kész VBA scriptje erre:
Adott egy xlsx adatokkal [adat.xlsx]
Azt szereném, hogy ha egy másik XLSX-ben futtatom a VBA scriptet az alábbi valósuljon meg:
felugrik egy ablak, ahol be tudok tallózni egy cella-range-et, és egy checkboxban ki tudom választani, melyik oszloba pakolja majd az eredményt. OK gomb nyomásra megynitja az [adat.xlsx]-et, végez egy fkerest az előbb kijelölt cellákkal (mint keresendő, a tábla amiben keres pedig a [adat.xlsx]-tábla a1:Z200) és beilleszti a checkboxban kiválasztott oszlopokba, hiperhivatkozásként. bezárja mentés nélkül az [adat.xlsx]-et. -
Delila_1
veterán
válasz
Delila_1
#49423
üzenetére
Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture, CV As Range, ter As Range
Dim KepHelye As String
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Count > 1 Then
Set ter = Range(Target.Address)
For Each CV In ter
KepHelye = "D:\kepek\" & CV.Value & ".jpg"
With Cells(CV.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
Next
Else
KepHelye = "D:\kepek\" & Target.Value & ".jpg"
With Cells(Target.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
End If
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
Private Sub Worksheet_Change(ByVal Target As Range)Dim FN As Picture, CV As Range, ter As RangeDim KepHelye As StringIf Target.Column = 1 ThenApplication.EnableEvents = FalseIf Target.Count > 1 ThenSet ter = Range(Target.Address)For Each CV In terKepHelye = "D:\kepek\" & CV.Value & ".jpg"With Cells(CV.Row, 2)Set FN = ActiveSheet.Pictures.Insert(KepHelye).RowHeight = Rows(Target.Row).HeightFN.Top = .Top + 1FN.Left = Columns(2).Left + 1FN.Height = Rows(Target.Row).Height - 5FN.Height = .HeightFN.Placement = xlMoveAndSizeEnd WithNextEnd IfApplication.EnableEvents = TrueEnd IfEnd Sub -
huan
őstag
válasz
Delila_1
#49421
üzenetére
"A"-oszlopba szeretném a kép-fálj neveket beilleszteni és mellé közvetlenül a "B"-oszlopban megjeleníteni képpel (ugyan úgy méretezve, ahogyan előzőleg írtad). Ezen kívül csak annyit még, hogy bármi hiba esetén ne álljon meg, hanem hagyja figyelmen kívül, maradjon üres a kép cella.
A képek mondjuk itt vannak: D:\képek -
Ha garantált a felhasználónevek egyedisége, akkor lehet azzal is játszani. Látrehozol mindenkinek egy sheet-et, ahol a sheet neve a felhasználónév, és beállítod az alábbi makrót a ThisWorkbook alá:
Private Sub Workbook_Open()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim WSHnet As Object, ws As Worksheet, UserID As String
Set WSHnet = CreateObject("WScript.Network")
UserID = WSHnet.UserName
Set WSHnet = Nothing
For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
ElseIf ws.Name = UserName Then
ws.Visible = xlSheetVisible
Worksheets("Unauthorized").Visible = xlSheetVeryHidden
Else
ws.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Workbook_Open
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetVeryHidden
End If
Next
End Sub -
-
-
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. -
#49406
psg5
veterán
Fire/SOUL/CD
#49404
psg5
veterán
válasz
Fire/SOUL/CD
#49404
üzenetére
Osztott munkafuzetes megoldást használtunk de ott fulek helyett munkafuzetekbol hivja be az adatokat es mi egy munkafuzettel szerettuk volna megoldani. Már ha ilyenre gondoltal. S nem haragszom nem tagadom magas egy két dolog.
-
#49405
psg5
veterán
Fire/SOUL/CD
#49404
psg5
veterán
válasz
Fire/SOUL/CD
#49404
üzenetére
Vagyis akik hasznaljak azok hasznaljak a legujabb excelt es akkor megokdva?
-
#49404
Fire/SOUL/CD
félisten
psg5
#49403
-
.
Új hozzászólás Aktív témák
- Samsung Galaxy A54 - türelemjáték
- Miskolc és környéke adok-veszek-beszélgetek
- Linux Mint
- Bestbuy játékok
- Víz- gáz- és fűtésszerelés
- Projektor topic
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Szívós, szép és kitartó az új OnePlus óra
- Gaming notebook topik
- Tamás88: Karácsonyi hangulat... de másképp
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.20.)
- Gyermek PC játékok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- LG 27GP95RP - 27" Nano IPS - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 600
- Apple iPhone 13 ProMax 256GB Kártyafüggetlen 1év Garanciával
- BESZÁMÍTÁS! ASUS H510M i5 11400F 16GB DDR4 512GB SSD GTX 1060 6GB Zalman T4 Plus DeepCool 400W
- Új! Razer Iskur V2 - Black gamer szék!
- Dell Inspiron 3511 /i7-1165G7/MX350/16GB/512GB M.2/WIN11/Újszerű akku/Játékra is! Számlával!
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest