Hirdetés
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Bye PET Palack, hello SodaStream
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- Elektromos rásegítésű kerékpárok
- Rap, Hip-hop 90'
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
-
EmberXY
veterán
válasz
bsasa1 #32497 üzenetére
Köszi a tippet, de próbáltam, nem jutok eredményre ezzel, ugyanis a hivatkozások, vagyis azok tartalma nem jelenik meg konkrét szövegként, csak ha fölé viszem a kurzort, akkor mutatja, hogy melyik cellára hivatkozik, és itt szerepel a hivatkozott cella előtt a munkalap neve is " !"-lel a végén, nekem ezt kéne módosítanom valahogy, mert ez akkor nem változik, ha munkalapot átnevezem.
Ha az átnevezés után helyezek el hivatkozást, az már nyilván működik, de rengeteg olyan van, amit még előtte hoztam létre.
A csere menüben próbáltam úgy is, hogy a keresés helyének a "képletek"-et választottam, úgy sem talál semmit, "!"-lel vagy anélkül ugyanez a helyzet. -
EmberXY
veterán
Sziasztok!
Azzal a problémával szembesültem, hogy egy adott munkalapon elhelyezett hivatkozások, amik ugyanazon munkalapon belülre mutatnak, nem működnek, miután a munkalapot átnevezem (gondolom, a hivatkozás szerves részét képezi az is, hogy melyik lapra mutat, de ezt valamiért nem kezeli dinamikusan, mint a képleteket úgy általában).
Van erre valami megoldás, vagy egyenként kell átszerkesztenem manuálisan a hivatkozásokat?
Köszönöm előre is, ha van valami ötlet (2007-es Excelről van szó). -
blountex
senior tag
Köszi.
Fferi50
Köszi, de bocsánatot kérek egy kicsit elírtam, pontosítok és megpróbálom másképp leírni.
Ha a 38. sorban összeadjuk a számokat akkor kijön egy fix szám: 1053 (ez van a maradó szám helyén)
Az 1053at kell úgy lebontani hogy 0 legyen.
Ha a sorban 25x kiírom a 40-t majd utána a 32-t és végül a 21-et akkor megkapom az 1053at.
Csak hogy fölösleges 25x kiíratni a 40et ha mindig ugyan az a szám, ezért ha csak 1x veszem a 40et a 32-t a 21-et akkor jön ki a maradó számnál a 960 holott itt jó lenne ha 0 szerepelne.
Jelenleg a maradó szám helyen ilyen képlet van:
=HA(I4="";"";K4-SZUM(I38 : R38))
A k4es cellában van a fix szám 1053, amiből kivonja az általa megadott 40,32,21 értéket és így jön ki a 960.
Ő azt nem tudja hogy én mondjuk a 40es számot megszeretném még szorozni 24x=960 hogy megkapjam a 0-át. -
Fferi50
Topikgazda
válasz
blountex #32489 üzenetére
Szia!
A második kérdésedre:
Ha jól gondolom, akkor az adott oszlopban szereplő számokat szorozni kell az oszlop első (x-edik) sorában megadott értékkel és összeadni.
Erre két lehetőség is van: (ha a szorzók az első sorban, a számok a B:D oszlopban vannak, eredmény az A oszlopban)
Képlet A2 cellába:
=$B$1*$B2+$C$1*$C2+$D$1*$D2
Majd ezt végighúzod az A oszlopon.
Vagy:
=Szorzatösszeg($B$1:$D$1;$B2:$D2)
Ezt húzod végig az A oszlopon.Üdv.
-
blountex
senior tag
Üdv!
Kérnék 2 dologban egy kis segítséget.
Egyik egy egyszerű dolog:
Azt szeretném kiíratni az egyik cellában hogy ha mondjuk az A1es cellába beírom, hogy TNT akkor a B1es cellába írja ki hogy előzetes különben ne írjon semmit ki (ha nincs ez a TNT feltétel). Ez idáig nem gond, de mikor duplikálom a függvényt és megváltoztatom a TNT mondjuk UPSre akkor már nem működik jól. Pedig egy hasonló példánál ezt eltudtam játszani minden gond nélkül.
=HA(A1="TNT";"előzetes";""=HA(A1="UPS";"előzetes";""))A másik egy bonyolultabb voltaképp nem tudom milyen lehetőség van rá.
Itt képen szemléltetem a példát! -
Polllen
félisten
Sziasztok!
Adott ez a kód, amivel kb 50.000 sorba kerül egy képlet, a probléma az, hogy néha előbb lép tovább a következő műveletre, minthogy befejezte volna a kalkulációt, így random az utolsó x ezer sorhoz nulla érték kerül...
Range("D2:D" & req_end).FormulaR1C1 = _
"=IFERROR(RC[-1]*VLOOKUP(RC[-3],'[MRP value list rev_1.xlsm]MatMaster'!C2:C8,7,0),0)"
Range("D2:D" & req_end).Value = Range("D2:D" & req_end).ValuePróbáltam azzal, hogy beillesztek egy calculate parancsot, de ezt is simán átlépi:
Range("D2:D" & req_end).FormulaR1C1 = _
"=IFERROR(RC[-1]*VLOOKUP(RC[-3],'[MRP value list rev_1.xlsm]MatMaster'!C2:C8,7,0),0)"
Worksheets("Req").Calculate
Range("D2:D" & req_end).Value = Range("D2:D" & req_end).ValueTermészetesen debug-ban lépésenként végrehajtva tökéletesen működik.
Tudok olyan beillesztési módot, ami 100% működik, de gyors is?
Pl. Selection.Autofill?
-
thomas50.000
csendes tag
Sziasztok!
Ha egy excelt munkalapot exportálok html-be, és képet is tartalmaz, akkor a mappába mindig duplán rakja a képeket, két méretben. Ez miért van, és valahogy lehetne úgy, hogy csak egy kép legyen?
A válaszokat előre is köszönöm!
-
Delila_1
veterán
válasz
userguru #32480 üzenetére
Lappy jól írta, nagyon hasonlít a feladat a Word körlevél funkciójához, csak ott nem lehet *.xlsb-be menteni az elkészült dokumentumokat.
Elkészíted a Sablon.xlsb fájlt. A makrót a tab.xls moduljába viszed be. A két fájl azonos mappában legyen.
A makróban a csillagos sorok közötti részt értelemszerűen a saját fájljaid szerint írd meg.
Címsort feltételezve a tab füzetben, a sab változó (aktuális sor) értékét 2-ről indítom.Sub Sablonok()
Dim sab As Long, utvonal As String
Dim WSInnen As Worksheet, WSIde As Worksheet
utvonal = ActiveWorkbook.Path & "\"
Set WSInnen = Workbooks("tab.xls").Sheets("Munka1")
sab = 2
Do While WSInnen.Cells(sab, 1) <> ""
'A Sablon.xlsb megnyitása
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
Set WSIde = Workbooks("Sablon.xlsb").Sheets("Munka1")
WSIde.Activate
'***********************************************************************
WSIde.Cells(2, 2) = WSInnen.Cells(sab, 1) 'B2-be a tab aktuális sor A-ja
WSIde.Cells(5, 4) = WSInnen.Cells(sab, 2) 'D5-be a tab aktuális sor B-je
WSIde.Cells(8, 2) = WSInnen.Cells(sab, 3) 'B8-ba a tab aktuális sor C-je
'...
'...
'***********************************************************************
WSIde.SaveAs Filename:=utvonal & "sab_" & sab - 1 & ".xlsb"
ActiveWindow.Close
sab = sab + 1
Loop
End Sub -
userguru
újonc
Van két excel tábla: az egyik egy n sorból álló táblázat (tab.xls), a másik egy A/4-es oldalon megjelenítendő sablon fájl, amiből éppen n db. lesz (sab_1.xls …. sab_n.xls). A cél a tab.xls egyes soraiból az n db sablon fájl generálása (ami aztán nyomtatásra kerül).
Kérdéseim:
1./ A sablon fájl adott cellájának, a tab fájlból való kitöltéséhez beírandó képlet:
’path[tab.xls]Munka1’!P3 (pl.: a tab fájl P oszlopának 3 sorában lévő adatot vegye át,
igen ám, de a 3 helyett egy változót kellene beírni, hiszen ez minden sab_x fájlnál más és más lesz (a tab fájl x. sorának megfelelően), ráadásul e változó értéke a saját sab fájlból veendő, ugyanis ez a sab fájl sorszáma, ami a sab fájl egyik cellájának értéke is egyben, s amit kézzel is beírhetó (egyébként a sab_x fájl nevében is ez a szám szerepel). Röviden: a cellába beírandó képletbe mit írjak a 3-as helyére?2./ A cella képletben szereplő paraméterekre is lehet keresni (illetve cserélni), mint a cella értékekre? Hogyan?
Köszönöm előre is a válaszokat: V. Péter
-
Delila_1
veterán
válasz
leroyclub #32477 üzenetére
Ctrl+g-re bejön az Ugrás ablak. Ott kiválasztod az Irányított gombot, majd az Objektumokat.
A Delete gomb egyszerre törli az összeset.Azért csak 10 kivágás után tünik el 1-1 objektum, mert egymás hegyén-hátán vannak. A felsőd kitörlöd, marad alatta 9 másik. Ha megnézed, más a neve az alsónak, mint amit kitöröltél.
-
leroyclub
senior tag
Sziasztok! Egy kis segítséget szeretnék kérni. Van egy elég egyszerű dokumentumom, amiben egy partner nyilvántartást vezetek. Itt régebben beraktam egy active X-es checkboxot minden partner sorába, viszont ahogy gyarapodtak a partnerek úgy egyre lassabb lett ez a vezérlő betöltés. Most inkább egy új cellában egy szöveggel jelölném, de nem tudom megszüntetni a checkboxokat, mivel nem cellában vannak, hanem olyan mintha rajta lenne a cellán. Csak jobb egérgombbal tudom kijelölni de akkor sem törölni, csak kivágni. De van hogy 10 kivágás után tünik csak el, addig jelölgeti ki és be. Van erre valami megoldás? Csatolok egy képet is hogy eltudjátok képzelni:
-
Aladaar
tag
válasz
Lasersailing #32204 üzenetére
Valaki lenne olyan kedves átírni a következő képletet nem tömbfüggvényesre?
köszi,
A.{=HA($B2>=0;B2*C2;-(MAX(HA($E$2:$E2<-SZUMHA($B$2:$B2;"<0");$F$2:$F2))
-(SZUMHA($B$2:$B2;"<0")+MAX(HA($E$2:$E2<-SZUMHA($B$2:$B2;"<0");$E$2:$E2)))
*INDEX($C$2:$C2;HOL.VAN(MIN(HA($E$2:$E2>=-SZUMHA($B$2:$B2;"<0");$E$2:$E2));$E$2:$E2;0))
+SZUMHA(OFSZET(D2;-1;0;-SOR(D2)+1;1);"<0")))} -
Delila_1
veterán
Függvénnyel nem, de egy rövid makróval igen.
Másold modulba a makrót. Állj a cellára, is indíthatod.
Ha sok ilyen színesítendő cellád van, akkor tehetsz a gyorselérési eszköztárra a makróhoz egy ikont.Sub Piros()
Dim elso As Integer, hossz As Integer
elso = InStr(ActiveCell, "(") + 1
hossz = Len(ActiveCell) - elso
ActiveCell.Characters(Start:=elso, Length:=hossz).Font.Color = RGB(255, 0, 0)
End SubNagyon sok színezendőhöz érdemes egy ciklust írni.
-
huan
őstag
Sziasztok!
Ezt meg lehet vajon oldani függvénnyel, hogy egy cella tartalmában lévő karakterek(valamilyen feltétel alapján, jelen esetben a számok) másmilyen színűek legyenek? (vagy feltételes formázással) -
DeltaPower
addikt
Sziasztok! Kereszttábla-jellegűen felépített adatokat hogy lehet sorokra bontani?
Előre is kösz a segítséget. -
A fenti táblázatból szeretném egy cellába összeszedni az összes adott dátumhoz kapcsolódó igen-ek darabszámát, tehát 8.1 -> 2db, 8.2 -> 1db. erre mi a legegyszerűbb mód? Mindenféle segédtáblák nélkül megoldható
-
Fferi50
Topikgazda
válasz
RedHarlow #32466 üzenetére
Szia!
A cella tartalmához ugyanúgy hozzáfűzheted a táblázat kódot is. Ha 3 sorod van egy cellában, akkor elejére <tr> végére </tr>.
Ha egy-egy "táblázat sor" van benne, akkor minden "első" (hárommal osztva maradék 1) elejére teszed a <tr> és minden harmadik (hárommal osztva 0) végére teszed a </tr>.Pl az F oszlopban, ha az adataid az első sorban kezdődnek, a képlet:
=ha(maradék(sor();3)=1;"<tr>";"") & E1 & Ha(maradék(sor();3)=0;"</tr>";"")Ha nem az első sorban kezdődnek a tételek, akkor a maradék kalkulációt kell hozzáigazítanod.
Üdv.
-
RedHarlow
aktív tag
Sziasztok, excelben egy HTML táblázatkészítőt szeretnék készítettni:
A lényeg a következő lenne:
Ugye HTML-ben így néz ki egy táblázat:
<tr>
<td>adat</td>
<td>adat</td>
<td>adat</td>
</tr>Nos én addig eljutottam, hogy összefűzzel létrehozom az E oszlopba, sorrendbe az általam használni kívánt adatokat.
E
<td>${T:3000:n=melleklet1:border=false:style="color:black;width:250px"}</td>
<td>${T:3001:n=melleklet2:border=false:style="color:black;width:250px"}</td>
<td>${T:3002:n=melleklet3:border=false:style="color:black;width:250px"}</td>Ebből egy X soros (X=változó) 3 oszlopos táblázatot szeretnék készíteni. Addig eljutottam ugye, hogy megvannak a celláim de ezeket ugye <tr></tr> közé kell tenni, ezért arra lenne szükségem, hogy a makró hozzon létre mindig egy sort (<tr>) majd lépjen 3 sort és utána hozzon létre két sort (</tr>)(<tr>) majd ismét lépjen hármat és hozzon létre ismét két sort (</tr>)(<tr>) és ezt folytassa addig ahány oszlop van.
<tr>
<td>${T:3000:n=melleklet1:border=false:style="color:black;width:250px"}</td>
<td>${T:3001:n=melleklet2:border=false:style="color:black;width:250px"}</td>
<td>${T:3002:n=melleklet3:border=false:style="color:black;width:250px"}</td>
</tr>
<tr>
<td>${T:3000:n=melleklet1:border=false:style="color:black;width:250px"}</td>
<td>${T:3001:n=melleklet2:border=false:style="color:black;width:250px"}</td>
<td>${T:3002:n=melleklet3:border=false:style="color:black;width:250px"}</td>
</tr>
<tr>
<td>${T:3000:n=melleklet1:border=false:style="color:black;width:250px"}</td>
<td>${T:3001:n=melleklet2:border=false:style="color:black;width:250px"}</td>
<td>${T:3002:n=melleklet3:border=false:style="color:black;width:250px"}</td>
</tr>
<tr>
<td>${T:3000:n=melleklet1:border=false:style="color:black;width:250px"}</td>
<td>${T:3001:n=melleklet2:border=false:style="color:black;width:250px"}</td>
<td>${T:3002:n=melleklet3:border=false:style="color:black;width:250px"}</td>
</tr>
<tr>Előre is nagyon szépen köszönöm a segítséget!
-
mdk01
addikt
Segítsetek légyszi, hogy hogyan lehet egy cellán belül szöveget keresni?
Nézegettem ezeket a szövegtalál és tsai függvényeket, de azok számokat adnak eredményül, viszont engem az érdekelne, hogy hogyan lehet egy cellán belül megkeresni egy bizonyos szöveget és ha megtalálta, akkor az legyen az eredmény is.
Pl. Egy cella tartalma a "Piros alma" akkor én rákeresek az "alma" -ra és ha megtalálta akkor az "alma" az eredmény is.Előre is köszönöm
-
bsasa1
csendes tag
válasz
mjanoshu #32461 üzenetére
Szia!
Sima függvénnyel ez szerintem nem fog menni csak valamilyen makrós megoldással. Pl egy:
Képletek/névkezelő/új:
Név: hatter
Hivatkozás: =CELLÁT.VESZ(63;Munka1!$A1)
ez visszaadja az A1 cellában beállított háttérszín kódját
színes cella mellé B1-be: +HA(hatter="ide az általad beállított zöld kódja kell idézőjel nélkül";1;0)Utána csak lehúzod a képletet.
Azt így hirtelen nem tudom, hogy frissül-e automatikusan a dolog. -
mjanoshu
csendes tag
Sziasztok,
segítségre lenne szükségem a következő témában:
Ha egy adott mező A1 "ZÖLD" színű, akkor az A2 töltse ki "1'-re viszont ha A1 "PIROS" színűre váltom akkor az A2 legyen "0".
Milyen függvénnyel s hogyan tudnám ezt kivitelezni!?
Előre is köszönöm a segítséget!
-
Declare
őstag
Sziasztok!
Egy (szerintem) nagyon egyszerü kerdesem lenne most elsö körben (aztan lehet lesz majd most megint pár
)
Ezt a kodot hogyan tudom ugy atirni, hogy a SUBTOTAL fv. mindig az adott oszlop 6-ik cellajatol vegezze el a müveletet? (Tehat a masodik fele, hogy
R[-5]C
az oké, viszont az elsö fele, azR[-10]C
az mindig az adott oszlop, felülröl 6-ik vellaja legyen)ActiveCell.FormulaR1C1 = "=SUBTOTAL(9, R[-10]C : R[-5]C)"
mod: ja es az oszlopban vannak ertekek es vannak neha üres cellak is....de ez mindegy kell, hogy legyen, mindig a felülröl 6-ik cella kellene kezdö pontnak.
-
Delila_1
veterán
Egyszerűbb egy új létrehozása a tegnapi és mai táblázatokból. Nem Változtak, hanem aktuális lesz a neve.
-
Oly
őstag
válasz
Delila_1 #32453 üzenetére
Szia
Sajnos ez nem teljesen jó.
A duplika szűrést hamar elvetettem, mert ha mindkét listában szerepel valami (pálinka), akkor csak az egyik példányt veszi ki, pedig az nem kellene, hogy benne maradjon egyik példány sem.
Az oda-vissza FKERES már jobban hangzik, de itt nekem pont a mennyiségi változást kellene kihoznia..
és ha kihozza az FKRERES hiba miatt a Savas vizet, nem húzza mellé a menteset, pedig az is kellene. -
Delila_1
veterán
Éppen ilyen kérdésre válaszolt FFeri az index fórumon a 29264-es hsz-ben.
-
Oly
őstag
Sziasztok
Ismét nagy fába vágtam a fejszém és kérném a segítségeteket.
Kapok minden nap egy hosszú listát és azt kellene vizsgálnom, hogy mik változtak benne. Lehetnek benne az előző naphoz képest csak darabszámban is változások, de ha változott valami, akkor az érintett csoportot is listázza kis nekem.
Példa:Látható, hogy az ásványvíz csoport változott, ezért az egész csoportot látnom kell. Ami előző naphoz képest már nem szerepel a listában, azt hozza kis 0 mennyiséggel. Amelyik csoport (Pálinka) nem változott, azt pedig ki se hozza, mert nem érdekel
Elsőre úgy gondoltam, hogy kér egymásba ágyazott for ciklussal össze hasonlítom a két listát, és ahol volt változás azt a termékcsoport nevet kiíratom egy ideiglenes táblába, majd újra futtatom már ezzel a listával hasonlítva, de külön figyelni kell a 0-ra változott tételekre is.... Ez nagy falatnak tűnt.
Gondolkodtam Halmazokban is, és akár Accessben is, de nagyon nyár van, és a lakásfelújítás-költözés project mellett nagyon eltompultam.
Lehet, hogy nem látom a fától az erdőt? Van erre valami egyszerűbb megoldás?Előre is köszönöm a segítséget.
oly
-
w.miki
veterán
Egy cellát hogyan tudok képlettel átmásolni, úgy hogy a formátumot is vigye?
Tehát B9 legyen = K9, de az aláhúzás, betűtípus minden másolódjon.
Ha pedig üres a cella (K9), maradjon üres (a B9), és ne 0-t írjon bele. -
WildBoarTeam
senior tag
Tárgytalan, közben megtaláltam a beállításokban a hiba okát.
-
Lipton
őstag
lappy, bsasa1: köszönöm, megnézem, jelzek majd vissza az eredményről!
-
Fferi50
Topikgazda
válasz
thomas50.000 #32437 üzenetére
Szia!
Egyezésnél ilyen lehetőség nincs, viszont használlhatod a SZÖVEG.KERES vagy SZÖVEG.TALÁL függvényt szerintem, ahol van joker karakter lehetőség is.
Üdv.
-
lappy
őstag
válasz
thomas50.000 #32437 üzenetére
=HA(DARABTELI(C3:C5;"*ara*")>0;1;0)
foglald egy ha fgv-be és ha a darabteli nagyobb min 0 akkor színes ha nem akkor marad fehér -
thomas50.000
csendes tag
Sziasztok!
A darabteli függvény kritérium megadásánál van egy olyan opció, hogy például azokat számolja össze, amikben szerepel az "ara". Ezt úgy adom meg ugye, hogy "*ara*".
Azt szeretném kérdezni, hogy a feltételes formázásnál van-e ilyen lehetőség, mert sajnos ha így adom ott meg, akkor nem működik. (Ott nem darabtelit használok, csak simán egyezést!)
A válaszokat előre is köszönöm!
Tomi
-
bsasa1
csendes tag
válasz
Lipton #32434 üzenetére
Szia!
Azért elsőre nekem sem volt túl egyértelmű, hogyan is néz ki ez a táblázat,
de feltételes formázásban cellák kijelölése képlettel:
=+MAX(HA(B$2:B$9=B2;A$2:A$9;0))-A2=0
Dátumok nálam az "A", rendszámok a "B" oszlopban a 2-től a 9-ig sorig.
Dollárjelekkel kell egy kicsit játszani, attól függően, hogy csak egy oszlopot, vagy az egész sort szeretnéd jelölni. -
lappy
őstag
-
Lipton
őstag
Minden adatbevitel egy dátum de naponta maximum egy bejegyzés van.
Mit kellene még tudni?1. 2016.01.01 AAA111 adatok
2. 2016.01.01 BBB222 adatok
3. 2016.01.01 CCC333 adatok
4. 2016.01.02.AAA111 adatok
5. 2016.01.02.BBB222 adatok
6. 2016.01.03.AAA222 adatokInnen a 6. 5. 3. sorok kellenek nekem valahogy.
Az is jó, ha egy oszlopban valamilyen függvénnyel "jelölni" tudom, hogy ez egy utolsó sor egy rendszámhoz.Gondoltam arra, hogy visszafele átforgatom az egész táblázatot egy külön lapon, majd egy külön rendszám lista alapján hol.van függvénnyel megkeresem az elsőt (mert ugye forditva vannak a sorok) és bejelölöm az eredetiben vissza valamilyen idexes módon.
-
Lipton
őstag
Sziasztok!
Van egy gépkocsi adatbázisom amit folyamatosan töltök. Oszlopai:
Dátum - kitöltés ideje
Rendszám - GK rendszám
majd sok sok adatHogyan tudom leszűrni vagy valamilyen függvénnyel megjelölni, hogy melyek az egyes rendszámokhoz tartozó utolsó bejegyzések, azaz szeretnék egy "aktuális" listát az összes rendszám utolsó dátumos bejegyzéséről?
köszi
-
RazoR
veterán
Sziasztok!
2013-as magyar office.
Nem tudom, hogy erre létezik-e függvény, de a következő kéne nekem ha lehetséges:
Adott egy szám 5354 ami a lehetséges maximum érték ami százalékos értékben 75%.
Kivitelezhető az, hogy mondjuk a 3542 értéket a 5354-hez viszonyítva kiszámoljam százalékosan a 75%, hoz képest ha a 75% a 100%? Remélem érthető voltam. -
Delila_1
veterán
válasz
TofJoco #32425 üzenetére
Ha jól gondolom, az A oszlopba olvastatod be az adatot.
Add meg a formátumot a B oszlophoz.A lapodhoz rendeld a makrót (Téma összefoglaló útmutatása szerint).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'itt módosíthatod a bevitel oszlopszámát
Application.EnableEvents = False
Range(Target.Address).Offset(, 1) = Time
Application.EnableEvents = True
End If
End Sub -
TofJoco
tag
Sziasztok!
Segítséget szeretnék kérni az alábbiak miatt.
Adott egy vonalkód olvasó. Ennek az eszköznek be lehet állítani, hogy olvasás után adjon egy billentyűparancsot (én entert adok meg, mert azt szeretném, hogy rögzítés után az excel oszlop következő (alábbi) cellájába ugorjon. De ami a lényeg, hogy ezzel egy időben az excel B oszlopában (a "beírt karaktersor mellé) rögzítenie kellene az vonalkód szkennelés időpontját. Óra, perc, másodperc. Tud ilyet az excel? A válaszokat előre is köszönöm! -
Delila_1
veterán
válasz
thomas50.000 #32423 üzenetére
Tedd azt az ikont a gyorselérési eszköztárra. Ikonon jobb klikkre gyorsmenüt kapsz, ahol egy kattintással átmásolhatod.
-
thomas50.000
csendes tag
De pont az lenne a lényeg, hogy felgyorsítsam ezt a folyamatot.
A beillesztésnél van egy ilyen lehetőség, hogy célformátummal egyező formátum (c).
Azt hittem, ha az excelben van ilyen ikon, akkor az elérhető makrón keresztül is. De úgy tűnik nem.
-
Delila_1
veterán
válasz
thomas50.000 #32421 üzenetére
Készítesz egy sablon füzeted a saját formátumaiddal. Innen másolod a formátumot arra a lapra (tartományra), ahova letöltötted a webes adatokat.
-
Delila_1
veterán
válasz
thomas50.000 #32419 üzenetére
Selection.PasteSpecial Paste:=xlValues
-
Delila_1
veterán
válasz
thomas50.000 #32417 üzenetére
Az alkalmazása úgy történik, hogy kijelölöd a formázott területet, Ctrl+c-vel másolod, kijelölöd azt a területet, ahova a formátumot szeretnéd beilleszteni, és indítod a makrót.
Az utolsó lépés helyett jó a bill. kombináció, ha adtál a makrónak olyant.
-
Delila_1
veterán
válasz
thomas50.000 #32415 üzenetére
Kijelölöd a céltartománynak nevezett területet, felveszed az ecsetet, és végighúzod azon a tartományon, amit az előbbivel egyező formátumban szeretnél látni.
Vagy
Sub Formatum()
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub -
lappy
őstag
válasz
thomas50.000 #32412 üzenetére
-
thomas50.000
csendes tag
Sziasztok!
Egy olyan kérdésem lenne, hogy az excelben a gyorsbillentyűket lehet-e állítani.
A beillesztés ugye a ctrl+v. Az a baj, hogy ha így illesztek be az excelben akkor a formátumot is változtatja.
Nekem a "célformátummal egyező formátum" beillesztés kell, viszont nagyon macerás mindig oda kattintani.
Szeretném valahogy megoldani. Akár makróban is jó lenne, ha máshogy nem megy.
Előre is köszönöm!!
-
Sprite75
tag
válasz
Fferi50 #32408 üzenetére
Nagyon szuper köszi.
A Célkeresztes makróval kombinálva nagyon vagány.
Mondhatnám, hogy Pali bácsi biztos (az majdnem olyan mint az atombiztos de itt szigorúbbak a követelmények.)Hiba nélkül dolgozik, nagyon köszönöm.
Majd holnap élesben Pali bácsi is teszteli Ő képes egy 3*3 as táblában legalább 10 hibát találni vagy kreálni. A múltkor azzal a furcsa jelenséggel találkozott hogy a win asztalon minden ikon több példányban jelent meg.
Megoldottam a problémáját, levettem a billentyűzet sarkáról a CTRL ról egy iratos mappátSzóval holnap teszt.Küszi még egyszer
Üdv -
excelproblem
újonc
válasz
bteebi #32409 üzenetére
Köszi szépen, megnézem majd ezt az Origint.
Szóval a legjobban illeszkedő másodrendű exponenciális függvénynél a második exponenciális értéke lehet a keresett hely. Megpróbálom, bár el fog tartani egy ideig, amíg elsajátítom a program használatát. Kösz az ötletet, hátha segíteni fog. -
bteebi
veterán
válasz
excelproblem #32407 üzenetére
Talán kicsit hülyén hangzik, de akkor lehet, hogy olyasvalamit keresel, ami gyakorlatilag nincs is ott, bár elvileg ott kellene lennie...
Az Origint (demo verzió innen) viszont mindenképp nézd meg. Rengeteg beépített függvénye van, talán olyat is találsz, ami egy az egyben erre a feladatra való (de amúgy custom függvényeket is lehet vele modellezésre használni). Amit első körben próbálnék ki vele, az egy másodrendű exponenciális függvény illesztése a csökkenő szakaszra (valószínűleg nem kis hibával terhelt, bár némi szerencsével elég jól megtalálható az ideális megoldás), ahol is a második exponenciálisnál kapott x (idő) érték adná meg azt, amit szeretnél. Talán.
-
Fferi50
Topikgazda
válasz
Sprite75 #32397 üzenetére
Szia!
Íme a makró:
Ellenőrzi, hogy ne szöveg legyen beírva, érvényes legyen a számérték amit beírtak, illetve rákérdez, hogy felülírható-e az egyszer már bevitt számérték. Beírja az utolsó módosítás időpontját az AZ oszlopba (tehát, ha sikeres az új érték beírása a cellába, akkor ír időpontot az AZ oszlopba, egyébként nem).Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range, ujertek As Integer
Set KeyCells = Range("C4:AY108") ' ez a vizsgálandó terület
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Application.EnableEvents = False
If Not IsNumeric(Target.Value) Then
MsgBox "Nem számot írtál be, kérlek javitsd ki!", vbCritical, "Ellenőrzés"
With Application
.Undo
.EnableEvents = True
End With
Exit Sub
End If
If Target.Value < 0 Or Target.Value > 300 Then
MsgBox "Ez az érték nem felel meg a követelményeknek: " & Target.Value, vbCritical, "Ellenőrzés"
With Application
.Undo
.EnableEvents = True
End With
Exit Sub
End If
ujertek = Target.Value
Application.Undo 'visszaállítjuk a változás előtti értéket
If Target.Value >= 1 And Target.Value <= 300 Then 'ha a régi érték jó
If MsgBox("A(z) " & Target.Address(rowabsolute:=False, columnabsolute:=False) & " cella már tartalmazott egy helyes értéket: " & Target.Value & vbLf & "Kicseréli erre: " & ujertek, vbYesNo, "Ellenőrzés") = vbYes Then
Target.Value = ujertek
End If
Else
Target.Value = ujertek
End If
Cells(Target.Row, 52).Value = Time
Application.EnableEvents = True
End If
End SubÜdv.
-
excelproblem
újonc
válasz
bteebi #32406 üzenetére
Az inflexiós pontot sokkal egyszerűbb megtalálni, de nem azt keresem. Bár ha onnan indulok, valóban homogénebb az adatsor. Próbáltam simítani, de nem segített közelebb a megoldáshoz. A logaritmikus ordináta se mutat semmit, csak a görbe "hasa" lesz kisebb, de az ívben ugyanúgy nem látszik tendencia-változás. Kösz amúgy, kipróbálom az Origint, de nem tudom, milyen transzformációval tudna segíteni a keresett pont megtalálásában. Mondom, se a loess-féle lokális regresszió nem segített, se a differencia-képzés, se a logaritmálás, se a szukcesszíven növelt szakaszok korreláció-analízise.
-
bteebi
veterán
válasz
excelproblem #32405 üzenetére
Ez igazából nem Excel probléma, és nem is Excelnek való probléma. Az OriginLab Origint ajánlanám erre, ami azt hiszem egy az egyben tud deriválni - ami ennél a feladatnál nem ártana, mert ha jól gondolom, akkor tulajdonképp első körben egy inflexiós pontot keresel, ami az első deriváltnál a maximális érték, a másodiknál pedig nulla. Az egy simítás/exponenciális illesztés után minden bizonnyal könnyebben menne. Meg a logaritmikus ordinátát is meg lehetne próbálni. De ha nem ismered, akkor is nézd meg az Origint, azt hiszem van demo verziója. Addiktív
. Mondjuk deriválni talán az Excel is tud (manuálisan mindenképp), szóval azon keress maximumot. Gondolom.
-
excelproblem
újonc
válasz
Delila_1 #32402 üzenetére
Ránagyítva se látszik semmilyen törés. Íme az adatok a csúcs után, a fenti árhullámnál:
De a többi árhullámnál is hasonló a helyzet, itt látható még néhány:
Pedig ha ránézünk az ábrákra, valahogy mégis érezhető, hogy ezek az árhullámok elkülöníthetők az alapvízhozamos részektől. Azt a részt kéne megcsípni, ahol a "vízszinteshez közelítőtől" elkezd jobban eltérni az adatsor. Csak ez nem elég egzakt, meg kéne támogatni valami matekkal is. A már említett korrelációs vizsgálat logikus módszernek tűnt, de nem jelezte hirtelen változással a keresett töréspontot, ahogy vártam. De nagyon bízom benne, hogy valakinek lesz rá ötlete.
-
bteebi
veterán
Sziasztok!
Kicsit rendhagyó, mert igazából Worddel kapcsolatos, viszont VBA-s kérdés, úgyhogy szerintem érdemesebb itt feltenni, mint a Word topikban. Van egy Word file, ami a lenti makrón felül mezőket tartalmaz. Azt szeretném, hogy egy dialógusból kiválasztott másik Word file-ban a megegyező nevű mezők tartalmát felülírja a kiindulási file-ban lévő értékekkel.
Ez utóbbinál akadtam el. Elvileg egy mezőnek a
ActiveDocument.Fields(n).Result
adja meg az értékét, így például aMsgBox mezo.Result
működik is, viszont arra, hogymezo.Result = "1"
Type mismatch hibakódot kapok. Ezen kívül azt se tudom, hogy azt hogy lehetne megcsinálni, hogy (csak) azoknak a mezőknek a tartalmát írja felül a makró a megnyitandó file-ban, amiknek az eredeti file-ban is ugyanaz a neve (pl. Cim1, Cim2, stb.). A meglévő kód:Sub MezoToltes()
Dim innen As Document, ide As Document, mezo As Field, WordApp As Application
Set innen = ActiveDocument
Set ablak = Application.FileDialog(msoFileDialogOpen)
ablak.Filters.Clear
ablak.Filters.Add "Word dokumentumok", "*.doc*"
ablak.Title = "Válaszd ki a feltöltendő file-t"
ablak.InitialFileName = innen.Path
ablak.InitialView = msoFileDialogViewList
ablak.FilterIndex = 1
filechosen = ablak.Show
If filechosen = -1 Then
fajlnev = ablak.SelectedItems(1)
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open fajlnev
WordApp.Visible = True
Else: Exit Sub
End If
For Each mezo In innen.Fields
mezo.Result = "1"
Next mezo
innen.Fields.Update
End SubElőre is köszönöm a javaslataitokat!
-
Delila_1
veterán
válasz
excelproblem #32401 üzenetére
A start és csúcs értékek közötti változáshoz képest nyilván nagyon kicsi a törés szakasz értékeinek a változása, ezért nem látszik a diagramon.
Ábrázold külön diagramon a csökkenés alsó harmadát vagy negyedét, akkor kinagyítva láthatod az értékeket.
-
excelproblem
újonc
Ezeket az adatokat mérte a műszer, ezért nem lehet növelni a felbontást. De amúgy ez is 3-szor pontosabb, mint amit hasonló mérésekhez használnak. Ha növelnénk a felbontást, a diszkrét időpontokban történő mérés miatt ez a kis intervallum egy idő után szintén túl nagy lenne az apadás üteméhez képest, és az adatsor ugyanúgy lépcsőssé válna.
Ránézésre egyik recessziós görbén se lehet látni törést, de jó gyakorlati érzékkel le lehet választani a felszíni lefolyásból származó árhullámot. Több módszer is van rá a szakirodalomban, árhullám-szeparálásnak hívják (hydrograph separation), de csak elméleti leírások, a gyakorlatban nem működnek.
De amúgy minden apadási görbe ilyen törésmentes:Ugyanakkor az adatsor magában rejti az árhullám szeparálásához szükséges információkat. (Persze nem a JPG kép, amit először csatoltam, hanem maga az adatsor.)
Új hozzászólás Aktív témák
- Legjobb kijelzős! ThinkPad T14s Gen 2 i5-1135G7 16GB 1000GB FHD 1 év garancia
- Bomba ár! HP EliteBook 830 G5 - i5-8G I 8GB I 256GB SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3337
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- DELL PowerEdge R630 rack szerver - 2xE5-2680v4 (28c/ 56t, 2.4/3.3GHz), 128GB RAM, 10G, áfás szla
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest