-
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
-
karlkani
aktív tag
Sziasztok!
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Range("C2:C8"), Target) Is Nothing ThenCells(10, 3).Value = Now()End IfIf Target.Column = 7 ThenApplication.EnableEvents = FalseIf Application.WorksheetFunction.CountA(Range(Target.Address)) = Target.Count ThenRange(Target.Address).Offset(, 1) = DateElseRange(Target.Address).Offset(, -1) = ""Range(Target.Address).Offset(, 1) = ""End IfApplication.EnableEvents = TrueEnd IfEnd SubKészpénzzel történő vásárláshoz használtam a makró második felét. Ha beírtam a G oszlopba, akkor a H-ba bekerült az aktuális dátum. Ha töröltem, akkor az F és H érték is törlődött.
F - megnevezés
G - összeg (kp)
H - dátumBankkártyás vásárlást is beletettem (beszúrtam egy oszlopot az F után). Ezentúl a G vagy H oszlopba kerül az összeg. Hogyan lehet megoldani, ha a G-be kerül, akkor 2 sorral jobbra írja a dátumot (I), ha a H-ba, akkor csak 1 sorral (I) ? Az összeg törlésekor az első sor valamit a dátum is törlődjön.
F - megnevezés
G - összeg (bankkártya)
H - összeg (kp)
I - dátumÍgy nézne ki a dolog.
Előre is köszönöm!
-
-
karlkani
aktív tag
válasz
Fferi50
#49542
üzenetére
Szia!
Azt rögtön kiszúrtam, töröltem... füzetből másolásnál jó, böngészőből nem.
Próbáltam, ott jó a böngészőből kimásolt adat beillesztése, füzetből másolt nem.
Ezért írtam, hogy bárhonnan másolt (böngésző, munkafüzet), majd beillesztett adatnál tartsa meg a cella formátumot. Ha nem lehet egy makróban megoldani, kénytelen leszek kitenni még egy gombot...
-
karlkani
aktív tag
válasz
Fferi50
#49540
üzenetére
Szia!
Sub F_()Range("C1").SelectActiveSheet.PasteRange("A1:B1").SelectSelection.CopyEnd SubEz a "sima". Ha makrórögzítéskor a füzetből másolok-illesztek be, más lesz a makró, mint böngészőből kimásolt, majd a füzetbe beillesztett adatnál. Azok már nincsenek meg.
Amit küldtél hibára fut.
Run-time error '1004':Range osztály PasteSpecial metódusa hibás -
karlkani
aktív tag
Sziasztok!
Van egy gomb kirakva, ami azt csinálja, hogy a C1 cellába beilleszti a ctrl+c-vel másolt tartalmat (böngészőből, munkafüzetből, szöveges dokumentumból, stb.), majd egy másik cellában levő adat végéhez hozzáfűzi és kimásolja vágólapra. Szeretném, ha a cellaformátummal egyező formátumban illesztené be C1-be. Makrórögzítéssel (füzetből másolásnál) a böngészőből másolt nem jó. Ha böngészős adatnál csinálom a makrórögzítést, akkor meg a füzetből másolás-beillesztés nem megy. Meg lehet oldani, hogy akárhonnan másolt adat (lehet hivatkozás is, de csak a szöveg, név kell beillesztésénél) az adott cella formátumot megőrizze (C1)?
Köszönöm!
-
karlkani
aktív tag
válasz
Fferi50
#48127
üzenetére
Ha jól látom, az előzőhöz képest annyi történt, hogy lemaradt a +1, a végeredmény ugyan az...
Eddig én is eljutottam a régivel, csak a végére, a kiterjesztés elé nem sikerül a _valami2-t beilleszteni. Csere funkcióval azt is megoldottam .m3u8 => _valami2.m3u8. Jó lenne, ha egy kattintásra meg lehetne oldani a makró segítségével (egy gombhoz van hozzárendelve).A linkekben elöl is van egy PONT, a _valami2 bekerül a .com elé is...
1*file*https://abcdefg_valami2.com/abc/123456789/valami1/123456789_valami2.m3u8Erre lenne szükség
1*file*https://abcdefg.com/abc/123456789/valami1/123456789_valami2.m3u8#48126 Fire/SOUL/CD
Köszönöm!Elrakom ezt is...
-
#48125
karlkani
aktív tag
Fire/SOUL/CD
#48123
karlkani
aktív tag
válasz
Fire/SOUL/CD
#48123
üzenetére
Vegyél lottószelvényt!
Valóban lehagytam a szöveg végéről a pontot... -
karlkani
aktív tag
válasz
Fferi50
#48121
üzenetére
Sajnos nem jó, ezt kapom...
1*file*https://abcdefg_valami2.com/abc/123456789/valami_123456789_valami2.m3u81*title*1. lista címe2*file*https://abcdefg_valami2.com/abc/23456789/valami_23456789_valami2.m3u82*title*2. lista címe3*file*https://abcdefg_valami2.com/abc/234567890/valami_234567890_valami2.m3u83*title*3. lista címeErre lenne szükség
1*file*https://abcdefg.com/abc/123456789/valami1/123456789_valami2.m3u81*title*1. lista címe2*file*https://abcdefg.com/abc/23456789/valami1/23456789_valami2.m3u82*title*2. lista címe3*file*https://abcdefg.com/abc/234567890/valami1/234567890_valami2.m3u83*title*3. lista címe -
#48122
karlkani
aktív tag
Fire/SOUL/CD
#48120
karlkani
aktív tag
válasz
Fire/SOUL/CD
#48120
üzenetére
Köszönöm!
Az eredetire adatokra nincs szükség, azt kellene módosítani a makrónak. Megcsináltam, lehúztam a képletet végéig (több száz sor), megcsinálta. Aztán visszamentem a modulba, átírtam, amit kell, erre úgy szarrá fagyott az egész gép, hogy öröm volt nézni. Szerencsére bezáródott az excel néhány perccel később. Megnyitottam a füzetet, majd a modult, erre megint 100% a processzorhasználat, a modul fejléce meg villódzik, hogy rohadjon meg...
-
karlkani
aktív tag
Sziasztok!
Adott a következő lejátszási lista, amit módosítani kellene ismét. Itt az eddig használt makró, ezt kellene úgy átírni, hogy ez legyen a végeredmény.
1*file*https://abcdefg.com/abc/123456789/valami1/123456789_valami2.m3u8
1*title*1. lista címe
2*file*https://abcdefg.com/abc/23456789/valami1/23456789_valami2.m3u8
2*title*2. lista címe
3*file*https://abcdefg.com/abc/234567890/valami1/234567890_valami2.m3u8
3*title*3. lista címeA számokat elválasztó / után kerüljön be a valami1 és egy /, a második szám után pedig a _valami2"
* A valami1 és _valami2 minden lista esetén megegyezik,
Előre is köszönöm!
-
karlkani
aktív tag
válasz
Delila_1
#48055
üzenetére
Így már jó, én csak a +36-ot írtam a képletbe, meg bele szerettem volna tenni a hosszt is feltételnek, de a kettő együtt nem működik... gondolom azért van Nálad is két segédoszlop.
#48057 Delila_1 és #48058 lappy
Fura, mert a képleteket bemásolva innen jött a #ÉRTÉK!, kipróbáltam ismét most jó... -
-
#47697
karlkani
aktív tag
Fire/SOUL/CD
#47696
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47696
üzenetére
Tényleg ott van, pedig nem kell...
Köszi!
-
#47695
karlkani
aktív tag
Fire/SOUL/CD
#47694
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47694
üzenetére
Nem ilyen "egyszerű" képletre gondoltam...
Amúgy a végére odatesz egy /-jelet (nem kell, nem nyitja meg a videót). -
#47693
karlkani
aktív tag
Fire/SOUL/CD
#47692
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47692
üzenetére
Köszönöm!
Lehet, hogy változni fog a formátum, épp ezért lenne jó képlettel megoldani. Odáig eljutok, hogy a link elejét kicseréli, meg hozzáteszi a többit a beillesztett tartalomból, de a végéről a fölösleget nem tudom levágni "szépen".
="https://www.filmorias.com/ugras-a-videohoz/"&KÖZÉP($A$3;SZÖVEG.KERES("redirect";$A$3)+9;HOSSZ($A$3)-124)Függvénnyel meg tudom írni a sallangot, amire nincs szükség, csak nem tudom hozzáilleszteni, ezért vonok le 124-et, így az marad, ami kell (jobb lenne összehozni a "sallang" levágását képlettel)
=KÖZÉP($A$3;SZÖVEG.KERES("resz/";$A$3)+4;HOSSZ($A$3)) -
karlkani
aktív tag
Sziasztok!
Egy ideje Firefox-on nem tudom nézni a sorozatokat SorozatBarát-on, bármit csinálok (kiegészítők, meg követés elleni védelem, meg a jó... is kikapcsolom, akkor sem jó), adf.ly visszaszámolás után, újra visszaszámol, nem adja be a videót. Más böngészővel (Edge) jó, de nem akarok két böngészőt futtatni párhuzamosan. A linkeket kézzel módosítom, hogy kihagyjam az adf.ly-t, de kicsit unalmas, így automatizálnám.
Pl.:
http://usfinf.net/rweasy/-1MWFD/2508744/https://www.sorozatbarat.club/video/redirect/Uh5WPexMRzG2Wh561y0cRZIiZn46DDMSOZTIeEyqxkMgww-hodT-ar3ekZPYp0mNgpaW6Uc9Oi1TBuZrduIruEqiVC1QI7idNYldchFHnn9OMQ,,/The_Mandalorian_online_sorozat_02_evad_08_resz/1636265982?rndad=1502020484-1636265982
Ebből a linkből kellene a következőt létrehozni.https://www.filmorias.com/ugras-a-videohoz/Uh5WPexMRzG2Wh561y0cRZIiZn46DDMSOZTIeEyqxkMgww-hodT-ar3ekZPYp0mNgpaW6Uc9Oi1TBuZrduIruEqiVC1QI7idNYldchFHnn9OMQ,,/The_Mandalorian_online_sorozat_02_evad_08_resz/A1 cellába kellene a "nézhető" linknek megjelenni, miután A3 cellába illesztem a vágólap tartalmát.
Előre is köszönöm!
-
karlkani
aktív tag
Sziasztok!
Van egy listám, .m3u8 kiterjesztéssel, ez az A1 cellában van. Szétszedtem, módosítva több csoportba, egy elég ronda képlettel, meg hozzáfűztem, cseréltem, amit kell. Lett 4x30 sornyi adatom, melyeket külön-külön fájlokba (4 darab, .m3u8 kiterjesztéssel) szeretném menteni. A név nem számít, átírom utólag, lehet 1, 2, 3, 4. Az lenne a legjobb, ha egy gombra kattintva létrehozná a listákat. A makrónak úgy kellene kinézni, hogy kiválasztja az A1 cellát, beilleszti a vágólap tartalmát, majd külön-külön fájlokba lementi az A4:A33, A36:A65, A68:A97 és A100:A129 tartományok tartalmát.
Előre is nagyon szépen köszönöm!
-
karlkani
aktív tag
válasz
Delila_1
#45800
üzenetére
Szia!
Igen, ha az F oszlopban levő cellákat törlöm, akkor működik. Ellenben, ha a G oszlopban több cellát kijelölve törlök, ugyan az a hiba, mint amit az előző hozzászólásban írtam (gondolom itt az egyszerre több cellába való bevitel a gond, több cellát kijelölve Ctrl+Enter kombinációval szintén).
If Target = "" ThenEz a sor van "sárgával kitöltve" a hibakeresőre kattintva.Sőt, az új makró utána már egyáltalán nem működik, csak ha bezárom, majd újra nyitom a füzetet.
A vége az lesz, hogy kézzel beírom mindig a dátumot. A törlésre meg kirakok egy gombot, ami az összesítés cella tartalmának értékét másolja G2-be, majd törli az F3:H39 tartomány tartalmát.
Még egyszer köszönöm szépen a segítséget!
-
karlkani
aktív tag
válasz
karlkani
#45798
üzenetére
Azt megoldható, ha egyszerre több cella tartalmát törlöm, akár az egész F2:G39 tartományt (F oszlopban van az aktuális összeghez tartozó megnevezés), akkor ne fusson hibára? Egyesével szépen törli a G oszlop celláit, de többet kijelölve az alábbi hibaüzenetet kapom.
Run-time error: '13':Type mismatch -
karlkani
aktív tag
válasz
karlkani
#45797
üzenetére
Összeraktam a kettőt, úgy néz ki működik.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
If Not Intersect(Target, [G2:G39]) Is Nothing Then
If Target = "" Then
Range(Target.Address).Offset(, 1) = ""
Else
Range(Target.Address).Offset(, 1) = Date
End If
End If
End Sub#45796 Delila_1
Kedves Kati!
Nagyon szépen köszönöm! -
karlkani
aktív tag
válasz
Delila_1
#45796
üzenetére
Szia!
Ezt a hibát kapom, van a lapon már egy általad készített makró, ha azt törlöm akkor lefut.
Compile error:Ambiguous name detected: Worksheet_ChangePrivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
End SubMit kellene átírni, hogy mind a kettő működjön a lapon?
-
-
karlkani
aktív tag
Sziasztok!
Azt hogyan lehet megoldani makróval, ha változik egy cella tartalma, akkor a mellette levőbe kiírja az aktuális dátumot (MA függvény mindig frissül az aktuális dátumra)? Konkrétan az adatok a G2:G39 tartományban vannak, a H2:H39-et kellene kitölteni.
pl.: G2 cellába beírok egy számot (Ft, cellaformázással), akkor H2 cellába írja be 2021.1.17
Ha törlöm a cella tartalmát, akkor a mellette levő is üres legyen. -
-
karlkani
aktív tag
válasz
Fferi50
#45753
üzenetére
Szia!
Ott a minta a kettővel ezelőtti hozzászólásomban. Ha a
https://szöveg/szöveg/szám/szám.m3u8-t beillesztem egy üres lapra, hiperhivatkozásként kerül be, a makró működik. DE nálam így szerepelnek, ahogy előzőleg is leírtam:1*file*https://szöveg/szöveg/szám/szám.m3u8
Nem hivatkozásként jeleníti meg, nem csinál semmit a makró.Itt egy 3 soros minta, nem mintha számítana valamit is.
1*file*https://abcdefg.com/abc/123456789/123456789.m3u81*title*1. lista címe2*file*https://abcdefg.com/abc/23456789/23456789.m3u82*title*2. lista címe3*file*https://abcdefg.com/abc/234567890/234567890.m3u83*title*3. lista címeNem lehet úgy átírni a makrót, hogy sima, mezei szöveg esetén tegye már oda a
valami_-t a két számot elválasztó / jel mögé?Excel 2013
-
karlkani
aktív tag
válasz
Fferi50
#45751
üzenetére
Szia!
Azt rögtön módosítottam (a linkekben amúgy / jel van). Sima szöveget nem módosítja, ha az elejéről törlöm az 1*file* részt, akkor sem. Hivatkozást módosít, de csak a kattinthatókat. Próbáltam, hogy bevittem egyet, majd azt lehúztam ameddig kell, a tartalmat töröltem. Beillesztettem a lejátszási listát, de mivel ott az elején mindnek a 1*file*, stb. így semmi sem történik.
-
karlkani
aktív tag
válasz
Fferi50
#45749
üzenetére
Szia! Sima szöveg. Azt nem írtam (nem gondoltam, hogy számít), minden sor számozott.
1*file*https://szöveg/szöveg/szám/szám.m3u81*title*cím2*file*https://szöveg/szöveg/szám/szám.m3u82*title*cím
Nálam így nem működik. Ha sikerülne átírni, a tartalom visszakerülne a PotPlayer lejátszási listába.Köszönöm!
-
karlkani
aktív tag
Sziasztok!
Adott több száz sornyi adat(
https://szöveg/szöveg/szám/szám.m3u8),amit módosítani szeretnék a következőképpenhttps://szöveg/szöveg/szám/valami_szám.m3u8. A számok a lejátszási listákban eltérnek, karakterszám sem egyforma, de az adott listán belül a szám/szám megegyezik. A valami az egy szó, ami minden listában ugyanaz.Előre is köszönöm!
-
karlkani
aktív tag
Szia!
Majdnem jó, de az Ünnepnapok között nem csak az adott év szerepel, így az összes azonos hónap, hétköznapra eső ünnepnapjait összegzi. Átírtam a következőképp a képletet, látszólag működik is. Jó így?
=SZORZATÖSSZEG((HÉT.NAPJA(Ünnepnapok;11)<6)*(ÉV(Ünnepnapok)=ÉV(C$szám)*(HÓNAP(Ünnepnapok)=HÓNAP(C$szám)))) -
karlkani
aktív tag
Sziasztok!
A hónap napjai egy oszlopban, egymás alatt helyezkednek el (C oszlop). Az ünnepnapok színezése egy másik lap alapján történik, névkezelőben hozzáadva Ünnepnapok néven. Szeretném megszámoltatni az aktuális hónap ünnepeit, DE csak azokat, melyek hétköznapra esnek.
Előre is köszönöm!
-
karlkani
aktív tag
válasz
jackal79
#44653
üzenetére
Szia!
A HA függvény, amit írtam egy logikai vizsgálatot végez, eredményként igaz vagy hamis értéket ad vissza.
=HA(logikai vizsgálat;érték, ha igaz;érték, ha hamis)
A pontosvessző egy elválasztó a képletben (magyar nyelvű excel esetében). A dupla idézőjel pedig azt jelenti, hogy üres.
(#44655) Fferi50
Ki az a Karikari? -
karlkani
aktív tag
válasz
Fferi50
#42839
üzenetére
Az vagyok, csak túl sok minden került a képletbe, s nem tetszett neki...
Csak azért kell a tab elválasztás, hogy átmásolva .txt fájlba átláthatóbb legyen. Szuper a képlet, de nem teljes az öröm. Másolva, majd beillesztve idézőjelek közé teszi az adatokat, ha a tab karakter benne van a cellában. Simán összefűzve, szóközzel elválasztva a két cella tartalma, majd átmásolva jó, de amint bekerül a tab karakter a cellába már nem.Ez legyen a legkevesebb, Notepad++ programban néhány kattintással megoldom.
Köszönöm szépen a segítséget!
-
karlkani
aktív tag
válasz
Fferi50
#42837
üzenetére
Szia!
Ja, így oké, azt hittem elrontottam valamit a képleteddel. Az új képlet nem jó az username esetén (ott marad a végén a
,), mert a végén nem csak a"van, hanem",.Még egy kérdés. Szöveges dokumentumba (.txt) elég hülyén mutat egymás mellett a két adat. Összefűzném őket egy cellába, de nem szóköz lenne az elválasztó, hanem 3 tab. Megoldható?
-
karlkani
aktív tag
Szia!
Köszönöm!
(#42825) Fferi50
Szia!Így már jó, viszont a tisztított adatoknál a felhasználónév előtt ott marad a
"és a végén a",, id után pedig a,. +3-ra növelve az elejéről sikerül eltüntetni a"-t. Hossznál be lehet állítani, hogy -2 karakter legyen, illetve id-nél -1 karakter? -
karlkani
aktív tag
válasz
Fferi50
#42816
üzenetére
Szia!
Az a helyzet, hogy az "id" több szóban is előfordul a keresetteken kívül, így azokat is találatnak jelzi a c oszlopban. Pontos egyezésre kellene keresni ("id").
Köszönöm!
(#42819) ny.janos
Egyelőre ez lett a megoldás."username": "Felhasználónév","id": 123456789,Abban még segíthetnél, hogyan lesz ebből a kívánt érték. Csere képlettel balról sikerül eltávolítani a felesleget, a végekről a ", és , eltávolítása nem megy. Notepad++ megoldotta, de kíváncsi vagyok.
Köszönöm!
-
karlkani
aktív tag
válasz
sztanozs
#42813
üzenetére
Nincs, ezekben a sorokban ennyi szerepel összesen. Egy felhasználónál ~100 sornyi adat van, változó. Az "id" minden esetben előrébb van az "username"-nél, a két adat közötti sorok száma is változó. Valami olyasmi kellene, hogy rákeresni az "id" szóra, majd találat után az adott cellában található számsort kiíratni egy cellába. Utána rákeresni az "username" szóra, a ott található nevet kiíratni az "id" számsorú cella mellé. Következő "id" számsor, az előző alá, mellé az adathalmazban következő "username" mezőben található név.
(#42814) Fferi50
Igen, ilyen sorrend van, az első "id" a 9. sorban van, a hozzá tartozó név a 69. sorban, de mint az előzőben írtam egy-egy felhasználónak nem azonos mennyiségű sora van a szövegben. -
karlkani
aktív tag
Sziasztok!
Adott egy ~150000 soros adathalmaz, ami ~2000 felhasználó adatait tartalmazza. Minden adat külön sorban. Amre szükség lenne, nem egymás után van a szövegben, hanem a mintához hasonló módon.
Minta
........."id": 123456789,........."username": "Felhasználónév",.........A következőt kellene kinyerni a szövegből ("idézőjelek", "," nélkül, ahogy írom):
Felhasználónév 123456789Felhasználónév2 12345678910...Előre is köszönöm!
-
karlkani
aktív tag
-
karlkani
aktív tag
válasz
Fferi50
#42072
üzenetére
Szia!
Értem.
Jól sejted, van egy másik lap, onnan nézi a dátumokat.(#42073) ny.janos
Feltételes formázásnál ez a képlet szerepel:=DARABTELI(Ünnepnapok;$C1)>0(#42076) Delila_1
Ezzel a képlettel működik:=HA(DARABTELI(Ünnepnapok;C2251)>0;DARABTELI(Ünnepnapok;C2251);"")Annak idején segítettél nekem létrehozni ezt a makrót:
Function Orak(tartomany As Range)Dim CV As Range, osszeg As Double, WSD As Worksheet, WF As WorksheetFunctionSet WSD = Sheets("Dátum")Set WF = Application.WorksheetFunctionFor Each CV In tartomanyIf Not IsNumeric(CV) Or CV = "" Then GoTo TovabbIf WF.CountIf(WSD.Columns(4), Cells(CV.Row, "C")) = 0 And _WF.CountIf(WSD.Columns(6), Cells(CV.Row, "C")) = 0 And _WF.Weekday(Cells(CV.Row, "C"), 2) < 6 Or _WF.CountIf(WSD.Columns(2), Cells(CV.Row, "C")) > 0 Then osszeg = osszeg + CVTovabb:NextOrak = osszegEnd FunctionMár többször előfordult, hogy a füzet megnyitásakor az összes olyan cella értéke, ami ezt a makrót használja összegzésre 0-ra módosult. Csak úgy tudtam újraszámoltatni, hogy a cellára álltam, szerkesztőléc, Enter (sok cellánál ez elég macerás), vagy átneveztem a fájlt, vagy töröltem a fájlra vonatkozó bejegyzést a regisztrációs adatbázisból az alábbi helyen.
HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Trusted Documents\TrustRecordsÖtlet?
-
karlkani
aktív tag
válasz
Fferi50
#42066
üzenetére
Szia!
Public Function CountColor(pRange1 As Range, pRange2 As Range) As DoubleApplication.VolatileDim rng As RangeFor Each rng In pRange1If rng.Font.Color = pRange2.Font.Color ThenCountColor = CountColor + 1End IfNextEnd FunctionEzt kellene módosítani (ha lehet egyáltalán...), hogy működjön feltételes formázással módosított betűszín estén.
-
karlkani
aktív tag
válasz
ny.janos
#42063
üzenetére
Háttérszín alapján cellaszám, cellaérték összegzésre találtam makrót. Nekem olyan kellene, ami feltételes formázással módosított betűszínű cellák számát összegezi. A táblában több, feltételes formázással módosított betűszínű cella van, melyek közül csak a piros színűek darabszáma kell. Neten csak olyan makrót találtam, ami abban az esetben működik, ha a betűszín nincs feltételes formázással módosítva.
-
karlkani
aktív tag
(#42005) 3DFan
Nem az enyém, Fferi50 képlete, én csak a tábládhoz igazítottam.Ebédrendeléshez készítettem egy táblázatot. Van egy cellám, ami az aktuális hét, hétfő-péntek dátumát tartalmazza, jelenleg kézzel beírva (10.21-10.25). Készítettem hozzá egy képletet:
=SZÖVEG((MA()-HÉT.NAPJA(MA();3));"h.n.") & "-" & SZÖVEG((MA()-HÉT.NAPJA(MA();16));"h.n.")
Ezt hogyan kellene beírni makróba? -
karlkani
aktív tag
válasz
Fferi50
#42001
üzenetére
Nála ez a helyes képlet:
=ÉS(SOR(A1)=$N$2;OSZLOP(A1)=$O$2)(#42002) Delila_1
A B2 : K11 területre nem jó a képleted, mert ilyenkor az összes találatot kiszínezi, ezt akarja elkerülni.
[ Módosította: Intruder2k5 ]
-
karlkani
aktív tag
válasz
kokokka
#41885
üzenetére
Szívesen. A $ jelet, jeleket úgy is be tudod vinni, hogy megnyomod (akár többször, egymás után) az F4 gombot, miután beírod, vagy kattintasz az adott cellára. A $N$7 azt jelenti, hogy a cella rögzítve van. A betű előtti $ jel az oszlopot, a szám előtti pedig a sort rögzíti. Használható bármelyik forma ($N$7, N$7, $N7), attól függ, mire van épp szükség. Jelen esetben az N$7 is jó, mivel egy oszlopban vannak a cellák.
-
-
#41810
karlkani
aktív tag
szricsi_0917
#41808
karlkani
aktív tag
válasz
szricsi_0917
#41808
üzenetére
Adatsávos formázás így nem fog működni (szerintem). Megoldható, ha van lehetőség segédoszlopot felvenni:
D2=HA(ÜRES(A2);"";C2/A2*100)Ezzel megkapod az aktuális készletet, százalékosan. Adatsávos formázásnál beállítod a D2 cellára a minimum szám 0 és maximum szám 100 értékeket, bejelölöd a csak adatsáv megjelenítés opciót, majd érvényesítéshez=$D$2:$D$500(500 sort írtál)
Ha nem erre gondoltál, akkor...
-
karlkani
aktív tag
Jelszavazással az a gond, hogy program sem kell, hogy törölni lehessen őket. A foci VB alatt letöltöttem egy "minta" táblázatot, néhány dolgot módosítani szerettem volna rajta, de jelszóval védett volt. A megoldást se perc alatt kiguliztam. Addig volt jelszóval védve a munkafüzet, nekem meg lett egy jó kis "menetrendem".
-
karlkani
aktív tag
Sziasztok!
Van egy táblázatom, több, számított eredménnyel, melyek más cellák értékeit szorozzák egy bizonyos százalékértékkel. Többnyire nem egész szám a végeredmény (tizedes jegyek 0-ra állítva, így egész szám jelenik meg). Ezeket szeretném összegezni úgy, hogy a kerekített értékeket adja össze. Nem opció ezeknél a celláknál a
=KEREKÍTÉSfüggvény használata (kizárólag a=cellahivatkozás*xy%használható). Van erre függvény?Előre is köszönöm!
-
-
karlkani
aktív tag
válasz
Delila_1
#29567
üzenetére
Ez gyakorlatilag egy jelenléti ív. A ledolgozott órákat összegzem az általad készített makró segítségével. Eddig ugye a tartományt kézzel jelöltem ki, kihagyva a hétvégi napokat, stb. Most, ugye szín szerint összegzi az órákat, tehát nem kell minden hónapnál ezzel bajlódnom. Ellenben a képlet másolásánál, majd beillesztésénél másik cellába marad a kimásolt képletben szereplő tartomány. Ezt minden esetben módosítani kell, nem oldható meg úgy, mint az egyszerű összeadásnál?
Eszembe jutott még valami. Ebben a tartományban két szín van használatban (3, 33), kézzel állítom be. Ha minden betűszínt a 33-as színkódra állítom, megoldható az, ha az adott cella mellett eggyel balra levő cella betűszíne 36-os színkódú (hétvégi napok), akkor a betűszínt módosítsa 3-as színkódúra? Így ezzel sem kellene foglalkoznom a továbbiakban.
Végül, hogy lett a SumByColor-ból SubMyColor?
-
karlkani
aktív tag
Sziasztok!
Adott egy tartomány, melyben számok szerepelnek, különböző betűszínekkel (folyamatos változnak). Azt kellene megoldani, hogy egy cellában az azonos színűeket számolja össze. Négy betűszín van használatban (3, 7, 33, 36), de ez a makró szempontjából gondolom lényegtelen. A makró, melyet az előző hozzászólásomban linkeltem működik, de mindig ki kell választani egy cellát, ami alapján az azonos színűek értékeit összegzi. Olyasmire lenne szükségem, ahol a tartomány után a ColorIndex-et adnám meg. Valami hasonlót szeretnék, ha megoldható.
=SumByColor(tartomány; ColorIndex)
Előre is köszönöm a segítséget!
-
-
karlkani
aktív tag
válasz
Delila_1
#29326
üzenetére
Szia!
Megcsináltam én is az összefoglaló szerint, majd ezt a kódot bemásoltam.
Sub Ertek_beillesztese()
'Billentyűparancs: Ctrl+e
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End SubElmentettem. Betöltöttem egy munkafüzetet, ahol kipróbálnám a beillesztést, de nem megy.
Runt-time error '1004':
Range osztály PasteSpecial metódusa hibás -
karlkani
aktív tag
válasz
Delila_1
#29088
üzenetére
"Összemixeltem" a két makrót, ez lett belőle.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Long
sor = Target.Row
If Target.Column = 4 Or Target.Column = 8 And Target.Row > 1 Then
Application.EnableEvents = False
If IsNumeric(Cells(sor, "D")) And IsNumeric(Cells(sor, "H")) And Cells(sor, 4) <> "" And Cells(sor, 8) <> "" Then
Cells(sor, "I") = (Cells(sor, "H") - Cells(sor, "D") * 8)
Range(Target.Address).Select
End If
Application.EnableEvents = True
End If
Dim ertek As Double
If Target.Column = 4 Or Target.Column = 8 Then 'D vagy H oszlop
Range("I" & Target.Row).Select
With Range("I" & Target.Row)
On Error Resume Next
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
.Comment.Text Text:=ertek & " Ft/liter"
.Comment.Shape.Select
Selection.AutoSize = True
End With
If IsNumeric(Range("H" & Target.Row)) And _
IsNumeric(Range("I" & Target.Row)) Then
On Error Resume Next
ertek = Round(Range("I" & Target.Row) / Range("D" & Target.Row), 1)
Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"
Range("I" & Target.Row).Comment.Visible = False
End If
Else: Range("I5").Comment.Text Text:=" Ft/liter"
End If
Range(Target.Address).Select
End SubKivettem a 0-t ("0 Ft/liter"), amúgy is egy tizedesjegyre kell kerekítenie, viszont mögé kellene még egy 0 (ha egész szám jön ki, akkor nem). De ha nem megoldható, akkor elég így is. Ezen kívül már csak azt kellene megoldani, ha a D és a H cella értékeket törlöm (mindkettőt), törölje az I értéket, valamint az oda mutató megjegyzést is. Meg gondolom szebben is meg lehet oldani, de én a makróhoz nagyon ***** vagyok...
-
karlkani
aktív tag
válasz
Delila_1
#29088
üzenetére
Nálam ez annyit csinál, hogy beírja az I oszlopba a H-D*8 értékét... ehhez nem kellene makró sem.
Azt szeretném, ha a D és H mezőket kitöltöm, akkor az I-t töltse ki H-D*8 értékkel, majd ugyanoda megjegyzésbe írja be (automatikusan formázottba) az I és a D hányadosát két tizedesjegy pontossággal.Példa
D = 10 liter
H = 3370 Ft
I=> H-D*8=3370-10*8=3290 Ft
majd ide megjegyzésbe => I/D=3290/10=329,90 Ft/liter -
karlkani
aktív tag
Kedves Delila_1!
A múltkor készítettél nekem egy makrót, amivel automatikus méretre állva beírja két szám hányadosát kettő tizedes pontossággal. Kicsit módosítanék rajta. Adott egy H oszlop, amiben az eredeti ár van feltüntetve, az I oszlopban pedig a kedvezménnyel csökkentett ár. Eddig kézzel írtam be mindkettőbe, működik rendesen. Most viszont (mert lusta vagyok) az I-be nem szeretnék beírni kézzel, ott egy Ha függvénnyel vinném be az adatokat. Ezt meg is oldom, nem ezzel van gondom. Ha a D mező üres az aktuális sorban, akkor az I is maradjon üresen, ellenkező esetben meg a cellában a H és D hányadosa jelenjen meg. Ezt végighúzva az I oszlopon azonban megjelenik minden üres sorban levő mezőnél a megjegyzés, amit viszont nem szeretnék. A következő makrót kellene módosítani úgy, hogy csak abban az esetben rendeljen megjegyzést az I cellához, ha a D-be beviszek adatot, s azt is bele kellene még tenni, hogy amikor bekerül a H-ba az összeg, akkor az I-t automatikusan kitöltse a =HA(D="";"";H-D*8) értékkel. Így kidobhatnám a bevitt képletet onnan és nem jelenne meg a megjegyzés se, amíg nem kell neki (gondolom).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ertek As Double
If Target.Column = 4 Or Target.Column = 9 Then 'D vagy I oszlop
Range("I" & Target.Row).Select
With Range("I" & Target.Row)
On Error Resume Next
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
.Comment.Text Text:=ertek & " Ft/liter"
.Comment.Shape.Select
Selection.AutoSize = True
End With
If IsNumeric(Range("D" & Target.Row)) And _
IsNumeric(Range("I" & Target.Row)) Then
On Error Resume Next
ertek = Round(Range("I" & Target.Row) / Range("D" & Target.Row), 1)
Range("I" & Target.Row).Comment.Text Text:=ertek & "0 Ft/liter"
Range("I" & Target.Row).Comment.Visible = False
End If
Else: Range("I5").Comment.Text Text:="0 Ft/liter"
End If
Range(Target.Address).Select
End SubValamint, ha az általad megírt makrót használva pl.: a D értéke 25 (l) az I értéke pedig 10000 (Ft), akkor a megjegyzésben eredményül nem 400 Ft/liter jelenik meg, hanem 4000 Ft/liter. Ezzel lehet valamit kezdeni?
Ha időd engedi, előre is nagyon szépen köszönöm a segítséget...
-
#28996
karlkani
aktív tag
King Unique
#28994
karlkani
aktív tag
válasz
King Unique
#28994
üzenetére
Nézet fülre kattintasz, majd kiválasztod a panelek rögzítése menüpontot. De megoldható úgy is, ha kipakolod a gyorselérési eszköztárra az ablaktábla rögzítése opciót.
-
karlkani
aktív tag
válasz
Delila_1
#28583
üzenetére
Ismételten nagyon szépen köszönöm!
Nem ebben a füzetben kell beállítani, de valóban kettő oszlopról van szó. Átírtam azokra az oszlopokra a makrót, majd az Insert, Module opcióval hozzáadtam. Futtatáskor Run-time error van.
Range(CV.Address).Comment.Shape.Select
Ez a sor "sárgul" be.
-
karlkani
aktív tag
válasz
Delila_1
#28581
üzenetére
Nagyon szépen köszönöm!
I/D-vel számolok. Már csak egy bibi van, a megjegyzés, amit a makró létrehoz állandóan látszik.
Egyébként az megoldható, hogy a megjegyzés automatikus mérettel kerüljön a cellába (makró nélkül), menüből hozzáadva.És egy legutolsó kérdés, ha már ennyire beleástuk magunkat. Adott egy füzet, benne elég sok megjegyzéssel, amit kézzel állítottam "méretre", ezeket valahogy belehetne állítani automatikus méretre, persze csak, ha nem gond.
-
karlkani
aktív tag
válasz
Delila_1
#28579
üzenetére
Köszi!
Az még kivitelezhető, hogy a megjegyzésben a hányados egy tizedesre legyen kerekítve és mögé legyen téve a Ft/liter, valamint a következő sorokra is működjön? Megjegyzést minden egyes cellára nekem kell hozzárendelnem és egyesével végigmenni az automatikus méretre állítással is?
Új hozzászólás Aktív témák
- Yettel topik
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Allegro vélemények - tapasztalatok
- Luck Dragon: Asszociációs játék. :)
- Energiaital topic
- OLED monitor topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Azonnali alaplapos kérdések órája
- Sorozatok
- VoIP - mélyvíz (Asterisk és társai)
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Apple iPhone Xr 64GB piros / ÚJ AKKU/ ÚJ KIJELZŐ / 12 hó jótállás
- Kuriózum: Ozark Trail (amerikai) fejlámpa 600 lumen
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 15 Pro 128GB Black Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4653
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest