- Milyen okostelefont vegyek?
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy Watch6 Classic - tekerd!
- Apple iPhone 13 - hízott, de jól áll neki!
- Érkezőben a Poco M6 4G
- Telekom mobilszolgáltatások
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Honor Magic5 Pro - kamerák bűvöletében
- Poco F3 - a mindenes, de nem mindenkinek
- iPhone topik
Hirdetés
-
Érkezőben a Poco M6 4G
ma 5G-s és 4G-s Pro modell már van, hamarosan lesz Poco M6 4G-s alapváltozat is.
-
Robotkart irányított a majom a kínai Neuralink agyi chipjével
it A mindezt lehetővé tévő Neucybert a Neuralink kínai riválisa, a Beijing Xinzhida Neurotechnology fejlesztette ki.
-
Miniképernyős, VIA-s Epomaker billentyűzet jött a kábelmentes szegmensbe
ph A megfizethető, szivacsokkal jól megpakolt modell ötfajta kapcsolóval és kétféle színösszeállítással/kupakprofillal szerezhető be.
-
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
-
Donar
csendes tag
válasz matekmatika #2050 üzenetére
Varázslatos, muxik
Thx -
t_ferenc
őstag
hali!
kérdésem, hogy Excelben hogy lehet beállítani azt, hogy számok beadása során automatikusan beírja az eggyel nagyobb számot a következő rublikába?
kösz a választ.if you fall seven times, stand up eight
-
sekli
addikt
helo
Hogy lehet excelben egy cellába a szám mögé mértékegységet rakni (nem forint, vagy USD) ? -
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...
-
-
Xtoph
csendes tag
Sziasztok!
Szeretném a segítségeteket kérni.
Szeretnék összehasonlítani 2 cellát vagy 2 worksheet-et?
Hogyan lehetséges ez?
Löszi
Kristóf -
BoGyo[ME]
tag
Hali!
Azt szeretném megtudakolni, hogy hogyan hiperhivatkozást ''automatikusan'' elhelyezni, konkrétan:
Az egyik munkalap (nevezzük alap-nak) bizonyos oszlopában szerepelnének különböző szövegek, amiket hiperhivatkozással össze kellene kötni egy másik munkalap (leírás) adott oszlopában szereplő szöveggel, úgy hogy a sorok folyamatosak.
A gyakorlatban:
alap;E9 -> leírás;A1
alap;E10 -> leírás;A2
alap;E11 -> leírás;A3
etc.
Ezt hogy lehetne automatizálni? -
matekmatika
tag
válasz BoGyo[ME] #2067 üzenetére
1. Kézzel egyesével
2. Nem tudom
3. Makróval
De ha már makró akkor nekem praktikusabb lenne a hiperhivatkozások helyett megjegyzésekbe pakolni a leírást.
Mert így:
- egy munkalapot megspórolsz
- a szöveg fölé állva egyből látod a leírást (nem kell kattintani)
- hiperhivatkozásnál vagy vissza kell hivatkoznod az eredeti munkalapodra vagy kézzel
visszakattintani, ha elolvastad a leírást. -
BoGyo[ME]
tag
válasz matekmatika #2068 üzenetére
Köszi!
Sajna felsőbb utasításra kell így csinálni (a másik munkalapon szereplő adatok külön is kellenek), úgyhogy ha valaki tudna segíteni makróval...
(roppant hálás lennék) -
matekmatika
tag
válasz BoGyo[ME] #2070 üzenetére
1. Készíts akkor egy makrót, (ESZKÖZÖK -> Makró -> Makrók..., Makrónévhez beírsz egy nevet (pl. hyper, de bármi lehet amit nem foglalt le magának a VB ), majd: Létrehozás.
2. Másold be ezt a Sub makróneve() és az End Sub közé:
Set leir = Worksheets(''leírás'')
a = 9 'az ''alap'' munkalapodon az első cellád sora (E9 vagyis 9)
b = 11 'az ''alap'' munkalapodon az utolsó cellád sora (E11 vagyis 11)
c = 5 'az ''alap'' munkalapodon a szöveget tartalmazó oszlopod száma (E vagyis 5)
i = 1 'a ''leírás'' m.lapon az első leírást tartalmazó cellád sora (A1 vagyis 1)
j = 1 'a ''leírás'' m.lapon a leírásokat tartalmazó celláid oszlopa (A vagyis 1)
For k = a To b
Range(Cells(k, c), Cells(k, c)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
leir.Cells(i, j).Value, TextToDisplay:=Selection.Value
i = i + 1
Next k
3. Majd futtasd le.
Próbáltam elég állítási lehetőséget beletenni, illetve magyarázatot hozzá.
Ha mégsem menne (de csak akkor ) itt megnézheted mit is csinál, remélem erre gondoltál, bár sok fantáziája nem lehetett annak aki kitalálta. (bocs )
(katt a command button-ra)
Hopp, a tar.hu -ra a feltöltés nem müxik az uw-t meg nem akaródzik rájönnöm hogy kell belinkelni, ha tudja vki segíthet
[link]
[Szerkesztve] -
matekmatika
tag
Pedig ennek mennie kellene:
[link] -
matekmatika
tag
válasz matekmatika #2072 üzenetére
Sajnos az előző kóddal csak addig működött amíg fel nem töltöttem, mert letöltve már nem volt jó. A link-ben levő munkafüzetben már javítottam a kódot, helyesen:
Set leir = Worksheets(''leírás'')
a = 9 'az ''alap'' munkalapodon az első cellád sora (E9 vagyis 9)
b = 11 'az ''alap'' munkalapodon az utolsó cellád sora (E11 vagyis 11)
c = 5 'az ''alap'' munkalapodon a szöveget tartalmazó oszlopod száma (E vagyis 5)
i = 1 'a ''leírás'' m.lapon az első leírást tartalmazó cellád sora (A1 vagyis 1)
j = 1 'a ''leírás'' m.lapon a leírásokat tartalmazó celláid oszlopa (A vagyis 1)
For k = a To b
Range(Cells(k, c), Cells(k, c)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
''leírás!A'' & i, TextToDisplay:=Selection.Value
i = i + 1
Next k -
BoGyo[ME]
tag
válasz matekmatika #2074 üzenetére
Köszi szépen, holnap kipróbálom...
(így, mások által kidolgozva nem is tűnik olyan bonyolultnak... ) -
Djatus
csendes tag
Sziasztok!
Adott egy táblázat, melyben minden érték egyedi. Értéket keresnék benne és amelyik oszlopban megtalálja, annak adja vissza az oszlop nevét.
Pl.:
A B C
1 5 6
2 7 9
3 8 11
Tehát, ha a keresett érték pl.: 7, akkor B adja vissza eredményül.
A HA és a KUTAT (KERES) függvényel megtudom csinálni egy oszlopra, de egyszerre többre sajnos nem.
Előre is köszönöm a segítséget! -
takyka77
tag
Sziasztok!
Egy olyan primitív kérdésem lenne, hogy az miért van, hogy a képletek csak akkor frissülnek ha elmentem a táblát. -
matekmatika
tag
Na mindegy, A-B-C oszlopra nézve a képlet:
=HA(HIBÁS(HOL.VAN(F2;A:A;0));HA(HIBÁS(HOL.VAN(F2;B;0));HA(HIBÁS(HOL.VAN(F2;C;0));''Nincs ilyen'';''C'');''B'');''A'')
ahol az F2-be van a keresett érték.
Ha több oszlopra is ki kell terjeszteni a keresést akkor ez alapján már menni fog.
Valóságban:
[link] -
Djatus
csendes tag
válasz matekmatika #2079 üzenetére
Köszönöm szépen, pont ez kellett!
-
rolko
őstag
Sziasztok!
Egy kis segítséget szeretnék kérni! Mi az a képlet amivel egy adott oszlopban lévő számot meglehet szorozni? -
BoGyo[ME]
tag
válasz matekmatika #2074 üzenetére
Szuperül működik, köszi szépen... Egy dologgal azonban jó volna kiegészíteni (bonyolódott az alap-tábla ):
Hogy lehet azt megcsinálni, hogy ha az ''E'' oszlopban nincs semmi, akkor az ''F'' oszlopra hajtsa végre a hiperhivatkozás beszúrását, vagy ami mégjobb lenne:
Minden egyes sorban nézze meg mindkét oszlopot, és amelyik nem üres, ahhoz rendelje hozzá az adott sort a ''leírás'' munkalapon (ha mindkét oszlopban van valami, akkor mindkettőhöz ugyanazt a cellát kellene hozzárendelni).
A gyakolatban:
alap munkalap
E F
9 alma
10 körte
11 narancs
12 szilva dinnye
leírás munkalap
A
1 piros
2 sárga
3 narancssárga
4 lila;zöld
[Szerkesztve]
[Szerkesztve] -
BoGyo[ME]
tag
válasz matekmatika #2084 üzenetére
Azért köszönöm szépen! Eredetileg én is valami ilyesmit akartam - lehet, hogy át is alakítom ilyenre -, de egyelőre csak ''favágó'' módszerel sikerült megoldani (mindegy így is roppant büszke vagyok rá, ez az első makróm... ):
Sub Hiperhivatkozás()
Set leir = Worksheets(''leírás'')
a = 9
b = 31
c = 5
i = 1
j = 1
For k = a To b
Range(Cells(k, c), Cells(k, c)).Select
If Cells(k, c) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
'''leírás'!A'' & i, TextToDisplay:=Selection.Value
Range(Cells(k, c + 1), Cells(k, c + 1)).Select
If Cells(k, c + 1) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
'''leírás'!A'' & i, TextToDisplay:=Selection.Value
i = i + 1
Next k
End Sub -
BoGyo[ME]
tag
válasz matekmatika #2086 üzenetére
Hááát, lehet, hogy elméletileg hiányzik, de a gyakorlatban tökéletesen működik...
Bár ahogy így kezdenek felelevenedni - rég elfeledett - ''programozói'' emlékeim (semmi komoly, csak Basic, TP), mondasz valamit... -
bumper
senior tag
Pivot tábla képes-e arra, hogy ne csak a már megadott adatokat mutassa, hanem képleteket kezelni, ha változik az adat (esetleg új sor jön be stb.) akkor azzal frissítve számoljon ?
thx -
Xtoph
csendes tag
válasz matekmatika #2069 üzenetére
Köszi!
-
ssrobi
csendes tag
Sziasztok!
Egy kis segíséget szeretnék kérni, alábbival mi lehet a gond:
Private Sub CommandButton1_Click()
Windows(''munkafüzet1.xls'').Activate
Columns(''A'').Select
Selection.Copy
Windows(''munkafüzet2.xls'').Activate
......
Egyik münkafüzetből szeretnék átmásolatatni egy másik munkafözetbe adatokat..de nem csinálja meg..nem is lehet ilyet!?
Köszi előre is! -
ssrobi
csendes tag
válasz matekmatika #2092 üzenetére
Sajna nem müxik..pedig mindkettő nyitva van..
lapa!
Hog érted, hogy a pöttyöknél? nem igazán értem -
lapa
veterán
válasz matekmatika #2094 üzenetére
látom én már nem is kellek, elmentem sörikézni
valami hibaüzi van, vagy csak nem csinálja meg? -
Jeti1
tag
Egy excel táblát (MS Office 2003) szurtam be worbe objektumként és rendessen kitöltöttem, meg megformáztam.Vagyis majdnem, mert van egy vonal a táblázatban ahova vékony keretet akarok rakni és elvileg azt is rakok ám az mégis vastag.
Ilyenkor hol keressem a hibát?Mit csináljak?Akár fel is töltöm valahova, ha valaki megcsinálja azt normálisra.Ne várjunk a nevetéssel, amíg boldogok leszünk. Különben félő: meghalunk anélkül, hogy nevettünk volna. /La Bruyére/
-
ssrobi
csendes tag
Látom megzavartalak Titeket a pontjaimmal azok csak azért voltak ott, hogy van folytatása, ami egy érték beillesztés, illetve 3 oszlop esetében szövegből oszlopok készítés Csak azok működnek azért nem másoaltam be!
A hibaüzi a következő:
Runtime error 1004
Range osztály Select metódusa hibás
és sajna nem csinálja meg
Persze nem én irtam a makrót, hanem makrorögzitővel készült -
matekmatika
tag
Találkoztam már többször én is ezzel a hiányosságával az vb-nek. Tartományt nem tud kezelni közvetlenül, de ha beszúrsz egy modult és a tartomány kijelölést, valamint a másik munkalapon a beillesztést az ott lévő függvényben vagy eljárásban végezteted el akkor működni fog.
Tehát ahol a kódod van ott Insert-module. Majd itt a modulon végezteted el a tartomány kijelölés-másolás-beillesztést.
Sub akarmi()
Windows(''munkafüzet1.xls'').Activate
Columns(''A:A'').Select
Selection.Copy
Windows(''munkafüzet2.xls'').Activate
cells(1,1).select
activesheet.paste
end sub
Az eredeti kódod helyén pedig egyszerűen maghívod az akarmi-t. Így:
akarmi
Ha nem megy írj megcsinálom.
[Szerkesztve] -
matekmatika
tag
Persze a követkaző formula kicsit elegánsabb. Nem csak azért, mert van benne egy hibakezelés is arra az esetre, ha nem lenne nyitva a másolandó adatokat tartalmazó munkafüzet, hanem mert csak
Sub akarmi()
On Error GoTo ErrorHandler
Workbooks(''munkafüzet1.xls'').Activate
Columns(''A:A'').Select
Selection.Copy
Workbooks(''munkafüzet2.xls'').Activate
Cells(1, 1).Select
ActiveSheet.Paste
Exit Sub
ErrorHandler:
Workbooks.Open Filename:=''munkafüzet1.xls''
End Sub -
ssrobi
csendes tag
válasz matekmatika #2099 üzenetére
Köszi! Megnézem és jelentkezek )