- AMD Navi Radeon™ RX 9xxx sorozat
- HP notebook topic
- Bluetooth hangszórók
- Fejhallgató erősítő és DAC topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- CPU léghűtés kibeszélő
- Melyik tápegységet vegyem?
- OLED TV topic
- Teljesen az AI-ra fókuszál az új AMD Instinct sorozat
- Azonnali notebookos kérdések órája
-
PROHARDVER!
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
-
gyga
senior tag
Következőben kérném a segítségeteket.
Adott A1 cella és B1 cella A1 ben pl 120.000 A B1 cellát húgy kell kiszámolni hogy van 2 értékem pl: a D2 D3 cellában pl: A D2= 122.000 D3= 100.000 Tehát a B1 bekerülne a következő képlet =ha(a1<=d2;a1;d2) eddig ok.
DE ha az A2 cellában van valami összeg akkor már ne a D2 értékkel hanem a D3-al számoljon a képlet. remélem érthető voltam.... -
Delila_1
veterán
Jó vicc volt, hogy az előző válaszomhoz elfelejtettem csatolni a makrót.
A tiédben az ELSE sor beteszi az üres sort az I oszlopba, vagyis ugyanott vagy vele, mint makró nélkül.A lenti makrót a lapodhoz kell rendelni: lapfülön jobb klikk, Kód megjelenítése, üres lapra bemásolás.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 6 Then
sor_1 = 2
E = Range("E65536").End(xlUp).Row
F = Range("F65536").End(xlUp).Row
usor = Application.WorksheetFunction.Max(E, F)
Range(Cells(2, 9), Cells(usor, 9)).ClearContents 'előző adatok törlése
For fogyi = 2 To usor
If Cells(fogyi, 5) > 0 And Cells(fogyi, 6) > 0 Then
Cells(sor_1, 9) = Round(Cells(fogyi, 6) / (Cells(fogyi, 5) / 100), 2)
sor_1 = sor_1 + 1
End If
Next fogyi
End If
End SubGyorsan elküldöm, mert ezelőtt 4 db pillanatnyi áramszünet megsemmisítette a válaszomat.
-
snpetit
aktív tag
Sziasztok!
Olyan kitöltést, miként lehet végezni, hogy pl.. A,B tartalmazza az adatokat C pedig az ismétlés számát, pl.:
cikkszám1 ár1 3
cikkszám2 ár2 4Eredmény
cikszám1 ár1
cikszám1 ár1
cikszám1 ár1
cikkszám2 ár2
cikkszám2 ár2
cikkszám2 ár2
cikkszám2 ár2Köszi előre is!
-
Ch4os
aktív tag
Amúgy ennyi lett az egész:
For fogyi = Tol To Ig
If (Cells(fogyi, 5) <> "" Or Cells(fogyi, 6) <> "") And (Cells(fogyi, 5) <> 0) Then
Cells(fogyi, 9) = Round(Cells(fogyi, 6) / (Cells(fogyi, 5) / 100), 2)
Else
Cells(fogyi, 9) = ""
End If
Next fogyi -
Ch4os
aktív tag
válasz
Delila_1 #5189 üzenetére
Köszi sikerült!
Lehetséges valamilyen módom azt beállítan, hogy bizonyos cellák (a forrásadat oszlopok) adatainak módosulása esetén fusson le a makró automatikusan?
Lusta voltam, nem néztem meg: Van lehetőség, hogy a makrok már engedélyezve legyenek az excel megnyitásakor/elindításakor. Legjobb lenne, ha csak ezen az állományon lenne ez érvényes. -
Delila_1
veterán
Egy kis makrót lefuttatva a H oszlopban megkapod egymás alatt azokat az értékeket, amiket majd a grafikonban megjeleníthetsz.
A makró a lapod 2. sorától indul, feltételezve, hogy ott kezdődnek az adataid (1. sor a cím). Figyeli az E és F oszlopok tartalmát, és ha mindkét érték nagyobb, mint 0, elvégzi az osztást, az eredményt beírja a H oszlop következő üres sorába (a másodiktól kezdve).
Ha a számokat tartalmazó sorok (E és F oszlopban) nem a 2. sorban kezdődnek, a makróban a sor_1=2 -nél a 2 helyett írd azt be, a For sor =2 To kezdetűnél szintén a 2 helyett.Az adataidhoz valószínűleg van címoszlop is. A H oszlop kevesebb adatot tartalmaz, mint az E vagy F oszlop, mert az üres sorok ki vannak gyomlálva. A címoszlopot is ennek megfelelően kell alakítani. Mivel nem tudom, melyik oszlopod tartalmazza a sorok címét, a D oszlopra gondoltam. Ennek a megfelelő értékeit írattam a G oszlopba.
A makróban a Cells(sor_1, 7) = Cells(sor, 4) -nél a 4 helyett írd be az eredeti oszlopod sorszámát. ("A" oszlop esetén ez 1, "B" oszlopnál 2, stb.). -
Ch4os
aktív tag
Problémám a következő!
Egy grafikon adatai egy oszlopból táplálkoznak.
Az oszlop összes elemének van értéke, egy függvény: (fogyasztás-számolás)
=HA(VAGY(E13="";ÜRES(F13));"";F13/(E13/100))Ebben figyelem, hogy a számításhoz szükséges mezők rendelkezésre állnak-e már.
Ezzel nincs is gond működik.
Viszont vannak olyan sorok, mikor az E vagy F oszloba nem kerül adat, így a grafikon által vizsgált oszlop eleme is üres.
De a grafikonon csak azokat az értékeket szeretném látni, amiben van érték, de valamiért az üreseket is beleteszi. Ezáltal a grafikonon ezek az elemek 0 értékhez ugrasszák a függvényt. Így a látni kivánt értkek között néha egy két 0 is van, ami nagyon zavaró.
A grafikonon próbáltam az Adatok kijelölése/Rejtett és Üres Cellák megoldást. De a cella nem üres, mivel szerepel benne a fenti függvény.
Hogyan lehetne ezt megoldani?Ha nem volt érhető, akkor adok képet a dologról.
-
robagp
tag
Hello!
Egy dbf fileban szeretném a magyar karaktereket angolra lecserélni, hogyan tudnámezt a leggyorsabban megtenni? /á:a ; é:e ; stb/
Köszi!
-
Az a baj ezzel, hogy létre kell hozni mégegy oszlopot mindkét sheet-en.
Ezzel a megoldással nem kell:
=INDIRECT("Sheet1!$C"&SUMPRODUCT((Sheet1!$A$1:$A$9999=A1)*(Sheet1!$B$1:$B$9999=B1)*ROW(Sheet1!$C$1:$C$9999)))
Sajnos a függvények magyar megfelelőit nem tudom, így angol excelben működik.
-
Cuci3
tag
válasz
Gabcsika #5177 üzenetére
Első kérdés: az A és B oszlopban lévő értékek egyszerre ugye csak egyszer fodulnak elő?
Mivel ha a "5660065 B12586" értékpár többször fordul elő, akkor meg van lőve az egész, több eredmény is lehetséges lenne, melyet nem lehet lekezelni.A megoláds leírása hosszú lenne, ezért feltettem ide.
A HA(HIBÁS(FKERES());"";FKERES()) függvény középső részében tudod változtatni, hogy nemleges találat esetén mit írjon ki. Jelenleg semmit ("").
-
Gabcsika
tag
Sziasztok!
Azt hogyan kellene megoldani, hogy van egy táblázatban az A oszlopban számadat, mellette neki megfelelően B oszlopban betűvel kezdődő számadat (pl.: B25641) a C oszlopban pedig egy számadat.
A feladat az lenne, hogyha az Excel megtalálja az A1-B1 párost egy másik táblázatban (szintén egymás melletti oszlopban), akkor hozza hozzá a C oszlop számadatát.1. táblázat:
A B C
5660065 B12586 12.1515és ha a 2. táblázatban
megtalálja ugyanezt, hogy
A B
5660065 B12586akkor a másik táblázatba mondjuk a C oszlopba hozza hozzá az első tábla C oszlop megfelelő értékét.
Remélem világosan fogalmaztam.
Köszi!
-
Wajk
addikt
hali
egy kérdésem lenne, amit használok az az Office XP-ből Excel.
Az lenne a problémám. SZUMHA-t gondoltam egybeágyazni de ha jól tudom nem nagyon lehet.
A következő a helyzet:
- '"A" oszlopban van, hogy melyik hónap (számmal, pl.: 5)
- "D" oszlopban van az érték (pl. 100 Ft)
- "E" oszlopban pedig a csoport (pl.: tankolás, bevásárlás, stb...)Azt anno megoldottuk, hogy hónapra ki tudom gyűjteni, hogy mennyi volt összesen az érték SZUMHA-val.
Viszon most az kellene, hogy adott hónapban adott csoport értéke adódjon össze.
Ez most (így hónapra bontva megkapom az értékek összegét):
=SZUMHA($A5:$A999;H3;$D5:$D999)
és valami ilyesmi kellene (hátha így jobban látjátok mi kellene):
=SZUMHA($A5:$A999;H3;=SZUMHA($E5:$E999;"pl.:Tankolás";$D5:$D999))már próbáltam mindent, de nem találtam megoldást. valakinek valami 5tlet?
Előre is köszönet. -
Cuci3
tag
válasz
ArchElf #5166 üzenetére
Kösz a linket. Megnéztem, de nekem nem ez a gondom. Furcsa mód a második eljárás mindig tökéletesen működik, ezért megnéztem ezt a ChDir parancsot. A Helpben a következő volt:
"The ChDir statement changes the default directory but not the default drive. For example, if the default drive is C, the following statement changes the default directory on drive D, but C remains the default drive:"ChDir "D:\TMP"
Szóval az elsőt kódrészletet ilyen formára kell átalakítani, ha bárki kezdeni akar vele valamit:
Sub ell()
Const utvonal = "\\Dbinfo\strategia\faktoring elemzés\dfakto - pénzügyi kimutatás\"
Dim FN As String
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open utvonal & FN
ActiveWindow.Close
End If
FN = Dir
Loop Until FN = ""
End SubVégre ezen is túl vagyok.
-
ArchElf
addikt
Egy ilyen hibát találtam:
http://support.microsoft.com/kb/210684Ez alapján úgy néz ki, hogy valami objektum-felszabadítási hiba lehet mögötte. Úgy néz ki, hogy belsőleg nem igazán takarít ki maga után az Excel és megtelik memória felszabadítatlan objektumokkal.
A probléma itt az, hogy a gond nem a megnyitott dokumentumokkal van, hanem azzal, amelyikben épp fut a script. Célszerű lenne szerintem a futás végeztével bezáratni, majd újraindíttatni magát.
Ha egyáltalán nem fut végig a script:
1) generálni kellene egy listát a fájlokról a könyvtárban (ha a lista fájl üres)
2) ha a lista nem üres, arról feldolgozni 1-2-5 elemet, azokat kitörölni a listáról (míg a lista ki nem ürül), ezután újraindítani a megnyitó excelt.AE
-
Cuci3
tag
Mivel ez a hülyeség még mindig nem múlt el, ezért ez lett a kódból (érdekességképpen kiteszem
):
Sub ell2()
Const utvonal = "\\Dbinfo\strategia\faktoring elemzés\dfakto - pénzügyi kimutatás\"
Dim FN, alap, valtozo As String
Dim i, j As Integer
Application.ScreenUpdating = False
FN = Dir(utvonal)
Do While FN <> ""
If FN Like "*.xls" Then
Workbooks.Open utvonal & FN
Debug.Print FN
ActiveWorkbook.Close False
End If
FN = Dir
Loop
Application.ScreenUpdating = True
End SubA kérdésre azonban továbbra is várom a válaszokat.
-
Cuci3
tag
Csak úgy érdeklődésképpen kérdezném meg, hogy ki tudja, mi a fene volt a VBA-val a következő szituban?
Egy egyszerű progi (supported by Delila - thanks a lot
):
Sub ell()
Const utvonal = "\\Dbinfo\strategia\faktoring elemzés\dfakto - pénzügyi kimutatás\"
Dim FN, alap, valtozo As String
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FN
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
End SubEgyész nap frankón fut, majd így nap végére kicsit megfárad, és azt dobja nekem, hogy "Run Time Error - 1004", illetve nem tudja megnyitni a fájlt. Pislogás, nézelődés, de semmi. Gép újraindít, kód átmásolása más excelbe - még mindig hibaüzi fogad.
Majd excelben VBA rögzítéssel nyitok egy fájlt, rögzítés leállít, bezárom - és láss csodát működik a kód.
Tud valaki erre értelmes magyarázatot adni? (Legutóbbi fájlok listája végig 0) -
ArchElf
addikt
Kiválasztod azt a sorozatot, amit a jobb oldalon szeretnél ábrázolni, majd a következőket kell tenned:
Jobb gomb a kijelölt sorozaton, Format Data Series menü kiválasztása, Axis tab és azon Secondary axis kiválasztása.
Ezt kell látnod utána.
A jobb oldali sorozatot is ugyanúgy tudod változatani, mint a baloldalit (min/max értékek, lépték, logaritimikus skála, stb.)AE
-
KMT
addikt
Excel-lel meg lehet valahogy csinálni azt, hogy egy diagramban két függőleges tengely legyen?
Tehát egy bal oldalt, egy jobb oldalt, más léptékkel. Összefüggő, de nem azonos adatokat kellene ábrázolnom. -
sunone
aktív tag
-
norb7
tag
Szia!
Köszi, ismerem a megoldást, de a gépen XP op rendszer van, szóval ez a funkció nem működik, de memória van bőven tehát ezért nem értem, hogy miért írja ezt.
Én arra gondoltam, hátha van az XP-ben vagy az Office-ban olyan erőforrás beállítás, hogy melyik programnak mennyi memóriát enged.
De eddig ilyet magamtól még nem találtam. -
Cuci3
tag
Igazából még egyikkel sem szórakoztam. Mondjuk szerntem nem a titkosítás, hanem a jelszó hossza, meg bonyolultsága a lényeg. Egy 3 karakteres jelszót Office 97/2000 titkosítással max fél óra alatt fel lehet törni. Egy 6-8 karaktereset, kis-nagybetűs, betűs-számos kb fél nap (tippelem exponenciális növekedés alapján).
Szóval ha nem az adófizetők 2008-as bevallását akarod futárszolgálattal A pontból B pontba küldeni, akkor szerintem maradj az alapbeállításnál.
Ha pedig azt akarod átküldeni, akkor adok egy ftp-t és segítek.Vagy RSA kódolásos bérelt vonali infoküldés.
-
Pá
addikt
Köszi mindkettőtöknek.
Még esetleg az érdekelne, hogy a speciális fül alatt lehet választani többféle titkosítási módot. Azok közül melyiket javasoljátok? -
Pá
addikt
válasz
Delila_1 #5151 üzenetére
Hmm, én olyasmit szeretnék, hogy amikor megnyitnám a file-t, akkor ugorjon fel egy ablak ahova be kell írni a jelszót, ellenkező esetben bele se lehessen nézni a fileba. Szóval semmit se láthasson, aki nem ismeri a jelszót.
Ha ilyet nem lehet, akkor megoldom valahogy máshogy a védelmet, csak kényelmes lett volna ha az Excel tudja. Esetleg ha a Word tud ilyet, az még ok lehet, bár az excel lenne az igazi.
-
Delila_1
veterán
Eszerint félreértettem, a makrók levédésére gondoltam. (VB->Visual Basic)
A füzetet elrejtheted az Ablak menü Elrejtés pontjával. Ezt csak azok nem tudják felfedni, akik nem ismerik, hogy ugyanitt van mód a láthatóvá tételére is. De ha már eleve olyan könyvtárba mentetted a fájlodat, ahol másnak eszébe sem jut keresni, nyert ügyed van.Az egyes lapokat jelszóval levédheted az Eszközök/Védelem/Lapvédelem menüben.
A cellák alapállásban védettek, de ez a tulajdonságuk csak akkor érvényesül, ha bekapcsoltad a lapvédelmet. Ebből következik, hogy amelyik cellák módosítását engedélyezni akarod, azoknál a Cellaformázásban a Védelem lapon ki kell venned a pipát a Zárolt négyzetből. Ugyanott a Rejtett négyzet bejelölésével azt éred el, hogy a védett lapon nem látszanak a képletek, csak az eredményük.
A lapvédelemnél több dolgot le tudsz tiltani, főleg a 2003-nál és 2007-nél. -
norb7
tag
Sziasztok!
Van egy kis problémám az excel-lel, igaz nem biztos, hogy a jellege ebbe topicba illik, de hátha tud valaki segíteni.
A hiba a következő:
Excel 2003-at használok a munkahelyemen, és most kaptam egy másik gépet. Négymagos processzor, 2giga memória, mert 3d tervezéshez is használom. Viszont Excelben dolgozom egy táblázattal, és ha görgetem le vagy fel, akkor egy idő után kiírja, hogy a teljes megjelenítéshez nincs elég memória. Pedig a 2gb-ból csak kb 350 mega van használatban.Erre tud nekem valaki megoldást?
Előre is köszi
Norbi
-
retes
aktív tag
Sziasztok!
Olyan kérdésem lenne, hogy adott egy Excel 2007. Ebben kéne azt megugranom, hogy egy kész táblázat sorainak értékét mondjuk a1 cella, b1 cella, c1 cella értékét egy számmal felszorozni. Próbálkoztam dollár jelekkel az esetben a szorzó érték maradt annyi, de valahogy nem akarja csinálni.
Tudnátok abban segíteni, hogy a leggyorsabban hogyan érem el célom anélkül, hogy minden egyes cellába ami a sorban van egyenlőség jelet írni elé és a stabil összeggel megszorozni...
Előre is köszönöm mindenkinek a segítséget!
-
Pá
addikt
Halihó!
Hogy tudok egy excel file-t lekódolni, hogy senki se nézessen bele, csak én?
És mennyire számít biztonságosnak az így levédett file? -
boecce
tag
Ha tényleg zavar, akkor "Ablak">> "felfedés,vagy elrejt" paranccsal tudod szabályozni. Természetesen az Elrejt-et válasszad. (no persze nekem még 97-es van, nem tudom, változott-e az ujabbakban). Aztán ha sikerült elrejteni, már csak akkor lesz vele gondod, ha ujabb makrót írsz , és az t mentenéd az "Egyéni makrófüzet"-be--- Mert akkor nem engedi, előbb fel kell fedni..
-
sonar
addikt
Két y tengelyt hogyan tudok létrehozni?
Azt szeretném ábrázolni, hogy ha pókerezek akkor mondjuk ha nyerek akkor mennyit nyertem pillanatnyilag és mennyivel nőtt az egész zsetonom az idő függvényében. -
sonar
addikt
Sziasztok,
Még jó régen makrózgattam és azóta minden excel induláskor megnyit nekem egy personal.xls-t. El lehet ezt vhogyan tüntetni?
-
Gaga_30
tag
Sziasztok!
Lenne egy gondom: Kolleganőm csinált egy excel táblázatot, ami el volt mentve, ezt megnyitota, módosítota és elmentett ugyanazon a néven.
Természetesen excel bezárva, gép kikapcs.Vissza lehet állitani az eredeti állapotot valahogyan?
-
KaraDani
addikt
válasz
Delila_1 #5123 üzenetére
Köszi, ezzel már nincs gond, fügvényekkel már nincs gondom elméletileg, inkább darabteli lesz itt használva, ha egy szekció minden része ki van pipálva akkor a feladat el van végezve, ez lesz a funkciója.
Inkább azzal lenne gondom, hogy meg lehet oldani, hogy ne kelljen egyesével jobb klikk, és beállítani hogy hova menjen az igaz hamis? Ha másolom beállítás után, hiába nincs $ ozva a cella, ugyanarra mutat, és összevonja a pipákat is. (Haver most ír rá makrót, lehet azzal jó lesz, de hátha van egyszerűbb mego.)
-
-
KaraDani
addikt
Sziasztok!
Kéne egy kis segítség. Office 07 van fent. Két apróság kéne most így hirtelen:
- hogy lehet pipálós négyzetet csinálni? pl ha kész vmi, bepippantom. És ezt utána egy összesítő kontroll fülön összegezni akarom, hogy mi van kész.
- másik a legördülő választék lista kreálás, ok hogy vhova megcsinálom a listát, de hohgy tudom tök máshova belőle megkreálni a legördülő választéklistát?Segítséget előre is köszi!
Dani
-
Cuci3
tag
-
Delila_1
veterán
Az Eszköztáron (ikonsoron) jobb klikk, a megjelenő gyorsmenüben bejelölöd az Űrlapokat. Az Űrlapok eszköztáron a Gombra kattintasz, és berajzolod vele a megfelelő helyre. Ekkor a Makró-hozzárendelés párbeszéd ablakban felajánjla a Gomb1_Kattintáskor című makrót, amit most írhatnál meg. A listában viszont megtalálod az előzően bevitt OtosLotto címűt, ezt rendeld hozzá.
A gomb méretét, helyzetét és feliratát ezután kedvedre módosíthatod, ha az egér jobb gombjával kattintasz rá. -
Delila_1
veterán
válasz
dtpeter #5109 üzenetére
Az R1C1 formulánál azt adhatod meg, hogy az aktuális cellához képest hány sorral és oszoppal elcsúsztatott értékekkel akarsz dolgozni.
Range("F5").FormulaR1C1 = "=R[1]C[-3]"
Ennek a sornak a hatására az F5 cellába az alatta lévő sorban [1], és a 3-mal előtte lévő oszlopban [-3] lévő érték íródik be képletként, vagyis az F5-ben ez lesz: =C6.
Nálad a képletnél elhagynám az R1C1 hivatkozást.Az összegző képlet beíratása:
vSor = Range("A1").End(xlDown).Row + 1
Cells(vSor, 1).Formula = "=SUM(A3:A" & vSor - 1 & ")"Ugyanez másképp:
vSor = Range("A1").End(xlDown).Row
Cells(vSor+1, 1).Formula = "=SUM(A3:A" & vSor & ")"A különböző fórumokon leginkább Kovalcsik Gézától ajánják Az Excel (ide jön a verziószám) programozása című könyvet. Évek óta keresem, és most sikerült megszereznem egy internetes antikváriumtól (új állapotban, de a CD melléklet hiányzik).
Krizsák László: Az Excel 7.0 programozása is nagyon jó az alapok megismeréséhez, de ezt sem lehet kapni. Új kiadásuk nincs – pedig Kovalcsik könyvét több évben is kiadták –, ilyen jellegű könyveket meg nem szokás antikváriumoknak eladni. -
dtpeter
csendes tag
válasz
Delila_1 #5106 üzenetére
Köszönöm szépen, nagyon sokat segítettél, de még egy kis plusz infóra szükségem lenne az összeadással kapcsolatban. Szóval kihámoztam, hogy hogyan kell változót felvenni, és valóban felismeri a keresett cellát, sőt, sima szöveget akár be is tudok írni. Csak a Sum függvényt nem bírom megadni olyan formában, hogy értelmezni bírja. Ha mindig ugyanazt a tartományt kéne összeadnia, akkor nem lenne gond, de ugye pont az a lényeg, hogy mindig máshol van az összeadandó tartomány utolsó cellája. Találtam valami R1C1 formulát is (pl. =SUM(R[-5]C
[-1]C), de ez se vitt előbbre sajnos, mert itt ugyan rendben van, hogy a képlet feletti cellát veszi a tartomány utolsó elemének, de akkor meg a tartomány eleje nem biztos, hogy belekerül az összeadásba... Szóval olyasmi kellene, ami az $A$3:"utolsó sor" tartományt adja össze, csak nem tudom, hogy hogy lehet erre hivatkozni.
Egyelőre itt tartok:
Dim vSor As Variant
vSor = Range("A1").End(xlDown).Row + 1
Cells(vSor, 1).Select(Ennek az utolsónak nagyon örülök, mert egy másik táblázatomban nagyon jól jön, hogy a makró lefutása után lehet folytatni az adatbevitelt az első üres sortól)
Más: tud valaki ajánlani olyan irodalmat, amiből az alapokat el lehet sajátítani? Kb. 1 hete olvasgatok a témában, meg sűrűn nézem a súgót is, de még mindig nagyon úgy érzem, hogy a sötétben tapogatózok. Azt már látom, hogy borzasztó sok lehetőség van, de engem leginkább az egyszerűbb dolgok érdekelnének, csak kicsit összerendezve, hogy tudjam ki kivel van...
-
Cuci3
tag
Hi!
In medias res: user által írt függvénynél hogy lehet azt megoldani, hogy az argumentumokról, meg magáról a függvényről valami kis leírást jelenítsen meg, amikor behívom a függvény zöld hátteres ablakát?
-
Delila_1
veterán
Az utoljára beírt adataid most valószínűleg a C2733-ban kezdődnek, azért következik a 2734-es sor.
A makró megnyitja a webes fájlt, és bemásolja az 5 adatot a helyére. A két utolsó sor bezárja a szerencsejatek.hu füzetét, ezeket kihagyhatod, ha még nézelődni akarsz benne.
A Windows("Munkafüzet1").Activate sorban a Munkafüzet1 helyett a saját füzeted nevét írd be.Sub OtosLotto()
Workbooks.Open Filename:="http://www.szerencsejatek.hu/xls/otos.xls"
Range("L4:P4").Copy
Windows("Munkafüzet1").Activate 'Ide a saját füzeted nevét írd
Sheets("otos").Select
usor = Range("C65536").End(xlUp).Row + 1
Cells(usor, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Webes fájl bezárása
Windows("otos.xls").Activate
ActiveWindow.Close
End Sub -
dtpeter
csendes tag
Sziasztok!
Az excelt régóta használom, de a makrókkal csak mostanában kezdtem el ismerkedni, és persze rengeteg kérdés merül fel. Most elsősorban abban szeretnénk segítséget kérni, hogy egy oszlopban lévő kitöltött cellák utáni első cellára hogyan lehet ráállni. Odáig megvagyok, hogy ki tudom kerestetni az utolsó nem üres cellát az oszlopban, ehhez képest szeretnék egy cellával lefelé elmozdulni, ha lehetséges.
Az utolsó, nem üres cellát ezzel tudom kiválasztani: Range("A1").End(xldown).Select
Ahhoz kellene egyébként, hogy utána összesíteni tudjam a felette lévő számokat, csak soha nem lehet tudni, hogy hány sor lesz a táblázatban. Gondoltam persze arra is, hogy a lap tetejére teszem az összesítést fixre, és akkor nem kell makró egyáltalán, de egyrészt nem túl szép, másrészt abban nincs kihívás
Előre is köszönöm a segítséget.
-
Jarod1
veterán
Üdv, létezik olyan macró vagy képlet ami 1 a neten található excel táblázatból kéne,
hogykivegyen számokat és beillessze a saját táblázatomba, konkrétan ---http://www.szerencsejatek.hu/xls/otos.xls ---ebböl kéne kinyerni, ahogy látom mindig
ugyanarra a helyre kerülnek az uj számok neten.. -
Delila_1
veterán
válasz
RoyalFlush #5100 üzenetére
Ebben a képletben a Táblázatok egy lap neve. Az I184-es cella helyét keresi a Táblázatok lap 325. sorában, a B és F oszlopok között. A 0 paraméter azt jelenti, hogy pontos értéket keres.
A q_ is egy területet jelöl.
A teljes képlet értelme az, hogy ha a 3 cella – I184, I185 és I186 – tartalmaz valamilyen értéket, vagyis nem üres, akkor az I185 értékét megkeresi q_ -val jelölt területnek abban az oszlopában, ahol az I184 értéke megtalálható a Táblázatok lap 325. sorában a B és F oszlopok között. Ha a 3 cella közül bármelyik üres, a képlet eredménye is üres ("") lesz.
A belinkelt képen a sárga hátterű tartományt neveztem el q_-nak.
Új hozzászólás Aktív témák
Hirdetés
- Game Pass Ultimate előfizetés azonnal, élettartam garanciával, problémamentesen! Immáron 8 éve!
- AKCIÓ! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB GDDR6 Rampage Shiva Zalman 500W
- ASUS TUF Gaming F16 FX607JV-QT212 Notebook
- Bomba ár! Dell Latitude 7480 - i5-6GEN I 8GB I 256GB SSD I 14" FHD Touch I HDMI I Cam I W10 I Gari!
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest