Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- bambano: Bambanő háza tája
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- Luck Dragon: Asszociációs játék. :)
- [K2]: Synology NAS és a felhő
- Brogyi: CTEK akkumulátor töltő és másolatai
- eBay-es kütyük kis pénzért
-
LOGOUT
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
-
#13299
poffsoft
veterán
krisztian7
#13298
poffsoft
veterán
válasz
krisztian7
#13298
üzenetére
én mondjuk nem értem mit szeretnél
.Az mondjuk majdnem biztos, hogy megoldható....
-
-
Delila_1
veterán
válasz
jaszy83
#13277
üzenetére
Munka2!A2 -> =Munka1!A2, ezt jobbra húzod C2-ig.
Munka2!D2 -> =FKERES(C2;$G$1:$H$12;2;0), feltéve, hogy a súlytáblázat a $G$1:$H$12 tartományban van ezen a lapon, G-ben súly, H-ban kategória.
Munka2!E2 -> =D2+SOR()*0,00001
Az A2:E2 tartományt lemásolod addig, ameddig adat van a Munka1 lapon.
Munka3!A2 ->
=INDEX(Munka2!$A:$D;HOL.VAN(KICSI(Munka2!$E:$E;SOR()-1);Munka2!$E:$E;0);4).Ezt jobbra másolod C2-ig, majd a B2-ben az utolsó paramétert, a 4-et átírod 1-re, C2-ben pedig 2-re. A három cellát lemásolod, ameddig kell.
-
poffsoft
veterán
válasz
#74459392
#13285
üzenetére
1. tábla : "Munka1"
2. tábla : "Munka2"Ha csak a mennyiséget akarod átmásolni a 2. tábláról az 1.-re, akkor - a képletet a D1-be beírva, és utána végig másolva a "D" oszlopban lesznek a darabszámok:
=INDEX(Munka2!F:F;HOL.VAN(Munka1!A1;Munka2!H:H;0);1;1)ha jól értem ez kell neked?
szerk: delila gyorsabb volt....
-
#74459392
törölt tag
Sziasztok!
Ismét szeretném a segítségeteket kérni. Van 2 excel táblázatom. Az egyikben rengeteg termék van a hozzá tartozó cikkszámmal. A másikban a termékek aktuális mennyisége van és a hozzá tartozó cikkszám, ami ugye megegyezik az első táblázatban levő cikkszámmal, de sajnos nem ugyan az a sorrend és ebben a 2. táblázatban sokkal több sor is van és nincs is mindre szükségem.
Meg lehet-e azt oldani, hogy a 2. táblázat adatait az 1. táblázathoz rendeljem a cikkszám alapján. Tehát pl. ha 1. táblázat A oszlopának száma megegyezik a 2. táblázat H oszlopának számával, akkor a 2. táblázat F oszlopának adatát bemásolja az 1. táblázat megfelelő sorába. Amik nem szerepelnek, azok figyelmen kívül hagyja.
Remélem érhetően írtam le és remélem tud valaki segíteni
-
SiPY88
csendes tag
Sziasztok!
Volna egy excel táblám, és benne egy kiíratás. A lényeg, hogy ha lehúzom a képletet, akkor több helyen is #HIÁNYZIK-ot ír ki, de ha megváltoztatom a sorrendet, akkor még több sorban írja ki az adatokat, de még így sem az egészben. Ez mitől lehet?
Lehet, hogy így látatlanban nehéz, szóval, ha kell, elküldöm! -
jaszy83
csendes tag
Sziasztok.Készítek egy verseny nyilvántartó programot amiben segítségre lenne szükségem.
A verseny a következő képpen fog kinézni:
Versenyzők külön súlykategóriákban indulva fognak súlyt húzni, két hibalehetőség van adott súly elhúzására. Választhatnak hogy milyen súllyal akarnak kezdeni, onnantól pedig sikeres húzás után két következő súlyt kihagyhatnak, a harmadikat meg kell próbálni elhúzni.Kiindulásként három füllel kezdek, első lap egy adatfelvitel ahol három adatot viszek be:
versenyző neve
versenyző súlya
első elhúzandó súlyEzek az adatok listaszerűen felkerülnek egy másik lapra egymás alá sorban, ami tulajdonképpen csak egy technikai fül. Itt a súly alapján meghatározásra kerül a súlykategória amit beírtam fkeres függvénnyel negyedik oszlopnak
Na eddig vagyok meg.
Innen annak kellene következni, hogy a felvitt versenyzőket automatikusan áttegye a harmadik fülre, ami maga a verseny nyilvántartó fül lesz olyan formában, hogy:
első oszlop legyen a súlykategória, második a név, harmadik a versenyző súlya (lesz még több oszlop de egyelőre most ennyi)
úgy kellene automatikusan besorolja hogy súlykategóriánként, azon belül pedig növekvő súlyba sorrendbe. Az már csak külön hab a tortán lehetne, hogy az adott, egy súlykategória celláját összefűzi, tehát egy adott súlykategória szám csak egyszer látszódjon.Hogy tudnám ezt megoldani? köszi előre is.
-
Wasquez
senior tag
Sziasztok
Azt hogyan lehet megoldani, hogy van egy oszlop diagramom amiben havonta van egy-egy oszlop, és a diagram felett van a tábla amiből jelenleg minden hónapban kézzel beírom az adott hónap összesített értékét a diagramban lévő hónapnak megfelelő oszlop fölé egy szövegdobozba, és ezt szeretném, ha magától venné át?!
-
Delila_1
veterán
Nem szerencsés dolog a fórumon egy személyhez intézni a kérdést. Jó esetben itt van a megszólított, tud, és akar is válaszolni. Ha a 3 feltétel közül valamelyik hiányzik, nem kapsz választ. A címzett nélküli kérdésre nagyobb eséllyel kaphatsz megoldást.
Töröld a törölhető sorokat, majd írd be a VBE-be a lenti két funkciót.
Function fent(Keres As Long, WS$, hol$)
Dim CV, oszlop%, ter$
oszlop% = Asc(hol$) - 64
ter = hol$ & ":" & hol$
For Each CV In Sheets(WS$).Range(ter$)
If CV > Keres Then
fent = Sheets(WS$).Cells(CV.Row - 1, oszlop%)
Exit Function
End If
Next
End Function
Function lent(Keres As Long, WS$, hol$)
Dim CV, oszlop%, ter$
oszlop% = Asc(hol$) - 64
ter = hol$ & ":" & hol$
For Each CV In Sheets(WS$).Range(ter$)
If CV > Keres Then
lent = Sheets(WS$).Cells(CV.Row + 1, oszlop%)
Exit Function
End If
Next
End FunctionA cellába, ahova a keresett érték fölötti sort akarod megkapni, így add meg a függvényt:
=fent(A1;"Munka2";"A")
Az A1 az a cella, ahova a kérdésben példaként írt 203958-at írod. A "Munka2" annak a lapnak a neve idézőjelek között, ahol a keresést végre akarod hajtatni, az "A" a keresés oszlopának a betűjele.A másik képlet =lent(A1;"Munka2";"A"), ez a keresett érték alatti cella értékét hozza eredményül.
-
#13268
kokopeti
csendes tag
Fire/SOUL/CD
#13267
kokopeti
csendes tag
válasz
Fire/SOUL/CD
#13267
üzenetére
OK. Nagyon szépen köszönöm!
-
#13267
Fire/SOUL/CD
félisten
kokopeti
#13266
-
kokopeti
csendes tag
válasz
Delila_1
#13264
üzenetére
Lenne még 1 gondom :S
Elkezdem beírni a bejárási sorrendet (Tabindex) az adatok kitöltéséhez és folyamatosan felülírja magát és nem akarja "bevenni" azt a sorrendet amit megadok neki.
Maga a kitöltendő oldal így néz ki:
A legelső Textbox-ból lefelé haladva kellene lépkednie a tabulátor nyomásonként.
Tabindexbe elkezdtem megadni: 0-1-2-3-4-5, aztán amikor a 7. Textbox Tabindex értékének beírom a 6-ot, akkor felülírja az előző Textbox értékét 4-re az 5 helyett. Remélem érthetően letudtam írni, hogy mivel is van gondom. Remélem tudsz segíteni. -
gyga
senior tag
válasz
Delila_1
#13264
üzenetére
Szia. Rá érnél egy kicsit segíteni?
Röviden: kereső függvényt kellene kreálni ami a munka1 oldalon beírt összeghez kikeresi a munka2 oldalon az A oszlopban a beírt számtól egyel nagyobb összeget és kiírja a kikeresett szám feletti összeget, (az A oszlopban rendezetlen vannak az adatok, nem szabad módosítani, csak ami törölhető)
pl:
munka 2 A oszlopa így néz ki:
1 1502
2 201452
3 199586 nemfontos adat törölhető
4 2506 nem fontos adat törölhető
5 1905
6
7 1902
8 205654
9 200568 nemfontos adat törölhető
10 2500 nemfontos adat törölhető
11 2000A munka1 lapon ha beírok pl: 203958-at akkor az a8 érték feletti összeget írja ki tehát a keresendő érték csak nagyobb vagy egyenlő lehet mint a beírt összeg. A másik képlet pedig az a8 alatt kettővel lentebbi a11-es értéket írja ki.
-
kokopeti
csendes tag
válasz
Delila_1
#13251
üzenetére
Delila egyszerűen nem bírom megcsinálni...
Private Sub Workbook_Open()
Do
felh_nev = InputBox("Üdvözöllek a BMP CAR Kft. vállalatirányítási rendszerében! A továbblépéshez kérlek írd be a rendszergazdától kapott felhasználónevet!", "Bejelentkezés")
Loop Until felh_nev = "bmpcarkft"
Sheets("Adatok").Select
UserForm1.Show False
MultiPage1.Value = 0
End SubAmikor indítom addig lefut a programom, hogy bejön a bejelentkező oldal, beírom azt a "felhasználónevet" amit előre megadtam. Aztán ezután a program dolga az lenne, hogy nyissa meg nekem az elkészített Userform multipage oldalai közül a legelsőt ami a "Főoldal" nevet viseli. Csak ezzel a MultiPage1.Value = 0 sorral van problémája, de ez már a 10. verzió amit beírtam és halvány fogalmam sincs, hogy hogyan hivatkozhatnék rá, mivel a Főoldalról gombok segítségével is szeretnék hivatkozni a Multipage oldalaihoz külön-külön.
Még dolgozok rajta, de ez megint egy olyan probléma ami egy teljesen egyszerű kis parancs lehet, viszont nem jövök rá, hogy mi az a parancssor amivel hivatkozhatok rá. Amennyiben még nem akasztottalak ki titeket a tudatlanságommal, akkor ismét megköszönném a segítséget.
-
Gabesz87
veterán
Üdv!
Segítenétek légyszi! Olyan kérdésem lenne, hogy van egy táblázatom több munkalappal, és azt szeretném megcsinálni, hogy az egyik lapon lévő 9 jegyű számot a másik lapon lévő cellába 6 számjegyre kerekítve (értéknek megfelelően felfelé, vagy lefelé) beírom. Pl: "X" nevű munkalap E9 cellájában lévő 446 781 640 az "Y" munkalap G22 cellájában 446 782-ként szerepeljen! Ill. mi van akkor ha az "Y" lap adott cellájába kerülő kerekített összeg a másik munkalap több cellájából adódik össze? Ez esetben mi a képlet?
Előre is köszönöm a segítséget! -
Delila_1
veterán
válasz
kokopeti
#13247
üzenetére
Fire megadta a választ.
Egyszerűsítheted az adatok felírását az Adatok lapra, valamint a TextBoxok tartalmának a lenullázását, ha a beszédes nevek – vevo_nev, vevo_cim – helyett kivételesen a nehezebben követhető TB1, TB2 ... TB11 nevet adsz.
Private Sub Bevisz_Click()
Dim WSA As Worksheet, hova As Long, oszlop%, nev As String
Set WSA = Sheets("Adatok")
hova = WSA.Range("A65536").End(xlUp).Row + 1
For oszlop% = 1 To 11
nev = "TB" & oszlop%
WSA.Cells(hova, oszlop) = Controls(nev).Text
Controls(nev).Text = ""
Next
End SubMegjegyzésben beírhatod a makróba, melyik TextBox milyen értéket tartalmaz.
-
#13249
Fire/SOUL/CD
félisten
kokopeti
#13247
-
kokopeti
csendes tag
válasz
Delila_1
#13244
üzenetére
Lenne egy kérdésem. Ha létrehoztam egy többoldalas Userformot, aminek az első oldalát nevezzük egy "Főoldalnak". Ezen az oldallal kapcsolatos leírás található illetve pár gomb amik a userformon található másik fülekre hivatkoznak, illetve a munkafüzetben található egyéb munkalapra.
A kérdésem mindössze annyi lenne, hogy mondjuk a CommandButton1-el hogyan tudnék hivatkozni a Userformon található második fülemre, amit akkor nevezzünk "Bevitelnek"?!
Köszönöm a segítséget!
-
kokopeti
csendes tag
válasz
Delila_1
#13243
üzenetére
Beviteli mezőm lesz majd több. Egy olyan űrlapot szeretnék csinálni, ami egy Autószerviz nyilvántartó programja lenne. Szóval tudnia kell a Műszakiztatás adatainak bevitelét, a Szervizelést, Alkatrész beszerzést/eladást, Egyéb költségek, kiadások, bevételek adatbevitelét, illetve ezek megjelenítését és adatbázisba mentését, illetve statisztika készítését. A legtöbb részt megcsinálni egyszerű még számomra is, de azért vannak benne buktatók a kevéske tudásom miatt.
Megpróbálom akkor a UserForm-ot is belefabrikálni, aztán jelentkezem újra. Köszönöm
-
Delila_1
veterán
válasz
kokopeti
#13233
üzenetére
Hozz létre egy UserForm-ot, aminek a neve legyen pl. Bevitel. Tedd fel rá a beviteli mezőket, és a gombot, ami indítja az adatok tárolását.
A ThisWorkbook-hoz a
Private Sub Workbook_Open()
Sheets("Műszaki").Select
Bevitel.Show False
End Submakró kerüljön, ami a füzet behívásakor indítja a UserForm-ot.
A gombhoz ezt rendeld (gombon duplaklikk):
Private Sub CommandButton1_Click()
Dim WSA As Worksheet, hova As Long
Set WSA = Sheets("Adatok")
hova = WSA.Range("A65536").End(xlUp).Row + 1
WSA.Cells(hova, 1) = vevo_nev.Text
WSA.Cells(hova, 2) = vevo_cim.Text
WSA.Cells(hova, 3) = vevo_tel.Text
vevo_nev.Text = ""
vevo_cim.Text = ""
vevo_tel.Text = ""
End Sub -
poffsoft
veterán
válasz
kokopeti
#13235
üzenetére
Az a textbox az tuti texbox, nem mondjuk editbox?
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").EditBoxes("datum_d").Text
vagy
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes("datum_d").Text
(#13236): az jó.
És melyik soron hasal el? (debug)
- amúgy, ha gyanús, hogy ez a rossz, debug idejére miért nem kommenteled ki?
ja, most nézem, nem range-t neveztél el, hanem objektet.
Akkor marad az előző verziók közül az egyik, és értelem szerint a datum_d helyére mehet a vevo_nev .... stb...Mondtam, sajna nem értek hozzá, de most rákerestem, editboxes lesz az
-
kokopeti
csendes tag
válasz
poffsoft
#13234
üzenetére
A bemásolt makró vége már működött korábban olyan formában, hogy cella adatainak értékét másoltam át másik munkalap adott cellájába, illetve a nyomtatás is indult megfelelően...
Most az nem működik, hogy a beviteli mezőkbe írt szövegemet nem másolja át sehova és\vagy a beviteli mező értékét üresnek veszi miközben van bele írva. A datum= soromig minden rendben van, de ebben a sorban már nagyon beteg valami
Mindárt kipróbálom az általad írt sorral.Az általad írt sem fut le :S, de az 100%-hogy az általam írt
datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value alapjaiban rossz szerintem. -
poffsoft
veterán
válasz
kokopeti
#13233
üzenetére
Mondjuk én nem értek hozzá.
De :
változókat nem szoktuk definiálni a sub elején?
továbbá szerintem adatum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
.
.
.
Sheets("Adatok").Cells(hova, 1) = datumhelyett a
Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
is megfelelne...
ja, meg ha a mezőket már elnevezted, miért nem névvel hivatkozol rájuk?
Sheets("Adatok").Cells(hova, 2).Value = Range("vevo_nev").ValueTörléshez is elég lenne csak a range value paraméterébe ""-t írni:
Range("vevo_nev").Value =""Amúgy mi nem működik rajta? mi a hiba?
-
kokopeti
csendes tag
Sziasztok!
Megpróbálom érthetően elmagyarázni, hogy miben kérném a segítségeteket...(remélem sikerül :-P)
Szóval:
Excel 2003-ban űrlapo(ka)t hoztam létre párbeszédpanelen, mely egy nyilvántartó programhoz használnék. Van egy "Műszaki" elnevezésű panelem, amiben beviteli mezők vannak. (Név,Cím,Telefon...stb) Ezeket a beviteli mezőket a következőképpen neveztem el: (vevo_nev, vevo_cim, vevo_tel). Az űrlap kitöltése után a beviteli mezőkbe írt szöveget, értéket az "Adatok" nevű Munkalapra kellene átmásolni adott cellákba. Pl.: Név = A1 cella Cím=B1 cella Telefonszám=C1. Ha az adatokat átmásolta\helyezte, akkor törölje ki a kitöltött adatokat a beviteli mezőkből.Már a 4. napja szenvedek vele, de nem jövök rá a megoldásra.
Indulásnak itt a makró amit elkezdtem, de nem tudom megoldani a működését :SSub munkalap_Kattintáskor()
Sheets("Adatok").Select
Range("A1").Select
Selection.CurrentRegion.Select
sor = Selection.Rows.Count
hova = sor + 1
datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
nev = Sheets("Műszaki").Cells(3, 2).Value
cim = Sheets("Műszaki").Cells(4, 2).Value
telefon = Sheets("Műszaki").Cells(5, 2).Value
rendszam = Sheets("Műszaki").Cells(8, 2).Value
muszaki = Sheets("Műszaki").Cells(16, 2).Value
munka = Sheets("Műszaki").Cells(19, 2).Value
megrendelo = Sheets("Műszaki").Cells(2, 3).Value
auto = Sheets("Műszaki").Cells(10, 3).Value
potdij = Sheets("Műszaki").Cells(17, 3).Value
kedvezmeny = Sheets("Műszaki").Cells(21, 3).Value
Sheets("Adatok").Cells(hova, 1) = datum
Sheets("Adatok").Cells(hova, 2) = nev
Sheets("Adatok").Cells(hova, 3) = cim
Sheets("Adatok").Cells(hova, 4) = telefon
Sheets("Adatok").Cells(hova, 5) = rendszam
Sheets("Adatok").Cells(hova, 6) = munka
Sheets("Adatok").Cells(hova, 7) = muszaki
Sheets("Adatok").Cells(hova, 8) = megrendelo
Sheets("Adatok").Cells(hova, 9) = auto
Sheets("Adatok").Cells(hova, 10) = potdij
Sheets("Adatok").Cells(hova, 11) = kedvezmeny
Sheets("Munkalap_m").Select
dlgAnswer = Application.Dialogs(xlDialogPrint).Show
Sheets("Műszaki").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
ActiveCell.FormulaR1C1 = ""
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
Range("B6").Select
ActiveCell.FormulaR1C1 = ""
Range("B7").Select
ActiveCell.FormulaR1C1 = ""
Range("B8").Select
ActiveCell.FormulaR1C1 = ""
Range("B9").Select
ActiveCell.FormulaR1C1 = ""
Range("B10").Select
ActiveCell.FormulaR1C1 = ""
Range("B11").Select
ActiveCell.FormulaR1C1 = ""
Range("B12").Select
ActiveCell.FormulaR1C1 = ""
Range("B13").Select
ActiveCell.FormulaR1C1 = ""
Range("B14").Select
ActiveCell.FormulaR1C1 = ""
Range("B15").Select
ActiveCell.FormulaR1C1 = ""
Range("B16").Select
ActiveCell.FormulaR1C1 = ""
Range("B17").Select
ActiveCell.FormulaR1C1 = ""
Range("B18").Select
ActiveCell.FormulaR1C1 = ""
Range("B20").Select
ActiveCell.FormulaR1C1 = ""
Range("B21").Select
ActiveCell.FormulaR1C1 = ""
Sheets("Főoldal").Select
End Sub -
cousin333
addikt
válasz
VásRló
#13221
üzenetére
Szerintem így direktbe sehogy. Én a következőt csinálnám:
- A DÁTUM és IDŐ, valamint a KÖZÉP függvények segítségével meghatároznám az időt emészthető formában. A képlet, feltéve, hogy a kérdéses dátumod az A1-es cellában van:
=DÁTUM(KÖZÉP(A1;7;4);KÖZÉP(A1;4;2);KÖZÉP(A1;1;2))+IDŐ(KÖZÉP(A1;12;2);KÖZÉP(A1;15;2);0)
- Ezt beírnám a mellette lévő oszlop minden sorába, ahol ilyen dátum szerepel
Ez így már sorbarendezhető. Ha mindenképpen az eredeti felállás kell, akkor:
- Fognám ezt az új oszlopot, és másolás, irányított beillesztéssel (csak az értéket) bemásolnám az eredeti dátumoszlopba.
- Majd kijelölve ezt a régi-új oszlopot, a cellaformázásnál egyéni formátumot adnék meg a következő formátumkóddal:
nn.hh.éééé óó:pp
Ekkor elvileg ugyanúgy fog kinézni az eredeti és az új oszlop, de már sorba is lehet rendezni. Tesztelve, nálam működött (Excel 2010).
-
#13231
Fire/SOUL/CD
félisten
aisten
#13224
válasz
aisten
#13224
üzenetére
Nem tudom milyen verziót használsz ez most a 2010-esben így lehet
1. kijelölöd a másolandó tartományt (az egészet a rejtettekkel együtt)
2. kezdőlap fül/szerkesztés csoport/keresés és kijelölés lenyíló/ugrás
3. irányított gombon katt/csak a látható cellák kijelöl és ok
4. Másol/irányított beillszetés/Képlet bejelöl OK -
Delila_1
veterán
válasz
#74459392
#13229
üzenetére
Ha az A1 cellában van a 4 tizedesed, akkor egy üres oszlopba beírod a képletet. A képlet első paramétere a cellahivatkozás (A1 a példában), a második paraméter adja meg, hogy hány tizedesig akarod kerekíteni a számot.
Lemásolod a képletet, ameddig az adataid tartanak. Vagy az új oszlopot használod ezután, vagy kijelölöd, másolod (Ctrl+c), ráállsz az első 4 jegyű cellára, jobb klikk, Irányított beillesztés, Érték. Ezzel a művelettel az eredeti oszlopodat felülírod az új, 2 tizedest tartalmazó számokkal, a segédoszlopot törölheted.
Vigyázat! Ha az utóbbi módszert alkalmazod, és az eredeti oszlopban képletek voltak, a képletek helyére fix számok kerülnek.
Azt is megteheted, hogy ha képlet hozta létre a 4 tizedest, a teljes képletet kerekíted eleve.
=KEREKÍTÉS(képlet(...);2) -
#74459392
törölt tag
Sziasztok!
Van egy 4 tizedesjegyű számom és utána a cellaformátumnál beállítom 2 tizedesjegyre. Amikor ezzel a 2 tizedesjegyű számmal dolgozok tovább, a program ugyan csak 2 tizedesjegyet mutat, de az eredeti 4-el számol. Hogyan lehetne azt megoldani, hogy a 4 tizedesjegyű számot 2 tizedesre alakítsa és utána azzal is számoljon tovább?
-
aisten
csendes tag
Sziasztok!
Lehet alap kérdést teszek fel:
Egyik fül oszlopát szeretném átmásolni a másik fülbe, de sorba (irányított beillesztés, transzformáció, eddig megvan) de, az oszlopból csak minden 5. cella kellene, a többi el van rejtve, de másolásnál azokat is továbbviszi. Be lehet valahol állítani, hogy a elrejtet cellákat ne másolja?
köszi
-
Delila_1
veterán
válasz
plaschil
#13220
üzenetére
A makró az N oszlopba kigyűjti az A oszlopban lévő szövegeket, és mindegyik mellé beírja csökkenő sorrendben a hozzá tartozó top5-öt az O:S oszlopba.
Ha 100-nál több féle adatod lehet az A oszlopban, a makróban jelzett sorban írhatod át.Sub Top5()
Dim sor As Long, sor1 As Long
Dim usor As Long, usor1, cim, ertek
Dim T(100, 5) '***** Itt írd át a 100-at *****
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
usor = ActiveSheet.UsedRange.Rows.Count
Columns("A:A").Select
Range("A1:A" & usor).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"N1"), Unique:=True
usor1 = Range("N1").End(xlDown).Row
For sor1 = 2 To usor1
cim = Cells(sor1, 14)
For sor = 2 To usor
ertek = Cells(sor, 2)
If Cells(sor, 1) = cim Then
If ertek > T(sor1 - 1, 1) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 2) = T(sor1 - 1, 1)
T(sor1 - 1, 1) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 2) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 2) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 3) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 3) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 4) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 4) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 5) Then T(sor1 - 1, 5) = ertek
End If
Köv:
Next
Range("O" & sor1) = T(sor1 - 1, 1)
Range("P" & sor1) = T(sor1 - 1, 2)
Range("Q" & sor1) = T(sor1 - 1, 3)
Range("R" & sor1) = T(sor1 - 1, 4)
Range("S" & sor1) = T(sor1 - 1, 5)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub -
VásRló
tag
Egy gyors kérdésem van. Adott egy excel oszlop, benne dátumok, időpontok.
pl. 01.11.2011 08:17
és a 2. tag a hónap, tehát a 11.
Az első tag a nap.A kérdésem, hogy tudnám időrendi sorrendbe rendezni ezt? Mert az excel az elejével kezdi, azzal kezdi növekvő sorrendbe rakni.. de igazából a 2011-gyel kellene kezdeni, utána a középső résszel, utána a bal oldallal, és utána jöhetne az óra perc..
-
plaschil
aktív tag
Hello!
Maximum-keresésre valaki írt már makrót? Valami olyasmire lenne szükségem, hogy mondjuk a top5-öt (5 legnagyobbat) szedje ki nekem.
pl van 2 oszlopom, egyikben stringek, másikban számok:
a 1
a 1
a 2
b 2
b 3
b 4És akkor az "a"-k közül a top5, "b"-k közül a top5 stb...
-
kutga
félisten
Sziasztok!
Excel 2003-ban adott egy hosszú lista, cégnevekkel egy oszlopban egymás alatt, van amelyik többször is előfordul.
Szeretnék egy külön munkalapra egy olyan szűrést csinálni ami minden listában szereplő nevet csak egyszer tartalmaz, lehetőleg ABC sorrendben.
Mi lenne a legegyszerűbb módszer?
-
#13215
Delila_1
veterán
Solar_Wind
#13211
Delila_1
veterán
válasz
Solar_Wind
#13211
üzenetére
Szívesen.
-
tzsolesz
nagyúr
Üdv srácok.
Lenne egy nagy problémám.
Van egy nagy kimutatásom, ahová a születési dátumokat kellett gyorsan egy állományról beírnom. De mivel gyorsan kellett, így csak elég kusza formában sikerült ezt megvalósítanom.
Nah már most szeretném ha ez a dátum a következő formában jelenne meg: 1900.01.01
Most így néz ki. [link]
Milyen képlettel lehetne rendbe tenni?
.
amint lehet kipróbálom.
Új hozzászólás Aktív témák
Fferi50- Milyen belső merevlemezt vegyek?
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Milyen nyomtatót vegyek?
- AMD GPU-k jövője - amit tudni vélünk
- Lexus, Toyota topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Milyen légkondit a lakásba?
- Amlogic S905, S912 processzoros készülékek
- Fejhallgató erősítő és DAC topik
- Linux Mint
- További aktív témák...
- Bomba Ár! Lenovo ThinkPad E14 G2 AMD - Ryzen 5 I 8GB I 256SSD I 14" FHD I HDMI I W11 I Gari
- Fotó állvány eladó
- Xbox Series kontrollerek 1 hó garancia, számlával!
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue - 1 ÉV GARANCIA, Kártyafüggetlen, 100% Akkumulátor,MS3379
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3340
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest