-
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
-
#46972
Fferi50
Topikgazda
Apollo17hu
#46970
Fferi50
Topikgazda
válasz
Apollo17hu
#46970
üzenetére
Szia!
Próbáld ki ezt a makrót. Végigmegy a munkafüzet összes kimutatásán, kigyűjti a forrásokat, a végén kiírja az Immediate ablakba az eredményt:
Munkalapnév:kimutatásnév>forrás
formában.Option Base 1 'ezt a modul első sorába írd be lsz.
Sub lista()
Dim ws As Worksheet, pvt As PivotTable, udim As Integer, pvtfrs(), pvtfr
udim = 1
ReDim pvtfrs(udim)
For Each ws In Worksheets
For Each pvt In ws.PivotTables
If pvtfrs(udim) <> "" Then ReDim Preserve pvtfrs(udim + 1): udim = udim + 1
pvtfrs(udim) = ws.Name & ":" & pvt.Name & ">" & pvt.SourceData
Next
Next
For Each pvtfr In pvtfrs
Debug.Print pvtfr
Next
End Sub
Természetesen a kiírást lehet munkalap celláiba is tenni pl.:Dim x As Integer
For x = 1 To udim
ActiveSheet.Range("A1").Offset(x - 1, 0).Value = pvtfrs(x)
Next
Az aktív munkalap első oszlopába írja ki a forrásadatokat.
Üdv. -
#46968
Fferi50
Topikgazda
Apollo17hu
#46965
Fferi50
Topikgazda
válasz
Apollo17hu
#46965
üzenetére
Szia!
Nézd meg légy szíves a neveket is, ott is maradhatott külső kapcsolat, a feltételes formázásnál is.
Elképzelhető, hogy esetleg munkalapot másoltál egyik munkafüzetből a másikba, az ott levő képletek a régi munkalapra hivatkoznak.
Próbáld megkeresni az esetleges hivatkozásokat a Ctrl+F (keres) párbeszédpanelen a [ (nyitó szögletes zárójel) beírásával az egész munkafüzetre, képletekben. Aztán keresnék még a HIV hibára is.
Üdv. -
#46965
Apollo17hu
őstag
Apollo17hu
#46964
Apollo17hu
őstag
válasz
Apollo17hu
#46964
üzenetére
Sőt, most már semmilyen kapcsolatot nem találok, mégis látom a figyelmeztetést.
-
#46928
Delila_1
veterán
Apollo17hu
#46923
Delila_1
veterán
válasz
Apollo17hu
#46923
üzenetére
FFeri ötlete után a tengely, majd a feliratok formázása.
Ekkor az értékeket is milliós nagyságrendben hozza. Ott megadhatod a tizedes jegyek számát, de a szöveges részt nem fogadja el.
-
#46926
Fferi50
Topikgazda
Apollo17hu
#46925
Fferi50
Topikgazda
válasz
Apollo17hu
#46925
üzenetére
Szívesen!
-
#46924
Fferi50
Topikgazda
Apollo17hu
#46923
Fferi50
Topikgazda
válasz
Apollo17hu
#46923
üzenetére
Szia!
A függőleges tengely formázásánál tudod beállítani a nagyságrendet:
Ezután a feliratok is ennek megfelelő léptékűek lesznek.
Üdv. -
#46508
lumpy92
aktív tag
Apollo17hu
#46497
lumpy92
aktív tag
válasz
Apollo17hu
#46497
üzenetére
Köszi!
-
p5quser
tag
válasz
Apollo17hu
#45602
üzenetére
Én is így tudom, de pár sortól pár száz sorig változik a range és az oszlopok is 1-37 ig vannak 7 felé osztva, nem egyenlő mértékben. Szóval a nagyobb listánál már belassulna a másolgatás. Ezért gondoltam a tömbösítésre. Úgy olvastam, sokat dobna a gyorsaságon.
-
#36908
Játékos
addikt
Apollo17hu
#36883
Játékos
addikt
válasz
Apollo17hu
#36883
üzenetére
Köszönöm a választ neked is, meg föccer-nek is.
Ezek szerint nem kivitelezhető egyszerűen, hogy egy mezőben lévő számokat több számnak értelemezze az Excell? Valamivel elválasztva, vagy új sorban, vagy nem tudom...
Köszi még egyszer!
-
#35984
lorcsi
veterán
Apollo17hu
#35983
lorcsi
veterán
válasz
Apollo17hu
#35983
üzenetére
köszi
-
#35906
Fferi50
Topikgazda
Apollo17hu
#35905
Fferi50
Topikgazda
válasz
Apollo17hu
#35905
üzenetére
Szia!
Pedig ez alapvetően a területi beállításoktól (és itt még a Windows is játszik!) függ. Próbáld meg úgy megnyitni, hogy egy oszlopba kerüljön egy sor. Ezután az Adatok - szövegből oszlopok menüpontban már meg tudod adni, hogy ne számként, hanem szövegként kezelje azt a mezőt is. Majd kicseréled benne tizedesvesszőt pontra.
Vagy: VBA nézetben (makróval) az OpenText metódust használod, ott megadhatod, hogy az egyes mezők milyen típusuak legyenek (FieldInfo paraméter).
Üdv.
-
#35724
Apollo17hu
őstag
Apollo17hu
#35723
Apollo17hu
őstag
válasz
Apollo17hu
#35723
üzenetére
Így tudod telepíteni a bővítményt, C oszlopot töltsd fel nullákkal, E5 lesz mondjuk a célcella, ebbe a
=SZORZATÖSSZEG(B5:B32;C5:C32)képlet kerüljön, a solver beállításai pedig:
A megoldás úgy működik, hogy a Solver próbálja a szorzatösszeg értékét folyamatosan közelíteni a megadotthoz (23.906). Ezt a változócellák (
C5:C32) értékeinek módosításával éri el, de úgy, hogy ezek csak 0 és 1 értéket vehetnek fel, mert bináris korlátozást állítottunk be. Gyakorlatilag addig próbálgatja a 0 és 1 variációkat a szorzatösszegben, amíg el nem éri a kívánt értéket, vagy elég közel nem kerül hozzá. -
#22310
DasBoot
aktív tag
Apollo17hu
#22309
DasBoot
aktív tag
válasz
Apollo17hu
#22309
üzenetére
Akkor nem kell válaszolni. Pffff. Gondolom, hogy egy normális kérdésre, nem ez a felelet. Szóismétlés. Erre a hozzászólásra nem szükséges válaszolni.
-
#22308
DasBoot
aktív tag
Apollo17hu
#22307
DasBoot
aktív tag
válasz
Apollo17hu
#22307
üzenetére
Magyarul?
-
#22303
Delila_1
veterán
Apollo17hu
#22302
Delila_1
veterán
válasz
Apollo17hu
#22302
üzenetére
A képletekre nyilván szükséged van. Azt teheted meg, hogy azokat a képleteket, amik már megadták az eredményt, felülírod az értékükkel (másolás, irányított beillesztés). Csak néhány utolsó sorban maradjanak meg a képletek, hogy az adatsorok bővülésekor legyen mit másolni.
-
#22301
Delila_1
veterán
Apollo17hu
#22300
Delila_1
veterán
válasz
Apollo17hu
#22300
üzenetére
Képek, rajzelemek?
Egy új füzetbe minden lapnak csak azt a részét másold át, amelyik adatokat tartalmaz, és úgy nézd meg a méretet.
-
#21936
Delila_1
veterán
Apollo17hu
#21935
Delila_1
veterán
válasz
Apollo17hu
#21935
üzenetére
A kép ahhoz a cellához tartozik, amelyikben a bal felső sarka van. A 3 cella szélességű kép utolsó két cellája már kívül esik a táblázaton, ezt jelezte hibaként.
-
#21934
Delila_1
veterán
Apollo17hu
#21933
Delila_1
veterán
válasz
Apollo17hu
#21933
üzenetére
2010-es verzióban a tulajdonságoknál az "Áthelyezés és átméretezés a cellákkal együtt" opciót kiválasztva rendezésnél követik a cellájukat a beszúrt képek.
-
#21441
Sasos
senior tag
Apollo17hu
#21440
Sasos
senior tag
válasz
Apollo17hu
#21440
üzenetére
Fájl-->Beállítások-->Képletek-->Hiba-ellenőrzési szabályok-->"Szövegként formázott vagy aposztróffal kezdődő számok" elől a pipát vedd ki.
-
#19704
Delila_1
veterán
Apollo17hu
#19703
Delila_1
veterán
válasz
Apollo17hu
#19703
üzenetére
Szívesen.
-
#19701
Delila_1
veterán
Apollo17hu
#19700
Delila_1
veterán
válasz
Apollo17hu
#19700
üzenetére
Beírod az első értéket egy új oszlopba, hogy egy előző formátum ne zavarjon be:
2013.11.15 20:00. Az oszlopban a cellák formátuma legyen "éééé.hh.nn. óó:pp".
Egy cellába (másik oszlopban) beírod a 0:05 értéket. Legyen ez a példában a C1 cella. Ez automatikusan idő formátumot vesz fel.
Az dátum alatti első cella képlete =fölötte_lévő_cella+$C$1. Ezt már másolhatod, nem lesz csúszás. -
#18202
bandus
veterán
Apollo17hu
#18201
válasz
Apollo17hu
#18201
üzenetére
jogos a felvetés, kb 4 perc volt így összehozni, köszönöm, valamiért ezt sokkal gányosabbnak gondoltam fkeressel
-
#18200
bandus
veterán
Apollo17hu
#18199
válasz
Apollo17hu
#18199
üzenetére
köszi, ez így tiszta, de nincsen elegánsabb megoldás?
tökjó, hogy drop down box-szal oszlop értékeket ki lehet választani, de nehogymár ne lehessen egész sorokat... vagy tényleg nem lehet? -
#18144
Mutt
senior tag
Apollo17hu
#18143
Mutt
senior tag
válasz
Apollo17hu
#18143
üzenetére
Hello,
Hivatalosan a tömbképletet úgy kell bevinni, hogy előbb kijelölöd a tartományt ahova a képletnek kell mennie,
majd beírod a képletet és jön a CSE billentyűkombináció. Ezzel csak az a gond, hogy a relatív hivatkozások nem fognak módosulni. Tehát itt nem fog műkődni ez a módszer.Marad a hagyományos, vagyis 1 db cellába viszed be a tömbképletet, és onnan lehúzással/másolással töltöd fel a többi cellát. Ekkor a relatív hivatkozások módosulni fognak.
üdv.
-
#18117
bozsozso
őstag
Apollo17hu
#18113
bozsozso
őstag
válasz
Apollo17hu
#18113
üzenetére
Szia,
Próbáltam a SZORZATÖSSZEG() függvényt de nem jó mivel nem biztos, hogy azonos tömbről beszélünk. Eddigi próbálkozásaim mindig #ÉRTÉK hibába ütközött.
A másodiknál ilyet szeretnék elérni:
2
2
2
2 Összesen:
5
5
5
5 összesen:
23
23
23
23 Összesen
stb.Aminél a 2,5,23 értékeket egy másik munkalap A1,A2 illetve A3 stb. cellák tartalma. Ezt szeretném úgy ha egymás alá másolni tudnám bővítés esetén és nem kellene mindig beírnom, hogy honnan vegye a tartalmát.
-
#13058
VGYke
addikt
Apollo17hu
#13055
VGYke
addikt
válasz
Apollo17hu
#13055
üzenetére
Ráadásul ez a pdf ott fityeg valahol a fontos mentett dolgaim között elég rég óta 
(anno kerestem is a folytatását, de nem találtam).
Köszönöm! -
#13056
föccer
nagyúr
Apollo17hu
#13055
föccer
nagyúr
válasz
Apollo17hu
#13055
üzenetére
Save as...
Egy ilyen leírást kerestem már évek óta
üdv, föccer
-
#13054
VGYke
addikt
Apollo17hu
#13052
VGYke
addikt
válasz
Apollo17hu
#13052
üzenetére
Hopsz, olyan hosszan írtam előző hozzászólásomat, hogy közben Te is írtál. Viszont a megoldást még mindég nem értem.
-
#13053
VGYke
addikt
Apollo17hu
#13050
VGYke
addikt
válasz
Apollo17hu
#13050
üzenetére
Apollo17hu: Ezt nem értem. Nem vagyok profi. Tudnál írni róla bővebben?
Tehát az alapkérdés az, hogy ha véletlenszámot állítok elő egy excel makróban, az miért mindég ugyan az az érték az excel első indításakor, az indítási helytől (otthon, munkahely, op. rendszer, office, stb.) függetlenül? Makró példámban indításnál 16, bezárásnál 14.
Másold be az Auto_Open, Ato_Close mintámat egy tök üres excelbe, meglátod.
bandus: a véletlen szám soha nem lesz 1!
-
#12979
WGW
csendes tag
Apollo17hu
#12978
WGW
csendes tag
válasz
Apollo17hu
#12978
üzenetére
Nagyon féltem ettől a választól.
Excelben elboldogulok egy darabig, de az Access már kínai. De lehet, hogy ezek szerint nem fogom megúszni, hogy beletanuljak.
Azért köszi! -
#12075
Delila_1
veterán
Apollo17hu
#12073
Delila_1
veterán
válasz
Apollo17hu
#12073
üzenetére
A feltételt ilyen formában kell megadni: ">" & MA().
-
#12074
Geryson
addikt
Apollo17hu
#12073
Geryson
addikt
válasz
Apollo17hu
#12073
üzenetére
Ez egy érdekes gondolat, nekem is eszembe jutott. Direkt általánosnak tűntettem fel a dátumoszlopot és hasonlóan általánosnak a =MA függvény eredményét, csak úgy tesztképpen. Nem működött...
Biztos valami bagatell dolog lehet és emiatt itt állok... -
#12071
Geryson
addikt
Apollo17hu
#12070
Geryson
addikt
válasz
Apollo17hu
#12070
üzenetére
Hm, igen, ilyesmiről már én is hallottam. Na, még molyolok egy kicsit...
-
#12069
Geryson
addikt
Apollo17hu
#12068
Geryson
addikt
válasz
Apollo17hu
#12068
üzenetére
Jééé, nekem ez előbb nem ment. Most megy, nem is értem.
Köszönöm Mester! Várj csak, akkor van egy másik kérdésem is:
=SZUMHA(_SzamlaLista_20111118_175531!C
;"<C3";_SzamlaLista_20111118_175531!F)Azt próbáltam beírni, hogy összegezze akkor az értékeket, ha a C oszlopban az érték kisebb/nagyobb mint jelen esetben a C3 oszlopba írt érték. Dátumokról van szó. Az F oszlopban vannak ugye az összegzendő értékek. Hát ezt sem csinálja a betyár...
-
#12042
torment
csendes tag
Apollo17hu
#12036
torment
csendes tag
válasz
Apollo17hu
#12036
üzenetére
Köszönöm, tetszik a megoldás.
-
#11998
Fire/SOUL/CD
félisten
Apollo17hu
#11997
válasz
Apollo17hu
#11997
üzenetére
Cseréld le erre: SZÖVEG(D2;"éééé.hh.nn - nnnn")
-
#11996
Delila_1
veterán
Apollo17hu
#11995
Delila_1
veterán
válasz
Apollo17hu
#11995
üzenetére
Nem kell semmit összefűznöd.
A D oszlopnak ezt a formátumot add az egyéni kategóriában:
éééé.hh.nn - nnnn -
#11994
Delila_1
veterán
Apollo17hu
#11993
Delila_1
veterán
válasz
Apollo17hu
#11993
üzenetére
Részemről szívesen.
-
#11992
perfag
aktív tag
Apollo17hu
#11990
perfag
aktív tag
válasz
Apollo17hu
#11990
üzenetére
Na, lassú vagyok látom, Delila_1 megelőzött - de hasonló az észjárásunk:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range(Target.Address), Range("C2:C300")) Is Nothing Then
Else
Range(Target.Address).Offset(0, 1) = Now
End If
End Sub -
#11991
Delila_1
veterán
Apollo17hu
#11990
Delila_1
veterán
válasz
Apollo17hu
#11990
üzenetére
A Worksheet_Change tip. esemény kezelés a bevitelt figyeli.
A Set ter = Intersect(Target, Range("C2:C300")) sor megadja a figyelendő területet. Ha ezen a területen belül adsz új értéket egy cellának, a bevitt érték sorában (Target.Row) a 4. oszlopba beviszi az aktuális dátumot.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ter As Range
Set ter = Intersect(Target, Range("C2:C300"))
If Not ter Is Nothing Then Cells(Target.Row, 4) = Date
End Sub -
#11989
Delila_1
veterán
Apollo17hu
#11987
Delila_1
veterán
válasz
Apollo17hu
#11987
üzenetére
A makrót a laphoz kell rendelned, aminek a módjára elég sok példát találsz itt a fórumon.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("A2") = Date
If Target.Address = "$B$1" Then Range("B2") = Now
End SubA makró első sora a dátumot írja be az A2-be, mikor az A1-be beírtál valamit. A második sor a B1 kiállításakor az időt írja a B2-be. Tetszésed szerint írd át és alkalmazd.
-
#11988
perfag
aktív tag
Apollo17hu
#11987
perfag
aktív tag
válasz
Apollo17hu
#11987
üzenetére
Saját képletet, pontosabban saját függvényt. Az Excelnek (tudomásom szerint) nincs ilyen függvénye. Makróval kell az A1 változását figyelni és az időpontot beíratni az A2-be.
-
#11039
Koczka
tag
Apollo17hu
#11037
Koczka
tag
válasz
Apollo17hu
#11037
üzenetére
.
-
#11038
Koczka
tag
Apollo17hu
#11037
Koczka
tag
válasz
Apollo17hu
#11037
üzenetére
Köszönöm.
Hihetetlen hogy néha hogy föl tud pumpálni ez az excel. -
#11033
Jucus84
csendes tag
Apollo17hu
#11032
Jucus84
csendes tag
válasz
Apollo17hu
#11032
üzenetére
Köszi, ezt is próbáltam, de így betömöríti szorosan egymás mellé mind a 6 oszlopot és nem tudom széthúzni. Olyan, mintha az első osztásvonalon belül lenne az összes oszlop.
Ez nem az én napom...
-
#2056
sekli
addikt
Apollo17hu
#2055
sekli
addikt
válasz
Apollo17hu
#2055
üzenetére
pénznemmel nem lehetett, a testreszabás meg nem sikerült, hogy kell? ### km igy nem jo...
-
#762
lapa
veterán
Apollo17hu
#761
lapa
veterán
válasz
Apollo17hu
#761
üzenetére
jelenlegi formájában inkább látványos mint jó. de ha ennyire tetszett bedobom ezt is, bár talán ez annyira nem hasznos... [link] aztán ezzel ki is fújt a repertoár.
-
#359
Versus123
aktív tag
Apollo17hu
#355
Versus123
aktív tag
válasz
Apollo17hu
#355
üzenetére
nem egy cellát szeretnék formázni, azt akarom hogy az egész munkalapon érvényes legyen...ne kerekítgessen nekem
-
#206
Apollo17hu
őstag
Apollo17hu
#205
Apollo17hu
őstag
válasz
Apollo17hu
#205
üzenetére
hm...
ez csak 254 névig jó...
(anno kerestem is a folytatását, de nem találtam).
;"<C3";_SzamlaLista_20111118_175531!F
Új hozzászólás Aktív témák
Fferi50- Tőzsde és gazdaság
- AMD vs. INTEL vs. NVIDIA
- Horgász topik
- Szakított a OnePlus és a Hasselblad
- Házimozi haladó szinten
- HiFi műszaki szemmel - sztereó hangrendszerek
- Gumi és felni topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen billentyűzetet vegyek?
- Rocksztár lehet az OpenAI-ból
- További aktív témák...
- GYÖNYÖRŰ iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3573, 99% Akkumulátor
- Keresünk dokkolókat
- Ventilátorok 120/140mm és tápkábel modding kitűnő árakon!
- Törött Apple iMac 19.2 i5-8500 Radeon Pro 560X 4GB 16GB 256GB SSD 21.5" 4K Retina
- Bomba ár! Lenovo X1 Yoga 1st - i5-6G I 8GB I 512SSD I 14" FHD Touch I HDMI I W11 I CAM I Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest