Hirdetés
-
A személyre szabott reklám lehet a streaming következő slágere
it A jobb célzott hirdetések érdekében adatplatformot indít a Warner Bros Discovery.
-
Konzolokra is megjelenik a Deathbound
gp A PC-s verzió mellett megkapjuk a teljes kiadást PlayStation és Xbox platformokra is.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Mobilarena
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 mimi_bacsi #4199 üzenetére
Láttam a kérdést, de nem tudtam kihámozni, melyik esetben miből kell levonni a két szám összegét. A 32/31-nél mindkét szám nagyobb 30-nál, a 822/2 esetében csak a 822.
Szóval pontosítsd a kérdést.Igaza van Fire-nek, a képleteket Ctrl+c, és Ctrl+v segítségével vidd be az Excelbe. A kézi beírásnál lemaradhatott a képletek végéről a dupla idézőjel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mimi_bacsi
tag
válasz Delila_1 #4201 üzenetére
Szia Delila_1, Fire!
A páros, a dőlt vonallal ketté kellene választani az egy cellába került számokat. Vannak olyan számok, amelyek kevesebbek (12/14) és vannak olyan számok, amelyek teljesen vagy részben nagyobbak (882/2) a szétbontandó 30/30-as számoknál! Abban az esetben, ha nagyobb az egyik szám, mint 30, akkor ha lehet ne írjon semmit, ha kevesebb, akkor annyi legyen a cellában, amennyivel elérjük a 30-at! (pl: 27, akkor 3)
-
Delila_1
Topikgazda
válasz mimi_bacsi #4202 üzenetére
Szia Mimi_bácsi!
Te is rendesen belekavarodtál! A #4199-es kérdésedben 60-ig kellett volna kiírni a különbséget, most meg 30-ig.
A két lenti képlet eredménye A1-ben: ha az F1-ben szereplő tört számlálójában vagy nevezőjében szereplő érték nagyobb 30-nál, akkor az A1-ben üres string (látszólag semmi) jelenik meg. Amennyiben mindkét érték kisebb 30-nál, akkor 60 mínusz a nevező szerepel itt.
A B1 cellában üres string lesz, ha az F1 bármelyik értéke nagyobb, mint 30. Ha mindegyik kisebb 30-nál, akkor 60 mínusz a számláló lesz az eredmény.
Ha a mostani kérdésed az igazi, mindkét képletben írd át a 60-at 30-ra.
A1-be:
=HA(VAGY(BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)>"30";KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)>"30");"";60-KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)*1)B1-be:
=HA(VAGY(BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)>"30";KÖZÉP($F$1;SZÖVEG.KERES("/";$F$1)+1;20)>"30");"";60-BAL($F$1;SZÖVEG.KERES("/";$F$1)-1)*1)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mimi_bacsi
tag
válasz Delila_1 #4203 üzenetére
Szia Delila_!
Nem kavarodtam bele, mert a két cella összegét ha összeadom, akkor már az előző állításom igaz, sajnos másként fogalmaztam, elnézést...
A lényeg, hoGy amennyiben a két cella (amit szeretnék két külön cellába íratni) összértéke eléri a 60-at (30/30) azt követően ne vegye már figyelembe a cellá(k)ban lévő számokat, amennyiben a cellában lévő számok valamelyike nem éri el a 30-at (884/2) akkor csak azt írja ki, amelyik nem érte el a 30-as számot és azt írja ki, mennyi kell még a 30-ig (a példám szerint 28-as számot írjon ki, de a 884 számmal már ne foglalkozzon)
HÁT IGEN, HA NEM ÍROM LE PONTOSAN, MIT SZERETNÉK, TI NEM TUDTOK ADDIG SEGÍTENI....EZÉRT ÉS A FÁRADOZÁSOTOKÉRT HÁLÁS KÖSZÖNETEM...
-
Delila_1
Topikgazda
válasz mimi_bacsi #4204 üzenetére
A1-be (30 mínusz F1 nevezője):
=HA(KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)>"30";"";30-KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1)B1-be (30 mínusz F1 számlálója):
=HA(BAL(F1;SZÖVEG.KERES("/";F1)-1)>"30";"";30-BAL(F1;SZÖVEG.KERES("/";F1)-1)*1)[ Szerkesztve ]
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 mimi_bacsi #4206 üzenetére
Szívesen. Remélem, ez már jó lesz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
válasz Delila_1 #4205 üzenetére
Egy apró hiba van a képletben, az, hogy szöveget hasonlítasz össze egymással, így pl.: "9" nagyobb "30"-nál, "1000" pedig kisebb nála. A feltételbe is bele kell tenni a számmá való átalakítást (eggyel való szorzást):
=HA(KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1>30;"";30-KÖZÉP(F1;SZÖVEG.KERES("/";F1)+1;20)*1)
B1-be (30 mínusz F1 számlálója):
=HA(BAL(F1;SZÖVEG.KERES("/";F1)-1)*1>30;"";30-BAL(F1;SZÖVEG.KERES("/";F1)-1)*1)[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Fehér Mancs #4208 üzenetére
Igazad van. Amiket próbaképp beírtam, azoknál jól működött. Nem gondoltam végig a dolgot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rTyler
csendes tag
lenne egy osszetett kerdesem.
adott 1. excel tabla szemelyekkel - neha valtozik (korubelul 30 kulonbozo lista osszesen)
titulus, vezeteknev, keresztnev, mailcimegy 2. excel tabla - naponta mas, korlevelenkent valtozik
vezeteknev, keresztnevegy 3. excel tabla - havonta mas
vezeteknev, keresztnevegy 4. excel tabla weblinkekkel - naponta mas, korlevelenkent valtozik
kor e-maileket kell kuldenem napi tobbszor a kovetkezo modon:
a cimzettek az 1. tablabol kerulnek ki
viszont nem szabad elkuldeni a levelet a 2. es 3. listan levo embereknek.
a levelnek tartalmaznia kell a 4. tabla weblinkjeit is.
a leveleket nem szabad ketszer ugyanarra a cimre kikuldenia kerdesem a kovetkezo:
hogy tudom ezt a leheto legegyszerubben es leghatekonyabban veghezvinni ha a tablak folyamatosan valtoznak, de az e-mail majdnem mindig ugyanolyan formatumu?
tudok ehhez felallitani pl egy access tablat, ami "behivja" a megfelelo rekordokat es azt hasznalni a korlevelhez?
rengeteg idot sporolnek meg, ha nem kene minden egyes korlevelhez egybamasolgatni a neveket, cimeket, linkeket, stb majd kitorolgetni azokat akiknek nem kell elkuldeni...
van valakinek valami otlete?koszonom elore is
-
Delila_1
Topikgazda
Összeállítottam egy 4 lapból álló füzetet.
Kicsit körülményes lenne elmagyarázni, pedig nem bonyolult az ügy, de leírva biztosan sok félreértésre adna okot.
Elküdjem a címedre?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bagyulajuve
addikt
Sziasztok!
lehet volt róla szó, de én nem találtam.
szóval a problémám a következő: szeretnék grafikont készíteni (ez még megy is), de az ábrára nem tudok szórást varázsolni, ezt hogyan kell?segítségeteket előre is köszönöm!
üdvResistencia eterna
-
Delila_1
Topikgazda
válasz bagyulajuve #4215 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
válasz bagyulajuve #4217 üzenetére
Ezt a formázást csak makróval lehet megoldani. Először 3 oszlopba fel kell vinni az adatokat, majd készíteni rá egy egyszerű oszlopos diagrammot, és utána a lenti makró megformázza azt.
Sub Macro8()
' 2. adatsor
With ActiveChart.SeriesCollection(2)
.ChartType = xlLineMarkers
.AxisGroup = 2
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlDash
.MarkerSize = 10
.Border.LineStyle = xlNone
End With
' 3. adatsor
With ActiveChart.SeriesCollection(3)
.ChartType = xlLineMarkers
.AxisGroup = 2
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlDash
.MarkerSize = 10
.Border.LineStyle = xlNone
End With
' Dropdown lines
With ActiveChart.ChartGroups(2)
.HasDropLines = False
.HasHiLoLines = True
.HasUpDownBars = False
End With
' Minimum és maximum tengelyértékek megadása
If ActiveChart.Axes(xlValue).MinimumScale < ActiveChart.Axes(xlValue, xlSecondary).MinimumScale Then
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = ActiveChart.Axes(xlValue).MinimumScale
Else
ActiveChart.Axes(xlValue).MinimumScale = ActiveChart.Axes(xlValue, xlSecondary).MinimumScale
End If
If ActiveChart.Axes(xlValue).MaximumScale > ActiveChart.Axes(xlValue, xlSecondary).MaximumScale Then
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = ActiveChart.Axes(xlValue).MaximumScale
Else
ActiveChart.Axes(xlValue).MaximumScale = ActiveChart.Axes(xlValue, xlSecondary).MaximumScale
End If
End Sub[ Szerkesztve ]
-
Fehér Mancs
tag
[IMG:c:%5Cuntitled.JPG][/IMG]
[ Szerkesztve ]
-
lúzer
veterán
Hali!
valami "szuperszumma" kéne, ami egy munkalapon bizonyos cellák értékét összeadja egy bizonyos cellába, ez lehetne az aktív cella vagy egy adott.
Pl. bizonyos egyedi színe van a celláknak és csak azokat adja összevan ilyen makró stb?
[ Szerkesztve ]
MO. RIP. - az utolsó kapcsolja le a villanyt.
-
bagyulajuve
addikt
-
Delila_1
Topikgazda
Szia!
Jó régen jártál itt, már hiányoltalak.
A PC WORLD 2006. augusztusi számában Weisz Tamás írt erre egy makrót, és egy másikat is, ami egy megadott tartományban az adott színű cellák számát jeleníti meg.
Elküldöm.Üdv
DelilaProgramozó: 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
Arra való a részösszeg függvény.
Az összegzendő oszlop alá=részösszeg(9;tartomány)
ahol a 9 egy függvényszám, ami jelzi a függvénynek, hogy a tartomány adatait összegezni kell. A súgó megmondja a többi függvényszám értelmét.
Ez a függvény mindig az aktuális szűrésben látható cellák összegét adja, függetlenül attól, hogy ezt, vagy másik oszlopot szűrtél-e meg.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
A #4231-ben azt írtam, hogy a részösszeg függvényt a tartomány alá kell írni. Ez nem igaz, bárhova be lehet tenni, úgyis a megadott tartomány határozza meg, melyik adatokkal számoljon.
Lúzer! Nem figyelsz, te szoktál helyretenni, ha hülyeséget írok!
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Chili7
őstag
Sziasztok!
Van-e olyan képlet vagy más megoldás, hogyha egy sor valamelyik cellájába érték kerül, akkor a sor első cellájába bekerüljön az aznapi dátum?
És van-e olyan, hogy ha egy sor bizonyos cellájába egy előre meghatározott szó kerül (két változóval), akkor az adott sort (vagy egy részét) kitöltse xy színnel?Köszi
-
Delila_1
Topikgazda
Az első kérdésed megoldásához az alábbi makrót másold be a laphoz (lapfülön jobb klikk, a gyorsmenüből a "Kód megjelenítése" menüpontot választva a VBA szerkesztőjében jobb oldalon kapsz egy üres lapot, oda):
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 1 Then
Cells(Target.Row, 1).Select
Selection.Formula = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Application.CutCopyMode = False
End SubA második kérdéshez nem írtad, hogy ugyanazon a lapon akarod-e alkalmazni, ahol az előbbit. Én másik laphoz írtam hozzá makrót, amit ugyanúgy másolj be a másik lap kódlapjához, mint az előzőt. A makró az F oszlop változását figyeli (IFoszlop=6), és két értékre színezi az egész aktuális sort (target.value="alma" –> piros karakter, target.value="körte" –> kék karakter). Az oszlopba érdemes a két választható választ előre megadni az Adatok/Érvényesítés/Beállítások fül/Lista, a Forráshoz alma; körte.
Sub Worksheet_Change(ByVal Target As Excel.Range)
sor = Target.Row: oszlop = Target.Column
If oszlop = 6 And Target.Value = "alma" Then
Rows(Target.Row & ":" & Target.Row).Select
Selection.Font.ColorIndex = 3
End If
If oszlop = 6 And Target.Value = "körte" Then
Rows(Target.Row & ":" & Target.Row).Select
Selection.Font.ColorIndex = 5
End If
Cells(sor, oszlop).Select
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.
-
Chili7
őstag
válasz Delila_1 #4236 üzenetére
A dátum tök jól működik. Köszönöm.
A másik kérdésben ugyanarra a lapra kellene, de kipróbáltam egy új lapon, és én azt szeretném, hogy ha a C és D oszlopok (végtelen sor) valamelyikében megjelenik a körte vagy az alma, akkor a sor cellái töltse ki színnel A-tól, mondjuk M-ig.
A szín kiválaszásához a színkódokat megtalálom valahol?
Köszi
-
Delila_1
Topikgazda
Akkor ezt a makrót másold be:
Sub Worksheet_Change(ByVal Target As Excel.Range)
sor = Target.Row: oszlop = Target.Column
If oszlop = 2 Or oszlop > 4 Then
Cells(Target.Row, 1).Select
Selection.Formula = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Exit Sub
End If
If oszlop = 3 Or oszlop = 4 Then
Range(Cells(sor, 1), Cells(sor, 13)).Select
If Target.Value = "alma" Then Selection.Font.ColorIndex = 3
If Target.Value = "körte" Then Selection.Font.ColorIndex = 5
End If
Cells(sor, oszlop).Select
End SubNem tudom, le vannak-e írva a színkódok, viszont van egy kis makróm, ami kiírja az aktuális cella karakter- és háttér színét:
Sub Szín_lekérdezés()
If Selection.Font.ColorIndex = -4105 Then
MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " (automatikus)"
Else
MsgBox "A karakter színkódja: " & Selection.Font.ColorIndex & " "
End If
If Selection.Interior.ColorIndex = -4142 Then
MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " (átlátszó)"
Else
MsgBox "A cella hátterének színkódja: " & Selection.Interior.ColorIndex & " "
End If
End SubEzt nem a laphoz kell rendelni, hanem a VBA szerkesztőben az Insert/Module menüponttal új modult kell létrehozni, és erre az új lapra másolni.
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
A selection.font.colorindex=x
helyett írhatsz selection.font.color=RGB(x,y,z)-t is,
ami a kedved szerint kikevert színt adja vissza. Pl. az RGB(255,0,0) piros.
R vörös, G zöld, B kék, az értékek 0 és 255 közöttiek lehetnek.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
Az előző helyett.
A színek kikeverését az Eszközök/Beállítások/Szín lapján tudod kipróbálni. Állj a paletta valamelyik színére, Módosítás gomb, ott pedig az Egyéni fül.
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
Az előző leírásaidból számomra nem derült ki, hogy a háttereket akarod kifesteni, és az sem, hogy a C: D oszlopok értékadására is dátum-beírással reagáljon a program. Azt gondoltam, ez a két oszlop csak a színezésre szolgál, mármint a progi szempontjából.
Ímé a legújabb változat, a legújabb óhajok szerint (az előzőek helyett).
Sub Worksheet_Change(ByVal Target As Excel.Range)
sor = Target.Row: oszlop = Target.Column
If oszlop = 1 Then Exit Sub
If oszlop = 3 Or oszlop = 4 Then
Range(Cells(sor, 1), Cells(sor, 13)).Select
If Target.Value = "alma" Then Selection.Interior.ColorIndex = 3
If Target.Value = "körte" Then Selection.Interior.ColorIndex = 5
End If
Cells(sor, oszlop).Select
Cells(sor, 1).Select
Selection.Formula = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[ Szerkesztve ]
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
-
Gyúrma
tag
Cs all!
A segítsgeteket szeretném kérni, h hogy kell egy diagramm oszlopainak sorrendjét megfordítani
Előre is thx a helpet
Gigabyte P35-DS4, Intel Core2Quad Q6600, Gigabyte 8800gtx, 4gb(2x2)ddr2 800Mhz(5-5-5-15) G.Skill, Chieftech 450w, Thermaltake Big Typhoon VX, Pov Turbine V54(25cm fan), Genius Ergo525.
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Autós kamerák
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Adatmentés - HDD - SSD - Flash
- Kertészet, mezőgazdaság topik
- Kínai, és egyéb olcsó órák topikja
- WoW avagy World of Warcraft -=MMORPG=-
- Kupon kunyeráló
- Garmin Forerunner 255 Music - nem csak futóknak
- Xiaomi 14 Ultra - Leica hercegnő
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- World of Warcraft Shadowlands Collectors edition EU EN
- Eladó Steam kulcsok kedvező áron!