- sziku69: Fűzzük össze a szavakat :)
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- gban: Ingyen kellene, de tegnapra
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- btz: Internet fejlesztés országosan!
- eBay-es kütyük kis pénzért
- bambano: Bambanő háza tája
-
LOGOUT
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
-
spe88
senior tag
Sziasztok!
Anno átvettem egy Google Sheet template-et, amit már olyan szinten áthekkeltem, hogy köze nincs az eredetihez, viszont pár dolgot nem engedélyez a tábla: rejtélyes módon, ha egy fv.-t módosítani akarok, akkor felugrik egy pop up ablak, ami biztos, hogy makróból jön, azzal a szöveggel, hogy ezt nem tudja értelmezni, ne így csináljam blabla. De a szöveg nem a Google Sheet sajátja, hanem "kézzel" beleírt. Hol lehet ezeket törölni? A teljes háttérben való ellenőrzést szeretném törölni, mert már semmi nem úgy működik, csak ezeket valahogy megjegyezte. Nem nagyon vágom, gondolom a scriptek közt kéne, hogy legyen, de nemigen találtam semmit.
Köszönöm
-
Delila_1
veterán
válasz
Morphy #44598 üzenetére
Ahogy FFeri is írta, elég gyalázatos az Excel dátum-kezelése.
Próbáld meg, hogy szélesre veszed az oszlopot, akkor a dátumok jobbra igazítva jelennek meg, az esetleges szövegként megadottak balra.Összeállítottam egy ilyen vegyes (A) oszlopot, majd egy (B) segédoszlopban felszoroztam 1-gyel minden tagját. Érdekes módon a szövegeseket is számmá alakította a szorzás, és a B oszlop dátumkénti formázása valódi dátumot csinált mindegyikből. A szűrés is megfelelően működött.
-
Fferi50
Topikgazda
válasz
Morphy #44596 üzenetére
Szia!
Sajnos a dátumok kezelése ezen a területen borzasztó az Excelben. Esetleg egy részletet, mondjuk csak addig az oszlopig, amiben a dátum van, fel tudnád tenni valahová. Természetesen az érzékeny adatok nélkül és elég lenne kb. 50 sor is.
Tennék még egy próbát a helyedben: Átmásolnám az adatokat és megnézném, hogy az új helyen mi történik.
Nekem ezzel a formával, amit mutattam, működik.
Üdv. -
Morphy
csendes tag
válasz
Fferi50 #44595 üzenetére
Igen, megnéztem a formátum is egyezik.
Csak azt nem értem még mindig, hogy a felvett makrót sem futtatja le, ugyanerre kiáll.
Illetve ha a reset gombot (ami megjeleíti a rejtett cellákat is) nyomok, szintén kiáll bizonyos esetekben ugyanerre a hibára.
ActiveSheet.ShowAllData
-
-
Morphy
csendes tag
Sziasztok!
Segítségre volna szükségem:
Van egy napi szinten használt file.
Egy ügyfél adatbázisban végez szűréseket. Egy gombot megnyomva leszüri azokat a sorokat amik az idei évre vonatkoznak, illetve üressek az adott oszlopban. Az egyik napról a másikra kiállt Run-time Error '1004'-re Rage osztály AutoFilter metódusa hibás problémával.ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=3, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(0, "01/01/2020")Megnéztem a itt a fórumon, hogy volt-e hasonló eset és be is kapcsoltam a bővítményeknél az Analisys-el kezdődőket, de sajnos nem változott. Youtube-on is néztem megoldásokat, de azok alapján a fenti sorokben sem lehet probléma.
Mi az amin változtatnom kellene?
Előre is köszönöm segítségeteket!
-
Fferi50
Topikgazda
válasz
#PeTeY# #44587 üzenetére
Szia!
Egy segédoszlop első cellájába tedd bele ezt a képletet:=BAL(A1;2) & JOBB("0000" & JOBB(A1;HOSSZ(A1)-2);4)
A1 helyébe tedd azt a cellát, amelyben az oszlopod kezdődik és vele egy sorban legyen a képlet.
Ezután a képletet végighúzod az oszlopon lefelé, ameddig adataid vannak.
A segédoszlop adatokat tartalmazó celláit kijelölöd - másolás - majd ugyanide irányított beillesztés értéket.
Ezután a segédoszlop adatait átmásolhatod az eredeti oszlopodba. A segédoszlop törölhető.Üdv.
-
#PeTeY#
aktív tag
Sziasztok!
Sajnos egyáltalán nem értek az excel-hez, és most van előttem egy táblázat, amit az egyik oszlop szerint sorba kellene rendeznem. Az oszlopban XZszám formátumban vannak értékek, azaz XY1, XY2, XY101, stb. Ha most sorba teszem, akkor ugye XY1, XY101, XY2 a sorrend. Szeretném kiegészíteni az értékeket, hogy a fix XY után négy jegyűek legyenek a számok, és a hiányzó részeket feltöltse nullával: XY0001, XY0002, XY0101...
Hogyan tudom ezt megcsinálni? Előre is nagyon köszönöm. -
Telda
addikt
Sziasztok!
A munkahelyi gépen a 2013-as Office le lett cserélve 365-re. Az lenne a gondom, hogy van egy régi .xla bővítményem, amit hiába adok hozzá a bővítményekhez nem jelenik meg a menüben.
Valami kompatibilitási gond lehet? Találkozott már valaki ilyennel? -
-
Heavyrain
őstag
Sziasztok,
Lehet egyszerűen megválaszolható a kérdésem, lehet összetett de mindenesetre előre is köszönöm a segítséget!
Szituáció:Nagyon leegyszerűsítve, van két munkalap. Munka1 és Munka2. Táblázatok vannak mindkettőn.
Munka2: Külső forrásból ide jönnek az adatok. Néha ~10000 sor, néha ~5000, folyamatosan változik.
Munka1: Munka1 A oszlopában kéne megjelennie a Munka2 A oszlopának.
Probléma:
Ha Ctrl+Enter-el hivatkozok Munka1 A oszlopában a Munka2 A teljes oszlopára akkor persze az 5-10ezer adatot tartalmazó cella megjelenik de alatta megpróbálja képlettel kitölteni az A oszlop összes celláját amitől összeomlás közeli állapotba kerül az excel fájl a leterheltség miatt. A valóságban van sok munkalap és lefagyna az egész.Lehetséges megoldás: Ha a Munka2 A oszlopában 5872 cella van akkor csak 5872 cellát szeretnék átmásolni és nem szeretném, hogy megvizsgálja és képlettel kitöltse a teljes oszlopot. Ugyanakkor ha az 5872 megváltozik 9000-re akkor meg pontosan annyit másoljon át. Természetesen képlettel szeretném megoldani nem manuálisan. Van erre valami trükk?
-
Fferi50
Topikgazda
Szia!
ASet objSheet = objExcel.ActiveWorkbook.ActiveSheet
sor helyettSet objSheet = objExcel.Workbooks.Open("fájl neve elérési úttal").Sheets("munkalap neve")
ha nincs megnyitva a fájl, ha meg van nyitva, akkorSet objSheet = objExcel.Workbooks("fájlneve").Sheets("munkalap neve")
Természetesen a nevek lehetnek szöveg típusú változók is.
Üdv. -
Telda
addikt
Sziasztok!
Van nekem egy SAP Excel makróm. A .vbs fájlt az SAP-ból inditom.
Elvileg ezek a sorok határozzák meg hogy honnan vegye az adatokat.Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application")
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
Így mindig az aktív Excel táblát nézi.
Nem értek hozzá, de nem lehetne neki valami konkrét fájl nevet, vagy elérési utat megadni? -
Delila_1
veterán
válasz
zsolti_20 #44578 üzenetére
Nem volt pontos a leírás a 2. feladatnál. Ha az első lapról azokat a sorokat kell törölnöd, ahol az A oszlop értéke megtalálható a második lap A oszlopában, akkor a lenti makró megoldja.
Sub KettesFeladat()
Dim sor As Long, usor As Long
usor = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 1 Step -1
If Application.WorksheetFunction.CountIf(Sheets("Sheet2").Columns(1), Sheets("Sheet1").Cells(sor, 1)) > 0 Then
Sheets("Sheet1").Rows(sor).Delete
End If
Next
End Sub -
eszgé100
őstag
válasz
zsolti_20 #44578 üzenetére
Szia, csak az elsőre van ötletem, mert épp most csinálok hasonlót
Public Sub CopyThenDelete()
Workbooks.Open "Z:\Excel\egyik.xlsm"
Workbooks("egyik.xlsm").Worksheets("Sheet2").Range("A1:A10").copy Workbooks("másik.xlsm").Worksheets("Sheet4").Range("B2")
Workbooks("egyik.xlsm").Close SaveChanges:=False
Kill "Z:\Excel\egyik.xlsm"
End Sub
a makrót a másik.xlsm-ből kell indítani. Workbooks.open... sor nem kell, ha már alapból is nyitva van az egyik.xlsm munkafüzet.
Kill-el vigyázz, mert véglegesen töröl, nem a lomtárba. Biztonság kedvéért csinálj biztonsági mentéseket az érintett fájlokról -
zsolti_20
senior tag
Szép napot emberek! Úgy érzem a következő feladatokhoz már kevés vagyok, mert a VBA tudásom nem elég hozzá. 3 problémával állok szemben remélhetőleg van valaki aki tud ezekben segíteni, mert sajnos én itt elakadtam.
1. Van két excel fájlom, szeretném az egyikből átemelni az információkat a másikba, aztán ha még törlődne a fájl az lenne a legjobb. Pl A1:A10 cellák másolása sheet2 lapról a másik excel file sheet4 lapjára a B2 : B11 cellába.
2.Sheet1 oldalon van 4 oszlopban es kb 2-3 ezer sorban információ. Szeretném törölni azokat a sorokat amik tartalmazzák a sheet2 A1 cellától lefelé található információkat. Itt akár lehet 30 sornyi adat is.
3. Szeretnék .txt fájlt importálni excel fileba. A .txt fileban vesszővel (,) vannak elválasztva az adatok.
1 sor 4 oszlopból áll.
Itt lehetséges olyat, hogy ha az adott sor már letzik akkor ne emelje át?
Illetve a másolás végén törlődjön a file.
Tudom elég sok minden, valószínűleg több adatra is lesz szükség ezekkel kapcsolatban, de azokat bármikor tudom pótolni ha kellene még. Aki tud ezekben segíteni szivesen meghálálnám egy kis sör vagy kávé pénzzel. Ki, mit szeret. -
marec1122
senior tag
Sziasztok!
Van egy táblázatom, aminek az írása le van jelszavazva. Olvasásra meg lehet nyitni. Valaki esetleg meg tudja mondni, hogy a jelszó birtokában hogyan lehet törölni végleg a jelszót? Tehát indításkor ne kérjen semmit egyből lehessen szerkeszteni. Előre is köszi
-
bucihost
senior tag
Sziasztok!
Találtam egy kódot, amit ökéletesen működik. Viszont, néha az oldal "hibát dob" ahonnan a képeket kérném le mert gondolom egyszerre sok a lekérdezést.
Hogyan lehetne késlelteni a lekérdezért, hogy 1-1- kép között várjon mondjuk 2-3 másodpercet?
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set rng = ActiveSheet.Range("C2:C90")
For Each cell In rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub -
Fferi50
Topikgazda
válasz
D@reeo #44564 üzenetére
Szia!
Alapvetően az a probléma, hogy az Excel a dátumokat másként kezeli, mint ahogyan mi gondolnánk. Pl. 2020.06 lehet akár szöveg is - ami dátumnak néz ki, de lehet hogy a cellában dátum van, csak éppen éééé.hh a beállított formátum. A dátumot pedig számként használja az Excel és nem lehet szöveggel hasonlítani. Az Összefűz eredménye pedig szöveg.
A dátum voltát ellenőrizheted, ha a cella formátumát számra vagy általánosra állítod. Ha semmi nem változik, akkor szöveg van benne, egyébként számot fogsz kapni.
Ebben az esetben az összefűzés helyett dátumfüggvénnyel dátummá kell alakítani a feltételed is, hogy olyan legyen mint a dátum oszlopban levő érték.
Üdv. -
sedyke
tag
Sziasztok!
Van egy excel fájlom, amiben sok-sok termék költésgszámítás szerepel az elmúlt évekből különböző munkafüzetekben termékcsoportonként.
Pár évvel ezelőtt szerettem volna egy oldalt, ahol a termékkód és a végső ár listázva van. Anno ehhez itt kaptam segítséget macro formájában.
Sajnos észrevettem, hogy már nem minden termék kerül felsorolásra. Tudnátok tanácsot adni, hogy mi lehet a gond? Én magam nem tudok macrokat írni, csak futtatni.Sub termeklistas()
Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
Set ws = Sheets("AUTODATA")
yy = 1
For Each sh In Worksheets
xx = 1
If sh.Name <> ws.Name Then
Do While True
If sh.Cells(xx, "B").Value = "" Then Exit Do
ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
ws.Cells(yy, "O").Value = sh.Name & "!"
ws.Cells(yy, "P").Value = xx - 1
xx = xx + 51
yy = yy + 1
Loop
End If
Next
End SubLényegében az 'N' oszlopban vannak felsorolva a termékkódok, 'O' oszlopban a munkafüzet neve és 'P' oszlopban a termékkód sorszámát kellene mutatnia (-1 mert a egy másik oszlopban képlettel kikeresem az árát).
Lehetséges, hogy már túl sok munkafüzet vagy adat szerepel a fájban?
Előre is nagyon köszönöm a segítséget! Szép napot kívánok! -
Fferi50
Topikgazda
válasz
peacefroggg #44560 üzenetére
Szia!
Tételezzük fel, hogy nincs csak régi azonosítója, ekkor a D7 cella maradjon üres.
Ebben az esetben a D7 cellát vizsgáljuk:=HA(D7="";D9-es keresés;D7-es keresés)
(nem írom végig a képletet...)
Kicsit a hibázásra is gondolva:=HA(D7="";HA(D9="";"NINCS AZONOSÍTÓ";D9-es keresés);D7-es keresés)
Üdv.
-
peacefroggg
friss újonc
válasz
Fferi50 #44548 üzenetére
Szia!
Most, hogy már működik, úgy szeretném továbbfejleszteni a dolgot, hogy ha a usernek másik azonosítója van, akkor az alapján is tudjon keresni.
Az eddigi képlet:=INDEX(Database!$A$2:$K$3884,MATCH($D$7,Database!$C$2:$C$3884,0),4)
Itt ugye a D7 mezőbe kellett írni az azonosítót, de ha valakinek másik van, akkor a D10-be kell beírnia a számot, ami a Database fül B oszlopában fog keresni. A képlet megvan:
=INDEX(Database!$A$2:$K$3884,MATCH($D$10,Database!$B$2:$B$3884,0),4)Az kellene nekem, hogy a user használhassa kedve szerint a D7 vagy D10 mezőket, de az eredmény ettől függetlenül ugyanabban mezőben jelenjen meg. Gondolom a két képletet egy cellába kéne hozni, csak nem tudom hogyan.
Ebben tudnál segíteni?
Köszönöm! -
Fferi50
Topikgazda
Szia!
Ezt úgy kell érteni, hogy az első munkalapon van 1000 név és havonta külön fájlban mindenki abban írja a jelenlétit 28-30-31 oszlopban?
Miért kell külön-külön személyenként kinyomtatni? Papíralapon fogják kitölteni? 1000 lapot nyomtatni?
" nem kézzel kellene beírni a neveket, nem is begépelni egyesével, se szűrővel kattintgatni (vagy ilyesmi)."
Akkor valaki odavarázsolja azokat? Mert az Excel nem gondolatolvasó.
Üdv. -
MT90
csendes tag
Üdv!
Segítséget szeretnék kérni! 2016-os Excelt használok.
Úgy lett "megbeszélve", hogy a jelenléti ív Excel fájlban legyen.
A munkafüzet első munkalapján van maga a jelenléti és még ugyanabban a fájlban a második munkalapon vannak az emberek névsora, legyenek mondjuk 1000-en.
Hogy lehet a személynévhez úgy beilleszteni ezt az 1000 fős listát, hogy meglegyen az 1000 oldal, mondjuk egymás alatt és egy kattintással ki lehessen mindenkiét nyomtatni?
Az egyszerűsítés miatt nem kézzel kellene beírni a neveket, nem is begépelni egyesével, se szűrővel kattintgatni (vagy ilyesmi).
Köszönöm a segítséget.
-
Fferi50
Topikgazda
válasz
eszgé100 #44552 üzenetére
Szia!
A CreateObject egy új Excel példány hoz létre, ami teljesen szükségtelen.
"így megsprórolom a fájlok külön megnyitogatását is, ugye?"
Ezt nem gondolnám, mert hogyan tudná akkor beállítani a megfelelő értékeket a nyomtatáshoz? Kívülről ez nem megy.
Viszont nem kell minden fájlba beírni a makrókat, elég a "főfájlba betenni", ott pedig a makróban a beállításokat igazíthatod az éppen nyomtatni kívánt dokumentumhoz pl. a neve alapján. Tehát ez az egy makró szépen megnyitogatja amit kell, beállítja amit kell és kinyomtatja ahogyan kell. Azt is meg lehet vizsgálni, hogy melyik területen nyitották meg és ahhoz igazítani a nyomtatandó/nyomtatható fájlok listáját.
Üdv. -
Fferi50
Topikgazda
válasz
jackal79 #44553 üzenetére
Szia!
Ne az aktuális kijelölést, hanem a munkalapot válaszd ki.
A szabály szerkesztésében pedig az A1 írd át G24-re, mindkét szabályban. Elképzelhető, hogy esetleg ezt 2x kell megcsinálnod, hogy rendben legyen, mivel nem abszolut címzés van a képletben, ha más sort látsz, nyugodtan szerkeszd ismételten.
Ezt kell látnod az eredményben:
Azért szerintem nem kellene a teljes sorokat kijelölni, mert az egyrészt indokolatlanul megnöveli a fájl méretét, másrészt nem hiszem, hogy 16ezer+ napot szeretnél látni.
Próbáld az indokolt nagyságú területet kijelölni az érvényességben.
Üdv. -
Rayner
őstag
Sziasztok!
Olyan kérdésem lenne, hogy adott A oszlopban 10000 érték (1 szám 1 cella)
van mondjuk C oszlopban 200 cikkszám amik szerepelnek "A" oszlopban.
Szeretném "kiszedni" A oszlopból a 200 cikkszámot. Vagy leszűrni megjelölni.Erre tud nekem adni valaki megoldást?
Üdv,
-
eszgé100
őstag
válasz
Fferi50 #44543 üzenetére
vegyesen vannak excel és word fájlok is, nagy része excel fájl (kb. 60) és 4-5 word dokumentum összesen.
Ahogy láthatod, a sok guglizás olyan kódot eredményez, mintha Gyűrűk urát fordítanék Google Translate-tel.A fenti példa azt mutatja, hogy Excelben lenyomok egy Buttont, ami a háttérben megnyitja a Word alkalmazást, abban egy Word dokumentumot, és lefuttatja a benne levő makrókat, majd az Excel 1 másodperc várakozás után bezárja a Wordot alkamazást, nem ment semmit, végén Excel nyitvamarad.
kipróbáltam, nem kell a CreateObject("Excel.Application") simán Application.Wait elég a várakozáshoz.
"Én egy alap Excelt használnék"
Magyarul ha jól értelmezem, akkor kell csinálni egyetlen .xlsm fájlt, benne Print(xy.xls) makrókat, a változó fájlnevekkel, nyomtatási területekkel és oldalbeállításokkal beállításokkal? Elvileg csak a makrók futtatásához kell megnyitni a fájlokat, ha azokban vannak elmentve, nyomtatáshoz nem, így megsprórolom a fájlok külön megnyitogatását is, ugye?
-
jackal79
aktív tag
válasz
Fferi50 #44539 üzenetére
Szia!
Először is köszi a segítséget!
A képletben az A1 azt jelenti, hogy az A1-ben található cellára legyen érvényes a feltételes formázás? Nekem a G24;G29-től indul és a sorok a végtelenbe mennek, mert minden egyes napnál ugrik egy oszlopot.
Na ezt most jól elmagyaráztam, remélem érthető!
Köszi! -
Fferi50
Topikgazda
válasz
peacefroggg #44547 üzenetére
Szia!
Angol nyelvű Exceled van, szerintem vessző kell a pontosvessző helyett.
Üdv. -
Fferi50
Topikgazda
válasz
peacefroggg #44545 üzenetére
Szia!
Az nem információ, hogy nem fogadja el a képletemet... Milyen hibát ír ki.
Egyébként pedig a HOL.VAN függvénynél is meg kell adni a munkalap nevét, tehátMATCH(D7;Database!C2:C3884;0)
Ráadásul abszolut ($-os) címzést kell alkalmazni a Database tartományaira, hogy a képlet lehúzható legyen.
Üdv. -
peacefroggg
friss újonc
válasz
Fferi50 #44535 üzenetére
Szia!
Megpróbálkoztam az index hol.van párossal, de valamiért nem fogadja el a képletemet.Megadtam a fül nevét és a tartományt, aztán a hol.van függvénynél hogy melyik mezőben lévő érték alapján keressen(D7 - előző hsz "keresőmezője"), hogy melyik oszloptartományban van a D7-re beírt érték, pontos egyezés és végül, hogy a 4. oszlopból emelje át a keresett értékhez tartozó plusz infót.
Hol rontom el?Köszi!
-
Panzermeyer
tag
Üdvözület
Excel 2016-nak van egy olyan rém idegesítő funkciója, hogy ha több munkafüzet van megnyitva és az egyiket bezárom, akkor feldobja a másikat, pedig nem biztos, hogy azt akarom használni. 99%-ban az X megnyomása után nyomnom kell a felugrott munkafüzeten a tálcára lerakást.
Miért ugrik fel a másik? Hogyan lehet kikapcsolni?Köszönöm
-
Fferi50
Topikgazda
válasz
eszgé100 #44542 üzenetére
Szia!
Azért lenne pár kérdésem ez alapján.
Először a makrókhoz:
Dokumentumokról beszélsz, ezek Excel vagy Word fájlok?Sub Open_Word_Document()
Set objWord = CreateObject("Word.Application")
objWord.Documents.Open "Z:\Excel\ALBÉRLET.docm"
objWord.Visible = False
objWord.Application.Run "NewMacros.toprint"
CreateObject("Excel.Application").Wait (Now + TimeValue("00:00:01"))
objWord.Quit SaveChanges:=objWordsDoNotSaveChanges
Set objWord = Nothing
End Sub
Itt megnyitsz egy Word alkalmazást és abban egy dokumentumot, majd lefuttatsz egy makrót, ami a Word alkalmazásban (NewMacros) van, ami kinyomtatja azt. Ezután létrehozol egy Excel alkalmazást és bezárod a Word-ot.
Ha Excelből indítod a makrót, akkor miért kell új Excel alkalmazás létrehozni? Ha Wordben van a makró, akkor miért kell új Word alkalmazást létrehozni, majd bezárni?
Nem tudom hány xls-ed van, de nem hiszem, hogy mindegyiket külön-külön el kellene látni ugyanazon funkciókat végző makrókkal. Én egy alap Excelt használnék, amiben a makrók benne vannak és abból intézném az összes többinek a megnyitását és kezelését. Így csak egy fájlt kell karbantartani, nem pedig x db-ot.
De lehet, hogy rosszul látom.
Üdv. -
eszgé100
őstag
válasz
Fferi50 #44540 üzenetére
minden .xls-be beleirom az hozza tartozo makrokat (pl: melyik terulet milyen lapokat hasznal, automatikus formazasok, a szombat-vasarnapokra stb) aminek abban a dokumentumban le kell futnia. Nagyja csak a nyomtatasi beallitasokat fogja tartalmazni, nehanyban kell csak formazni a cellakat. Mikor ez megvan, ezekre irni egy olyan makrot, ami megnyitja az adott xls-t es lefuttatja a makrokat, majd bezarja. Lehet ez az utolso resze nem fog menni a halozat biztonsagi beallitasai miatt, de majd ezt meg a heten kideritem
-
eszgé100
őstag
válasz
eszgé100 #44488 üzenetére
vetne erre valaki egy pillantást?
fenti problémát szeretném még mindig megoldani, a változókat szépen összelinkelem egy dokumentumból, valamint ugyanebben a dokumentumban elhelyezek egy Gombot, ami lefuttat valami hasonlót:
Sub Open_Word_Document()
Set objWord = CreateObject("Word.Application")
objWord.Documents.Open "Z:\Excel\ALBÉRLET.docm"
objWord.Visible = False
objWord.Application.Run "NewMacros.toprint"
CreateObject("Excel.Application").Wait (Now + TimeValue("00:00:01"))
objWord.Quit SaveChanges:=objWordsDoNotSaveChanges
Set objWord = Nothing
End Sub
A word doksiban pedig lefutnak ezek a makrók:
Sub kicsi()
'
' kicsi Macro
'
'
Selection.WholeStory
Selection.Font.Size = 10
End Sub
Sub toprint()
'
' toprint Macro
'
'
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter
Application.Run MacroName:="kicsi"
Application.ActivePrinter = "HPFDDA3F (HP Photosmart C4500 series)"
Application.PrintOut Range:=wdPrintAllDocument, Copies:=1
Application.ActivePrinter = strCurrentPrinter
End Sub
Természetesen csak egy példa, ami nagyjából azt demonstrálja, hogy egy gombnyomásra a háttérben megnyíljon a Word/Excel, lefuttasson adott makrókat majd azt egy megadott nyomtatóra elküldje, és mentés nélkül zárja be.
Ezen kívül kell még szerintetek nekem valami, mielőtt nekiállok linkelni a doksikat és nagyüzemben makrókat írni hozzájuk?
-
jackal79
aktív tag
Sziasztok!
Feltételes formázásban, hogy tudnám megoldani, hogy ha az cellába beírt adat '0/0, '0/1, '1/0; '1/1 akkor a szöveg zöld legyen, ha viszont ettől eltér, akkor piros?
Köszi! -
Fferi50
Topikgazda
válasz
peacefroggg #44533 üzenetére
Szia!
Vagy az INDEX HOL.VAN függvény páros.
Ebben az esetben bárhol lehet az azonosító oszlopa.
Üdv. -
lappy
őstag
válasz
peacefroggg #44533 üzenetére
Egy fkeres függvény jónak tűnik ha D utáni oszlopokból kell vmi
-
peacefroggg
friss újonc
Sziasztok!
A következőben kérnék segítséget:
van egy fülem, ahol az adatbázis van, a második fülön pdig tulajdonképpen egy keresőt szeretnék létrehozni.Azt szeretném, ha a D7-8 mezőbe beírok egy azonosítót, akkor az adatbázisból jelenjenek meg az ahhoz a sorhoz tartozó adatok a H3, H5, H7 stb. cellákban.
Köszönöm! -
Slowman
aktív tag
válasz
Fferi50 #44531 üzenetére
Szia,
Köszi!
Most már működik behelyettesítettem, kiadta az értéket már csak az INDEX-et kell hozzáfűzni, viszont most el kell indulnom haza uh. már csak otthon, hétvégén fejezem be ill. próbálom értelmezni a leírásod.
Köszi még egyszer a segítséget! Több órás agyzsibbadástól mentettél meg, a karma tuti meghálálja
ez most atom segítség volt!
-
Fferi50
Topikgazda
válasz
Slowman #44529 üzenetére
Már nem tudom szerkeszteni az előzőt, az F64 cellába írva működik, tömbképletként.
A magyarázat:
Az azonos értékek elkerülése érdekében minden vizsgált számhoz hozzáadunk egy nagyon pici eltérést, ez a +OSZLOP($F$8:$AH$8)/100000 érték. Ezáltal az azonos értékek megszűnnek, mivel az oszlopszám minden értéknél más és más.
Ezután az így kapott értéknek keressük meg az oszlopszámát a HOL.VAN függvénnyel:HOL.VAN(NAGY('OEE_Állásidő összegzés'!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;SOR()-63);'OEE_Állásidő összegzés'!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;0)
A Nagy függvény k paraméterét pedig úgy határozzuk meg, hogy lefelé húzható legyen, ezt a Sor()-63 adja. Ha tehát a 64. sorban van a képlet, akkor a kifejezés értéke 1 lesz, lehúzva pedig 2,3 stb.
A HOL.VAN függvény értéke pedig megadja az INDEX függvénynek, hányadik értéket vegye a tömbből.
Mivel az INDEX függvény első paraméter 1 soros, nem szükséges feltétlenül a függvény sor paraméterének az 1 megadása, mivel nincs több sor.
A tömbfüggvény pedig azért kell, hogy minden tételt vegyen figyelembe a képlet.
Remélem érthetően sikerült leírnom.
(Természetesen az eltérő értékeket úgy is el lehet érni, ha nagyon kis értékeket kivonunk a tényleges értékekből.)
Üdv.
Ps.
Amit az FKERES, VKERES függvényről írtál, azt Redmond felé kellene javasolnod. -
Fferi50
Topikgazda
válasz
Slowman #44529 üzenetére
Szia!
Hanyadik sorba írtad a képletet?
A SOR()-63 kifejezésben a 63 helyére a képlet előtti sort kell beírni.
Az Oszlop függvényeknél nem kell a munkalap neve, mivel csak az előfordulás számára vagyunk kíváncsiak - az oszlopszám minden munkalapon egyforma.
Ez a képlet nekem rendesen működik (az elküldött fájlod alapján):=INDEX('OEE_Állásidő összegzés'!$F$9:$AH$9;HOL.VAN(NAGY('OEE_Állásidő összegzés'!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;SOR()-63);'OEE_Állásidő összegzés'!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;0))
Üdv. -
Slowman
aktív tag
válasz
Fferi50 #44528 üzenetére
Szia,
Sajnos nem működik. #SZÁM! hibát ír ki, ill. az utolsó az OSZLOP függvénynek nem kellene a másik munkalapra hivatkoznia?A Munka1 az nálam nem Munka1 (de megfelelően behelyettesítettem), végül is ez nem feltétlen top secret.
=INDEX('OEE_Állásidő összegzés'!$F$9:$AH$9;1;HOL.VAN(H64;'OEE_Állásidő összegzés'!$F$8:$AH$8;0))
Amúgy csak halkan kérdezem de mi a f ért nem csinál erre valami szög egyszerű megoldást a Microsoft!?
Tudom nagy kérés, de mondjuk az FKERES/VKERESNEK-nek lenne egy találat szám argumentuma azt pont.
-
Fferi50
Topikgazda
válasz
Slowman #44527 üzenetére
Szia!
Nézd meg légy szíves ez a TÖMBKÉPLET működik-e:=INDEX(Munka1!$F$9:$AH$9;HOL.VAN(NAGY(Munka1!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;SOR()-63);Munka1!$F$8:$AH$8+OSZLOP($F$8:$AH$8)/100000;0))
A tömbképletet Ctrl+Shift+Enter kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
Ez húzható lefelé.
Légy szíves jelezz vissza, mit tapasztaltál, azután elmagyarázom a működését.
Üdv. -
Slowman
aktív tag
Sziasztok,
Az VKERES korlátait eddig is ismertem, ezért ez próbáltam kikerül ni amíg lehet
na most már nem tudom (FKERES is ua. tudom), ugye mindig csak az első találatot fogja kidobni az egyezések közül. Erre Google/Youtube segítségével találtam megoldás ugye az INDEX+HOL.VAN függvény kombinációja, viszont minden olyan videó amit értek (nem nyelvi korlát Excel tudás) az csak odáig cseréli le az FKERES-t INDEX+HOL.VAN kombóra, hogy az elsőt megtalálja, ez könnyen is ment, viszont nekem arra lenne szükségem, hogy ugyanolyan számhoz megtalálja a soron következő értéket. Órák óta dzsúdózok ezzel a dologgal de nem tudom már önerőből megoldani.
Próbálok konkretizálni
(90 a napi össz. idő az alatta lévő cellák összege tudom h 85)Ki kell egy adattáblából válogatni a TOP 4 gépállásunkat. Ez működik is szépen az INDEX+HOL.VAN függvényekkel:
=INDEX('Munka1'!$F$9:$AH$9;1;HOL.VAN(H64;'Munka1'!$F$8:$AH$8;0))A H64 az erre hivatkozik =NAGY('Munka1'!$F$8:$AH$8;1) ennek az értéke a 40. Ez a függvény megy lefele a 4. tételig.
Arra az esetre kell megoldást találnom (olyat amit értek is
), ha ua. értékhez több kategória tartozik, mint pl. itt a 4 tétel. Két 10 perces gépállásunk van de az oka értelem szerűen eltér, csak a függvény nem "tudja". Gondolom =HA függvénnyel kell operálni ha egyezik az előtte lévő cella, akkor keresse meg a soron következőt. No a soron következő megkeresés az okoz problémát
. mert a soron következő nem minden esetben jobbra/balra 1-el található tehát nem elég csak simán eltolni.
(gyanítom volt másnak is ilyen problémája szóval ha nem is teljesen érthető amit próbáltam leírni, azért mégis össze lehet legózni)Előre is köszi
-
Fferi50
Topikgazda
válasz
marksz1 #44522 üzenetére
Szia!
Az előző hozzászólásokon felül érdemes megnézni a feltételes formázások (és a függvények!) tartományát is. Ne legyenek benne teljes sorok/oszlopok, csak meghatározott tartománya a munkafüzetnek, amibe az adatok beleférnek.
Megnézheted azt is, nincs-e "felesleges" cellatartomány: F5 - Ugrás - irányított - utolsó cella. Ha ez nem az adattartomány végén van, akkor az addig tartó sorokat/oszlopokat töröld ki. Kisebb lesz a fájl is és gyorsabb lesz a végrehajtás.
Üdv. -
kozyadam
tag
Sziasztok!
Pivot táblával kapcsolatos kérdésem lenne.
Van egy program, ami hálózati eszközöket tesztel, és ebből CSV formában riportot készít. Ebből a riportból pár kattintással tudunk Excel-ben pivot táblát készíteni.
Két táblát szoktam csinálni, mindkettőben az oszlopokban a tesztek eredménye látszik (megfelelt, nem felelt meg, nem futott le, stb...). Az egyik táblázat soraiban az eszközök IP címe szerepel a sorokban, a másikban pedig a tesztek neve.Van arra valami mód, hogy a kész pivot táblában a sorok "nevéhez", tehát az IP címhez és a teszt nevéhez valami függvényt adjak? Vagy ezt csak a CSV fájl importálása után lehet megcsinálni, mielőtt a Pivot táblát megcsinálom?
A célom az lenne, hogy a tesztek nevéből csak az első 5 karakter látszódjon, annyi elég, illetve az IP cím helyett egy VLOOKUP függvénnyel az eszközök nevét szeretném kikeresni.Amennyire nézegettem a Fields, Items & Sets menüben lehet Calculated Field-et és Item-et csinálni, de valamiért nem engedi az Excel, hogy azt tegyem be a "ROWS" részbe.
Ha nem megoldható, akkor marad az, hogy a CSV importálása után módosítjuk az adatokat.
Előre is köszönöm a segítséget!
-
Delila_1
veterán
válasz
marksz1 #44522 üzenetére
Vannak ún. volatilis függvények, amik ha a füzetben bármi változás van (beírás, törlés), frissülnek. Ezeket lehetőség szerint kerülni kell, más megoldással.
Ilyenek pl. a most, ma, rand, randbetween, vél, ofszet, indirekt, info, cella (attól függően, mi a tartalma), véletlen.között.
Az indirekt helyett érdemes az index - hol.van párost alkalmazni. -
marksz1
csendes tag
Sziasztok!
Szeretnék segítséget kérni. Egyik kollégának cseréltem gépet a minap és ő, 50-100 ezer soros Excelekkel szokott dolgozni különféle függvényekkel. A régi gépen Win764 bit volt Office 2010 32bit szoftverrel, I7 3770 CPU-val. Az új gépe egy I5-9500 CPU val Win10-el Office 2019 64Bit.
Mikor ráküld 1-1 függvény lekérést egy több 1000 soros excelbe, akkor 5-10 perc mire végi ér. Állítása szerint nem tartott ilyen sokáig a régi géppel. Néztem személyesen és a függvény számítás közben 100% -on terheli az Excel a CPU-t. Kikapcsoltam a védett nézetett és letiltottam a hardveres gyorsítást is de még így is ugyan olyan "lassú".
Tudtok javasolni még beállításokat vagy trükköket, hogy gyorsabb legyen az Excel?
Vagy cseréljük le a gépet egy I9 vagy Rysen 9 -re?Ellőre is köszönöm a segítséget!!
-
Fferi50
Topikgazda
válasz
#42308056 #44520 üzenetére
Szia!
Sajnos nem.
Egyébként most éppen azt játssza velem, hogy a szövegformátumra állított cellába a célformátumnak megfelelő beillesztés "jön be neki."
Redmond igen találékony...
De ha szövegformátumú a cellád a beillesztés előtt, akkor az egérrel megnézheted, melyik lesz akkor éppen a nyerő, a forrás vagy a cél formátum ...
Üdv. -
#42308056
törölt tag
válasz
Fferi50 #44517 üzenetére
Innen másolom ki pl. azt a részt, ami az Általános és a Csatlakozók közt van. Sima ctrl+c, ctrl+v. És a 16:9-ből először ilyen 0, valami lett, aztán mikor átállítottam hogy szöveg legyen, 16:09.
Annyi, hogy a beillesztés egy távoli asztalon futó Excelbe történik, lehet az átvitel miatt működik így?
-
#42308056
törölt tag
Sziasztok!
Hogy tudom VÉGLEGESEN beállítani, hogy egy tetves oszlop minden rühes cellája SZÖVEG legyen????????????
Hiába állítom be cellaformázásnál, a következő beillesztésre dátumot csinál a kettősponttal elválasztott számokból.
-
wwhy
veterán
Srácok, egy kis segítséget kérek, mielőtt megőszülök (még jobban):
- adott egy oszlop, amelyben bankkártyaszámok vannak, cellaformázás-különleges-bankkártya, DE: az utolsó számjegyet minden esetben átírja 0-raÉs hiába törlöm a formázást, vagy írom át a szerkesztőmezőben, nem menti el, visszaáll 0-ra, így minden kártyaszám utolsó számjegye 0.
Mi a gond és hogy tudom megoldani, hogy az utolsó számjegy ne 0 legyen -
Zoty4
őstag
köszi
Erre nem is gondoltam -
Zoty4
őstag
Sziasztok,
ha van egy kis diagrammom az egyik munkafüzeten, azt valahogy át lehet kopizni egy másikra?
Lényeg hogy teljesen ugyanaz legyen.
Nem áthelyezés! -
alfa20
senior tag
Sziasztok,
VBA-ban egy több dimenziós tömb első dimenzióját fel tudom tölteni egy listával? Sima tömb esetén nem okoz gondot, de több dimenziósnál nem boldogulok.Egy dimenziósnál:
arr() = Array(1, 2, 3)
próbálkoztam a
REDIM
-el, de nem jött össze:REDIM Preserve arr(1 to 3, 1 to 3)
-
C64
őstag
Sziasztok!
Hogyan lehet azt megcsinálni, hogy tetszőlegesen kijelölt pár cella mondjuk jobb oldalon görgetés közben is mindig látszodjon? Tehát ha lefelé görgetem akkor is látszik?
-
Fferi50
Topikgazda
válasz
dellfanboy #44500 üzenetére
Szívesen!
(a második miatt ne gyötörd magad. 1 fekete pont pedig nem a világ)
Üdv.
Új hozzászólás Aktív témák
Hirdetés
- Milyen légkondit a lakásba?
- AMD Navi Radeon™ RX 9xxx sorozat
- Kerékpárosok, bringások ide!
- PlayStation 5
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Linux kezdőknek
- sziku69: Fűzzük össze a szavakat :)
- Jövedelem
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Szívós, szép és kitartó az új OnePlus óra
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Path of Exile 2 early access kulcs
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Új és újszerű 17.3" Gamer, irodai, üzleti készülékek nagyon kedvező alkalmi áron Garanciával!
- Gamer PC-Számítógép! Csere-Beszámítás! R5 2600 / RX 570 8GB / 16GB DDR4 / 512 SSD
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 55992Ft+ÁFA
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3060, 94% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest