- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- DIGI internet
- Windows 11
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Milyen routert?
- Debian GNU/Linux
- Windows 10
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Mesterséges intelligencia topik
-
IT café
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
Topikgazda
válasz tgumis #20207 üzenetére
Automatikusan nem tudod az egyes összetevőket cellán belül formázni. A bevitel után kijelölöd a formázandó részt a cellában, vagy a szerkesztőlécen, és a cellaformázás menüben adod meg a formátumot.
Abban az esetben, ha mindegyik cellában valamilyen szempontból azonos részt akarsz félkövérre formázni, makróval is meg lehet oldani. A szempont lehet pl. az, hogy mindenhol az n-ediktől kezdve akarsz x darab karaktert félkövérre állítani.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #20207 üzenetére
Egy példa arra, hogy az összefűzött adatnál hogy lehet cellán belül formázni:
Sub FormazasCellanBelul()
Dim kezd As Integer, sor As Integer
'Képletek értékké alakítása
Columns(3).Copy
Range("C1").PasteSpecial xlPasteValues
sor = 1
'Formázás
Do While Cells(sor, "C") <> ""
'Kötjel helyének megállapítása
kezd = Application.WorksheetFunction.Search("_", Cells(sor, "C"))
'Kötjel előtti rész színének beállítása
Cells(sor, "C").Characters(Start:=1, Length:=kezd - 1).Font.ColorIndex = 3
'Kötjel utáni rész félkövérre állítása
Cells(sor, "C").Characters(Start:=kezd + 1, Length:=100).Font.Bold = True
sor = sor + 1
Loop
End SubAz összefűzött adatok nálam a C oszlopban vannak. Az adatokat alsó kötjel beiktatásával fűztem össze. Ezeket csak akkor tudom cellán belül formázni, ha a képletek helyett irányított beillesztéssel átalakítom értékekké.
Az alsó kötjel előtti karakterek színét pirosra állítottam, a kötjel utániak félkövérek lesznek.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #20219 üzenetére
Ahhoz, hogy cellán belül más-más formátumot adhass az egyes összetevőknek, a képlet helyett a cella értékét kell beillesztened – vagy a képlet cellájába, vagy egy másikba, és ezt az értéket formázhatod.
Az érték beillesztése: a képletet tartalmazó cellán állsz, másolod. Ezután vagy maradsz a kijelölt cellán, vagy egy másik helyre állsz, oda, ahol az értéket létre akarod hozni. Ezen a cellán jobb klikk, irányított beillesztés, értéket. Létrejött a fix értéket, nem képletet tartalmazó cella.
A cellán állva a szerkesztőlécen kijelölöd a példa szerinti kék szót, kékre állítod a karakter színét. Kijelölöd a következő formázni kívánt részt a szerkesztőlécen, végrehajtod a formázást, Enter.
Amit írtam, az egy makró, ami automatizálja több cella azonos formázását. Ezt abban az esetben tudja végrehajtani, ha a cellák tartalma valamilyen azonos tulajdonsággal rendelkezik, például mindegyik tartalmaz egy alsó kötjelet, és az ettől balra, ill. jobbra eső résznek kell eltérő formátumot adni. A makró a képletek értékké alakításával indul.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #21945 üzenetére
Sub Kijeloles()
Range("A1").Select
Selection.CurrentRegion.Select
End SubAz A1 helyére a saját tartományod bal felső sarkának a címét írd be.
A 2. kérdésre csak a füzeted ismeretében (vagy akkor sem) lehet választ adni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #21947 üzenetére
Nézz körül itt, ha a számot szöveggé akarod alakítani egy függvénnyel.
A másikhoz a füzetedet kellene látni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #21952 üzenetére
Legjobb, ha itt a fórumon rákeresel a personal szóra, ahol (több helyen) le van írva a létrehozásának a módja. Megtalálod ezekben a bemásolás módját is. A hivatkozott hsz alján meg ott van a felhasználás módja.
Lényeges: a hsz tetején virít, hogy nem én írtam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
válasz tgumis #22000 üzenetére
Hát ezt elvileg ha van az összesítő táblázatban dátum akkor egy kimutatással vagy kimutatás diagrammal és egy idősor beszúrásával egyszerűen meg lehet oldani ha újabb excelt használsz. Azthiszem Pivot a hivatalos megnevezése....
A képletes megoldást másra hagyom... de én tuti kimutatással csinálnám még ha ehhez teljesen át kéne strukturálnom az egész munkafüzetet, mivel százszor egyszerűbb mint sok képlettel elérni ugyan azt.
-
Delila_1
Topikgazda
válasz tgumis #22000 üzenetére
Az Összesítés lap A1 cellája az első-, az A2 az utolsó hónap, amit összesíteni akarsz.
Legegyszerűbb, ha minden lapon egy cellában összesíted az aznapi eladásokat. Legyen ez a példában az N1 cella. Ha a bevételeid a D oszlopban vannak, akkor az N1 képlete =SZUM(D:D).A makró az Összesítés lap B4 cellájába írja be a beírt lapok összbevételét.
Sub Osszesen()
Dim lap%, elso%, ucso%, osszes As Long
elso% = Sheets("Összesítés").Range("A1")
ucso% = Sheets("Összesítés").Range("A2")
For lap% = elso% To ucso%
osszes = osszes + Sheets(lap%).Range("N1")
Next
Sheets("Összesítés").Range("B4") = osszes
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
alfa20
senior tag
válasz tgumis #22027 üzenetére
A personal.xlsb-nek pont az lenne a lényege, hogy saját makrók tudj futtatni az Excel indításával és azért rejtett, hogy ne zavarjon.
Elérni, szerkeszteni az ALT+F11-el tudod.
Ha másik gépen is szeretnéd az ebben lévő makrókat futtatni, akkor a legegyszerűbb módja, ha készítesz egy makróbarát munkafüzetet, abba átmásolod a makrókat, és azt küldöd el másik gépre.Ha meg akarsz tőle szabadulni, akkor innen kell törölni:
c:\Users\*****\AppData\Roaming\Microsoft\Excel\Xlstart\Win7 esetében!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
-
lappy
őstag
válasz tgumis #22180 üzenetére
Nagy M betűvel írja, hogy megkülönböztesse a perctől (m).
M: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0 (nulla) nélkül. Július esetében például: 7.
MM: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0-val. Július esetében például: 07.
MMM: Ez a formátumelem rövidítésként jeleníti meg a hónapneveket, július esetében például: júl.
MMMM: Ez a formátumelem teljes névvel jeleníti meg a hónapokat.Bámulatos hol tart már a tudomány!
-
slashing
senior tag
válasz tgumis #22729 üzenetére
fkeresel először megkeresteted a napi fogyást azt megszorzod a sárga táblázat kiszabat értékével szintén fkeres és visszaosztod a rózsaszín egységtömegével. De ahogy elnézem ehhez kéne a rózsaszín táblázatba egy olyan oszlop ami mindkettő segédtáblázatban benne van. De így még mindig nem fogod tudni követni hogy melyik nap lett új egység kinyitva...
de ezt csak így elméletben anélkül hogy kipróbáltam volna.....
[ Szerkesztve ]
-
slashing
senior tag
-
Fferi50
őstag
válasz tgumis #22749 üzenetére
Szia!
Ha pontos egyezést keresel, akkor nem kell sorbarendezni Fkeres számára és a Hol.van számára sem, csak akkor kell a sorbarendezés, ha kisebb-nagyobb keresést szeretnél.
Ezért szerintem az előző hozzászólás szerinti képletben a HAMIS kell az fkeres utolsó paraméteréhez és nem IGAZ.
Üdv.
-
-
Fferi50
őstag
válasz tgumis #22932 üzenetére
Szia!
Menjünk sorba:
" irányított beillesztésre létrehozott makró ne mindig oda illesszen be ahol a makró rögzítésekor tette"
Ehhez látni kellene a makrót.
Billentyűkombináció megváltoztatása: Fejlesztőeszközök - Makrók - ráállsz a makróra és utána egyebek.
Ikon elhelyezése: Excel 2010-ben.
Beállítások - Menüszalag testreszabása - a választható parancsok helye - makrók. Utána a jobb oldalon létrehozol egy saját menüpontot és ide hozzáadhatod a makródat.Üdv.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz tgumis #22932 üzenetére
Másolod az adatokat (Ctrl+c), a másolandó hely bal felső cellájára állsz, és indítod a makrót.
Sub Ertek_beillesztese()
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #22980 üzenetére
Kiteszed a vigyorit, nem zárod be a testreszabás ablakot.
A kitett ikonon jobb klikk.
Nevet adhatsz, ahol az & jel utáni karakterrel billentyűzetről is meghívhatod a hozzá rendelt makrót (nem ajánlom, mert esetleg felülírsz vele az Excel által használt billentyűkombinációt).Megváltoztathatod a gombképet. Makrót, vagy hivatkozást rendelhetsz hozzá. Meghatározhatod, hogy képet, szöveget, vagy mindkettőt meg akarod-e jeleníteni. Gombképet másolhatsz hozzá más ikonról. A Csoportkezdet az eszköztáron külön csoportba helyezi az ikont.
Még mindig megnyitott a Testreszabás ablak. Egy menüpontra klikkelve (bal gombbal) lenyílik a menü, és oda húzhatod a vigyori fejet, amit kedved szerint módosíthatsz a fent leírtak szerint.
Almenüt a Testreszabás Parancsok fülön az Új menü gombbal húzhatsz fel a kiválasztott menübe.
Ez az ikonos-gombos rész jobb, mint a későbbi verziókban. Azokban csak a fejlesztők által megrajzolt – nagyon szép, de a makró funkcióját nem tükröző – rajzokat rendelhetsz a kitett gombokhoz. Az is jó, hogy almenüket hozhatsz létre könnyedén.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #23036 üzenetére
Rossz hír, hogy a képlettel beírt szöveget nem lehet részenként formázni, csak azt, ahova a képlettel összehozott szöveget értékként beilleszted. Erre alkalmazhatsz egy kis makrót, ami az A11-ben összefűzött szöveget az A13-ba illeszti be. Ebből a makróból indíthatod a formázást.
Sub Beilleszt()
Range("A11").Copy
Range("A13").PasteSpecial xlPasteValues
Forma
End SubSub Forma()
Dim start As Integer, hossz As Integer, szin As Integer, felk As Boolean
Dim meret As Integer
With Cells(13, 1).Characters.Font
.Name = "Arial"
.ColorIndex = 0
.Size = 10
.Bold = False
End With
start = 1: hossz = Len(Range("A1")): meret = 18: szin = 3: felk = True: GoSub Szinez
start = start + hossz + 1: hossz = Len(Range("A2")) + 1 + Len(Range("A3")) + Len(Range("A4"))
meret = 14: szin = 0: felk = True: GoSub Szinez
Exit Sub
Szinez:
With Cells(13, 1).Characters(start:=start, Length:=hossz).Font
.ColorIndex = szin
.Size = meret
.Bold = felk
End With
Return
End SubAzt azért megnézném, ahogy a lapát nyelével felásol egy területet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz tgumis #23043 üzenetére
Sosem értem, hogy a pontos feladat leírása helyett miért példálóztok.
Ha konkrétan megírnád, melyik az összefűzött cella, felsorolnád az összefűzendő cellák címét, és azt, hogy azok közül a harmadik a dátum, az ötödik pedig a kiszámított összeg, személyre szabott makrót kapnál.
Így viszont a makró tanulmányozásával valószínűleg tanulsz, és az is hasznos dolog.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz tgumis #23102 üzenetére
Szia!
Segítséget jelenthet az adatbevitelben az adatok érvényesítés - lista - lista forrása CR1:CR21
Ezután amelyik cellára ezt megadtad, ott egy legördülő listából választhatsz, nem kell beírnod semmit. Ha a forrást rendezed, akkor könnyebb lesz a keresés.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #23104 üzenetére
Szia!
Tervező módban:
Tegyél fel egy combobox activexvezérlőt a munkalapra, a listfillrange a listát címe.
A matchentry tulajdonságot állítsd 1-fmmatchentrycomplete értékre
Így amint elkezded begépelni az értéket, a mejelenő lista szűkülni fog.
Hozzákötheted egy cellához (linked cell), ahonnan kimásolhatod az értéket.
Ha kilépsz a tervező módból látod a listádat és választhatsz belőle, amint rákattintottál, megjelenik az értéke a hozzákötött cellában.Üdv.
-
Fferi50
őstag
válasz tgumis #23112 üzenetére
Szia!
Tettem fel ide egy kis példát. A combobox forrása az A2:A48 cellákban található. Hozzá van kapcsolva az F1 cellához.
Amikor elkezdesz gépelni valamit, akkor a megfelelő értékek automatikusan töltődnek, ha lehúzod a legördülő listát, onnan kezdődnek a választható értékek. Kiválasztod enterrel, majd kijelölsz egy cellát és rákattintasz. Ebbe a cellába automatikusan beíródik a combo (és az F1 cella) értéke.Remélem, segít neked ez a dolog.
Van még egy kikommentelt része is, ott a B oszlopot tölti folyamatosan, függetlenül attól, hogy hova kattintottál el a comboboxról.
Üdv.
[ Szerkesztve ]
-
bteebi
veterán
válasz tgumis #23494 üzenetére
Át kell írnod a file elérési útvonalát. Ctrl+H → Egyebek → Hatókör: Munkafüzet (esetleg a "Listába mind" is legyen bepipálva, és akkor láthatod, hogy hol vannak ilyen hivatkozások), és a megfelelő részt (a file elérési útvonalát) kicseréled. Keress szögletes zárójelre vagy \-re, az biztosan lesz benne.
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
válasz tgumis #23657 üzenetére
Sub IsmTorl()
Dim sor As Integer
sorM = 2
Range("D2:D700") = "=IF(COUNTIF(C2:C$2,C2)=1,C2,"""")"
For sor = 700 To 2 Step -1
If Len(Cells(sor, 4)) < 1 Then Cells(sor, 4).Delete shift:=xlUp
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz tgumis #23657 üzenetére
Szia!
Excel 2007- ben adatok speciális szűrő, Excel 2003-ban adatok, irányított szűrő (makróban advancedfilter metódus.
Ha a c1 cellába tettél egy fejlécet, akkor az irányított/speciális szűrő párbeszéd paneljében csak azt kell beállítanod, hogy C1:C700 az adattartomány, C1 a szűrőtartomány, helyezze át máshova, ide beírod a D1-t, és bejelölöd a csak az egyedi értékeket.Makróval:
range("C1:C700").advancedfilter action:=xlfiltercopy, criteriarange:=range("C1"),unique:=true,copytorange:=range("D1")Ennyi az egész.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #23669 üzenetére
Szia!
Az advanced filternél FONTOS: a szűrni kívánt oszlop első cellája legyen fejléc!!!. Ezért viszi be neked a legelső értéket 2x, mivel azt tekinti fejlécnek. (Anno a fejléc szükségességét jeleztem a hsz-ban.)
Tehát Te is tekintsd a D1 cella értékét "fejlécnek". Ha ezzel együtt tudsz élni, akkor nem kell csinálnod semmit....(bár arra figyelni kell, ha csak egy olyan adat van, mint a fejléc, akkor viszont nem lesz 2x az értéke.)Üdv.
-
Fferi50
őstag
válasz tgumis #23693 üzenetére
Szia!
Természetesen megy 2003-as excelen is.
A fejlécnek a szűrni kivánt adatok (nálad oszlop) első cellájának kell lennie (azért fejléc), nem lehet máshol.
A feltételt teheted máshová is, akkor annak a cellának a címét kell beirni a criterirange paraméter után, az lehet akár a cél cella is. DE: a szűrendő adatok fejlécének meg kell egyeznie a kritériumcellák fejlécével.
Nézd meg lsz. a magyar help-et az excel irányított szűrőre.Üdv.
Új hozzászólás Aktív témák
- Gaming notebook topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- PlayStation 5
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Luck Dragon: Asszociációs játék. :)
- BestBuy topik
- Projektor topic
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Xiaomi Mi 11 Ultra - Circus Maximus
- Itt az első kép a 2024-es Nokia 3210-ről
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!