-
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
Topikgazda
-
Delila_1
Topikgazda
Itt egy kis makró, ami mindegyik sorba, ami DVD-t tartalmaz, beállítja az igen-nem legördülőt (adatérvényesítést). R1-be és R2-be írd be az igent és a nemet. Ha foglalt a két cellád, a maróban az új hely címére írd át a $R$1:$R$2-t.
Sub DVD()
Range("A1").Select
Selection.End(xlDown).Select
usor = Selection.Row
For sor = 2 To usor
If Cells(sor, 3) = "DVD" Then '***
Cells(sor, 4).Select '***
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$R$1:$R$2" '***
.ShowInput = True
.ShowError = True
End With
End If
Next
End SubHárom sort "csillagoztam". Ez a makró azt feltételezi, hogy a 3. (C) oszlopban szerepel a DVD kifejezés. Az If kezdetű sorban javítsd ki a 3-at annyira, ahányadik oszlopban van a szöveged. A következő csillagos sorban a 4-et annyira, ahányadik oszlopba akarod tenni a legördülőt.
[ 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
Jelöld ki a táblát, vagy annak azt a részét, ahol be akarod tömni a lyukakat.
Szerkesztés/Ugrás/Irányított ugrás/Üres cellák
Beírod-> =
nyomsz egy fel nyilat
Ctrl+Enter
Ez egyszerre az összes kijelölt celládba beviszi a fölötte lévő adatot hivatkozással. Ha fixen akarod (nem képlettel) látni ezután a most bevitt értékeket, ezután kijelölöd újra az összes adatot, Ctrl+C, Irányított beillesztés/Értéket.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 Bandit21 #3130 üzenetére
Ezt nem itt, hanem egy Word-ös fórumon kérdezd meg.
Ott megmondják, hogy milyen mező beszúrásával lehet elérni, hogy ha az aktuális rekordban a név megegyezik az előző rekord nevével, akkor szúrja be a Hrsz-t, tulajdon hányadot, stb., ellenkező esetben hagyja üresen a mezőt.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 Okoska2 #3141 üzenetére
Próbáld már egy kicsit pontosabban meghatározni, mit is szeretnél. Egy oszlop adataiból akarsz grafikont létrehozni, azt hogy akarod két tengelyhez rendelni?
Az egyik a függőleges (y), a másik a vízszintes (x)? Mi az a 0.1?
Az y tengely skáláját alapban a bevitt adatok határozzák meg.
Ahhoz, hogy minden 17. adatból készüljön a grafikon, itt egy makró, ami a kívánt sorok T oszlopába betesz egy *-ot. A makró futása után egy autoszűrővel szűrheted a tartományodat a kellő sorokra.Sub tizenhet()
For sor = 2 To 9200 Step 17
Cells(sor, 20).Value = "*"
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.
-
Delila_1
Topikgazda
Valamilyen rajzoló programban csinálsz egy kört (jpg, bmp).
A táblázatodban egyik oszlopban a nevek vannak, másikban (mellette) a fizetések – legyen címsor is.
Kijelölöd a tartományt, és a DiagramVarázsló (ikon) segítségével csinálsz egy közönséges oszlopdiagramot.
Rákattintasz az egyik oszlopra, mire az összeset kijelöli.
Jobb gomb, Adatsorok formázása. A Feliratok fölün bejelölöd az Érték látszik jelölőt, majd átmész a Mintázat fülre.
A Kitöltés csoport alján megnyomod a Kitöltési effektusok gombot.
A Kép fülön a Képválasztás gomb segítségével előcsalod a szép körödet, bal oldalon pedig bejelölöd a Nyújtott jelölőt.
Néhány OKÉ után te vagy a nyerő.
Azért nézd meg azt is, mit csinál, ha a Nyújtott helyett a Halmozott, vagy a Halmozás, nyújtás jelölőt választod.[ 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
Mert nem csináltak.
Olyan kört próbálj valamivel rajzolni, ahol a lap kitöltése átlátszó. Photoshop?
Duplán kattitntva egy-egy oszlophoz különféle ábrákat is rendelhetsz.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
[ 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
Ha kell, elküldöm a kört.
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 képleteket tartalmazó cellák formátumánál a Védelem fülön jelöld be a Zároltat (ez az alapértelmezés), a nem védetteknél meg vedd ki a pipát.
Ezután az Eszközök/Védelemnél védetté teszed a lapodat, vagy az egész füzetedet. Csak ekkor lép életbe a cellák védelme.
A lapvédelem zárolja felülírás ellen a képleteidet tartalmazó cellákat, a füzet védelme az egész füzetet.[ 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 Fényhozó #3154 üzenetére
Mit is akarsz készíteni?
Táblázatot írsz, de amire hivatkoztál, az egy diagram, aminek az elkészítési módját a #3144-es hozzászólásban megtalálod.
A táblázat ennyi:
Név Összeg
és persze a címsorok alatt az adatok.[ 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
A lapfülön jobb klikk, Kód megjelenítése. A megjelenő Visual Basic szerkesztőn a jobb oldalon lévő nagy üres lapra bemásolod az alábbi makrót:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 1) Then
Cells(Target.Row, 5) = Cells(Target.Row, 2) + Cells(Target.Row, 3) _
+ Cells(Target.Row, 4)
End If
End SubEz, ha az A oszlopba írsz valamit, az E oszlopba beírja az azonos sorban lévő B+C+D értéket.
Ha nem az E-be kell, a Cells(Target.Row,5)-nél írd át az 5-öt annyira, amennyi a kívánt oszlop sorszáma az angol ABC-ben (F-nél 6, G-nél 7, T-nél 20, stb).
Amennyiben másik lapnál is kell ez a funkció, ugyenezt a makrót a másik lap kódlapjára is másold be.[ 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
Azon a lapon, ahol az összegek szerepelnek, a V oszlopba be kell vinned egy SZUM-ot:
V2–> =SZUM(B22)
ezt másold végigA másik lapodon:
B2–> =fkeres(A2;Munka2!A:V;22;HAMIS)
A Munka2-t írd át az összegeket tartalmazó lapod nevére, ezután másold végig.[ 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
A #3170-esben =SZUM(B2 : U2), szóközök nélkül.
[ 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 rebel56 #3178 üzenetére
Van itt egy kis makró a problémádra:
Sub valami()
usor = ActiveSheet.UsedRange.Rows.Count
s = 2
For sor = 2 To 2 * usor - 1 Step 2
Cells(sor, 2).Select
ActiveCell.Formula = "=A" & s
Cells(sor + 1, 2).Select
ActiveCell.Formula = "=A" & s
s = s + 1
Next
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End SubA Next utáni sorok elhagyhatók, azok a beírt hivatkozásokat alakítják át értékekké.
lúzer!
A #3185-ös hozzászólásodban a mintát a saját gépedről tetted fel, így csak akkor látható, mikor te is "képben vagy". Pedig biztosan jó megoldást adtál.[ 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 rebel56 #3182 üzenetére
Ez meg azt automatizálja, amit lúzer írt a #3185-ben, hogy ne kelljen kézzel beszúrni minden sor elé egy másikat, összevonni két-két cellát, és beírni a hivatkozást:
Sub Sorok_beszurasa()
usor = ActiveSheet.UsedRange.Rows.Count
For sor = 1 To usor * 2 Step 2
Cells(sor, 1).Select
Selection.EntireRow.Insert
Range(Cells(sor, 1), Cells(sor + 1, 1)).Select
Selection.Merge
Next
sor = 1
Do While sor < usor * 2
Cells(sor, 2).Select
Selection.Formula = "=A" & sor
Cells(sor + 1, 2).Select
Selection.Formula = "=A" & sor
sor = sor + 2
Loop
End SubEhhez is hozzáírható az a pár sor, ami az előző hozzászólásomban a Next után van.
[ 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
Cselezni kell. Start menü/Programok/Kellékek/Rendszereszközök/Karaktertábla.
A Windsor BT betűtípusnál találsz egy felsőindexes kettest. Kijelölöd, másolod.
Excelben Cellaformátum/Egyéni, a kiválasztott vagy beírt # ##0,00 után közvetlenül idézőjel, majd Ctrl+C, idézőjel bezárva. Ezt a formátumot másolhatod is.
A szerkesztőlécen nem jelenik meg, mert ez formátum. Ha számot írsz ebbe a cellába, ott látszik, és számolni is lehet az értékkel.[ 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
Nem biztos, hogy teljesen világosan látom a gondodat, de ha ez egy ikon, kétféleképpen távolíthatod el:
1. Bal Alt bill. lenyomása mellett lehúzod az ikont az eszköztárról.
2. A Testreszabást aktivizálod, és lehúzod az ikont.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 LifestyleX77 #3222 üzenetére
Kipróbáltam $ jelekkel és azok nélkül is. A Munka1 lapon a hivatkozás
=Munka2!A18, és Munka2!$A$18 formában is a megfelelő értéket mutatja akkor is, ha a Munka2 lapon beszúrok a A18 elé oszlopot, vagy sort, vagy törlöm azokat.
Sor-, és oszlop beszúrása és törlése esetén a hivatkozást átírja az Excel, a hivatkozott cella új pozíciójára.
Megpróbáltam azt is, hogy a Beállításoknál (Eszközök menü) a Számolás lapon nem az Automatikus, hanem a Csak kérésre gombot jelöltem be, de akkor is átírja a hivatkozást.
El sem tudom képzelni, nálad hogy működhet másként.[ 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 LifestyleX77 #3225 üzenetére
Azon dolgozom, azóta nagyon kibővültek az igények. Rögtön megnézem, amit küldté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
Feltételes formázással.
Vegyük, hogy az értékeid I1 : K10 cellákban vannak. Kijelölöd az első (i) oszlopot 1-től 10-ig.
Formátum/Feltételes formázás/A cella értéke egyenlő
Az üres beviteli mezőbe beírod =MIN(I$1:I$10)
Figyelj a $ jelekre. Ezután megadod a formátumot. Ez a legkisebb elemet formázza.Rákkatintasz a Bővítés>>-re, ott a képlet =KICSI(I$1:I$10;2), ezt is megformázod.
Harmadik bővítésnél a képlet =KICSI(I$1:I$10;3). Ennek megformázása után OK.A többi oszlopra a formátumfestő ecsettel átmásolod.
[ 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 #16741888 #3232 üzenetére
Az ÁTLAG függvényre:
=ha(szum(A1: E1)>0;átlag(A1:E1);"")A második kérdésedre felhozott példád nem egészen tiszta nekem.
Az x-ek megszámolására használd a DARABTELI függvényt.=darabteli(A1: E1;"x")
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
Függvény nincs rá, itt van viszont egy kis makró, ami, ha a B2 háttere piros, a D2-be beírja a B2 és C2 összegét.
A Cells(x,y) kifejezésben az x a sor, az y az oszlop.Sub Piros()
If Cells(2, 2).Interior.ColorIndex = 3 Then
Cells(2, 4) = Cells(2, 2) + Cells(2, 3)
End If
End SubA PC World folyóirat egyik számában Weisz Tamás írt egy xla-t. Két függvényt tartalmaz. Az egyik megszámolja, hogy a kijelölt tartományban hány darab adott színű cella van, a másik pedig összeadja az ezekben található értékeket.
Function CountColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountColor = nResult
End FunctionFunction SumColor(Mintacella As Range, Tartomany As Range)
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + WorksheetFunction.Sum(rngCell)
End If
Next rngCell
SumColor = nResult
End FunctionKözreadom, hátha valakit érdekel.
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
-
Delila_1
Topikgazda
Formátumfestő ecset
Alapbeállítás szerint kint van az eszköztáron.[ 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
Két lépésben teheted meg, mert ez nem számformátum, hanem szöveg.
Vegyük, hogy A oszlopban vannak az adataid.
B1–> =JOBB(A1;HOSSZ(A1)-1) ezzel levettük az elejéről a $ jelet.
C1–> =ÉRTÉK(B1) ez átalakítja számmá.A két képletet együtt végigmásolod az adataid mellett. Ha nincs szükséged az eredetire, a C oszlopot írányítottan, értékként ráilleszted az A oszlopra.
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 matekmatika #3257 üzenetére
Akkor áruld el, hogy más is tudja ezutá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
A Cellaformázás/Szám fül/Szám-nál választd az ezres csoportosítást, vagy egyszerűen kattints az eszköztáron lévő 000 ikonra.
A dátumos kérdésedre: nem tudok olyant produkálni, mint a példád. Nálam rendesen működik a rendezés mindkét irányban.[ 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.
Új hozzászólás Aktív témák
- Nem indul és mi a baja a gépemnek topik
- Tuning kezdőknek
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Motorola Edge 30 Neo - wake up, Jr...
- Ukrajnai háború
- OLED TV topic
- Autós topik látogatók beszélgetős, offolós topikja
- Skoda, VW, Audi, Seat topik
- Otthoni hálózat és internet megosztás
- Android szakmai topik
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs