-
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
-
-
Delila_1
veterán
válasz
DeFranco
#34802
üzenetére
Sajnos pigster tömbképlete csak abban az esetben adja a találatok számát, ha az összehasonlítandó 2×5 szám közül az egyezőek azonos helyen szerepelnek, pl. mindegyik sorban a 3. helyen.
Egy halom segédoszloppal makró nélkül is láthatod, az 5 szelvényed melyik számát melyik héten húzták ki. A megtett számok az R1:AT1 tartományban vannak.
-
#34796
Delila_1
veterán
lostprophet
#34795
Delila_1
veterán
válasz
lostprophet
#34795
üzenetére
2016-osban a Power Query-vel megoldható. Ezt tedd:
1. Adj címsort (ha nincs) az oszlopodnak, ahol a hosszú szövegeid vannak. Jelöld ki az oszlopot.
2. Adatok, a Beolvasás és átalakítás csoportban kattints a Táblázatból ikonra.
3. Kezdőlap | Oszlop felosztása | Elválasztó alapján menüpont.
4. Az Elválasztó kiválasztása vagy beírása rovatban az alsót (- Egyéni -) jelöld be, mire megjelenik alatta egy beviteli mező. Ebbe írd be az elején és a végén a szóközökkel a " -- LINE BREAK -- " szöveget, de nem kellenek az idézőjelek. Azokat csak azért írtam ide, hogy látsszanak a szóközök. A Felosztásnál az alsó opció legyen kiválasztva, OK.
5. kész is van, Bezárás és betöltés.Létrejött egy új munkalap, rajta felosztva mondatonként a celláid tartalma, de nem egymás alá, hanem egymás mellé. Ha az eredeti lapon új sort veszel fel, át kell lépned az új lapra. Jobb oldalon látszik a Táblázat1 cím, ezen jobb klikk, Frissítés, és máris megjelennek az új sorok mondatonként új oszlopokban. Tehát csak egyszer kell megadni a felosztási szempontokat, bővülő adatok esetén már csak frissíteni kell 1 kattintással.
Ha ez megfelel, akkor már egy Excel makróval össze lehet hozni, hogy a mondatok egymás alatt legyenek.
-
#34787
Delila_1
veterán
Juditta_56
#34786
Delila_1
veterán
válasz
Juditta_56
#34786
üzenetére
Lehet, hogy a kötjel előtt is előfordul a "0,5", vagy az "1" érték.
-
Delila_1
veterán
válasz
joysefke
#34769
üzenetére
A listaelemeket tartalmazó tartománynak legyen címsora. Alakítsd át táblázattá (beszúrás, táblázat rovatfejekkel). Jelöld ki az elemeit a rovatfej nélkül, és ennek a tartománynak adj nevet.
Az érvényesítésnél a forrás rovatban állva F3-ra megjelennek a füzetedben lévő elnevezett tartományok, ezekből kiválasztod a mostanit. Az érvényesítés követni fogja a tartomány bővítését, szűkítését.
-
#34712
Delila_1
veterán
Gravity1234
#34711
Delila_1
veterán
válasz
Gravity1234
#34711
üzenetére
Ha If-fel összehoztad, az 1 vagy 0 érték helyett 079-es kódú karaktert írj (bal Alt, + a számbillentyűzeten 079, az idézőjelen belül), és a betűtip. legyen Wingdings. Ez egy zászlócska.
-
-
Delila_1
veterán
válasz
joeetm
#34677
üzenetére
Laphoz rendelt makróval is megoldható.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ido As String
If Target.Column = 1 And IsNumeric(Target) Then
Application.EnableEvents = False
If Len(Target) < 6 Then ido = Right("000000" & Target, 6) Else ido = Target
ido = Left(ido, 2) & ":" & Mid(ido, 3, 2) & ":" & Right(ido, 2)
Range(Target.Address) = Format(CDate(ido), "hh:mm:ss")
Application.EnableEvents = True
End If
End SubEz az A oszlopba beírt értékeket (Target.Column=1) alakítja át idő formátumra.
Nem kell beírni az időérték elején lévő nullákat. Pl. 0:00:12-nél elég a 12; 0:20:18-nál 2018. -
Delila_1
veterán
Leszögezem: szerintem is sok esetben jól alkalmazható a Power Query.
A hsz-eddel csupán egy ici-pici, halvány ellenérzésem van, nevezetesen, hogy a kérdések zöméből kitetszik, még nem rendelkeznek a 2016-os verzióval. Természetesen az ő hibájuk, ha nem telik rá, vagy a cégük nem hajlandó megvásárolni. Míg létezik ez a csökevényes kisebbség, kérlek, engedd meg, hogy az ő szintjükön válaszoljunk nekik.
"... a baj, hogy a felhasználók többsége - akik nem lettek külön betanítva és átnevelve ..."
Célszerű lenne Kína mintájára átnevelő táborokat létesíteni."... leírom ugyanennek Excel 2016-os megoldását is (és ezt mostantól minden esetben meg fogom tenni, ... amíg rá nem szokik a felhasználók többsége az új funkciók használatára )"
A zemberek imádják a felülről jövő gyengéd erőszakot. Szóval hajrá! -
Delila_1
veterán
A feltételes formázás valamiért nem fogadja el a Weeknum függvényt.
Azért van megoldás. A lapon a használatban lévő területen kívül egy cellába beírod az aktuális hét számát: =WEEKNUM(MA();2)A feltételes formázás erre a cellára mutasson. Nálam a hetek száma az A oszlopban van, A1 kezdettel. A képletet tartalmazó cella a C2. A feltételes formázás képlete: =A1=$C$2
-
Delila_1
veterán
Az eredeti képen az Edzésnapló lap D:G tartományában szerintem csak látszólagos a cellák összevonása. Sajnos a sorazonosítók alig látszanak, de a bevitt adatok erre utalnak. A márc. 8-as és márc. 14-es dátumoknál látszik ez jobban, ahol 1-1 adat van a G, ill. az F oszlopban.
-
Delila_1
veterán
válasz
joysefke
#34445
üzenetére
Nem kell a képlet. A nullákat, ill. üres cellákat tartalmazó oszlop alapján elkészíted a diagramot. Kijelölöd az oszlopokhoz tartozó értékeket, majd kiválasztod a nullás értéket, és a Del gombbal törlöd. A többi hiányzó értéknél is így járj el.
FONTOS: nem duplaklikk a 0-s értéken, hanem először az összeset, majd az 1 oszlophoz tartozót kell kijelölni, törölni.
-
#34440
Delila_1
veterán
kőbaltazár
#34439
Delila_1
veterán
válasz
kőbaltazár
#34439
üzenetére
Szívesen.
A Téma összefoglaló alján találsz 2 linket, amik segítenek a VBA megismerésében.
-
#34438
Delila_1
veterán
kőbaltazár
#34437
Delila_1
veterán
válasz
kőbaltazár
#34437
üzenetére
Majd ezzel megoldódik a több adat együttes bevitele:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Object
If Target.Column = 1 Then
Application.EnableEvents = False
For Each FN In Range(Target.Address)
FN.Value = UCase(FN.Value)
Next
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
válasz
.Farkas.
#34433
üzenetére
Function Kep(Kepneve As Range)
Dim FN
Const utvonal = "D:\Képek\Személyek\" '************************
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & Kepneve & ".jpg")
Application.EnableEvents = False
If FN = "" Then Kep = "Nincs kép" Else Kep = "Van"
Application.EnableEvents = True
End FunctionA csillagozott sorban a saját útvonaladat add meg. A végén legyen backflash, ahogy a makróban látod.
A B1 cella képlete =Kep(A1), ezt másolhatod lefelé.Modulba másold a makrót!
-
#34432
Delila_1
veterán
kőbaltazár
#34431
Delila_1
veterán
válasz
kőbaltazár
#34431
üzenetére
A Téma összefoglalóban megtalálod a leírását.
-
Delila_1
veterán
válasz
konyi79
#34381
üzenetére
=ÉS(DARABTELI(C11:C15;"E")=1;DARABTELI(C11:C15;"N")=1;DARABTELI(C17:C21;"E")=1;DARABTELI(C17:C21;"N")=1)Remélem, így gondoltad, mert most el kell mennem. Ha más a feladat, lesz, aki válaszoljon.
A tartományok beírásánál használd a Konvertálatlan gombot, másképp látod, mi lesz belőle!
-
#34378
Delila_1
veterán
kőbaltazár
#34377
Delila_1
veterán
válasz
kőbaltazár
#34377
üzenetére
Hogyne! CapsLock
A laphoz rendeld a makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub -
#34373
Delila_1
veterán
kőbaltazár
#34372
Delila_1
veterán
válasz
kőbaltazár
#34372
üzenetére
B1-be: =NAGYBETŰS(A1)
Ezt a képletet lemásolod az A oszlop összes adata mellé, majd a B oszlopot kijelölöd, Ctrl+c-vel másolod. Beállsz az A1 cellába, jobb klikk, Irányított beillesztés, Értéket.
Törölheted a B oszlopot.
-
Delila_1
veterán
válasz
föccer
#34346
üzenetére
Az INDIREKT helyett jó lenne az INDEX - HOL.VAN párost alkalmazni.
Vannak un. volatilis függvények, amik a lapra bevitt, vagy onnan törölt adatok esetén újraszámolódnak. Sok ilyen jellegű függvény jelentősen lelassítja a számolást.
Volatilis függvények pl.: most, ma, rand, randbetween, vél, ofszet, indirekt, info, cella (attól függően, mi a tartalma).
=indirekt(tartomány_amiben_keresel; sor; oszlop)
A sort megtalálod a hol.van függvénnyel.
A segédoszlop is elkerülhető, ha a keresési érték szám & "" (üres string).
-
Delila_1
veterán
válasz
tgumis
#34325
üzenetére
Nekem is ez a bánatom, hogy a kb. 180 választható ikon közül egyik sem adja vissza a saját makróim lényegét.
Valahol olvastam, hogy ehhez le kell tölteni egy alkalmazást. Úgy döntöttem, inkább megjegyzem, hogy pl. a karakterek és hátterek színének lekérdezéséhez a színes pillangó ikont rendeltem.
-
Delila_1
veterán
-
Delila_1
veterán
A HA(HIBÁS(...) függvénynél mindhárom oszlopra üres stringet adj meg. A Munka1 lap E2:H2 címsorába tegyél autoszűrőt, akkor az F; G; vagy H oszlop bármelyikét szűrheted úgy, hogy az üreseket kihagyod, és máris egymás alatt vannak a felhasználandó alapanyagok.
Érdemes a Munka2 lapra olyan mértékegységgel felvinni az összetevőket, amilyennel a felszorzás után szeretnéd látni. Pl. ha 1 termékhez x gramm cucc kell, és várhatóan 1000 db-ot gyártasz, akkor kg-ban add meg a segédtáblában.
A Munka1 E oszlopába folyamatosan vidd fel az összes termék alapanyagait. 2007-es verzióban használhatod az Ismétlődések eltávolítása funkciót, régebbiben egy rendezés után kigyomlálhatod a duplikációkat. Vagy az =darabteli(E:E;E3) képlettel viszel fel ideiglenesen egy oszlopot, szűröd az 1-nél nagyobbakra, majd törlöd a szűrt sorokat.
-
Delila_1
veterán
A VBE-ben a ThisWorkbook laphoz rendeld ezt a "komoly program"-ot.
Private Sub Workbook_Open()
Sheets(1).Range("A" & Sheets(1).Range("A1").End(xlDown).Row + 1).Select
End SubMegnyitáskor a füzet első lapján, az A oszlop első üres cellájára áll. Makróbarátként kell menteni a füzetet.
Van ennél egyszerűbb, makrómentes megoldás is. A lapon bárhol állva a Ctrl + Home gomb az A1 cellára áll, ahonnan a Ctrl + le nyíl az A oszlopban lévő alsó sorra ugrik – folyamatosan bevitt adatoknál.
Abban az esetben, ha panelrögzítés van a lapon, a Ctrl + Home a rögzítés helyére visz.
-
Delila_1
veterán
-
-
Delila_1
veterán
válasz
Krogoth
#34227
üzenetére
Az Excel megengedi, de nem tudja 100%-osan kezelni az összevont cellákat.
Az adatokat nem olyan táblázatos formában tárolja, ahogy a lapokon látjuk.
Úgy tudod elképzelni, hogy folyamatosan, egyetlen sorban helyezi el az adatokat. Az azonos sorban lévő cellák adatai pontosvesszővel választja el, az egyes sorokat enterrel.2007-es verziótól kezdődően a hosszú sorban van 16.384 adat pontosvesszővel elválasztva, majd jön egy Enter jel, és a következő 16.384 megint pontosvesszős elválasztással. Na most gondold el, milyen zavarba hozod szegényt, ha összevonod mondjuk a D3:D6 tartományt!
-
Delila_1
veterán
Egy másik lapra beviszed a neveket, ahogy a képen látod. Az A1-ben állva táblázattá alakítod. Kijelölöd az A2:A14 tartományt, majd ahol a képen most Táblázat3 látszik, beírsz egy nevet, pl. Vevők, Enter.
Az eredeti táblázat A2 celláján állva Adatok | Érvényesítés menüpont, Beállítások fül. Megengedve: Lista. A Forrás mezőben állva F3-ra előjön(nek) az elnevezett tartomány(ok), rákattintasz a Vevők névre, OK. Ezt másolod a többi sorba.
Ha az eredeti táblában nem a név az első oszlop, hanem pl. a dátum, akkor újabb sor bevitelénél az érvényesítés is másolódik, nem kell külön foglalkozni vele.
Szerk.: létezik Genovéva női keresztnév.
-
Delila_1
veterán
Dehogy fizetsz ilyesmiért!
Elég hozzá egy régebbi Excel is. A SZUMHA függvény először a 2007-es verzióban jelent meg.
Az első adatsor (A2:C2) bevitele után táblázattá alakítod az A1:D2 tartományt, majd a D oszlopba beírod a megjegyzésben látható képletet. Ez minden egyes vevőnél az eddig elköltött összeget adja. A képen kiemeltem 2 vevőt, ellenőrizheted az összegeket.
Az egyes oszlopokat szűrheted. Pl. megnézheted egy kiválasztott vevő vásárlásait, vagy a dátumok szerint-, esetleg a költött összegek szerint szűrhetsz.
-
Delila_1
veterán
válasz
samfishR
#34177
üzenetére
Modulba tedd a lenti makrót.
Sub Beszuras()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, 3) <> Cells(sor - 1, 3) Then
Rows(sor).EntireRow.Insert
Cells(sor, 1) = Cells(sor - 1, 1)
Cells(sor, 2) = Cells(sor - 1, 2) + TimeValue("0:0:1")
Cells(sor, 3) = Cells(sor - 1, 3)
End If
Next
End SubDr V és Roxy27: szívesen.
-
Delila_1
veterán
válasz
Roxy27
#34166
üzenetére
Feltöltöttem ide egy fájlt.
A Munka1 lap E2 és F2 cellájában választhatod ki a két lapot. A lapok nevét a H oszlop tartalmazza egy bővíthető táblázatban. Az érvényesítés forrása a Lapnevek tartomány.
Az E2-ben kiválasztott lapnév A oszlopa a laphoz rendelt makró hatására a Munka1 lap A-oszlopába kerül, az F2-é pedig a C-be. A bemásolás előtt az előző A, ill. C oszlop tartalma törlődik.
A feltételes formázást add meg az A és C oszlopra.
-
-
Delila_1
veterán
válasz
#25712384
#34143
üzenetére
A lenti rövid kis makrót másold be egy modulba, ezzel hamar létrehozhatod a beszúrásokat.
Sub OszlopBeszuras()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 2 Step -1
Columns(oszlop).EntireColumn.Insert
Next
End Sub -
Delila_1
veterán
-
Delila_1
veterán
válasz
tzimash
#34065
üzenetére
Hol vannak a data lapon az adatok, ahol keresni kell?
Hova másolja a talált számokat?Mi az a választható "SMT 13"?
Kicsit részletesebb magyarázat kellene erre: "a megadott sor-nak a száma 1-13 lehet, ez kitöltetlen nem maradhat." Befolyásolja ez a keresést, vagy csak kötelező legyen kiválasztani egy értéket?
, én tettem bele. A hetenkénti összegzéshez kell.
Új hozzászólás Aktív témák
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- ::::: HATALMAS LEÁRAZÁSOK! I JOGTISZTA MICROSOFT TERMÉKEK I 27%-OS ÁFÁS SZÁMLA I 10 ÉV GARANCIA ::::
- Antivírus szoftverek, VPN
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Autós kamera eladó
- Apple iPhone 8 64GB Fekete 1 év Garancia Beszámítás Házhozszállítás
- BESZÁMÍTÁS! ASROCK B650M R7 7700 32GB DDR5 1TB SSD RX 6900XT 16GB Zalman Z1 PLUS Seasonic 750W
- Macbook Air M2 15" 8GB 256GB 100%
- magyar billentyűzet - 162 - 163 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi