Excel kérdés
Jelentkezz be a hozzászóláshoz.
B1-ben marad a BAL függvény. C1 –> =KÖZÉP($A1;HOSSZ($A1)-OSZLOP()+2;1). A OSZLOP() függvény az aktuális oszlop értékét adja.
Ezt a képletet másolhatod jobbra változtatás nélkül akármeddig. Amelyik oszlopban az OSZLOP()+2 eléri az A1-ben lévő szó hosszát, onnan kezdve #ÉRTÉK hibát kapsz.
Ezt használhatod ki a HAHIBA függvénnyel.
=B1&HAHIBA(C1;""😉&HAHIBA(D1;""😉&HAHIBA(E1;""😉&HAHIBA(F1;""😉&HAHIBA(G1;""😉&HAHIBA(H1;""😉&HAHIBA(I1;""😉&HAHIBA(J1;""😉&HAHIBA(K1;""😉&HAHIBA(L1;""😉 ...stb.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
A1-ben van a szó. B1 –> =JOBB(A1;1)
C1 –> =KÖZÉP($A1;HOSSZ($A1)-1;1) ezt a függvényt másolod jobbra, és a levonandó értéket átírod mindig eggyel nagyobbra.
D1 –> =KÖZÉP($A1;HOSSZ($A1)-2;1)
E1 –> =KÖZÉP($A1;HOSSZ($A1)-3;1) ... és így tovább. Amelyik oszlopban #ÉRTÉK hibát kapsz, az már nem kell, mert a levonandó érték egyenlő a szó hosszával. Az utolsó hibátlan képlet helyére beírhatod a =BAL($A1;1) függvényt.
Most már csak az egyes cellák függvényeit (nem az eredményeket, tehát nem cellahivatkozást) kell összefűznöd a B1-ben az & jellel, az eredeti képleteket törölheted.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
A laphoz rendeld a lenti eseményvezérelt makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim betu As Integer, forditott As String
If Target.Address = "$A$1" Then
Application.EnableEvents = False
For betu = Len(Target.Value) To 1 Step -1
forditott = forditott & Mid(Target.Value, betu, 1)
Next
Range("A1"😉 = forditott
Application.EnableEvents = True
End If
End Sub
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
(¯`•.¸¸.•´¯`•.¸¸.•~>
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("B2:B" & usor) = "=vlookup(A2,G:H,2,0)"
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
(¯`•.¸¸.•´¯`•.¸¸.•~>
Arra emlékszem, hogy pl. a HEX2BIN függvényhez csak a bővítmény bekapcsolása után lehetett régebben hozzáférni. Lehet, hogy most is.
Számold meg a függvényeidet a Mind csoportban, zárd be a bővítményt, és számolj újra. Ha veszed a fáradságot, írd meg, mennyi a különbség.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Erre kérném a segítségeteket. Előre is köszönöm. Imre
Nagyon köszi a gyors reagálást!
Bocsi, hogy nem fogalmaztam pontosan.
Az Excelben fut a makró. Az Excel megnyitja a Word doksit, keres, kijelöli a sort, kimásol belőle, majd (innen már tudom) beilleszti egy saját cellába.
Köszi!
godunov
A makróban megadtam a keresett_szoveg értékét, annak a sorát jelöli ki a makró.
Sub Valami()
Dim sor As Integer, keresett_szoveg As String
keresett_szoveg = "Viki"
sor = Cells.Find(What:=keresett_szoveg, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row
Range("A" & sor).Select
Range(Selection, Selection.End(xlToRight)).Copy
End Sub
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Az alábbi Excel makró problémában kérném szíves segítségeteket:
Excelből szeretnék Word doksit kezelni.
1) megnyitom
2) megkeresek egy kifejezést
3) kijelölöm a sor (sor elejére ugrik, majd a végére kijelöléssel)
4) copy
Az utolsó két műveletet sehogy sem veszi be.
Ha a Word-ben fut a makró így néz ki és működik:
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Excelben eddig jutottam el (A sor elejére ugrik, majd a végére, kijelölés nélkül. A "Unit" és "Extend" nem működik.)
Sub MACROEXCELLWITHWORD()
Dim OWORD As Object
Set OWORD = CreateObject("Word.Application"😉
Dim ODOC As Object
Set ODOC = OWORD.Documents.Open("C:\teszt.doc"😉
OWORD.Visible = True
Set sel = OWORD.Selection
sel.Find.ClearFormatting
With sel.Find
.Text = "keresett szöveg"
.Forward = True
.Wrap = OWORDFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
With sel.Find.Execute
End With
With sel
.HomeKey
.EndKey
End With
End Sub
Nagyon köszönöm előre is a segítséget!
Üdv: godunov
Utoljára szerkesztette: godunov, 2015.08.17. 10:47:22
van egy excel táblázatom, melyekben különböző színekkel vannak jelölve a sorok. lényegében arról van szó, hogy egy munka táblázata ez, és minden sor egy darab eszközt jelöl, amin el lett végezve a munka. zöld színű a sor, ha sikeres, piros színű a sor, ha sikertelen. na most szeretnék csinálni egy kimutatást, hogy mennyi sikeres és sikertelen munka volt. access-re gondoltam, bár nincs nagy gyakorlatom benne, még suliban használtam utoljára, szóval eléggé megkopott a tudásom. viszont ahogy beimportálom a táblát, a színek eltűnnek, így nem is tudok ez alapján szűrni. igazából excel-ben is megoldható, csak kíváncsi vagyok, hogy access-t lehet-e ilyenre használni😊
Vigyáznom kell magamra, mert bel?lem csak egy van, mások többen vannak, ?ket könnyebb pótolni.
Az egyik munkalapon volt egy egyszerű feltételes formázás, és az utolsó cella "beragadt" valahol 100e sor után, pedig pár száz sor után már nem volt adat.. ezt a "beragadást" pedig így lehet feloldani:
1. Excel adott munkalapján: ALT+F11 (visual basic indítása)
2. Megnyíló Visual Basicben: CTRL+G (immediate ablak megnyitása)
3. Immediate ablakba:
Worksheets("Sheetx"😉.Activate (+ENTER)
ActiveSheet.UsedRange.Select (+ENTER)
4. ALT+Q (Visual Basic bezárása)
.. és ez után már jó is lett
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
itt bent a melóhelyemen már 3 kollégánál van egy olyan jelenség, hogy nagyon lassan számol át bizonyos táblázatokat a 2013-as verzió (ugyanaz nálam megnyitva 2010-ben problémamentes)
A 2013-as Excelnél ezek pár munkalapos táblázatok, nincs külső hivatkozás, pár soros adattáblák vannak néhány diagrammal, nem tartalmaz makrót sem, vagyis semmi extra, mégis másodpercekig számol valamit.
Sajnos a táblázatokat nem oszthatom meg, de van valakinek esetleg ötlete, találkozott már ilyesmivel valaki?
Köszi
Utoljára szerkesztette: norbre, 2015.05.26. 11:11:13
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
Ami nem derült ki a hsz-ból, Skype-on beszéltünk meg egy halom dolgot. :-)
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Mi van az If WSs.Range("Z28"😉 = "yes" = True féle kettős egyenlőséggel?
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
nagyon nagyon jó ötlet a változó felvétele :-) ezt nem is tudtam eddig, mint nagyon sok mást sem :-D sajnos a VBA tanulással leakadtam időhiány miatt :-(
Nagyon hálás vagyok a segítségért! már sokkal jövök Neked! :-)
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
If Sheets("seged"😉.Range("Q4"😉="no" Then
... 'ide jön a makró
End If
Az első üres sort ciklus nélkül, 1 lépésben kikeresheted.
sor=Sheets("Raktar"😉.Range("A" & Rows.Count).End(xlUp).Row + 1
A Rows.Count a lapon lévő sorok száma, régebbi verziókban 65.536, újabbakban 1.048.576. A fenti utasítás annak a műveletnek a VBA-s megfelelője, mikor az A oszlop alsó celláján állva nyomsz egy Ctrl+fel nyilat. Ilyenkor az A oszlop utolsó kitöltött cellájára ugrik a fókusz. A +1 adja az első üres sor számát az oszlopban.
Az If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then Sheets("Raktar"😉.Cells(sor, 2) = Sheets("seged"😉.Range("O17"😉 típusú sorok hibásak, nincs kettős egyenlőség a VBA-ban.
A helyedben felvennék a makró elején 2 változót, könnyebb kezelni a továbbiakban a hivatkozásokat.
Dim WSR As WorkSheet, WSs As WorkSheet
Set WSR = Sheets("Raktar"😉
Set WSs = Sheets("seged"😉
If WSs.Range("Z28"😉 = "yes" Or WSs.Range("Z28"😉 = "True" Then WSR.Cells(sor, 3) = WSs.Range("K17"😉
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
van egy összetett makrom melynek egy részét szeretném egy ejszakas nevű checkBoxtól függővé tenni.
'Raktár táblázatba adatbeírás
sor = 10
While Sheets("Raktar"😉.Cells(sor, 1) <> ""
sor = sor + 1
Wend
'idő
Sheets("Raktar"😉.Cells(sor, 1) = Sheets("seged"😉.Range("N17"😉
'Műszak
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then Sheets("Raktar"😉.Cells(sor, 2) = Sheets("seged"😉.Range("O17"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then Sheets("Raktar"😉.Cells(sor, 10) = Sheets("seged"😉.Range("O17"😉
If Sheets("seged"😉.Range("R11"😉 = "yes" = True Then Sheets("Raktar"😉.Cells(sor, 17) = Sheets("seged"😉.Range("O17"😉
'Névkiírás
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 3) = Sheets("seged"😉.Range("K17"😉
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 4) = Sheets("seged"😉.Range("L17"😉
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 5) = Sheets("seged"😉.Range("M17"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 11) = Sheets("seged"😉.Range("K17"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 12) = Sheets("seged"😉.Range("L17"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 13) = Sheets("seged"😉.Range("M17"😉
If Sheets("seged"😉.Range("R11"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 18) = Sheets("seged"😉.Range("K17"😉
If Sheets("seged"😉.Range("R11"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 19) = Sheets("seged"😉.Range("L17"😉
If Sheets("seged"😉.Range("R11"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 20) = Sheets("seged"😉.Range("M17"😉
'adatkiírás szűrőcserénél
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 6) = -Sheets("seged"😉.Range("Y24"😉
If Sheets("seged"😉.Range("Z28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 7) = -Sheets("seged"😉.Range("Z24"😉
If Sheets("seged"😉.Range("R11"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 21) = -Sheets("seged"😉.Range("Q11"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 14) = -Sheets("seged"😉.Range("W24"😉
If Sheets("seged"😉.Range("X28"😉 = "yes" = True Then _
Sheets("Raktar"😉.Cells(sor, 15) = -Sheets("seged"😉.Range("X24"😉
End Sub
azt szeretném ha ez csak akkor futna le, ha a seged fülön a Q4 cella értéke "no" és ha ez az érték "yes" akkor ne fusson le. (ezt az értéket változtatja meg az ejszakas checkboxom)
köszönöm szépen a segítséget!
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
=ROUNDDOWN függvény ha angolt.
a számjegyek száma 0
(nekem jobban tetszik mint az INT függvény mert ha későbbiekben szükség van valami oknál fogva tört értékre könnyebb ezzel módosítani. /Ám az INT függvény a tökéletes a Te kérésedre :-)/)
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Tudnátok segíteni?
Adott egy feladat ahol megvan adva emberek születési dátuma valamint egy dátum és meg kéne adni hogy ki hány éves ha egy évet 365,25 napnak veszünk. Ez eddig mind szép és jó, csak hogy a feladat úgy kéri hogy csak az egész évek jelenjenek meg. =(W$2-E5)/365,25 eddig itt tartok ahol a W2 E5 a dátumok meg is kapom hogy 32,56 de ha megadom hogy csak 2 számjegyet jelenítsen meg akkor fel kerekíti 33 ra. Amivel a feladatom megoldása hibás lesz. Valakinek valami ötlet?
BattleTag: kabel15#2672
A segítségeddel és egy pici gondolkodással, ami így könnyebben ment sikerült megoldani a problémám teljes mértékben valahogy így:
=HA(VAGY(D2="OFF";ÜRES(D2));0;HA(ÉS(PERCEK(D2)>0;PERCEK(D2)<=59);KEREK.FEL((D2-C2)*24/0,5;0)*0,5;(D2-C2)*24)) és működik. Ha te nem adod meg azt a képletet ami kiszámolja az időt félórás pontossággal, akkor sztem én sem tudtam volna rájönni a megoldásra.
Még 1x köszönöm. <#taps> <#worship> <#integet2>
Most már csak arra kellene rájönnöm,hogy hogy kell, vagyis melyik (worksheets) munkalap eseménybe kell ezt a képletet beírni.
Amit leírtál képlet(függvény) működik nagyon jó is köszönöm is. De egy pici hiba van méghozzá az hogy ha például - amit az előzőekben is leírtam - 21:00 órát írok akkor is 4,5 órát számol. Volt már rá példa, hogy tényleg 9-kor mentem haza ezt a mágneskártya lehúzásakor írta ki a gép. Én csak saját magamnak szeretném nyilvántartani az időpontokat hogy tudjam mennyit melóztam. Ezért lenne fontos a pontos számítás ha megoldható.
Nem lehet valami segéd táblázat segítségével és FKERES()-l kikeresni a megfelelő időponthoz tartozó számot kinyerni?
Előre is köszönöm. <#integet2>
=HA(VAGY(D2="OFF";D2=""😉;0;KEREK.FEL((D2-C2)*24/0,5;0)*0,5)
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Egy kis segítséget szeretnék kérni. Van egy táblázatom, amiben a munkaidőmet tartom nyilván.
Az "A" oszlopban vannak a dátumok példámban az áprilisi hónap, A "B" oszlopban vannak a napok, A "C" oszlopban a munkaidő kezdete, A "D" oszlopban pedig a munkaidő vége - vagyis az az időpont amikor elhagyom a munkahelyem. Az "E" oszlopban a ledolgozott munkaidő órában ilyen képlettel: =HA(VAGY(D2="OFF"; D2=""😉;ÉRTÉK("0"😉;(D2-E2))*24). Az OFF azért kell mert ha azon a napon nem dolgozom akkor OFF-t írok be a munkaidő vége mezőbe. Így egy egész,vagy .5-re kerekített számot kapok. De az a gondom, hogy minden megkezdett félóra az a munka végén is félóra. Hogy értsd: Például az egyik nap 15:00-21:20 ig voltam ezt az értéket beírva az excelbe 6,333333 számot ír ki de nekem az kell hogy 6,5 írjon ki mert így számolnak el. De ha példáknál maradva 21:32 kor megyek haza akkor már 6,5333-t ír ki itt már 7 órát számolnak el. Szóval ezt hogy kell megírni úgy hogy ha ilyen időpontot írok be akkor is a megfelelő időt kapjam.
Előre is köszönöm <#conf> <#wave> <#nemtudom>
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
2010es excel
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Van egy kimutatásom MEGNEVEZÉS, RAJZSZÁM, ANYAG, GYÁRTÓ oszlopokkal ebben a sorrendben.
Van arra mód, hogy a kimutatás az adatokat elsődlegesen a GYÁRTÓ oszlop szerint, másodlagosan pedig a MEGNEVEZÉS oszlop szerint rendezze (úgy hogy az oszlopok sorrendje ne változzon)?
köszi
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
TDU, Counter Strike-Source, Heroes & Generals nick: Grabowszki Commodore Világ and CoVboy forever
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
TDU, Counter Strike-Source, Heroes & Generals nick: Grabowszki Commodore Világ and CoVboy forever
** ha elfordítod a fejed, könnyebb elhitetni magaddal, hogy nem is tudsz a dologról, és pláne nem vagy felel?s ** "Manapság mindenki vissza akar menni a természetbe. Kár hogy autóval"
Megint van 1.100 sorom, amelyek termékeket tartalmaznak. Márkák szerint kéne sorba szednem őket, szóval hogy tudnám megcsinálni, hogy kijelölje az összes sort a táblázatban, amely tartalmazza az általam megadott szót?
Köszönöm előre is a segítséget!
TDU, Counter Strike-Source, Heroes & Generals nick: Grabowszki Commodore Világ and CoVboy forever
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
Jó dolog ez a VBA nyelv! :-)
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
for sor=1 to 10
range("A" & sor)=sor*2
next
Itt a sor a változó.
Érdemes az utasításokat kisbetűkkel beírni. Mikor tovább lépsz a beírt sorról, a VBA szintaktikájának megfelelően átállnak. Ha minden marad kisbetűs, sejtheted, hogy valamit rosszul írtál. A változók is lehetnek vegyesen kis- és nagybetűsek. A makróban ezeket úgy állítja át, ahogy a deklarációban megadtad.
Utoljára szerkesztette: Delila1, 2015.02.10. 16:49:54
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.