- Milyen videókártyát?
- Milyen egeret válasszak?
- Vélemény: nem úgy tűnik, de Lip-Bu Tan most menti meg az Intelt
- RAM topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 5.1, 7.1 és gamer fejhallgatók
- Apple asztali gépek
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen monitort vegyek?
- Vezetékes FEJhallgatók
-
PROHARDVER!
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
-
#8930
JamesHolden
aktív tag
Delila_1
#8929
JamesHolden
aktív tag
válasz
Delila_1
#8929
üzenetére
Még egy dolog eszembe jutott amibe még talán segíthetnél!
Megpróbálom érthetően leírni:
Adott mondjuk ugyanaz a tábla amit az előbb belinkeltem, legyen a C oszlopban társítva minden cikkszámhoz 1-1 beszállító (egy beszállító több cikkszámot is érint)
Milyen parancsal tudnék egy beszállítói listát csinálni ebből a táblából?
Tehát arról szeretnék listát látni, amit a szűrésnél látok:
-
bugizozi
őstag
válasz
Delila_1
#8868
üzenetére
Köszönöm szépen Delila_1 és perfag a válaszokat!
Jónak tűnik amit írtatok, de az igazat megvallva a 8879-8880 hsz nekem hasznosabbnak bizonyult
Annak segítségével meg tudtam határozni az utolsó nemüres sort, amit egy változóba tettem és a ListFillRange segítségével feltöltöttem a ComboBox-ot. Nem tudom mennyire érthető amit írtam, ezért a kódom is leírom
Dim ucso As Long
ucso = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.ListFillRange = "Munka2!A2:A" & ucso & ""Köszönöm mégegyszer a gyors reakciókat!
-
#8853
Alfonzka77
csendes tag
Delila_1
#8852
Alfonzka77
csendes tag
válasz
Delila_1
#8852
üzenetére
Szia!
először is köszi a segítséget!
Nem egészen... Úgy kellene nekem, hogy minden három sor átlagát számolja ki.
(aszem nem bírom megoflgamazni... )
Szóval.pl.
k1= átlag(a1:A2:A3)
K2=átlag(a4:a5:a6)
k3=átlag(a7:A9)
stbstbaztán pl. L1=átlag(b1:b3) L2=átlag(b4:b6)... stb
van kb 40 txt-m amiben ezek az értékek vannak, darabja kb 900-1200 sorral és mindengyikban 7-11 oszloppal. Sajnos a további feldolgozáshoz sok, ezért kellene nekem csökkenteni a mintaszámot amire az átlagolás egy járható mód lenne... Próbálgatom a makrót, de nem bírok rájönni, hogy lehet olyan változót csinálni ami folymatosan nő hármasával és lehet rá hivítkozni mint range...
csináltam egy próbát, hátha igy írthetőbb mi a célom. csak nem tudom képként feltölteni...
-
snowden
csendes tag
válasz
Delila_1
#8825
üzenetére
Igazából az lenne a cél, hogy ha az 1,9 cella értéke x, akkor az 1,10 cellában az x,3 cella értéke jelenjen meg.
Először erre szeretnék megoldást találni, utána pedig ha lehetséges, akkor az 1, 10 cella helyett egy másik munkalapon szeretném megjeleníteni az x,3 cella értékét.
-
#8819
m.zmrzlina
senior tag
Delila_1
#8817
m.zmrzlina
senior tag
válasz
Delila_1
#8817
üzenetére
Hogy egészen pontosak legyünk akkor ennél a változatnál a kijelölés és a képlet így néz ki:
Mert hogy nem a D oszloptól hanem az A-tól indulunk. Na jó B-től. :-)
"azt szeretném ha például adunk egy háttérszínt a B5-nek akkor az alatta lévő oszlop is színes legyen, illetve így tovább ha C5-nek, ha E5-nek, mikor melyik kellene"
-
Delila_1
veterán
válasz
Delila_1
#8795
üzenetére
Tegnap nem néztem meg a hozzászólás küllemét. Mivel a teljes hsz-t konvertálatlannak jelöltem be, furcsa, és olvashatatlan összhatása lett. Megpróbálom világosabbá tenni.
Ezt makró nélkül is el lehet intézni.
Az A:C oszlopok értékei adottak. Érdemes az A oszlopot csökkenő sorrendbe rendezni.
Címsort feltételezve a
D2 képlete =C2+SOR()*0,00001. Ezzel különbséget teszünk az azonos osztályzatok sora között.
A J2 képlete =INDIREKT("A" & HOL.VAN(L2;D:D;0)),
a K2-be =INT(L2),
a L2-be =KICSI(D:D;SOR()-1) képlet kerül.Egyébként az A oszlop alsó sorát egyszerűbben is kikeresheted:
v = Range("A1").End(xlDown).Row
Ez a sor azt a folyamatot teszi át VB-be, mikor az A1 cellán állva Ctrl+le nyilat nyomsz, és a v változóban eltárolja az aktuális sor számát. -
perfag
aktív tag
válasz
Delila_1
#8791
üzenetére
Ezzel nem tudok egyetérteni. Az élőlábat élőlábnak hívják, a lábjegyzet az meg lábjegyzet. Az élőfej/láb valami ami minden oldalon ismétlődik, a lábjegyzet viszont a tartalmat kiegészítő megjegyzés, oldalfüggő.
A hekkelésről: Rendben, talán nem nyomja el a számolást, de ha egy cellába benyomorítunk valamit attól az még nem lesz lábjegyzet, csak úgy néz ki. Nem tartozik hozzá csatolt információ - akkor meg mi értelme? -
biker
nagyúr
válasz
Delila_1
#8777
üzenetére
Hehe, megvan a hiba
"Te voltál" a ludas.
Pont olyan volt a levél, mint a többi vírus/spam
"Szia, megvan a file, csatoltam" és a file Úgy vágtam a kukába, mint a pinty, csak most néztem vissza, hogy jéé, ez ismerős filenév
Tudod, ilyenből jön heti 5-10 db, és már rutin volt
No, de megvan, köszi -
#8772
Fire/SOUL/CD
félisten
Delila_1
#8771
válasz
Delila_1
#8771
üzenetére
Gondolom az Én megoldásom egy kicsit "elborultnak" találod nem?
Hát igen, sajnos vannak egy páran, akik néha eltűnnek egy jó időre, egy szó nélkül, és ha előtte az ember rászánt a saját idejéből (néha nem is kevés időt), akkor legalább annyi elvárható lenne, hogy legalább megírja, hogy "ok minden rendben, köszi. Most egy időre eltűnök..." vagy valami...
Zomb€€
i = 48
j = 40
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-" & j & "]C[-1]"
Range("D" & i + 1).Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-" & j + 1 & "]C"Értelem szerűen egy ciklusba teszed, aztán növelgeted az I és J változót (gondolom kettővel)
-
#8769
Fire/SOUL/CD
félisten
Delila_1
#8766
-
#8765
Fire/SOUL/CD
félisten
Delila_1
#8760
válasz
Delila_1
#8760
üzenetére
Na végre megoldottam mindent, elméletileg minden oké. Már kóserok a golyók
Írj(akár privebe és küldöm ha érdekel a munkafüzet)Szerk
Elküldve. -
#8763
Fire/SOUL/CD
félisten
Delila_1
#8760
-
#8759
Fire/SOUL/CD
félisten
Delila_1
#8758
válasz
Delila_1
#8758
üzenetére
Az nem kóser, hogy a szoroban nem használt golyói nem látszódnak...Pl az előbbi képen amit linkeltem a nulla az nem ugy kell hogy kinézzen, hanem felülről lefelé
teli
üres
üres
teli
teli
teli
teliSzóval mint amikor lenullázod a szoroban-t....
Igen, sima függvényekkel dolgoztam(meg még nekiugrom majd)
Te írtad, hogy nem lehet makrózni...![;]](//cdn.rios.hu/dl/s/v1.gif)
Azzal sec-perc kész lenne... -
#8757
Fire/SOUL/CD
félisten
Delila_1
#8750
válasz
Delila_1
#8750
üzenetére
Hirtelen felindulásból eddig jutottam, ami még nem megfelelő, remélem nem kell teljesen más módszerhez folyamodni: A maradék golyók még nem kóserek...
-
mcll
senior tag
válasz
Delila_1
#8734
üzenetére
Igen rendben van. Így egyszerűbb egy kicsit a script. Ráadásul ha több oszlop van akkor azok tartalmát is kiírja az új fájlba. Köszi.
Még egy kérdés. Van-e arra mód hogy a result.xls-t valamiképp előre formázzam? Értem ez alatt hogy adok neki fejlécet meg megadom az egyes oszlopok szélességét.
Vagy hol találhatok érthető leírást, segítséget a VB-hez, ahol ennek utána tudnék nézni (tehát egy kezdő számára).
-
#8687
Fire/SOUL/CD
félisten
Delila_1
#8686
válasz
Delila_1
#8686
üzenetére
1. Őszintén szólva nem is gondoltam arra, hogy lazlo8 hsz-ában az első kérdése, az a másodikban szereplő makróra vonatkozik
2. Az adott pdfcreator-os kódban ez meg letudva(ciklusba van szervezve)
Csak infóként: 2007/2010-es Office-ban létezik PDF Add-In, illetve enélkül is lehet PDF-be menteni, ha telepítve van Acrobat Reader...Ez esetben maga a VBA is ad lehetőséget rá...
-
-
Mike318
csendes tag
válasz
Delila_1
#8658
üzenetére
Na itt vagyok. Szóval a program végén egy SELECT CASE konstrukcióban minden ág hasonlóan végződik
Workbooks(fofnev).Save
Workbooks(akteladfajl).Close SaveChanges:=True
If hiba = 1 Then Workbooks(fofnev).Save
hiba = 0Workbooks(tfnev).Close SaveChanges:=True
Workbooks(dfnev).Close SaveChanges:=FalseEnd ' kilépés a programból
Case 2
...........stb.Erre minden esetben a Nem megfelelő funkció! üzenet jön.
-
iwu
addikt
válasz
Delila_1
#8660
üzenetére
nah, parádé! de hát nem is gondoltam volna, hogy nem
nah, be ctrl-v-ztem a tábla első 2 sorát.egy pc leltár. ennek a táblázatnak van jópár sora.
Az kellene nekem, hogy ebből a táblából készülne egy olyan új excel tábla, aminek a sheet nevei a Computer nevű oszlopban találhatóak, és minden sheetben a computer adatai (neve ism valamint az oszlop név) megjelenne 1-1- cellában egymás alatt.Computer Domain OSname Description Manufacturer Model Clockspeed Memory Disk
Fileserver bubuka Win 2003 Server_BP2 ASUS A7V400-MX 1992 1024 48tehát ebből lenne egy olyan shhet, aminek a neve Fileserver, és a tartalma
Computer: Fileserver
Domain: Bubuka
Osname: win2003
.
..
...thx, előre is:iwu
-
rekid
addikt
válasz
Delila_1
#8640
üzenetére
Mert az a probléma megkerülése nem pedig a megoldása
Persze ha nincs más marad ez.Fire/Soul/CD:
Sajnos ez a megoldás nem jo nekem. Gyakorlatilag arrol van szo hogy van több hőtermelőd egy rendszerben amellyel tartályokat fűtesz fel és nekem idoben látnom kell hogy adott homersekletnel melyik hotermelo volt bekapcsolva es meddig. De ugye a be/ki kapcsolast 0-1 el irod le. A vicc az hogy linux alatt egy gnu plottal siman tudsz ilyeneket csinalni, csakhat ha megrendelo windows-t ker.. Kicsit furcsa hogy egy 2007-es office egy ilyen aprosagra nem kepes.
Azert köszönöm a segitseget! -
lazlo8
tag
válasz
Delila_1
#8636
üzenetére
oké ezt ha 1-1be bemásolom akkor nem mukodiik,
mit irjak az mi legyen az utvonal, melyik fájlt nyissam meg, filenév megadása... stb. helyekre?
bocs h értetlen vagyok de kezdőként még nem nagyon értem a makrókat.
fogalmazhatnék ugyis h mik a változo paraméterek ami helyére én C:\-it irhatok vagy legalább egy *.xls-t -
#8606
Fire/SOUL/CD
félisten
Delila_1
#8603
-
boecce
tag
válasz
Delila_1
#8542
üzenetére
excel97-nél is:-) meg lehet hogy még korábbiaknál is! Tényleg pofon eccerű, nem tudom miért gondoltam, hogy az, ami ezen a panelon van, az kőbe is van vésve!! Nagyon köszönöm!! Ha tudnád, évekkel ezelőtt hányszor töröltem-írtam újra a makrót, csak mert figyelmetlen voltam !!
(mire jó egy makró?? aki "lusta" újra leírni a feladatot, az automatizál. de lehet hogy gondolkodni is lustává válik.)Még egyszer köszönöm!!
-
#8514
Fire/SOUL/CD
félisten
Delila_1
#8513
válasz
Delila_1
#8513
üzenetére
Hali!
itt most milyen képlet is szerepel a C1-be?
"Ez most egy akadémista vita"
Jó legyen az, akkor meg a feladat nem ez, a legelső képletedet C1-be aztán kész is a feladat. A felvett oszlopok (IJKLM stb) feleslegesek innentől kezdve, mint ahogy az D oszlopba több vezetéknév illetve a E oszlopba a több email is, mert "döglött adatok", sosem kerülnek felhasználásra...Fire.
-
#8512
Fire/SOUL/CD
félisten
Delila_1
#8511
válasz
Delila_1
#8511
üzenetére
Hali!
"Most csak megdupláztad az E tartalmát."
Nem igazán, mert ha nem szerepel a B oszlopban, akkor nem lesz ott a mail címe, lásd esetedben fabian esetén.Nézd az alapkérdés az, hogy ezzel a struktúrával hogyan tudnánk kivitelezni azt, hogy egy embernek több mailcíme van azokat megjeleníteni és emellett azt valahogy "jelölni", hogy az illető szerepel-e a B oszlopban...(merthogy volt ilyen irányú felvetés rTyler részéről)
Én abban látom a problémát, hogy ha szerepel B a D-ben, akkor csak 1 mailcímet írhatsz oda, ha nem egy mailcímet írsz egymás alá a C oszlopban, akkor áttekinthetetlen, ha annyi oszlopot áldozunk fel, ahány mailcíme van, akkor meg csak makró, mert hagyományos képlettel nem tudhatod, hogy hány darab mailcíme van valakinek. Ezért ez a megoldás ezért nem feltétlen megfelelő, hisz mindig újabb és újabb oszlopba kellene képlet, attól függően, hogy hány mailcíme van valakinek.
Természetesen, ha ez korlátozva lenne pl max 5, akkor nyilván a megoldásodat kibővítve több oszlopra tökéletes megoldás lenne.Fire.
-
#8510
Fire/SOUL/CD
félisten
Delila_1
#8509
-
#8484
Fire/SOUL/CD
félisten
Delila_1
#8482
-
-
#8474
Fire/SOUL/CD
félisten
Delila_1
#8473
-
#8459
m.zmrzlina
senior tag
Delila_1
#8458
m.zmrzlina
senior tag
válasz
Delila_1
#8458
üzenetére
A kérdéseimre adott válaszokból meg a linkekből amiket kaptam pont azt deriváltam le hogy címkét nem lehet teljes munkafüzetre érvényes hatókörrel létrehozni a Public változók mintájára.
Szerintem marad a #8451-es hsz-ben vázolt ragasztgatós-szegelős megoldás. Bár ahogy #8457-ben láttam nem is annyira amatőr módszer.
Kész kódokra pedig végképp nem számítok mivel én ide nemannyira halért mint inkább hálóért járok.
Ha már háló. Lehet ezt a két parancsot egy sorban kiadni? Elegánsabb lenne.
If ActiveCell.Value = "" Then isLastRow = True
If ActiveCell.Value = "" Then Exit Sub -
#8451
m.zmrzlina
senior tag
Delila_1
#8448
m.zmrzlina
senior tag
válasz
Delila_1
#8448
üzenetére
Vagy estleg az is megoldás lehet, hogy a belső szubrutinban:
ha feltétel=igaz akkor egy logikai tipusú változót igazra állítok majd exit subAztán a főciklusban a hívás utáni sorban levizsgálom ezt a változót és igaz esetén innen már tudom küldeni a cimkére hamis esetén pedig foltatódik a főciklus a következő hívással.
Így fejben úgy tünik működhet ez a megoldás csak egy kicsit erőltetettnek tűnik.
Hogy szokták az ilyet csinálni?
-
#8449
m.zmrzlina
senior tag
Delila_1
#8448
m.zmrzlina
senior tag
válasz
Delila_1
#8448
üzenetére
A kód szerkezete olyan, hogy van egy főciklus ami vegyesen tartalmaz szubrutin hívásokat és programsorokat is.
A probléma ott kezdődik, ha egy szubrutinban bekövetkezett feltétel esetén a főciklus megadott pontján szeretném folytatni a program futását.
Ha egy cikluson belül vagyok akkor GoTo címke és készen van. Azonban ha a cimke a szubrutinon kívül van akkor jön ez a hibaüzenet.
Gondoltam van valami módja ennek a teljes munkafüzetre kiterjedő cimke megadásának ahhoz hasonlóan mint hogy változót is másképp kell deklarálni, ha nem csak egy szubrutinban akarom használni.
-
#8439
Fire/SOUL/CD
félisten
Delila_1
#8438
-
Oly
őstag
válasz
Delila_1
#8436
üzenetére
Vagyis
if fizeto=false AND ingyeno=false Then
MsgBox "Válassz díjazást!"
End if
if futaro=false AND postao=false Then
MsgBox "Válassz szállítási módot!"
End if
És itt jöhet a fiz és fut értékeinek megadása?Arra is gondoltam, hogy egy ilyen Yes/No felugró üzit kellene, amiben a két választási lehetőség a Yes/No helyett: Fizetős/Ingyenes.
Így tuti nem felejtik el jelölni, és nem foglalja a helyet sem a Formon a sok kis pötty. -
#8420
m.zmrzlina
senior tag
Delila_1
#8419
m.zmrzlina
senior tag
válasz
Delila_1
#8419
üzenetére
Hát nem igazán.
Azt szeretném, hogy definiálok egy változót majd a program futása során értéket adok neki.
Valahogy így:Dim hatterszin As "nemtudommelyik"
.
.
.
.
hatterszin=RGB(0,255,0)aztán így használnám:
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = hatterszin
.TintAndShade = 0
.PatternTintAndShade = 0
End With -
#8365
m.zmrzlina
senior tag
Delila_1
#8364
m.zmrzlina
senior tag
válasz
Delila_1
#8364
üzenetére
Kiindulásnak jó az elképzelés, csak nagyon fontos lenne, hogy a működéseket egymáshoz képest is vizsgálni lehessen. Ezért minden lámpa állapotát minden másodpercben (na jó percre kerekítve is jó első körben, az csak 1440 cella) kell látni.
Vannak olyan állapotok amikor nagyon informatív tud lenni az, hogy pl mindhárom lámpa ugyanabban a másodpercben (percben) alszik el vagy gyullad ki. Máskor pont az mond el sokat, hogy "összevissza" kapcsolgatnak.
Ezért kell minden másodperc (perc) állapotát ismerni és kijelezni, ezért gondoltam arra, hogy ha minden időegységnek saját cellája van és a három oszlopot egymás mellé helyezem akkor könnyebben le lehet ellenőrizni hogy pl 12:35:18 mp-kor melyik lámpa mit csinált.
Csak hát 86400 cellát nem egyszerű kezelni. Nekem legalábbis
:-) -
Oly
őstag
válasz
Delila_1
#8333
üzenetére
Köszike.
Úgy látom, hogy arról a Sheetről veszi be az adatokat, amelyikről meghívom a Formot.
Ezért egy kicsit át kell alakítanom a cuccot, de megoldható.Relatív hivatkozást lehet adni a Formon a tartalmaknak?
Gondolok itt olyanra, hogy pl egy listát akarok kitölteni és az A2-be írja a az első textbox tartalmát, a B2-be a második TextBox tartalmát, majd egy SpinButtonnal átlép a 3. sorra, de ugyanakkor vissza is léphessek a 2. sorra.
Hasonlóan az Acces űrlapjához.
Remélem érthető. -
#8329
Fire/SOUL/CD
félisten
Delila_1
#8328
-
Oly
őstag
válasz
Delila_1
#8322
üzenetére
Variálok még egy kicsit:
Ha az adott cellába a TextBox1 és a TextBox2 tartalmát akarom egy szóközzel "összefűzve, akkor hogy alakul a dolog?
Pl a Formon a Vezeték és Keresztnév külön Boxba kerül beírásra, de a táblában, már egybe íratnám.
Így?
Private Sub CommandButton1_Click()
Application.Goto Reference:="bevitel"
Selection = TextBox1.Value & TextBox1.Value
End Sub -
sonar
addikt
válasz
Delila_1
#8312
üzenetére
Meg tudom csinálni irányitott beillesztéssel az nem nagy kunszt.
Csak az a bajom, hogy néha elfelejtem beilleszteni és fontos lenne, hogy mindig azonos legyen az a két cella ezért kellene vmi fv v excel beállitás. (Makróval is meg tudom csinálni, de azt is kihagynám a buliból) -
-
bnorci71
addikt
válasz
Delila_1
#8251
üzenetére
szuper köszönöm
következő full extra kérés és ezzel szerintem 100%-ra kész a tabella
az utolsó oszlopba ha felfelé mozdult a csapat felfelé nyíl ha lefelé lefelé nyíl ha marad akkor nyégyszög vagy karika kerüllne.
Ennek megoldására elképzelésem sincs
, gondolom szintén makró kell. -
-
motinka
tag
válasz
Delila_1
#8235
üzenetére
Igazán az lenne a megoldás, ha a C oszlopban a lenyílóban egy karakter (pl:+ jel)bevitele váltaná ki az eredeti állapot visszaállítását (képlet szerinti cella)
A lényeg hogy a visszaállítás mindig csak az adott cellára legyen érvényes, és nem az összesre.Most hogy így is átgondolom, a C cellába alapban benne van a képlet. Ez ugye egy mozdulattal átírható, azaz képlet eltünt.
És most: ha egy + jelet írunk a cellába akkor a képlet újra beírodik.
Na talán most érthetőbb voltam, bár nem vagyok sem ebben biztos, sem abban hogy van megoldás erre
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Azzal sec-perc kész lenne... 
Egyetlen megjegyzés hozzá, hogy valószínűleg kimaradt egy sor a kód elejéről, ez 
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Apple iPhone 16 128GB Kártyafüggetlen 1Év Garanciával
- Napi 700 ft tól elvihető RÉSZLETRE BANKMENTES HP 840 G11 Ultra 5
- AKCIÓ! ASUS B460M i7 10700 16GB DDR4 512GB SSD GTX 1080Ti 11GB KOLINK Observatory TG TT 600W
- Apple iPhone 13 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 12 Mini 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest