- Dark Souls sorozat
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- War Thunder - MMO Combat Game
- Battlefield 2042
- Xbox Series X|S
- Megjelenési dátumot kapott végre a Men of War II (PC)
- Call of Duty: Modern Warfare III (2023)
- Forza sorozat (Horizon/Motorsport)
- Le Mans Ultimate
- Escape from Tarkov
-
GAMEPOD.hu
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 Apollo17hu #19700 üzenetére
Beírod az első értéket egy új oszlopba, hogy egy előző formátum ne zavarjon be:
2013.11.15 20:00. Az oszlopban a cellák formátuma legyen "éééé.hh.nn. óó:pp".
Egy cellába (másik oszlopban) beírod a 0:05 értéket. Legyen ez a példában a C1 cella. Ez automatikusan idő formátumot vesz fel.
Az dátum alatti első cella képlete =fölötte_lévő_cella+$C$1. Ezt már másolhatod, nem lesz csúszá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 Apollo17hu #19703 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Roxy27
tag
Sziasztok,
nem vagyok nagy fej Excel-ből... pár dolog megy, de ez most nem.
Ehhez kellene segítség:Adott egy több sheet-es excel, minden oldalon 1-1 kisebb táblázat, több oszloppal.
Arra kellene megoldás, hogy 2 különböző sheet-en egy adott (ugyanabban) oszlopban végigelenőrizze az értékeket, ami konkrétan egy 6 jegyű szám. A lényeg, hogy az egyik oldalon mindíg 1-el kevesebb a szám. Ha ez stimmel, akkor az azonos sorokat egy 3. sheet-re 1 sorba egymás után kellene másolnia.
remélem érthetően írtam le.
Ha tudna valaki segíteni...jó lenne, mert nagyban megkönnyítené a munkám.
Ha kell elküldöm a táblázatot is, vagy egy részét, hogy könnyebb legyen...
Kösziideje valami excel tanfolyamot kezdenem
Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
xao
csendes tag
Üdv
Adott egy lista cikkszámokkal, cikknevekkel, darabszámokkal.Ebből szeretnék egy másik táblában olyan listát csinálni, ami úgy néz ki, hogy cikkszám, cikknév. Viszont annyiszor legyen egymás alatt többször az adott dolog, ahányszor az első táblában lévő darabszám.
Például:
Egyik tábla:cikkszám, cikknév, db
01 alma 2
02 körte 3
03 ribizli 5
04 málna 1
05 citrom 4Ebből ezt szeretném valahogy kihozni egy másik táblában:
01 alma
01 alma
02 körte
02 körte
02 körte
03 ribizli
03 ribizli
03 ribizli
03 ribizli
03 ribizli
04 málna
05 citrom
05 citrom
05 citrom
05 citromÉs így tovább...
Szóval megoldható ez valahogy?
Köszönöm
[ Szerkesztve ]
--== WEF WEF ==--
-
T.Lacci
csendes tag
válasz Delila_1 #19674 üzenetére
Szeretném újra a segítségedet kérni egy újabb megoldandó problémában, :
Egy táblázat egyik oszlopában (mondjuk a D oszlopban) árak vannak. Ezeket az árakat szeretném felszorozni, de eltérő mértékben. Tehát az 1-től 10.000-ig értékeket 1,4-el, a 10.001-től 20.000-ig értékeket 1,3-al, a 20.001-től 30.000-ig értékeket pedig 1,2-vel és így tovább. Tudnál nekem ebben segíteni, hogy ezt hogy tudom végrehajtatni egy makróval? Köszönöm előre is a segítségedet! -
thee
csendes tag
Sziasztok!
Ezt a sort szeretném úgy átalakítani, hogy egy változó segítségével az oszlopszámhoz hozzá tudjak adni pl 2-t:
Worksheets("Munka1").Range("G14:G16") = ""
Ha .Range helyett .Cells-t használok, akkor tudok az oszlopszám mellé egy változót rakni, de a .Cells-el nem igazán sikerült tartományt kijelölni... -
greenface
aktív tag
válasz honfoglalo #19691 üzenetére
thx, kipróbálom.
''Mit ér az erő, ha nem a tiéd?'' - "Pénz legyen, a többit megvesszük!"
-
veterán
egész jól haladok a levelezős makrómmal, az egész futtatása hozzá van rendelve egy gombhoz. hogyan tudnám beéleírni a kódba, hogy a gomb mgnyomása után még feldobjon egy kérdést, hogy biztosan el akarom-e küldeni a leveleket?
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Myers
senior tag
Van arra valamilyen billentyűkombináció, hogy azt csinálja, mintha dupla klikkelnék egy cellán?
Tehát kezdje el szerkeszteni (de ne a szerkesztőlécen), ne törölje ki azt, ami benne van, lehessen benne balra, jobbra menni.http://www.muszaj.hu/
-
fila
senior tag
Sziasztok!
Van egy adathalmazom,
B oszlopban van 4-5 különböző szöveg vegyesen (pl. alma, körte, barack)
D, E, F oszlopban van egy csomó hozzá tartozó érték(több száz)Milyen függvénnyel tudom a B oszlopban lévő szöveghez tartozó értékeket összesíteni egy másik fülön?
Nem kimutatást szeretnék csinálni. Több táblázatból, munkalapról kell összeszednem az adatokat a szöveg adatokhoz.
Makróhoz nem értek.Légszi, segítsetek.
Köszönöm.
[ Szerkesztve ]
5% kedvezmény kód minden rendelésre. iherb.com: ZCD546
-
veterán
Sziasztok!
Tudtok ajánlani valami ingyenes online tanfolyamot, könyvet, bármit amivel gyorsan meg tudom tanulmi az excel használatát az alapoktól az elit szintig. Angol is jöhet sőt jobb is lenne.
Köszi előre is.
Addig gyorsítottuk a világot míg mi magunk maradtunk le...
-
pero19910606
csendes tag
Sziasztok!
Egy beadandót kell csinálnom és egy olyan problémába ütköztem, hogy meg kellene adnom egy adott termékből hány darabot vásároltak.
4 üzemben is gyártanak egy- egy terméket, összesen tehát 4 adattáblám van.Azt kéne kiíratnom, hogy pl. a fogaskerekéből hány db-ot gyártottak.
Egyik táblába 10 db másikba 13...stb és ezt összegezve kéne megadnom úgy hogy ki is írja hogy:
"Fogaskerék 23 db"
Van esetleg valakinek ötlete erre? Nagy segítség lenne, mert ez az utolsó feladat
Köszönöm előre is!!
sziasztok! -
Delila_1
Topikgazda
válasz T.Lacci #19707 üzenetére
Sub Szorzas()
Dim sor As Long, usor As Long, szorzo As Single
'Alsó sor meghatározása a D oszlopban)
usor = Range("D" & Rows.Count).End(xlUp).Row
'Ciklus az elsőtől az utolsó sorig
For sor = 1 To usor
'Feltételek megdása
Select Case Cells(sor, "D")
Case 1 To 10000
szorzo = 1.4
Case 10001 To 20000
szorzo = 1.3
Case 20001 To 30000
szorzo = 1.2
Case Else
szorzo = 0.9
End Select
'Szorzat beírása az E oszlopba
Cells(sor, "E") = Cells(sor, "D") * szorzo
'Ha kerekítve akarod megadni a szorzatot, a fenti helyett
'a lenti sort alkalmazd a szorzásra
'Cells(sor, "E") = Round(Cells(sor, "D") * szorzo, 0)
Next
End SubA Case sorokat folytathatod. A Case Else sorhoz azt az utasítást add, ami azokra az összegekre vonatkozik, amikhez a fölötte lévő feltételekben nem határoztál meg szorzót. Ki is hagyható.
Figyelj, hogy a szorzók tizedes ponttal, nem veszővel írandók a makróban!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 szükséges makró a feladathoz, a SZUMHATÖBB függvénnyel megoldható a 2007-es verziótól kezdve.
Régebbi verzióknál SZUMHA(első_lap)+SZUMHA(második_lap)+SZUMHA(n-edik_lap).
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 pero19910606 #19715 üzenetére
Felsorolod a termékeket egy oszlopban. Emellé írod a képletet.
Vegyük, hogy a termékek felsorolása az S1 cellában kezdődik.
A T1 cella képlete:=S1&" " & SZUMHA($A$1:$A$3;S1;$B$1:$B$3)+SZUMHA($D$1:$D$3;S1;$E$1:$E$3)+SZUMHA($A$5:$A$7;S1;$B$5:$B$7)+SZUMHA($D$5:$D$7;S1;$E$5:$E$7) & " db"
[ 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.
-
xao
csendes tag
Üdv
Az előbb lehet, hogy nem sikerült túlzottan érthetően leírnom, ezért megpróbálom még egyszer
Adott egy lista cikkszámokkal, cikknevekkel, darabszámokkal, ami változó nyilvánvalóan napról napra.
Ebből szeretnék egy másik táblában olyan listát csinálni, ami úgy néz ki, hogy cikkszám, cikknév. Viszont annyiszor legyen egymás alatt többször az adott dolog, ahányszor az első táblában lévő darabszám.
Például:
Egyik tábla (ezek az adatok vannak meg nekem, napról napra változhatnak)
cikkszám, cikknév, db01 alma 2
02 körte 3
03 ribizli 5
04 málna 1
05 citrom 4A másik munkalapon pedig ez legyen belőle automatikusan:
01 alma
01 alma
02 körte
02 körte
02 körte
03 ribizli
03 ribizli
03 ribizli
03 ribizli
03 ribizli
04 málna
05 citrom
05 citrom
05 citrom
05 citrom
És így tovább...Szóval megoldható ez valahogy?
Köszönöm--== WEF WEF ==--
-
Delila_1
Topikgazda
A Set WS1 = Sheets("Munka1") sorban a Munka1 helyett írd be annak a lapodnak a nevét, ahol a darabszámok szerepelnek, a Munka2 helyére azt, ahova a többszörözést akarod beíratni.
Sub Tobbszoroz()
Dim sor As Long, usor As Long, ujsor As Long, eddig As Integer, a As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets("Munka1")
Set WS2 = Sheets("Munka2")
Application.ScreenUpdating = False
WS2.Range("A:B").ClearContents 'Előző adatok törlése a Munka2 lapon
WS1.Activate
Range("A1:B1").Copy WS2.Range("A1") 'Címsor a Munka2 lapra
usor = Range("A" & Rows.Count).End(xlUp).Row
ujsor = 2
For sor = 2 To usor
eddig = Cells(sor, "C")
For a = 1 To eddig
Range("A" & sor & ":B" & sor).Copy WS2.Range("A" & ujsor)
ujsor = ujsor + 1
Next
Next
Application.ScreenUpdating = True
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.
-
morgusz
csendes tag
Sziasztok'!
Az alábbi makrót rögzítettem kézzel, és a CSV fájl-t pontosvesszővel tagoltként mentettem.
A makró futtatásakor viszont a tagolás csak vessző.
Mit kellene változtatni, hogy ; -vel tagolt legyen az eredmény?
.....................
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="G:\előkészítés+\dátum-csv.csv", FileFormat _
:=xlCSV, CreateBackup:=False
.......................[ Szerkesztve ]
-
Delila_1
Topikgazda
-
T.Lacci
csendes tag
válasz Delila_1 #19727 üzenetére
Köszönöm a segítségedet, teljesen tökéletes!!! 2 apró gondom van már csak. Az egyik az, hogy a táblázatomnak szöveges fejléce van ezért ha azt nem cserélem ki egy akármilyen számra, akkor nem működik a Makró. A másik csak annyi hogy az utolsó értékem az 50.000 feletti. Oda jelenleg azt írtam, hogy Case 50001 To 999999. Van erre valami más (mármint a 999999 helyett)? Köszi előre is!
-
motinka
tag
sziasztok,
Ismét segítségre volna szükségem.
A problémám a következő, egy programból másolással szeretnék beilleszteni egy táblázatot, majdnem minden rendben beillesztődik, de egy ilyen formátum 08-12 ilyet ír be 12.aug. Ellenben a 16-20 formátumot ugyanígy írja be. Hiába állítom be azt a cellasort amibe másolnám szöveg formátumra csak ezt írja be. Ki tud valami okosságot erre?
Előre is köszönöm a segítségetMoTiNka
-
Mutt
aktív tag
válasz T.Lacci #19737 üzenetére
Hello,
Különben az miért van hogy nem teljesen pontosan számol? (1000 x 1,4 = 1,399999999)
A kapott makróban a szorzo változót Single típusról Double típusra állítsd át.
...a táblázatomnak szöveges fejléce van...
A For sor = 1 To usor részben az 1-est írd át 2-re (vagy arra a sorra ahonnan a számok kezdődnek).
Az eredeti feladat nem követel makrót, akár egy FKERES segítségével is megoldható.
pl. E1-be: =D1*FKERES(D1;{0\1,4;10001\1,3;20001\1,2;30001\1,1};2)Itt a kapcsos zárójelekben van a keresési tartomány, 0 és 10000 között 1,4-et talál meg, 10001 felett 1,3-at és így tovább,
Ha mégis makró kell, akkor itt van egy gyorsabb:
Sub Szorzas2()
Dim rng As Range
'kiválasztjuk a csak számokat tartalmazó cellákat a D-oszlopban
Set rng = Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers)
'jobbra tőlük számoljuk az új értéket; fkeres hasonló mint fent de a vba miatt máshogy kell megadni
rng.Offset(, 1).FormulaR1C1 = "=RC[-1]*VLOOKUP(RC[-1],{0,1.4;10001,1.3;20001,1.2;30001,1.1},2)"
'értékeket bemásoljuk
Columns("E").Copy
Columns("E").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Subüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
ricshard444
veterán
Egy kis spec táblázatot készítek a következő tesztjeimhez, a gondom, hogy amikor beírom a DX verzióhoz, hogy "11.2" akkor november 2-re átdobja, ha átírom a cellát, hogy szám formátum legyen akkor meg valami 45000-t dob ki.
Mi a teendő mesterek?
Vannak dolgok...
-
PindurAnna
Közösségépítő
válasz ricshard444 #19742 üzenetére
Egyéni formátum @, és átáll szöveg formátumra.
Galaxy S9+;Lenovo yoga 500;Gigabyte H77-DS3HPentium 840 4GB DDR3-1066, 4820GB+10000GB HDD;27"Lg W2753;TP-LINK WDL4300 router;SAMSUNG ML-1520,Epson Stylus OFFICE BX300F,Samsung Note 10.1, S7 edge
-
Delila_1
Topikgazda
válasz pero19910606 #19748 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Salex1
senior tag
Lenne egy kérdésem:
Adott egy táblázat Munka (A-D) és hozzá üzemóra (1-...)Egy cellában összesíteni kellene az adott pl "A"-hoz tartozó üzemórákat. A nehezítő tényező, hogy egymás mellett többször szerepelnek (több dolgozó) és mindez több (12, hónapok szerint) munkalapon ismétlődik.
A lényeg, kinyerni, hogy egy munkán összesen hány órát dolgoztak.
Valakinek esetleg lenne ötlete?
Új hozzászólás Aktív témák
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Honor Magic5 Pro - kamerák bűvöletében
- Elektromos (hálózati és akkus) kéziszerszámok, tapasztalatok/vásárlás
- OLED TV topic
- A fociról könnyedén, egy baráti társaságban
- Vallás
- Milyen egeret válasszak?
- Trollok komolyan
- Építő/felújító topik
- Gitáros topic
- További aktív témák...
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."