- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Az AI megmondja, hogy van-e fájdalma a macskának
-
IT café
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
-
bartucz911
tag
Köszönöm segítségedet, de szerintem az én példám jó volt, inkább azt nem sikerült átadnom hogy mit szeretnék.
Mivel a 7-es sorban a 10-es érték szerepel, melyhez 6 lépés után talál 10 es értéket megint, az igaz, de én a keresési tartományt mindig bővíteni szeretném az utána következő számmal (amennyiben az nem volt még).Szavakkal leírva a 7-es sorban a függvénynek azt kellene csinálnia hogy nézi keresi a 8as sorban a 10-es értéket. 43as áll ott, így megy tovább a kereséssel, de ekkor már a 43-ashoz is nézze. Szóval a 9es sort amikor nézni, megnézi hogy ez 10-es e vagy 43-as. Egyik sem nyert mivel ott 25 áll. Akkor megy tovább és a 10es sorban keresi hogy "10 vagy 43 vagy 25" áll. Egyik sem mivel 5 áll ott. Oké, akkor megy tovább a 11-es sorra ahol keresi hogy "10 vagy 43 vagy 25 vagy 5" Itt már talál egyezést mert ott 25 áll. Ez 4 lépés volt. ezért a 7es sorban az érték 4 lépés lesz.
Tehát a feladat csak az lenne hogy hány lépést kell mennie addig még egyezést talál valamelyik alatta említett értékkel.
Természetesen, ha mondjuk 1től 30ig lennének a számok és a 31. szám 30-as lenne megint, akkor értelemszerűen csak az az egy egyezés lenne az egész táblában, így az első sorba az kerülne hogy 31 lépés múlva talált egyezést (30-30). A 2. sorba pedig az kerülne hogy 30 lépés múlva talált egyezés (szintén a 30-30).
Szóval gyakorlatilag azok az értékek már csak csökkennek 1-el 1-el, mert nincs más. -
Mutt
aktív tag
válasz bartucz911 #41001 üzenetére
Szia,
Köszi a pontosítást. Beépített függvényekkel nem sikerült értelmes eredményt kihoznom, de ha UDF (makrós függvény) is játszik, akkor ezt próbáld ki. Alt-F11-el VBE szerkesztő megnyilik, majd ott Insert -> Module és a megjelenő üres ablakba másold be a kódot.
Function NextMatch(adat As Range)
Dim szam As Range
Dim szamok As New Collection
On Error GoTo ismetlodes
For Each szam In adat
If Len(szam.Value) > 0 Then
szamok.Add szam.Value, CStr(szam.Value)
End If
Next szam
Exit Function
ismetlodes:
NextMatch = szamok.Count
End FunctionEzek után lesz egy NextMatch függvényed, amely egy tartományt vár ahol a vizsgálandó számok vannak (a tartomány elejét ne fixáld!).
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
válasz bartucz911 #41001 üzenetére
Szia!
Segédoszlopokkal és sok képlettel valósítható meg, ha nem szeretnél makrózni, mivel előre nem lehet tudni, hogy hány számot kell megvizsgálni.
Ha feltételezzük, hogy az A oszlopban vannak a számaid, a B oszlopba szeretnéd látni a lépésszámot, a C oszlopban (esetleg) az ismétlődő számot, akkor a segédoszlopok - hogy elkülönüljenek- kezdődjenek az E oszlopban.
Az E2 cella képlete:=HAHIBA(HOL.VAN($A2;$A3:$A$62;0);1000)
Az F2 cella képlete:=HA(DARABTELI($A$2:$A3;$A3)=1;HAHIBA(HOL.VAN($A3;$A4:$A$62;0)+OSZLOP()-5;1000);1000)
A G2 cella képlete:=HA(DARABTELI($A$2:$A4;$A4)=1;HAHIBA(HOL.VAN($A4;$A5:$A$62;0)+OSZLOP()-5;1000);1000)
A H2 cella képlete:=HA(DARABTELI($A$2:$A5;$A5)=1;HAHIBA(HOL.VAN($A5;$A6:$A$62;0)+OSZLOP()-5;1000);1000)
és így tovább, annyi oszlopon keresztül, ahány számig szeretnéd az összehasonlítási lehetőséget, mindig egy-egy sorral lejjebb téve a vizsgálódás tárgyát. A keresendő tartomány végét, ami most $62, a te tartományod végére állítsd be. Az 1000 egy kellőképp nagy szám, legyen a magasabb, mint az utolsó értéket tartalmazó sor.
A képletet húzhatod lefelé az oszlopokon, ameddig már nincs összehasonlítható szám.
A B2 cella képlete:=MIN(E2:X2)
A C2 cella képlete:=INDIREKT("A" & B2 +SOR() )
Ez is húzható lefelé az oszlopban.
Üdv.
Ps. Persze ez elég bonyolult. A makró sokkal egyszerűbb megoldás.[ Szerkesztve ]
-
MCMLXXXII
tag
Sziasztok!
Ebben a táblázat ban segítettek össze hozni régebben meg nemrég
Elkezdtem a munka 2 fülön összesítést csinálni de kéne valami égy szerűbb mód valahogy dáttummal nem lehet ísetleg meg oldani?2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
huan
őstag
Inkább máshogy kérdezem:
Ez a függvény:=HA(HAHIBA(SZÖVEG.KERES("MLZR";E2);0)>0;"MLZR";HA(HA(G2>F2;ÖSSZEFŰZ("Pót ";(HA(S2+T2>=U2;"KÉSZ";ÖSSZEFŰZ("r.m.: ";T2))));HA(S2+T2>=U2;"KÉSZ";ÖSSZEFŰZ("részm.: ";T2)))="részm.: 0";"";HA(G2>F2;ÖSSZEFŰZ("Pót ";(HA(S2+T2>=U2;"KÉSZ";ÖSSZEFŰZ("r.m.: ";T2))));HA(S2+T2>=U2;"KÉSZ";ÖSSZEFŰZ("részm.: ";T2)))))
ha én rögzítem a makrót, akkor így néz ki:
ActiveCell.FormulaR1C1 = _
"=IF(IFERROR(SEARCH(""MLZR"",RC[-17]),0)>0,""MLZR"",IF(IF(RC[-15]>RC[-16],CONCATENATE(""Pót "",(IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",CONCATENATE(""r.m.: "",RC[-2])))),IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",CONCATENATE(""részm.: "",RC[-2])))=""részm.: 0"","""",IF(RC[-15]>RC[-16],CONCATENATE(""Pót "",(IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",CONCATENATE(""r.m.: "",RC[-2])))),IF(RC[-3" & _
">=RC[-1],""KÉSZ"",CONCATENATE(""részm.: "",RC[-2])))))"amit Tőled kaptam, és ezzel működik csak, az viszont így:
ActiveCell.FormulaR1C1 = _
"=IF(IFERROR(SEARCH(""MLZR"",RC[-7]),0)>0,""MLZR"",IF(IF(RC[-5]>RC[-6],CONCATENATE(""Pót "",(IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",összefűzE(""r.m.: "",RC[-2])))),IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",CONCATENATE(""részm.: "",RC[-2])))=""részm.: 0"","""",IF(RC[-5]>RC[-6],CONCATENATE(""Pót "",(IF(RC[-3]+RC[-2]>=RC[-1],""KÉSZ"",CONCATENATE(""r.m.: "",RC[-2])))),IF(RC[-3]+RC[-2]" & _
">=RC[-1],""KÉSZ"",CONCATENATE(""részm.: "",RC[-2])))))" & _
""Miért különbözik?
-
EmberXY
addikt
Sziasztok!
Ha a SZUMHATÖBB függvényben egyik feltételként "?"-ot adok meg, akkor ugye azt veszi figyelembe, hogy ha az adott cellában van-e valamilyen (bármilyen) karakter, de ha üres a cella, akkor a feltétel nem teljesül, igaz?
Utóbbi esethez a "*"-ot kellene használnom, jól gondolom?
Köszönöm előre is.Up the Irons!
-
MCMLXXXII
tag
A zöld a beérkezett áru dátummal a piros meg a kiadott áru dátummal és azt szeretném másik munka lapon ki nyerni valahogy egyszerűbben
2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
MCMLXXXII
tag
válasz MCMLXXXII #41010 üzenetére
Pl: így nyerem ki =szum(munka1!E4:N4) az adott hónapot csak ez elég macerás mert bogarászni kell hogy hol kezdődik a hónap eleje és vége
2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
Pakliman
tag
válasz MCMLXXXII #41011 üzenetére
Szia!
Egy lehetséges megoldás (ha jól értettem a feladatot):
A képletek (a Munka2 lapon!):
a zöld cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0) & ":" & HOL.VAN($A2;Munka1!$A:$A;0));INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))a narancs cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
A keresendő hónap az első sorban van sima számként pl.: 201904[ Szerkesztve ]
-
mpierre
veterán
Valaki esetleg? [link]
#### A hatalom nem egy jelvény vagy egy pisztoly. A hatalom az a hazugság: minduntalan hazudni, míg lassan az egész világ behódol neked. #### Eladó cuccok: https://hardverapro.hu/aprok/hirdeto/mpierre/index.html #### https://youtu.be/CRaOpLyIDpk
-
MCMLXXXII
tag
válasz Pakliman #41012 üzenetére
Hú ez most nagyon kínai
A zöld bevét nem számít
A pirosat kéne úgy valahogy hogy elkezdem írni a fügvényt =szum(munka1 dátum 1 től 30 v 31. Éig mondaná az eredményt
De csak a piros sór érdekelne2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
Pakliman
tag
válasz MCMLXXXII #41014 üzenetére
Pl: így nyerem ki =szum(munka1!E44) az adott hónapot
Akkor most nem igazán értem, hogy mi is lenne a feladat
Nem az adott havi összes érdekel? Mert én ebből is úgy értem: =szum(munka1 dátum 1 től 30 v 31. ÉigHa mégis a havi kell, akkor átalakítva csak a piros sorokat figyelembe véve:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
"Kínai"-magyar szótár :DD :
HOL.VAN($A2;Munka1!$A:$A;0) megkeresi az "Áru 1" szöveget a Munka1 lapon => 2.sor
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1) a 201902-t átalakítja 2019.02.01 dátummá
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0) a 201902-t átalakítja 2019.02.30 dátummá (2019.03.01 - 1 nap)
INDIREKT("Munka1!" & ... létrehozza a a másik munkalapra való hivatkozásokat pl.:
INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2) => Munka1!4:4[ Szerkesztve ]
-
MCMLXXXII
tag
válasz Pakliman #41015 üzenetére
szép jó reggelt
Igen ezt szeretném igen csak az a bajom hogy valamelyik tétel 30 oszlopból áll valamelyik csak 5 ből egy hónapban és ez a macerás NEKEM2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
Delila_1
Topikgazda
-
Roxy27
tag
Sziasztok,
segítenétek abban, hogy:
van egy sok munkalapból álló Excel.
Az első (összefoglaló) lapra szeretnék egy kimutatást/diagrammot a többi munkalap adott cellájának adataiból.pl. minden lap F13-as cellájának adatai egy napi mennyiséget tartalmaznak.
Ebből szeretnék egy diagrammot, hogy látszódjon hogy alakulnak a mennyiségek.
Valahogy hasonlóan kellene mint ahogy a 3D hivatkozás... hogy 2 munkalap tartomány közti de mindig azonos cellaértékeket értékeljen/jelenítsen meg.
Ez 2 lépéses?
A cellaadatok "automatikus átmásolása"? majd erre egy grafikon...
De hogyan?Vagy lehet 1 lépésben is... de hogyan...?
ui.: a munkalapok napi szinten bővülnek (naponta 1 új) Adat azonos cellában... mindig az F13
Előre is köszi a segítséget!
Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
temporello
tag
válasz MCMLXXXII #41014 üzenetére
A másik munkalapon létrehozod az összesíteni kívánt hónapok oszlopát (2019.02 2019.03 stb),e mellé meg:
=Szumhatöbb(Munka1!$E$4:$XFD$4;Munka1!$E$5:$XFD$5;">=" & KALK.DÁTUM(összesíteni kívánt hónap cellája;0);Munka1!$E$5:$XFD$5;"<" & KALK.DÁTUM(összesíteni kívánt hónap cellája;1)).
Az XFD a létező legnagyobb oszlop azonosító,ez garantálja,hogy az összes oszlopot vizsgálja.
(Megjegyzem,talán érdemes lenne az egész táblázatot átalakítani,hogy a dátumok legyenek az első oszlopban.)
-
MCMLXXXII
tag
válasz temporello #41023 üzenetére
köszi
ez így is sok nekem a dátumok általatok írt makróval kerül alá automatán2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
MCMLXXXII
tag
válasz temporello #41023 üzenetére
küldtem emailt
2000 ---> Alkatel Max ; Siemens m35i ; Motorola v3i ; Samsung Omnia ; Samsung Note 3 ; Samsung Note 8+Dex-Pad helyett Melopow m002;. Note 10
-
Bacusuz
őstag
Sziasztok!
Exceles kérdésem lenne, office 2016 prof plust használok.Van egy munkafüzetem, ahol az egyik munkalap(G) oszlopában található összes adattal(vevők neve) szeretnék egyezést keresni egy másik munkalap másik oszlopában. Ha mindegyik sor végén kiírná: igaz, vagy hamis az elég lenne.
Tudnátok ebben segíteni?[ Szerkesztve ]
ÜDV! Bacusuz. Veszélyes környéken lakom. Ahányszor becsukom az ablakot, mindig odacsukom valaki kezét.
-
Delila_1
Topikgazda
-
Bacusuz
őstag
válasz Delila_1 #41027 üzenetére
Sajnos nem működik.
Úgy látom ez a függvény egy másik fájlt keres hozzá, ezért megpróbálok pontosítani:-egy excelben van a két oszlop, csak különböző lapon.
-a két oszlopban található vevőnevek teljesen más sorrendben vannak, nem egy sorban, sok ismétlődéssel
-tehát ha az egyik oszlopból talál olyat ami a másik oszlopban is van akkor az mellé írjon valamit.
nemtudom érthető voltam?ÜDV! Bacusuz. Veszélyes környéken lakom. Ahányszor becsukom az ablakot, mindig odacsukom valaki kezét.
-
Lasersailing
senior tag
válasz Bacusuz #41029 üzenetére
fkeres függvény nézd meg:
H1-be:
FKERES(G1;Munka2!A:A;1;0)
(feltételeztem,hogy Munka2 nevű sheeten az A oszlopban vannak az adatok)
Ha megtalálja, akkor kiírja az értéket, ha nem, akkor "#hiányzik!"-ot ír. Ezt követően leszűrheted a #-re és megvannak a hiányzó címek.Fkeres paraméterei:
1) mit keressen
2) melyik táblázat első oszlopában keressen (fent egy oszlopot adtam meg:A:A)
3) ha megtalálta a táblázat hanyadik oszlopának értékét adja vissza
4) 0 - csak pontos egyezőségre keressen / 1 ha nem találja, akkor a következő sor értéket adja vissza.(Vagy beépíted ezt egy másik függvénybe)
Üdv. -
Fferi50
őstag
válasz Bacusuz #41029 üzenetére
Szia!
"Úgy látom ez a függvény egy másik fájlt keres hozzá,"
Ez biztosan nem úgy működik.
Valószínűleg nem Munka2 a neve a második munkalapodnak.
A=DARABTELI(Munka2!G:G;G2)>0
képletben a Munka2 helyére írd a második munkalapod nevét légy szíves.
Így működik: Amennyiben talál olyan értéket a második munkalapon, az eredmény IGAZ, ha nem talál, akkor az eredmény HAMIS lesz.
Természetesen az FKERES függvény is használható, ahogyan az előttem szóló is javasolta.
Üdv.
-
Bacusuz
őstag
válasz Fferi50 #41031 üzenetére
Először is mindenkinek köszi a segítséget, sajnos még mindig nem sikerült megoldanom.
most az egész oszlopban hamis van.
-a lapokat átneveztem 2018 és 2019 nek.
-a 2018 g oszlopból kell találni olyan vevőket melyek megtalálhatók a 2019 g oszlopáben
-mind 2 táblázatban ismétlődnek a vevőnevek, nem sorrendben vannak, az egyezések sem egy sorban lesznekÜDV! Bacusuz. Veszélyes környéken lakom. Ahányszor becsukom az ablakot, mindig odacsukom valaki kezét.
-
Zola007
veterán
van egy táblázatom (több száz sor, 10 oszlop)
Az egyik oszlop minden cellájában több sornyi adat van sortöréssel több sorba rakva.A kérdésem az, hogyan lehetne megoldani, ha abban a mezőben lévő cellát kijelölök, akkor mutassa "gyorstippszerűen" a teljes tartalmát?
Szerkesztőlécen ugye csak az első sort mutatja, ahhoz be kell lépnem mindig a cellába, hogy lássam a teljes tartalmat.
Átméretezés nem megoldás, mert átlátható kell maradjon tableten is[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
atyca
senior tag
Sziasztok!
Megoldhatóvalahogy,hogy a keresésés csere csak a kijelölt területen történjék meg?
(Office Plus 2016)
A hatókörre csak munkalap,vagy munkafüzet lehetőséget találtam...Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)
-
Zola007
veterán
keresés előtt kijelölöd a területet, utána ctrl+f és akkor első körben csak ott fog keresni/cserélni
ha végzett, megkérdezi kiterjessze-e a teljes munkalapraMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
válasz Fferi50 #41039 üzenetére
nem, mert akkor kitakarja az egyébként is szűkös helyet a 7" képernyőn az idő nagy részében
van rá makró, ami kiteszi textboxba a cella tartalmát, amire ráállsz, de az is állandó helyet foglal[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
-
Zola007
veterán
válasz Fferi50 #41042 üzenetére
Ha átírod nekem, az megköszönöm
Ezt próbáltam, de nem az igaziI have experimented with loading a TextBox when you click a particular cell using the WorksheetSelectionChange event.
In the VB Editor this is pasted into the 'Sheetx(Sheet x) of the sheet you are using it in.
Currently the range is set to column A. If any cell in column A is clicked it loads a UserForm with only a TextBox in it with the content of the cell clicked on.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A65000")) Is Nothing Then
UserForm1.TextBox1.Value = Target.Value
UserForm1.Show
End If
End SubYou will need to create a UserForm.
Right-Click Forms > Insert > UserForm.
If it's the only one it defaults to userForm1
Add a TextBox to it.The TextBox Properties must be set to
MultiLine = True
Wordwrap= TrueYou can also add scrollbars if there's a lot of text.
You can change the Properties by right-clicking on the UserForm in the VBA window.
[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Fferi50
őstag
válasz Zola007 #41043 üzenetére
Szia!
Ezt az adott munkalap kódlapjára kell bemásolnod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim cmt As Comment
Application.EnableEvents = False
Set cmt = Target.Comment
If Not cmt Is Nothing Then Target.Comment.Delete
If Target.Value <> "" Then Target.AddComment Target.Value Else Application.EnableEvents = True: Exit Sub
Set cmt = Target.Comment
With cmt
.Visible = True
.Shape.TextFrame.AutoSize = True
.Visible = False
End With
Application.EnableEvents = True
End SubAz előző Selection_Change makrót kitörölheted.
Mit csinál a makró?
Most az A (első) oszlop celláira működik, ha másik oszlopban vannak az adatok, akkor annak a számát íd be az 1 helyére.
Amikor megváltoztatod egy cella értékét, akkor azt az értéket beteszi megjegyzésbe is, amit egy kis piros jelölő mutat majd a cella jobb felső sarkában. A megjegyzés úgy viselkedik, ahogyan az elején írtad, ha az egérrel rámutatsz a cellára, a megjegyzés "kibomlik" és addig látható, amíg az egérmutató ott van.
Viszont ahhoz, hogy a makró szolgáltatását "élvezhesd", egyszer végig kell menned az adott oszlopon "enterekkel", hogy a Change esemény létrejöjjön.
Ha ezt túl soknak találod, akkor másold be ezt a makrót egy Modul lapra (de az sem nagy baj, ha a munkalap kódlapjára másolod):Sub megjegyzes()
Dim cl As Range, cmt As Comment
Application.EnableEvents = False
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells
Set cmt = cl.Comment
If Not cmt Is Nothing Then cl.Comment.Delete
If cl.Value <> "" Then
cl.AddComment cl.Value
Set cmt = cl.Comment
With cmt
.Visible = True
.Shape.TextFrame.AutoSize = True
.Visible = False
End With
End If
Next
Application.EnableEvents = True
End Sub
Ez végigmegy az A oszlopon és felteszi a megjegyzéseket oda, ahol a cellában érték van. Természetesen az A oszlopot változtasd át a neked megfelelőre.Tehát először lefuttatod a második makrót - majd az első követi a változásokat az oszlopban.
Üdv.
-
Lasersailing
senior tag
válasz Bacusuz #41045 üzenetére
F2-vel lépj be egyik cella tartalmába, ami szerinted meg van a másik cellában is.
jelőld ki a teljes cella tartalmat (ha van(nak) space-ek a végén, elején akkor azokat is!)
CTRL+C
átmész a másik sheetre, ahol szerinted meg kellene legyen ez az adat
CTRL+F (keresés menüje)
CTRL+V (szöveg beillesztése)
ENTERígy megtalálta? Ha igen, akkor ugyanez másik irányba --> az a kérdés, hogy betűről betűre megegyezik-e a két cella értéke, a fenti függvények csak akkor találják meg, ha minden betű megegyezik. (sorrend is, spacek száma is, szóval minden számít)
De a legegyszerűbb, ha csinálsz egy tesztet: egy cellát másolj át egy az egyben az egyik munkalapról a másikra, ha azt megtalálja, a többit nem: akkor az a baj, hogy eltérés van a többi cella tartalmában.
Ha nem találja meg, akkor viszont képlethiba van.
Üdv.
-
Bacusuz
őstag
válasz Lasersailing #41046 üzenetére
mindenkinek köszönöm a segítséget, végül sikerült.
A 2 táblázatban ugyan azt a szűrőket állítottam be, ezért nem olyan válaszokat kaptam amiket szerettem volna.
szóval köszi még 1x , sokat segítettetekÜDV! Bacusuz. Veszélyes környéken lakom. Ahányszor becsukom az ablakot, mindig odacsukom valaki kezét.
-
Bacusuz
őstag
válasz Fferi50 #41048 üzenetére
mert nem volt benne.
volt egy 2018 és egy 2019-es nagy összefoglaló excel, amelyekből szűrtem ki adatokat.
ezek eredményeit másoltam egy excelbe amiben kaptam tőletek a segítséget[ Szerkesztve ]
ÜDV! Bacusuz. Veszélyes környéken lakom. Ahányszor becsukom az ablakot, mindig odacsukom valaki kezét.
-
ntamas97
csendes tag
Sziasztok!
Kérdőív elemzése közben egy egyszerű hibába ütköztem, amit képtelen vagyok megoldani. Pedig még az iskolába is tanultuk, de most nem jön össze vhogy...
B oszlop értékei: Férfi, Nő
D oszlop értékei: Sok autómárkát ismerek, származási helyükkel tisztában vagyok és az autós híreket is követem; Sok autómárkát ismerek és a származási helyükkel tisztában vagyok; Néhány autómárkát fel tudok sorolni; Nem foglalkoztat az autós világ.Meg szeretném számolni, hogy nők hányan válaszoltak a D oszlop valamennyi válaszára, és ugyanez férfiakra. Ha és darabteli függvénnyel próbáltam, de nem tudtam megoldani
Tehát a cél ez lenne:
Sok autómárkát ismerek, származási helyükkel tisztában vagyok és az autós híreket is követem - erre Nő: 19, Férfi 26 válaszolt
Sok autómárkát ismerek és a származási helyükkel tisztában vagyok - erre 26 nő és 20 férfi válaszolt.
stb.Köszönöm a segítséget előre is, életmentő lenne!
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- BestBuy ruhás topik
- Azonnali VGA-s kérdések órája
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Mibe tegyem a megtakarításaimat?
- ThinkPad (NEM IdeaPad)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Melyik tápegységet vegyem?
- Nők, nőügyek (18+)
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Canva Pro előfizetés - 1 éves
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!