-
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
-
Z-Tom-ee
csendes tag
válasz Fire/SOUL/CD #12400 üzenetére
Bevallom töredelmesen hülye vagyok ehhez. Hogyan tud ez segíteni nekem? Ha VBA felületen akarom futtatni, egy nevet kér, ha nem adok neki, nem történik semmi, ha adok, a bemásolt rutin alá egy új programot akar csinálni vonallal elválasztva. A munkafüzetben pedig nem történik semmi...
-
félisten
válasz Z-Tom-ee #12401 üzenetére
Korábban makróban lett írva egy saját készítésű függvény, aminek a neve MyCellFormula.
A megnyitott munkafüzetben ALT+F11/Insert menü/Module és a jobb oldalon megjelenő új ablakba bemásolod a korábbi kódot. Ezt követően ezt az ablakot (amit VBA Editor-nak neveznek) bezárhatod.Erre a függvényre ugyanúgy kell hivatkozni a munkafüzetben, mint az Excel beépített függvényeinek bármelyikére, azaz ráállsz egy cellára és elkezded begépelni hogy =MyCellFormula(A1) Az A1 az egy cellahivatkozás, értelem szerűen arra állítod, amely cellából kiszeretnéd szedni a képletet. Ugyanúgy másolható pl egérrel, mint pl a SZUM és a többi függvény.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Z-Tom-ee
csendes tag
válasz Fire/SOUL/CD #12402 üzenetére
Így már minden tiszta. Zseniális ez a program, kipróbáltam. Sajnos az én problémámat nem oldotta meg, mivel nekem hiperhivatkozásokat kellene kihámoznom egyes cellákból (elérési útvonalakat a gépen lévő mapparendszerekben), de nagyon tetszik, elteszem, egyszer még jól jön. =) Köszönöm még egyszer a segítségeket.
-
félisten
válasz Z-Tom-ee #12403 üzenetére
Ja bocsesz. Hogy honnan szedtem, hogy képletet akarsz megjeleníteni, az rejtély.
Akkor próbáld ezt
Function GetLinkAddress(MyCell As Range) As String
On Error Resume Next
GetLinkAddress = MyCell.Hyperlinks(1).Address
End FunctionMindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Z-Tom-ee
csendes tag
válasz Fire/SOUL/CD #12404 üzenetére
Semmi gond. Bemásoltam az előző helyére és kiír ugyan egy útvonalat, de nem az adott cellában szereplő linket jeleníti meg, hanem az Excel fájl elérési útját minden cellába... Kaptam egy másik megoldást is, az kicsit összetettebb, de ugyanezt produkálja; mi lehet ennek az oka?
-
félisten
válasz Z-Tom-ee #12405 üzenetére
Mindegy, hol van a fájl... Lehet másik partíció, lemezen, weben, szóval mindegy.
Ha helyesen szúrsz be hivatkozást, akkor ilyen probléma nem lehet.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Z-Tom-ee
csendes tag
válasz Fire/SOUL/CD #12407 üzenetére
Jobb gomb => hiperhivatkozás, ott megadom a "látható szöveget" meg egy elérési utat a gépen lévő mappák armadájából. Nem ez a módja? Erre nekem folyamatosan az Excel helyét adja ki, persze ennek köze sincs ahhoz a helyhez, amit a teszt során behiperhivatkoztam...
(most addig ülök itt, amíg meg nem oldom ezt az überbonyolult problémát (gyakorlatilag megoldottátok helyettem, csak valamit bénázok, ami bosszantó...))[ Szerkesztve ]
-
Z-Tom-ee
csendes tag
Nyitottam egy új táblát, bemásolgattam a programot és tesztelgettem. Az A oszlopba pakoltam a hivatkozásokat és a B-ben írattattam ki. Ha előre kitöltöm a függvénnyel a B oszlopot, akkor nem működik. Ha először az A oszlop adott cellájában megcsinálom a hivatkozást és utána írom be a B oszlop megfelelő cellájába a függvényt, akkor jól működik, azt írja ki, ami a link és nem az Excel helyét...
-
Z-Tom-ee
csendes tag
Sajnos nem találtam meg a hibát, valahol valami svindli van. Jobb híján egy olyan táblát alakítok át, amit kaptam, és amiben működik is a makró. Sajnos kénytelen vagyok újra megírni mindent (szerencsére nem bonyolult), de még mindig ott van a nagy kérdés: OpenOffice-ba való átkonvertálás után vajon működik-e. Legutóbb megszenvedtem, mire minden feltételes formázás rendesen helyre rázódott, bízom benne, hogy most gyorsabb lesz.
Köszönet mindenkinek a segítségért és BUÉK! -
Z-Tom-ee
csendes tag
Van egy kis gondom... Delila_1 írt nekem egy makrót, ami csak az általa küldött táblában hajlandó működni. Ezzel még önmagában nem lenne gond, elkezdtem átalakítani arra a formára, ami nekem kell. Egy ideig a makró működött is, aztán egyszercsak nem. Nem tudom, mi változott, csak a táblázatba irkáltam dolgokat, teszteltem a makrót, feltöltöttem adatokkal, stb. Valami miatt nem stabil, nem értem miért. Van valami más megoldás a problémára?
-
gyga
senior tag
Sziasztok.
Szükségem lenne egy olyan véletlen szám generátorra ami az 5ös szórzó eredményeit dobja ki 5 10 15 20 25 30 35 40 45 50 -ig help.
A kisebbség is számíít, teszkó.
-
félisten
-
gyga
senior tag
válasz Fire/SOUL/CD #12413 üzenetére
kösz, a szorzást a végérő elfelejtettem
A kisebbség is számíít, teszkó.
-
kissgy04
tag
Sziasztok
Ecdl vizsgára készülök és segítséget szeretnék kérni.
Az ECDL mintafeladatok könyvében az alábbi feladat van:A feladat 4. pontjának megoldására nem jövök rá. Én ezzel a képlettel próbálkoztam, ami hibás =FKERES(MAX(B213);A213;2;HAMIS)
Segítséget előre is köszönöm, és BÚÉK mindenkinek.
-
balázz
csendes tag
Sziasztok !
Boldog Újévet
Van egy táblázatom 3 munkalappal 5000 adattal
Lenne 3 kérdésem amiket nem tudok megcsinálni.?
1.Hány hallgató született abban a megyében, amelyikben a második legkevesebb hallgató született?
2.Hány olyan hallgató van, akinek a vezetékneve, keresztneve és a születési helye nem ugyanazzal a betűvel (1 karakter) kezdődik?
3.Hogyan tudom párosítani a születési helyeket a megyékkel? (munkalap2,3)
Előre is köszi
-
balázz
csendes tag
A táblát is feldobtam:
-
Palyika
csendes tag
Próbálkozom a feltételes formázással.
Az alapfeltétel ez lenne:Ha H7 mező értéke = "Kész" felirattal, akkor A7 értékére érvényesüljön egy szín formázása, vagy áthúzás, vagy bármi kiemelés.
Azonban akármit is csinálok, nem sikerül.
Mivel a képfeltöltés szünetel, így adom meg:
Szabály: "Képlet: =HA(H7;Kész)"
Formátum: .....
Érvényesség: "=$A$7"
Leállítás, ha igaz: pipa bentMit rontok el?
-
Delila_1
Topikgazda
válasz Palyika #12429 üzenetére
Állj az A7 cellába. A feltételes formázásnál a képlet ez legyen: =H7="KÉSZ". Add meg a formátumot. A cella formátumát másolhatod az A oszlop további celláira pl. a formátumfestő ecsettel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
erich85T
csendes tag
Sziasztok!
Egy másik fórumban már feltettem ezt a kérdést de itt is megpróbálom. Múltkor már írtam a fórumban, és kaptam is segítséget amiért nagyon hálás vagyok, nagyon megkönnyítette a munkámat. Azonban akadt egy másik problémám is amit megkellene oldanom excelben, remélem ismét sikerül valamiféle segítséget kapnom.
Feladat: Kamatszámítás
Adott egy excel táblázat egy „Tartozások”, valamint egy „Jegybanki alapkamat” munkalappal.
A „Tartozások” munkalapon az alábbi oszlopok vannak:
Tartozás kezdetének dátuma - Tartozás kiegyenlítésének dátuma – Név - Tartozás összege (kamat nélkül) - Tartozás összege (kamattal)
Az első 4 oszlopban lévő adatok adottak, nekem az 5. oszlopba kellene valamilyen módon Excel segítségével összeget számolnom a „Tartozás kezdetének dátuma „ valamint a „Tartozás kiegyenlítésének dátuma” alapján a „Jegybanki alapkamat” fülön lévő értékekkel.A probléma az, hogy egy adott kezdő dátumtól az adott kiegyenlítés dátumáig akár több jegybanki alapkamat változás is történik. Eszerint több jegybanki alapkamattal kell számolni az adott intervallumban ahhoz, hogy megkapjuk a „Tartozás összege (kamattal)” oszlop értékeit.
Tehát röviden: Egy kezdő és egy befejező dátum közötti intervallumban az alaptartozásra akarom megkapni a kamattal számolt tartozás összegét úgy, hogy az adott dátumtól dátumig lévő időszakban több jegybanki alapkamattal kell számolnom.
Excel fájl: http://muszakitanacsado.hu/doksi/kamatszamitas2.xlsx
Találkozott e már valakin hasonló feladattal? Van-e valakinek valamiféle megoldása rá? Excelben ez egyszerűen megoldható vagy makroprogramot kell rá írni?
Előre is köszönöm a hozzászólásokat!
-
paatrick
senior tag
Sziasztok,
egy egyszerű problémám van. Adott az Eszközök->Védelem->Lapvédelem (Excel 2003) Na most nekem elég sok munkalapom van már, nincs valami megoldás hogy ne egyesével kelljen levédeni ezeket hanem ki tudjam jelölni az összeset?
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. ¯\ ʕ•ᴥ•ʔ /¯
-
Delila_1
Topikgazda
válasz paatrick #12432 üzenetére
Sub ved()
Dim lap%
For lap% = 1 To Sheets.Count
Sheets(lap%).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SzuperTitok"
ActiveSheet.EnableSelection = xlNoSelection
Next
End SubA Password-nél add meg a saját jelszavadat, vagy ha nem akarod jelszavazni, akkor el is hagyhatod. Ebben az esetben a Scenarios:=True utáni vesszőt is töröld ki.
Az ActiveSheet.EnableSelection = xlNoSelection sor letiltja a zárolt cellák kijelölését, ezt is elhagyhatod.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
Paatrick és Palyika
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Andie
őstag
Sziasztok!
Szeretnék átmásolni különböző -nem összefüggő- sorokat másik sheet-be.
Tehát mondjuk a 4. és 8. sort szeretném átvinni. Ekkor ugye kijelölöm a 4. sort, majd ctrl-t nyomva a 8.-t. Ez idáig megy is. Aztán átlépek a Munka2-be, és a 4. sorba állva ctrl + V - mire beteszi a 4. sort a 4. sorba, a 8. sort meg az 5.-be...
Azt szeretném, ha az új helyen is a 4. és 8. sorba másolná a forrás sorokat.
Próbáltam már minden helyen keresni, még googlén is, de nem találok megoldást - kétlem, hogy ne lenne. Office 2003-am van.
Makrós megoldás nyilván kézenfekvő, de biztos van gyorsbillentyüs is...Köszi!
Samsung Galaxy A50 - Samsung UE46D6100 - BNet Tag: Andie#2999
-
jani-wan
tag
Hali és boldog új évet mindenkinek
Két dologban kérnék segítséget.
Az első, hogy problémám van weboldalon lévő adatok excelbe másolásával. Sajnos a legtöbb helyen a nem egész számok esetében nem vesszőt használnak hanem pontot, és a másoláskor az excel ezt dátumnak értékeli. Így a 4.6 excelben 2011 árilis 6.-a ként jelenik meg. És ebből nem tudok 4,6-ot csinálni sehogy sem.
Ez ugye egy-két számnál nem jelentene nagy gondot ,de párszáz esetében már kihullik a hajam.
Az lenne a kérdésem hogy ezt a problémát meg lehet valahogyan oldani, illetve ha igen akkor hogyan?A második hogy lehetséges-e VBA-val mindent adatot törölni az összes, vagy csak egy lapról, cellaérték alapján.
Ha igen akkor örülnék egy leírásnak.Köszönöm
-
háma
csendes tag
Helló mindenki.
Első ittlétem alkalomból kívánok boldog új évet mindenkinek.
Segítségre szorulok egy megoldandó feladattal.
1es munkalap A oszlopban nevek vannak. C oszlopban e-mail címek. A Q oszlopba minden sorban szeretnék egy jelölőnégyzetet vagy pipát vagy ilyesmit.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A1" oszlopból és a "C1" oszlopból az A1 és B1 oszlopokba.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A4" oszlopból és a "C4" oszlopból az A2 és B2 oszlopokba. tehát helykihagyás nélkül.
Ezen felül ha kiveszem a pipát, törölje az adatokat a 2esből.Bármilyen megoldás érdekel részben vagy egészben.
SOKSOK köszi.
-
háma
csendes tag
Helló mindenki.
Első ittlétem alkalomból kívánok boldog új évet mindenkinek.
Segítségre szorulok egy megoldandó feladattal.
1es munkalap A oszlopban nevek vannak. C oszlopban e-mail címek. A Q oszlopba minden sorban szeretnék egy jelölőnégyzetet vagy pipát vagy ilyesmit.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A1" cellából és a "C1" cellából az A1 és B1 oszlopokba.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A4" cellából és a "C4" cellából az A2 és B2 oszlopokba. Tehát helykihagyás nélkül.
Ezen felül ha kiveszem a pipát, törölje az adatokat a 2esből.Bármilyen megoldás érdekel részben vagy egészben.
SOKSOK köszi.
-
poffsoft
addikt
Üdv!
Makróban kellene egy kis segítség: A makrófelvevővel a 'LAP2' munkalap adott cellájába kell az előző ('LAP1') lap celláját bemásolni. A makrófelvevővel ezt alkottam:
Sub Rögzítés9()
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=LAP1!RC[34]"
ActiveCell.Offset(1, 0).Range("A1").Select
End SubEzzel az a bajom, hogy pl a 'LAP3'-on futtatva is a 'LAP1'-ről másolja át, de nekem ott a 'LAP2'-ről kell. Vagyis mindig az aktív lap-1 számú lapról....
Ezt hogyan lehetne megoldani?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz poffsoft #12441 üzenetére
Ha 10 alatt van a LAPok száma, ez is megoldás lehet:
ActiveCell.Select
x = "LAP" & Right(ActiveSheet.Name, 1) - 1
ActiveCell.FormulaR1C1 = "=" & x & "!RC[34]"
ActiveCell.Offset(1, 0).Range("A1").Selectde biztosan van egyszerűbb kivitel. Minden esetben az A2 cellára kell állni a futtatás után?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
archen
csendes tag
Sziasztok!
Lenne egy komoly problémám, ami a következő:
Makrót írok excelben, ami összeköttetést biztosítana MySQL-el OBDC-n keresztül (pontosabban táblázatot tölt fel szerverre). Azon a ponton akadtam el, ahol sql syntaxisban szeretnék egy Excel mezőre hivatkozni, mint változóra. Utána olvastam már számos külföldi fórumban, és láttam hogy ezzel másnak is volt problémája, azonban megoldás nem született rá eddig. A környezet a következő:strsql = "INSERT INTO test_table (Variant1,Variant2,Variant3,Variant4,Variant5,Variant6) VALUES ('" & _
esc(Str(.Cells(rowctr, 1).Value)) & "','" & _
esc(Str(.Cells(rowctr, 2).Value)) & "','" & _
esc(Str(.Cells(rowctr, 3).Value)) & "','" & _
esc(Str(.Cells(rowctr, 4).Value)) & "','" & _
esc(Str(.Cells(rowctr, 5).Value)) & "','" & _
esc(Str(.Cells(rowctr, 6).Value)) & "')"A probléma forrásai a Variant1,2,3,4... lennének, fix értéken tökéletesen működik a makró, azonban ami a cél lenne az az, hogy - esetünkben ezt a 6 column nevet - az excel tábla H4-H10 mezőiből szedje ki, próbálkoztam már több megoldással is, pl:
(" & Cells(4, 8) & "," & Cells(5, 8) & "," & Cells(6, 8) & "," & Cells(7, 8) & " ......)
vagy
(" & H4 & "," & H5 & "," & H6 & " .....)
Ha bárkinek bármi ötlete, vagy ezirányú tapasztalata lenne, nagyon hálás lennék érte!
előre is köszönöm!
-
Delila_1
Topikgazda
Az indító lapodhoz rendeld a kódot. A lapon bármit beírva a Q oszlopba a nevet és az email címet átmásolja a "Másolat" lap A és B oszlopába, az utolsó kitöltött sor alá.
Az első lapon a "bármi"-t törölve a Q oszlopból, törlődik a két adat sora a "Másolat" lapról.
Jól mutat, ha az első lap Q oszlopát Wingdings-re állítod, és jelölésnek ü karaktert viszel be, ami egy pipa jelet ad.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
Dim név$, email$, sor%, usor%, WS2 As Worksheet
Set WS2 = Sheets("Másolat")
név$ = Cells(Target.Row, 1).Value
email$ = Cells(Target.Row, 3).Value
usor% = WS2.Range("A" & Rows.Count).End(xlUp).Row + 1
If IsEmpty(Target) Then
For sor% = 2 To usor%
If WS2.Range("A" & sor%) = név$ And WS2.Range("C" & sor%) = email$ Then
WS2.Rows(sor%).Delete Shift:=xlUp
Exit Sub
End If
Next
Else
WS2.Cells(usor%, 1) = név$
WS2.Cells(usor%, 2) = email$
End If
End If
End SubA Set WS2 = Sheets("Másolat") sorban adhatod meg a saját lapod nevét a Másolat helyett.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bugizozi
őstag
válasz archen #12443 üzenetére
Szia!
Jó irányban próbálkoztál, csak kell egy kis módosítás
Mindkét megoldás jó lehet, úgy hogy(" & Cells(4, 8).Value & ",
vagy
(" & Range("H4").Value & ",
Ha esetleg így nem működik, akkor próbáld az aposztrófok számát növelni valahogy így:
("" & Range("H4").Value & "",
Remélem tudtam segíteni!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
retexis
tag
Hali!
Kéne egy kis segítség.
Most kezdtem el 2010-es Excel-t használni, ha két xls dokumentumot szeretnék egyidejűleg használni, akkor egy ablakban nyitja meg mind kettőt, nem pedig külön-külön.
Van erre valami megoldás?
Remélem érthető amit írtam. -
lomajpure
csendes tag
Sziasztok! Szeretnék segítséget kérni a következőben(3 probléma):
Adott 2 excel workbook. Mindkettőben van 3 sheet (de, du, éj)
Az lenne a cél, hogy az első, ha nyitva van, folyamatosan olvassa a másik celláit. pl. a 2. ban a du sheetből a C1 tartalmát az első du sheetjébe és az A1be másolja. A második probléma: az elsőt mikor megnyitjuk, ha nincs meg a 2. fájl kidob egy figyelmeztető ablakot, hogy nincs.
A harmadik: a 2 fájl hálózaton, két különböző helyen található. A segítségeteket előre is köszönöm!!Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman
-
poffsoft
addikt
válasz Delila_1 #12442 üzenetére
Nem kell kijelöltnek lennie, ezt a felvevő csinálta(nem nagyon értek a VB-hez).
A lényeg, hogy az aktuális lap előtti lap adott cellájának az értéke kerüljön át az aktuális lap adott cellájába. Összesen 12 lapom van ("Január", "Február", ... "December") , értelemszerűen "Február" az első, ahová másolnom kell.Ha jól gondolom, az aktív lap kódnevéből ("Munka2") tudnám az előző kódnevét a módszereddel előállítani, abból kellene a valódi nevet előállítani a formular1c1 számára.
Igazándiból arra próbáltam rákeresni, hogy a sheeteknek van-e olyan stricky variable-jük, mint a sor-oszlopnak, mert azoknál lehet viszonylag egyszerűen címezni ha jól értettem a google-t (pl: R-1C az aktív cella feletti cellát jelöli) .[ Szerkesztve ]
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Vírusirtó, Antivirus VPN kulcsok