-
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
válasz dtpeter #5740 üzenetére
Szívesen.
Van két ikon, ezeket tedd ki az Eszköztárra, ezek segítségével könnyedén tudod a kijelölt tartományt jobbra-balra igazítani.A cellaformázásnál is megteheted a Igazítás fülön, Vízszintesen, Balra (beütve), ahol megadhatod a Behúzás mértékét. Ugyanitt jobbra is. A "Jobbra (beütve)" a jobb széltől való távolságot jelenti.
[ 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
Megcsinálod a 10 lapon egyesével, de mindegyik lapon azonos cellába.
Itt példaként legyen ez a V100.
Az összesítő lapra ezt írd (tetszésed szerinti cellába):=SZUM('Első_lap:Utolsó_lap'!V100)
Természetesen az Első_lap és az Utolsó_lap helyett a saját első, és utolsó lapod nevét írd.
[ 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 laponkénti képlet:
=SZUMHA(J:J;"PF";H:H)
Ezt egyszerre is beviheted a 10 lapodra. Kijelölöd a lapokat (elsőn állsz, Shiftet nyomva az utolsó lapfülre kattintasz), és a megfelelő helyre beírod a függvényt. Így gyorsabb, mint egyenként, és biztosan azonos cellában lesz minden lapon. Ezután az összesítő lapra beírod a SZUM függvényt, ahogy az előző hozzászólásomban í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.
-
Delila_1
Topikgazda
válasz toth_janika #5756 üzenetére
A nevek mellett szerepeljen valamilyen azonosító, ami a lapon szereplő emberek által hozzáférhető programot képviseli. Ez a két oszlop elég is a kimutatáshoz.
Készíts kimutatást több tartományból [Adatok/Kimutatás vagy kimutatásdiagram/Több tartomány (összesítés)].Az elrendezés ilyen legyen:
A Végösszeg oszlop mutatja majd, kinek hány hozzáférés adatott meg.
[ 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 toth_janika #5760 üzenetére
Adatok/Kimutatás vagy kimutatásdiagram/Több tartomány (összesítés).
Valószínű, hogy nem a Több tartomány-t választottad a varázsló első lapján. Tégy úgy, és sikerrel jársz.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 Fire/SOUL/CD #5763 üzenetére
Delila nem teszi be a makrót. Már csak azért sem, mert ismeretlen előttem a csv, az elválsztók, az adatok.
gsc73-nak kell rögzítenie, ahogy ő teszi kompatibilissé a csv-t az Excellel.
Ehhez előbb be kell gyakorolni, 1-2 sikeres konvertálás után pedig jöhet a rögzítés.A 2. pontban többnyire gsc73-mal értek egyet, ki ne rúgjuk már a más területen nagy tapasztalatot szerzett munkatársakat, ha nem áll rá a fejük az Excel kezelésére. Mit szólnál, ha mától öltönyt kellene szabnod? Elismerem, lüke példa.
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 Fire/SOUL/CD #5767 ü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.
-
Delila_1
Topikgazda
Sub PontosVessző_e()
On Error GoTo Hiba
If Application.Search(";", Cells(1)) > 0 Then MsgBox "Pontosvesszők az elválasztók"
Exit Sub
Hiba:
MsgBox "Nem pontosvesszők az elválasztók"
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
-
Delila_1
Topikgazda
válasz deicide #5780 üzenetére
Kétféle módon.
1. Érvényesítéssel: Adatok/Érvényesítés/Beállítások fül. A Megengedve legördülőből kiválasztod a Listát, a Forrás mezőjébe lépve a lapodon kijelölöd a területet, ahonnan az adatokat meg akarod jeleníteni.
Ezt akkor alkalmazhatod, ha az így érvényesített cella és a forráslista azonos lapon van. Ha másik lapon akarod létrehozni, akkor előbb a forráslistát el kell nevezned (kijelölve a területet Beszúrás/Név/Név megadása. A megjelenő ablakban lent, a hivatkozásnál megjelenik a kijelölt területed, a Munkafüzetben lévő nevek rovatában adsz egy nevet a tartománynak.) Az érvényesítésnél a forráshoz az adott nevet írod be egy egyenlőségjel után.
2. Űrlapelemmel: behívod az Űrlapok eszköztárát, ezen rákattintasz a Kombi panel ikonjára, a kapott szálkereszttel megrajzolod a legördülőt. Jobb klikk az elemen, Vezérlő formázása. A Vezérlő fülön a Bemeneti tartomány mezőjébe állva a lapodon kijelölöd a megjelenítendő tartományt. A Cellacsatoláshoz beírod a cellát, ahol a kiválasztott elem sorszámát szeretnéd látni (az elemek közötti sorszámot adja, vagyis ha a két elem Anna és Béla, Annát választva 1, Bélánál 2 lesz a csatolt cella eredménye). A csatolt cella tartalmát felhasználhatod pl. egy FKERES függvényben. Ezt a cellát célszerű a legördülő "mögé" tenni, hogy a megjelenő eredmény ne zavarja a felhasználót.Van harmadik megoldás is, mikor a Vezérlők eszköztárából veszel egy Beviteli listát, de ehhez már egy kis programot kell írni.
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
1. Szívesen.
2. Tudtommal nem, de ezt könnyen megtanulhatják a felhasználók.Ha a csv-k, txt-k behívása mindig egy állandóan használt füzetbe történik, kitehetsz 2 gombot, amikhez hozzárendelheted a 2 makró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
Sub SubTotal()
ucso = Worksheets.Count
For lap = 2 To ucso
Sum = Sum + Sheets(lap).Cells(154, 12)
Next
Sheets("Összesítő").Cells(154, 12) = Sum
End SubEzt a makrót vidd be. Alt+F11-re bejön a VB szerkesztő. Bal oldalon megtalálod a füzeted nevét, az előtte lévő + jelre kattintasz. Insert menü, Module. Jobb oldalon kapsz egy üres fehér oldalt, oda másold.
Ha az összesítő lapod neve nem Összesítő, a makróban írd át.
Ha az összesítőn az eredményt nem az L154 cellában szeretnéd látni, a Cells(154,12)-ben írd át az értékeket. a 154 a sor száma, a 12 az oszlopé (A oszlop=1, B oszlop=2, ... Loszlop=12).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
Sub SubTotal()
ucso = Worksheets.Count
For lap = 2 To ucso
Sum = Sum + Sheets(lap).Cells(154, 12)
Sum1 = Sum1 + Sheets(lap).Cells(155, 12)
Sum2 = Sum2 + Sheets(lap).Cells(156, 12)
Next
Sheets("Összesítő").Cells(154, 12) = Sum
Sheets("Összesítő").Cells(155, 12) = Sum1
Sheets("Összesítő").Cells(156, 12) = Sum2
End SubEzt vidd be az előző helyé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.
-
Delila_1
Topikgazda
Automatikus számolás akkor lenne lehetséges a szum(első_lap:utolsó_lap!L154) képlettel, ha állandó lenne a lapjaid száma és neve.
Tegyél ki egy gombot az Űrlapok eszköztárról az Összesítő lapra, és rendeld hozzá a makrót. Az adataid változásakor csak egy gombnyomás...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 Delila_1 #5809 üzenetére
Az előbb félbeszéltem (írtam).
Sub Valami()
For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name <> "Ellenőrzés" Then _
Sheets(i).Cells(1) = "Kutyafüle"
MsgBox Sheets(i).Name
Next
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
Természetes megoldható.
A 4 cella címe kell hozzá, és az, hogy egy gombhoz szeretnéd rendelni a makrót – ellenőrzési lehetőség –, vagy a beíráskor azonnal "oszoljon szét" az összeg három felé.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
Beteszem a kétféle megoldást. Mindegyiknél a beviteli cella az A1, a 3 másik pedig A3, A4, és A5.
Az első makró vagy a makrók közül indítható, vagy egy gombhoz rendeled. Bevitele: Alt+F11, Insert/Module, a kapott üres oldalra másold be.Sub ktsg_elosztás()
Dim sor
For sor = 3 To 5
Cells(sor, 2) = Cells(sor, 2) + Int(Cells(1) / 3)
Next
End SubA másik a bevitelt követően automatikusan hajtódik végre. Ennek a bevitele: Lapfülön jobb klikk, Kód megjelenítése, a kapott üres oldalra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor
If Target.Address = "$A$1" Then
For sor = 3 To 5
Cells(sor, 2) = Cells(sor, 2) + Int(Target.Value / 3)
Next
End If
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
Akkor a personal.xls-be vidd be:
Function Eloszt(Összeg As Double, Részre As Integer)
Eloszt = Összeg / Részre
End FunctionKijelölöd a cellákat, beírod: =Eloszt(26253;3), és Ctrl+Enterrel egyszerre beviszed a kijelölt cellákba. Az osztó és osztandó persze minden esetben más lehet.
[ 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
Elkerülheted a sok tizedest, ha így adod meg:
Function Eloszt(Összeg As Double, Részre As Integer) As Integer
Eloszt = Összeg / Részre
End FunctionA függvények között is megtalálod a makró bevitele után az Eloszt nevezetű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
Na még egy utolsó. A költségek nevei az A1:A10 tartományban vannak, az eddigi összegek pedig B1:B10-ben.
Állítsd pirosra azokat az összegeket (B oszlop), ahova az új összeget szét akarod osztani.
A szétosztandó összeget írd be a D1-be.Sub Eloszt_1()
For sor = 1 To 10
If Cells(sor, 2).Font.ColorIndex = 3 Then Db = Db + 1
Next
For sor = 1 To 10
If Cells(sor, 2).Font.ColorIndex = 3 Then
Cells(sor, 2) = Cells(sor, 2) + Round(Cells(1, 4) / Db)
End If
Next
End SubA makró végig szalad a B1:B10 tartományban, és összeszámolja a piros karakteres cellákat, ezek darabszáma lesz az osztó. Újra végig lépked ugyanott, és a piros cellák tartalmához hozzáadja a D1-ben talált összeg annyiad részét, ahány piros cellát talált.
Azt hiszem, ez volt az eredeti kérdésed.[ 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 Fire/SOUL/CD #5828 üzenetére
Nosza!
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 Fire/SOUL/CD #5846 üzenetére
Akkor éppen hiányoztam az iskolából...
Az öregedésről egyes számban beszélj!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 VANESSZA1 #5862 üzenetére
Vegyük, hogy a számokat az A oszlopban akarod generálni. Az A1 képlete:
=RANDBETWEEN($C$1;$D$1)
Ha a függvényeid között nem találod a fentit, az Eszközök/Bővítménykezelőben az Analysis ToolPak elé tegyél pipát.
Másold le a függvényt, ezután az A oszlop függvényei helyére irányítottan illesztd be az értéküket.
A B1 képlete: =DARABTELI(A$1:A1;A1), ezt is másold le, ameddig kell.
Ahol a B oszlopban 1-nél nagyobb számot találsz, ott az A oszlop értéke 1-nél többször szerepel a listában.
Tehetsz rá feltételes formázást, hogy kiabáljon.
Lehetne rá makrót írni, de sok adatnál ez elég lassú lenne, függvényekkel is jól megoldható.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 gericooper #5874 üzenetére
A képletet tartalmazó cella formátumával lehet baj. Állítsd általánosra.
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 Aprósólyom #5878 üzenetére
Meg lehet csinálni, küldd el a füzetet.
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 Aprósólyom #5880 üzenetére
Nem kaptad meg a két küldeményemet, vagy lefagytál?
Ezt nem ide akartam írni, hanem a privátba.
[ 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 Fire/SOUL/CD #5885 üzenetére
Mindenkinek![ 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
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5890 üzenetére
Tudomásom szerint ha másik füzet cellájára hivatkozom, az csatolás.
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 Fire/SOUL/CD #5892 üzenetére
Az eredeti kérdés megoldásához mindenesetre mindkét válasz jó, a csere, és a csatolás átváltása is.
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 Fire/SOUL/CD #5892 üzenetére
Elég sűrűn előfordul, hogy van egy füzet, ami évente, havonta, vagy hetente más-más füzetből gyűjti össze az adatokat. Nem értek egyet Veled, hogy nincs szükség az átkapcsolásra, hiszen ez a legegyszerűbb, leggyorsabb átírásra. Aki nem dolgozik ilyen füzetekkel, annak valóban szükségtelen ez a lehetőség.
Klasszak a diagramjaid.
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 Fire/SOUL/CD #5896 üzenetére
Nagyon nem szeretem a 2007-es verziót, de azt meg kell adni, hogy az adatoknál, amik a torta diagram fölött vannak, nagyon mutatós a cella színezése a tartalom szerinti mértékben.
Más fórumon is kérdeztem már, de nem sikerült rájönni, hogyan lehetne a saját ikonjaimhoz saját rajzot rendelni. Az már összejött, hogy az Excel ízlése szerinti képet csatoljak hozzájuk, de ez nem nagyon felel meg a céljaimnak, nem jellemzőek a makrók tartalmára. Te ezzel a verzióval dolgozol. Nem tudod a megoldást? Vagy megszüntették ezt a kényelmi funkció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.
Új hozzászólás Aktív témák
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Steam kulcsok - UTALÁS/REVOLUT
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen