Hirdetés
- Konvektor korszerűsítés - Computherm KonvekPRO felszerelése Q7RF szobatermosztát
- Öregszem
- Szólánc.
- GPU-k mindörökké - a kezdetek?
- Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- eBay-es kütyük kis pénzért
- Fűzzük össze a szavakat :)
- Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Asszociációs játék. :)
- Milyen mosógépet vegyek?
-
LOGOUT.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
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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
-
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.
-
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.
[ Szerkesztve ]
A kisebbség is számíít, teszkó.
-
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. -
#13267
Fire/SOUL/CD
félisten
kokopeti
#13266
válasz
kokopeti
#13266
üzenetére
Group-on belül megy a TabIndex, azaz esetedben minden Frame-en belül kezdődik újra 0-tól. Magyarul a 7. textbox tabindex-e ismét 0, mert az egy másik Frame-ben van már.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#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!
-
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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?!
PC
-
-
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.
-
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! -
#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
-
Delila_1
veterán
válasz
#74459392
#13285
üzenetére
1. táblázat üres oszlopába:
=HA(HIBÁS(HOL.VAN(A1;'2. táblázat'!H:H;0));"";INDEX('2. táblázat'!F:H;HOL.VAN(A1;'2. táblázat'!H:H;0);1))
Természetesen a '2. táblázat' helyett a saját lapod nevét írd be.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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....
[ Szerkesztve ]
[ Szerkesztve ]
-
-
-
-
Delila_1
veterán
Megbolondult az egerem. A sima kattintást duplának értelmezi, ezért több esetben kétszer kerül ide 1-1 hozzászólásom, elnézést kérek.
Más helyeken is ezt műveli, rengeteg bosszúságot okozva.
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
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.
[ 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.
-
krisztian7
tag
válasz
Delila_1
#13297
üzenetére
Sziasztok,
egy egyszerű dolgot nem sikerül sehogy se megcsinálnom, pedig tudom, hogy nem bonyolult
Egy táblázatot hetenként kellene rendeznem és a felső sorba ezt kiíratnom:
03.19 - 03.25 és ugye ez továbbhúzva folyamatosan az év végéig. Tudtok segíteni?[ Szerkesztve ]
-
#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ó....
[ Szerkesztve ]
[ Szerkesztve ]
amint lehet kipróbálom.
.Új hozzászólás Aktív témák
Hirdetés
Fferi50- Audi, Cupra, Seat, Skoda, Volkswagen topik
- 3D nyomtatás
- OLED TV topic
- Elektromos autók - motorok
- LEGO klub
- Kínai és egyéb olcsó órák topikja
- Poco F6 5G - Turbó Rudi
- Projektor topic
- Felmerült az Intel és az AMD egyesülése
- Socket AM5-ös ASRock alaplapok az AMD X870E/X870 platformon
- További aktív témák...
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akciók!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Új Windows 7, 8.1, 10, 11 telepítő pendrive-ok, pendrájvok és telepítőlemezek, DVD-k
- 3 havi XBOX GAME PASS Ultimate PC-re Xboxra
- Casino Deluxe 2(Sierra) pc játékszoftver
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: HC Pointer Kft.
Város: Pécs