-
GAMEPOD.hu
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
-
Pakliman
tag
Szia!
Kipróbáltam ("A" oszlopra), működik, csak az
.AutoFilterMode = False
sort egy kicsit átalakítani (legalábbis nálam hibát dobott):.Parent.AutoFilterMode = False
.
Így lefutott és törölt is.With Cells
.Parent.AutoFilterMode = False
.Range("a1:a1").AutoFilter 'Filter bekapcsolása
.Range("a1:a1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:bb1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With[ Szerkesztve ]
-
PistiSan
addikt
Sziasztok!
Oszlop számát hogy tudom növelni?
Indirekt függvénnyel akarok adatokat kigyűjteni, ha függőlegesen vannak az adatok akkor könnyű, mert mondjuk végig "A" oszlopban vagyok, és minden 3. érték kell, akkor beírom hogy A1, A4 lehúzom és meg sorszámozza, de mi van akkor amikor vízszintesen vannak az értékek, akkor ott hogy tudok sorozatot csinálni?
Ami kéne:
A1, C1, E1
Ha beírok pár értéket, és végig húzom hogy sorozatot készítsen az excel, akkor azt nem jól teszi meg.
Az excel szerint ez jön: A2 C2 E2
Nekem meg ez kéne: G1 I1 K1Biztos rutin feladta, előre is köszi.
-
szőröscica
addikt
Sziasztok!
Egy nagyon egyszerű makróra lenne szükségem, de kifog rajtam. Semmi másra nem lenne szükségem, csak arra, hogy az A1-es cellában megadott időpontban csináljon egy refesht a workbookra.
Ezt írtam hozzá:
Public Sub testrefresh()
Application.OnTime TimeValue(Range("A1")), "CC"
End Sub
Public Sub CC()
Application.CalculateFullRebuild
End SubMikor eljut az óra az adott pillanatra, hibaüzenetet kapok: “Cannot run the macro “C:\.....\teszt.xlsm’!CC’. The macro may not be available in this workbook or all macros may be disabled.
Xlsm-ként van lementve.
Hol hibázok? Excel 2010?
Köszi!
-
Delila_1
Topikgazda
válasz PistiSan #37104 üzenetére
Első sorban kezdve a képletet, amit lefelé másolsz majd:
=INDIREKT(KARAKTER(SOR()*2+69)&1)
Második sorban kezdve a képletet:
=INDIREKT(KARAKTER((SOR()-1)*2+69)&1)
Látod, a SOR() értékéből levonok annyit, ahány sor van a képlet fölött.
[ 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.
-
Fferi50
őstag
válasz szőröscica #37105 üzenetére
Szia!
Hova vannak elmentve a makróid? Modulba, munkalap kódlapjára, Thisworkbook kódlapjára?
Üdv.
-
Zola007
veterán
Delila segítségével írtam egy makrót egy mnkafüzethez (nem a Personalba, annak a kódlapja most is üres)
Azóta mégis megnyílik bármilyen táblázatot is nyitok meg
azt be lehet állítani, hogy ne tegye?Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
lappy
őstag
-
veterán
sziasztok!
van egy par tizezer soros adathalmazom, es van egy azonosito oszlopom 1-96ig tartalmazo szamokkal. Hogy tudom az egyes azonositokhoz tartozo, nullanal nagyobb ertekeket kiatlagolni a legegyszerubben? Ha averageifs-et hasznalok es ott hivatkozaskent adom meg azt a kriteriumot hogy a pozicio legyen egyenlo 1-gyel, 2-vel, stb ugy nem mukodik. Ha a kriteriumhoz siman ‘=1’ stbt irok bele ugy pedig igen. Hol rontom el a dolgot? remelem jol leirtam a problemat"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz PistiSan #37118 üzenetére
Így igaz!
Próbáld meg egy eseményvezérelt makróval, amit a lappodhoz rendelsz.
Ez a makró duplaklikkre beírja a 2. sor értékeit akkor is, ha túl van az oszlop a Z-n.Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Cells(2, Target.Column * 2 + 1)
Cancel = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
GreenIT
tag
Megijedt es megjavult.
Fogalmam sincs, mi volt a baja, allandoan azt irta, hogy hibas a keplet, alllandoan "hianyzik" uzenetet dobott, hiaba csinaltam vele mindent vegig.
Sokadik ujrakattintassal egyszercsak azt mondta, hogy rendben.
Nekem ugy tunik, semmi se valtozott a kepletben, en biztosan nem modositottam semmit, az biztos, hogy a masik munkalapot nem talalta valamiert. -
Jazz
veterán
Sziasztok,
lehet azt valahogy állítani excelben, hogy megjegyzés beszúrása után:
1. üres legyen a megjegyzés (alapértelmezetten a felhasználó nevét mindig odírja)
2. nagyobb legyen az ablak, ne kelljen mindig egyesével átméretezni minden egyes beszúrásnál. (a beszúrt szöveg méretével arányosan nem megy "utána" ablak nagysága, marad ugyan olyan pici és kézzel kell kihúzni).Köszi!
free your mind
-
CsoGe
csendes tag
válasz Delila_1 #36759 üzenetére
Kedves Delila_1.
A makrót használjuk a gyártásban 3 hete.
Azt a visszajelzést kaptam tegnap a műszakvezetőktől, hogy az újonnan generált kérdések, megegyeznek azokkal, amit múlthéten generáltak.
Tehát, ugyanazok a "véletlen számok" jöttek tegnap mint egy hete.
Most kipróbáltam és valóban minden Excel indításkor a számgenerálás ugyanazokat a számokat hozza.
Ha kilépek és megint elindítom, akkor megint ugyanazokat a véletlenszámokat kapom. (nincs ismétlődés), csak 10 különböző szám, ami minden első generálásnál ugyanaz.Ez volt a makró:
Sub Inditas_Kleb()
Dim kezd As Long, sor As Longkezd = Range("D" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
For sor = kezd To kezd + 4
Cells(sor, "D") = Int(Rnd() * 111) + 1
Next
End SubMi lehet szerinted a probléma?
Köszi,
Gergő -
Delila_1
Topikgazda
Szia Gergő!
Betettem egy új sort, ami rendbe teszi a véletlenek lelkét.
Sub Inditas_Kleb()
Dim kezd As Long, sor As Long
kezd = Range("D" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
Randomize 'ez a sor a lelke
For sor = kezd To kezd + 4
Cells(sor, "D") = Int(Rnd() * 111) + 1
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dajkapeter
senior tag
Sziasztok!
Gondolom volt már.. Ha van egy adatsorom és abban vannak ismétlődő értékek (pl. 1, 2, 4, 2, 3, 1, 3, 1, 4) és ebből szeretném a második legrosszabbat, viszont nem kicsi függvénnyel, hisz nem a sorozat 2. elemét szeretném vissza kapni, hanem a halmaz elemeinek féleséghez viszonyított 2. legrosszabbat ami jelen esetben 2, akkor ezt milyen függvénnyel tudom megtenni makró nélkül? Netán halmazművelettel?
Választ előre is köszönöm!
Ha írásommal megsértettelek akkor annak valószínűleg nem én vagyok az oka....
-
Delila_1
Topikgazda
válasz dajkapeter #37128 üzenetére
Erre gondolsz?
Kihagyható a segédoszlop (B) egy tömbfüggvénnyel.
=KICSI(DARABTELI(A1:A9;A1:A9);2)
amit Shift + Ctrl + Enterrel viszel be.
[ 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.
-
dajkapeter
senior tag
válasz Delila_1 #37129 üzenetére
Köszönöm a választ! Ilyesmit csináltam én is. Azt hittem van egyszerűbb művelet is rá. Mert pl, ha egy pénzügyi kimutatásom van, aminek van több 1 milliónál nagyobb értéke, de nekem szükségem van arra az értékre ami a második legnagyobb 1 millió alatt, akkor már nem ilyen egyszerű, igaz? Jól logikázok?
Ha írásommal megsértettelek akkor annak valószínűleg nem én vagyok az oka....
-
-
lappy
őstag
-
Szakos90
csendes tag
Sziasztok!
Egy kérdésem lenne.
Az Excelben van valami módszer arra, hogy egy hatalmas táblázatban, ami neveket tartalmaz, egy bizonyos nevet, ami sokszor szerepel, beszínezek pirosra?
Tehát van egy hatalmas táblázat, több ezer névvel, és ki kellene szűrnöm az olyanokat, amik többször szerepelnek. És mondjuk, van egy név, ami benne van vagy hússzor, és nem akarom egyesével kikeresgélni és beszínezni őket, hanem valami gyorsabb módszert szeretnék, amivel az adott név, összes példánya piros lesz a táblázatban. Van erre mód? -
föccer
nagyúr
válasz Szakos90 #37138 üzenetére
Felételes formázással elvileg lehet ilyet csinálni. Képlet alapján, de ebben nem vagyok jó.
Hát, én azt csinálnám, hogy kimásolnám az adott oszlopot egy segéd munkalapra, majd kijelölve őket, adatok menü, ismétlődések eltávolításával megkapod az összes egyedi értéket. Kalap kabát.
Vagy beállítasz egy autoszűrőt az adott oszlopra és akkor a szűrés mellett még dolgozni is tudsz az adatokkal.
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz Szakos90 #37138 üzenetére
Kijelölöd a neveket tartalmazó oszlopot. Legyen ez a példában az A. A feltételes formázásnál "A formázandó cellák kijelölése képlettel" opciót választod, majd a szabályhoz beírod a képletet
=DARABTELI(A:A;A1)>1
Megadod a formátumot, és kész.
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
válasz KAMELOT #37141 üzenetére
Transzponálás nélkül is lehet.
Egyéni sorrendet választasz. A beállításoknál az irány legyen balról jobbra. Ekkor az Oszlop helyén Sor jelenik meg, ahol megadod, melyik sor szerint rendezzen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
toth_janika
őstag
Sziasztok!
Van egy kis problémám. Van egy magyar 2013-as excelem, amiben meg kellene oldanom a következőt:
Telepítés dátuma
Számlázás kezdete
Számlázás vége
Ezek "Általános" típusú cellák. Minden cellában van érték. Feladat az, hogy, ha a Telepítés dátuma kisebb, mint a Számlázás kezdete, akkor a Telepítés dátuma legyen átírva a Számlázás kezdete dátumra. Egy HA függvénnyel már megtudtam, hogy melyeket kéne átírni, de több 10e sor... Hogy tudnám megoldani függvénnyel, hogy automatikusan felvegye az egyik cella a másik tartalmát?Flickr - http://www.flickr.com/photos/toth_janos/
-
dajkapeter
senior tag
válasz Delila_1 #37129 üzenetére
Szia!
Én a darabtelisre gondoltam, de egyszerűbben. Vagy egyszerűbben, akár tömbművelettel nincs rá lehetőség?
A képen a narancssárga, a kék és a téglavörös 2-esek mind CSE.
Köszönöm a korábbi válaszod!
[ Szerkesztve ]
Ha írásommal megsértettelek akkor annak valószínűleg nem én vagyok az oka....
-
lappy
őstag
válasz toth_janika #37145 üzenetére
egy segédoszlopban megnézed hogy melyik dátumnak kell ott lennie a szabályod szerint
ki is kell íratnod a megírt ha függvénnyel melyik legyen
ezután ezt az oszlopod kijelölöd és érték másolása majd beillesztés a megfelelő helyre és törölheted a segédoszlopotBámulatos hol tart már a tudomány!
-
0P1
aktív tag
válasz toth_janika #37145 üzenetére
Ha a tábládban az oszlop nevek "Telepítés dátuma" és "Számlázás kezdete"), akkor:
Telepítés dátuma oszlopba írd be: =MAX([@[Telepítés dátuma]],[@[Számlázás kezdete]])
Természetesen ez így körökörös hivatkozás hibát fog dobni, ha nem állítod be előtte az iteráció engedélyezését (Fájl/ beállítások / Képletek)
Vagy egy mésik oszlopba írd be, és utána irányított beillesztés / érték -kel másold be a telepítés dátuma oszlopba, igaz, így két lépés, de nem kell iterációt engedélyezni,[ Szerkesztve ]
Új hozzászólás Aktív témák
- Okos Otthon / Smart Home
- Milyen autót vegyek?
- MasterDeeJay: Volta a bányából azaz CMP 100-210 kisteszt (Tesla V100 mining)
- Telekom mobilszolgáltatások
- Kertészet, mezőgazdaság topik
- exHWSW - Értünk mindenhez IS
- Facebook és Messenger
- EAFC 24
- Házimozi haladó szinten
- OLED TV topic
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )