-
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
-
föccer
nagyúr
Üdv!
HOL.VAN függvénnyel nézem, hogy van-e még a tömbben további keresendő elem. =HA(G3="#HIÁNYZIK";"-";..............) szintaktika miért nem akar működni? Mit ha már tucatszor használtam volna ilyen esetekre... :-/
Esetleg valami ötlet, hogy hogyan kerülhetném meg ezt az anomáliát?
Adott 2 oszlop, ami tele van adatokkal. Az első oszlopban vannak ismétlődő cellák. A cél az, hogy a megfelelő sorokba egymás után kiírassam a második oszlopban lévő számokat, ha az első oszlopban szereplő kód többször is előfordul. (tehát 1 adatot mindenképpen megtalálok, mert a vizsgált sorban biztosan, hogy szerepel. A többi az opcionális. A legnagyobb ismétlődés elvileg 3, gyakorlatilag 15 esetig felkészítem a táblát.
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #12853 üzenetére
Az első képlet: =HA(HIBÁS(G3);"-";"OK")
Nem tudom, összefügg-e a 2. kérdés az elsővel, ha igen, átalakítod.
Úgy vettem, hogy az A oszlopban vannak az esetlegesen ismétlődő adatok, a B-ben a hozzájuk tartozó számok. Ehhez jó a =HA(DARABTELI(A:A;A1)>1;B1;"") képlet.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
válasz Delila_1 #12854 üzenetére
Köszi, a HIBÁS függvényt nem ismertem. Minden nap tanul az ember
Egyébként közben a DARABTELI-vel megoldottam én is, csak be kellett tenni +1 oszlopot. Így legalább azt is kiírja a tábla, hogy elvileg mennyi eredmény cellának kell lennie a végén.
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #12856 üzenetére
No, már csak egy olyan problémába futottam, hogy nem tudtam minden sorban a lista elejéről keresni, mert akkor mindig ugyan azt (az első) találatot adta. Ezt végül áthidaltam azzal, hogy amikor egy kód elsőként szerepel a listában, akkor az összes utána lévő eset bekerül a mellette lévő sorban, majd amikor másodjára, akkor az első eset nincs benne, amikor harmadjára, akkor az első kettő stbstb...
Erre van valami, nem makrós megoldás? Azaz, hogy az első x találatot az fkeres ne vagye figyelembe?
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Már elraktam a notit. Beérek céghez, és rakok fel.
A B T1 T2 T3 T4
kód1 Adat1 Adat1
kód2 Adat2 Adat2 Adat3 Adat4
kód2 Adat3 Adat3 Adat4
kód2 Adat4 Adat4
kód3 Adat5 Adat5 Adat6
kód3 Adat6 Adat6
kód4 Adat7 Adat7Valami ilyesmi az eredmény.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #12860 üzenetére
T3-ba akkor kerülne be adat, ha 4 egyforma Kód lenne. Technikailag úgy oldottam meg, hogy a T3-ba kerülő képletek ugyan azok, mint a T2-be kerülő, csak a keresési tartományt 1 sorral lenteből indítottam, így a saját sorát nem veszi figyelmbe, csak az alatta lévő tartományba keres. Elég csúnya megoldás, de működik.
Ismételten rá kellett jönöm, hogy meg kellene tanulnom makrózni... Azzal kb 10 sorban megoldható lett volna az egész.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
poffsoft
addikt
válasz Delila_1 #12863 üzenetére
private sub egészen pontosan.
Feltételes formázással a mozgó ünnepeket (konkrétan csak a húsvét kell, mivel a pünkösd meg pont 49 nappal később jön)????
Hogyan?
Más: A combobox-nál azt hogyan oldják meg, hogy minden egyes karakter-leütésnél csak akkor fogadja el, ha van annak megfelelő a listában? Legalábbis emlékeim szerint a netes űrlapok általában mintha így működnének...
Vagyis , ha a 2000 után a 2211 a következő elem, akkor a "2" után (amire a 2000 kijelölődik) már csak "0"-t vagy "2"-t fogad el a bevitel (és "2"-re máris a 2211 jelölődik ki, sit)?
[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz poffsoft #12864 üzenetére
Az évben a húsvét vasárnapját ez a makró számítja ki:
Function Húsvét(Év As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Év Mod 19)) - 21) Mod 30) + 21
Húsvét = DateSerial(Év, 3, 1) + D + (D > 48) + 6 - ((Év + Év / 4 + D + (D > 48) + 1) Mod 7)
End FunctionA feltételes formázásba bevettem a húsvét hétfőjét is. A képlet:
=VAGY(A1=Húsvét(ÉV(MA()));A1=Húsvét(ÉV(MA()))+1)Ennél egyszerűbb, ha évente felveszel két tartományt. Az egyiket nevezd el Ünnepnek, a másikat MNnak. Az első tartalmazza az év összes ünnepnapi dátumát, a másik a munkanappá lefokozott szombatokat (az idén 5-öt). A feltételes formázások:
=NEM(HIBÁS(FKERES(A1;MN;1;0))) a szomorú szombatokra, és=ÉS(NEM(ÜRES(A1));VAGY(HÉT.NAPJA(A1;2)=6;HÉT.NAPJA(A1;2)=7;NEM(HIBÁS(FKERES(A1;Ünnep;1;0)))))
a hétvégékre és ünnepnapokra.Külön is veheted a szombatot, vasárnapot, és az ünnepnapokat, ha az Excel verziód megengedi.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
poffsoft
addikt
válasz Delila_1 #12865 üzenetére
szép képlet.
A feltételes formázást még értem is
Viszont most pont azon dolgozom a makrókkal, hogy a feltételes formázásból fix formázást csináljak(, és excel 2003-am van (2010-ben viszonylag egyszerű)).És lenne egy kérdésem is megint: a range property-knél honnan lehet tudni, hogy melyik csak olvasható, és melyik írható-olvasható? Ill. ha van egy formats típusú objektumom, amit egy range-ből kiolvasok, azt van-e egyszerű mód egy másik cellába beírni?
Vagy marad a tételenkénti, .font, .interior, .border, .pattern tételenkénti kiolvasása-beírása?
Továbbá, a feltételes formázások (és csak a feltételes fromázások ) törlésére van-e valami egyszerű metódus, tekintve, hogy a .formatconditions.delete sajnos a fix formázást is törli?Húsvéthoz viszont a Gauss képletet használtam.
[ Szerkesztve ]
[ Szerkesztve ]
-
pingvin baby
csendes tag
Sziasztok!
Szeretném megkérdezni mi az oka annak, hogy az Excelben 2007 nem működik az egyéni margó, tájolás, méret funkció. Miért inaktív?
-
Delila_1
Topikgazda
válasz poffsoft #12866 üzenetére
A .FormatConditions.Delete nem szünteti meg az eredeti formázásokat, csakis a feltételes formázással megadottakat. Kipróbáltam.
A formátum egyszerűbb másolása:
Selection.Copy
Range("A1:B5").PasteSpecial Paste:=xlPasteFormatsA Gauss funkciót is beviheted a feltételes formázásba.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
exceltanulo
csendes tag
Sziasztok. Remélem tud valaki segíteni, nagyon hálás lennék.
Tegyük fel van 4db excel fájl:
=D:\MAPPA\_ÖSSZES\összes.xlsx
=D:\MAPPA\1001\1001.xlsx
=D:\MAPPA\1002\1002.xlsx
=D:\MAPPA\1003\1003.xlsxösszes.xlsx
A oszlopban függőlegesen lefelé a kódok, 1001, 1002, 1003 …
B oszlopba pedig automatikusan szeretném kigyűjteni a fájlokból a kódokhoz tartozó szükséges információt.Manuálisan így működik, ha pl az 1001-es kódhoz, kell a Sheet1'!$C$2 cella tartalma, lesz egy ilyen függvény: ='d:\MAPPA\1001\[1001.xlsx]Sheet1'!$C$2
Kérdésem pedig az lenne, hogy tudom-e függvénnyel automatizálni, ha a cella sarkánál lefelé húzom a képletet, megnézze az A oszlopban a kódot és ez alapján a megfelelő fájlból venné az adatot?
Előre is köszönöm szépen!
-
Delila_1
Topikgazda
válasz exceltanulo #12869 üzenetére
Erre gondoltál?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Cufter
tag
Sziasztok!
Szükségem lenne egy olyan makrora?, vagy excell parancsra?, mely adott cellák értékét egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön, minden egyes adatbevitel gomb megnyomására.
Köszönöm előre is segítségetek! -
Delila_1
Topikgazda
válasz Cufter #12871 üzenetére
Ez a makró a Gyűjtő nevű lap A oszlopába másolja egymás alá a jelölt cellák tartalmát.
Sub másol()
usor = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
Selection.Copy Sheets("Gyűjtő").Cells(usor, 1)
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.
-
Cufter
tag
válasz Delila_1 #12872 üzenetére
Köszi, kiindulásnak nem rossz.
Két fontos és egy kényelmi változtatás kellene még:1: A cella képlettel számított értékeket tartalmaz, így ezeket kellene átvigye, ne a hivatkozást.
2: Egymás alá helyett egymás mellé kellene tegye a másolandó cellákat, de egymás alatti sorba minden új rögzítésnél.
Kényelmi: Kijelölés helyett fix cellákat kellen másoljon.Köszi
-
Delila_1
Topikgazda
válasz Cufter #12873 üzenetére
Ehhez meg kell adnod a fix cellák helyét, és azt is, melyik sorba másoljon.
A képletet vigye át, vagy a képlet eredményét?
"egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön" Ezt már az előbb sem értettem.
[ 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.
-
Cufter
tag
válasz Delila_1 #12874 üzenetére
Közben sikerült ennyit összeszedni:
Sub masol()
Sheets("Számolás").Range("F29").Copy
Sheets("Cégek").Activate
Range("a65536").End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Sheets("Számolás").Activate
Range("a1").Select
End SubEz már a fix cellákat és az értékeket másolja, így az megoldva.
Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat. -
Delila_1
Topikgazda
válasz Cufter #12875 üzenetére
usor = Sheets("Cégek").UsedRange.Rows.Count
uoszlop = Sheets("Cégek").UsedRange.Columns.CountEzekhez adsz 1-et. a másolás helye:
sheets("Cégek").cells(usor+1,uoszlop+1)[ 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.
-
Delila_1
Topikgazda
válasz Cufter #12875 üzenetére
Sub masol()
Range("A1:C18").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
Cells(usor + 1, uoszlop + 1).Activate
Selection.PasteSpecial Paste:=xlValues
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.
-
exceltanulo
csendes tag
válasz Delila_1 #12870 üzenetére
Szia Delila_1! Megcsináltam az alapján amit belinkeltél és működik (részben). Lehetséges, hogy csak akkor hozza be a link az adatot, ha meg van nyitva az a fájl is ahonnan az adat származik? Mert nálam ez a helyzet. Ha nincs megnyitva hibát ír, ha megnyitom jön az adat. Köszönöm!
-
exceltanulo
csendes tag
Sziasztok! Nem tudjátok van olyan lehetőség hogy egy cellában hivatkozással képet jelenítsek meg? Tehát nem képet rakok be az excelbe, hanem egy hivatkozást, esetleg a kép megjelenítési méreteit és abban a cellában láthatóvá válik a belinkelt kép.
-
félisten
válasz exceltanulo #12879 üzenetére
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)
-
poffsoft
addikt
válasz Delila_1 #12868 üzenetére
Akkor nem tudom, mit csináltam rosszul.
A formátum másolásra pedig rosszul kérdeztem rá azt hiszem:
A formatconditions(2). properties-t szeretném egy másik cellának (vagy ugyanannak) a fix formátumaként beállítani
vagyis pl a range("A1").formatconditions(2).font/pattern/border/color -t kellene a range("A'").font/pattern/border/color -ba másolni. Egyszerűen, nem az összes elemet felsorolgatva (mert most csak ezt az utat találtam meg)[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
válasz Delila_1 #12877 üzenetére
Szerintem a 'Számolás'!F2:F9 range-t akarja a "Cégek" következő üres sorába transzponálni, így a kódod picit változik:
Sub masol()
Sheets.("Számol").Range("F1:F9").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
' szerintem a használt oszlopok száma nem kell...
Cells(usor + 1, 1).Activate
Selection.PasteSpecial Paste:=xlValues , Transpose:=True
End SubHa jól értettem....
Mondjuk az a range("A65536").end().offset()-et nem egészen értem...
Vagyis értem, de bonyolultnak tűnik.[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz exceltanulo #12878 üzenetére
Igen, az INDIREKT függvény akkor mutatja az értéket, ha a hivatkozott füzet is nyitva van.
Az első leírásból számomra nem derül ki, hogy a D:\MAPPA\ könyvtáron belül az 1001.xlsx az azonos nevű (1001) könyvtárban van-e, az 1002.xlsx pedig az 1002 könyvtárban. Ha igen, akkor a függvény
=INDIREKT("'D:\MAPPA\" & A1 & "\[" & A1 & ".xlsx]Munka1'!$C$2")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 poffsoft #12882 üzenetére
A görbe szájú ikonból nem találtam ki, hogy az :F-et takar. Ezért adtam meg egy nagyobb tartományt.
A feladatot úgy értelmeztem, hogy az egyes futtatások eredményeként a másolt tartományok lépcsőzetes elrendezésben kerüljenek a másik lapra."Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat." Itt elakadtam, mert az F2:F9 tartomány semmiképp sem lehet 4 db cella.
Cufter!
Jó lenne egy kép, ami megmutatná, mit hova másoljunk az első-, és az azt követő esetekben.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #12885 üzenetére
Nem nevetjük ki a kicsibbiket!
Ideje, hogy előkerültél.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #12886 üzenetére
Á, ne is mond. Elmúlt héten napi 16 órában szórtunk össze gépeket, állva el tudtam volna aludni a zuhany alatt, nem hogy PH!-ra benézzek.
Ahogy meg olvasom a hsz-okat, bírod a gyűrődést egyedül is a topikban.
Ment priv.
[ 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)
-
dellfanboy
senior tag
Egy olyan makró létezik/létezhet ami egy pdf-ből (számla) pl Fkeres fv segítségével rendszeri az adatokat? ha igen, hogy kezdhetek neki?
idáig több féle PDF-el találkoztam volt ami le volt védve volt ami nem.eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
föccer
nagyúr
válasz dellfanboy #12890 üzenetére
Elsőnek mindeképpen az Excel által emészthető formátummá kell konvertálni. Ennek hatákonysága erősen megkérdőjelezhető, főleg ha egy kinyomtatott anyag lett pdf-be vissza scannelve. Keress rá a pdf2xls konverter-re, hátha találsz valami olyan értelmes alkalmazást, ami kées elfogadható pontosággal a konverzióra. Ha ez megvan, akkor már simán mehet rá az fkeres.
=============
mod: nézd csak, pont egy ilyenre van szükséged: [link]üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Badb0y
addikt
Olyan kérdésem van, hogy lehet azt egy függvénybe beírni, hogy a 2. space után ami áll kidobja és a helyére írjon egy megadott szöveget.
Tehát:
Acer Travelmate-123123213 15" 4gb ...
És ebből amit szeretnék végeredménynek: Acer Travelmate-123121311 LaptopMinőségi laptopok https://notebookokhu.business.site/
-
m.zmrzlina
senior tag
válasz dellfanboy #12892 üzenetére
Esetleg próbáld meg ezt!
Bizonyos Epson nyomtatókhoz ingyen adják (adták). Meglepően jó karakterfelismerést csinál. Nem mondom, hogy nem kell az Excelbe illesztés után gyomlálgatni de messze kevesebb munka mint begépelni a scannelt dokumentum tartalmát.
-
Badb0y
addikt
válasz m.zmrzlina #12895 üzenetére
Tyűűű, angolban vajon ez hogy van ?
Összefűz: concatenate
de mi a szöveg keres és a bal ?Minőségi laptopok https://notebookokhu.business.site/
-
DopeBob
addikt
Sziasztok,
van arra lehetőség, hogy elrejtsek egy munkalapot, és felfedni csak jelszóval lehessen?
MZ/X