-
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 WildBoarTeam #6409 üzenetére
Most nem azon a gépen vagyok, ahol kész van a megoldás. Később belinkelem.
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 WildBoarTeam #6409 üzenetére
Megjöttem, itt van a kastély linkje.
[ 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 WildBoarTeam #6441 üzenetére
Kicsit többet kellene tudni a feladatodról. Mi a lapok neve, hol helyezkednek el az adatok.
Írtam egy rövid kis makrót. Az egyik lap neve Készenlét. Ennek az A oszlopában vannak a nevek, mellettük a B oszlopban a dátum, mikor készenlétben voltak. Egy-egy név többször is szerepel.
A Nevek lap csakis a dolgozók nevét tartalmazza, az A oszlopban. Mindkét lapon az első a címsor, az adatok a 2. sorban kezdődnek.
A makró a Nevek lapon mindenki neve mellé beírja a dátumokat (mindig a következő oszlopba), amikor készenlétben voltak.Sub Datumok()
Dim sor, sor_k, usor_k, oszlop As Integer
usor_k = Sheets("Készenlét").Range("A65000").End(xlUp).Row
Sheets("Nevek").Select
For sor = 2 To ActiveSheet.UsedRange.Rows.Count
For sor_k = 2 To usor_k
If Sheets("Készenlét").Cells(sor_k, 1) = Cells(sor, 1) Then
oszlop = Range("IV" & sor).End(xlToLeft).Column + 1
Cells(sor, oszlop) = Sheets("Készenlét").Cells(sor_k, 2)
End If
Next
Next
End Sub"bü" beírásakor nem is kell színezni.
[ 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 WildBoarTeam #6485 üzenetére
Köszönöm a figyelmességet és a szép virágot, a többi hölgy nevében 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 WildBoarTeam #6491 üzenetére
=darabteli(tartomány;">0")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DeFranco
nagyúr
válasz WildBoarTeam #6497 üzenetére
Én kipróbáltam, sajnos nem működik...
-
Delila_1
Topikgazda
válasz WildBoarTeam #6528 üzenetére
Hasznosabb lesz, ha Fire bedob egy újabb, vitára alkalmas feladatot. Úgy látszik mindnyájan nagyon ráérünk...
[ 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.
-
ulrik19
tag
válasz WildBoarTeam #6720 üzenetére
Szia!
a 4. példánál szerintem január 30-cal számol, ezért van hiba.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Fehér Mancs
tag
-
félisten
válasz WildBoarTeam #6738 üzenetére
Hali!
1 .A törlést rakd a DisplayAlerts True/False "közé"
Application.DisplayAlerts = False
Sheets(Sheet_Neve).Delete
Application.DisplayAlerts = True2. A ciklusban indexel is lehet hivatkozni a Sheets-re, mint ahogy teszed is. Az aktuális Sheets neve is lekérhető, értelemszerűen ha a neve "Vége", akkor kilépsz a ciklusból.
Fire.
[ 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)
-
ulrik19
tag
válasz WildBoarTeam #6738 üzenetére
A for ciklusnál a törlés azért lehet problémás, mert ha törlöd pl. a 10-est, akkor a "helyébe lép" a 11-es. (Hiszen így is marad a sorban 10 elem). Mivel ezután Te a 11-est törlöd (for ciklus), értelemszerűen újabb előrecsúszás lesz. Vagyis mire a 14-hez érnél, már nincs is 14-es a korábbi törlések miatt.
1) for ciklus, de visszafelé (pl. sheets.count megadja elvileg a munkalapok számát)
2) while ciklus...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
félisten
válasz WildBoarTeam #6741 üzenetére
Hali!
Akkor összefoglalom, adott egy munkafüzet benne 9 darab FIX munkalappal az elején(ezek indexe 1-től 9-ig van). Ezek állandóak, nem törlődnek. Ezen felül létrehozol különböző számú munkalapot, amik nyilván a 10-es indextől kezdődnek. Az a feladat, hogy a 9 FIX munkalapon felül az összes munkalap törlése kerüljön, számától, nevétől függetlenül.
Ha ez a szitu, akkor csak egy minimális változtatás a korábbi kódon és kész
Private Sub CommandButton1_Click()
start_sheets = 10
Sheets(start_sheets).Select
Application.DisplayAlerts = False
For i = start_sheets To Sheets.Count
ActiveSheet.Delete
Next i
Application.DisplayAlerts = True
End SubFire.
[ 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)
-
Delila_1
Topikgazda
válasz WildBoarTeam #6741 üzenetére
A visszafelé haladó ciklusnál meg kell adni azt, hogy csökkenjen a ciklusváltozó értéke.
Ez most független az előbbi feladatodtól:for i=20 to 5 step-1
A lépésszámot növekvőnél is megdhatod, ha pl. minden 5. sorban kell valamit végrehajtanod:
for sor=2 to 80 step 5
Csökkenőnél: for sor=80 to 2 step-5
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DeFranco
nagyúr
válasz WildBoarTeam #6822 üzenetére
Igen, ez a részlet nekem is leesett (igazítás). Arra gondoltam, hogy talán valamilyen operátorral oldották meg (pl: 3&"db", de ez nem jó) ami nem látszik, csak a szerkesztőlécen.
Az eredmény tudatos, hiszen ez egy feladat, tehát van neki megoldása is.
-
zsotesz81
senior tag
válasz WildBoarTeam #6820 üzenetére
Kipróbáltam, azt még mindig nem tudom, hogy ott miért fut bele. Ez a kód:
Range("N5").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6:M14").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6:_C14").Select - aláhúzás nincs benne csak a smile elkerülése miatt raktam bele
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C15").SelectAmikor elér a Range("M6:M14")-hez, akkor ugrik az érvényesítőhöz, majd utána hiba, de miért megy oda? Akkor a Range ("C5")-nél miért megy tovább?
[ Szerkesztve ]
-
ulrik19
tag
válasz WildBoarTeam #6842 üzenetére
gyanítom (ill. remélem) van azért valami szebb megoldás is rá
(apró hibajavítás: az & nem operandus, hanem operátor )
Nekem az fura még, hogy nem B1 van a képletben, hanem B$1. Ennek vajon mi lehet az oka? A feladatban kell másolni a képletet?
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
válasz WildBoarTeam #6845 üzenetére
No igen. Bár ha ez a "hivatalos" megoldás, akkor nem látom túl sok értelmét a feladatnak. Mert ennyi erővel azt is mondhatnám, hogy az A2-be beírom a 3-at, formázom db-nak (3 db), majd ezt a cellát másolom A1-be. (az =A2 képlet is másolja a formátumot) Mert tulajdonképp magát az A1-et nem formáztuk így sem
Egyébként láthatnánk a többi feladatot is. Kíváncsi vagyok, hogy mi volt még
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
DeFranco
nagyúr
válasz WildBoarTeam #6849 üzenetére
Köszönöm mindenkinek, aki foglalkozott vele.
-
félisten
válasz WildBoarTeam #6919 üzenetére
Hali!
Kösz, hogy megnézted. Reméljük superecneB 2007-est használ...
Fire.
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)
-
scott_free
senior tag
válasz WildBoarTeam #7007 üzenetére
igen, ezt a $-módszert közben megtaláltam a neten, kellett is!
-
shev7
veterán
válasz WildBoarTeam #7014 üzenetére
ha nem akarom hogy belepiszkaljanak, akkor nem excel tablat kuldok a usernek, hanem egy webes formot, amit nem tud elrontani (tudom azt is el tudja rontani)
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
Delila_1
Topikgazda
válasz WildBoarTeam #7024 ü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.
-
nagytomi10
csendes tag
válasz WildBoarTeam #7067 üzenetére
A harmadik sornál akad meg:
Rows("2").Select -
VANESSZA1
őstag
válasz WildBoarTeam #7062 üzenetére
köszönöm.
Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
pigiboy
csendes tag
válasz WildBoarTeam #7256 üzenetére
Köszi, de már késő
Nem Excel téma, de leírom, hogy jártam.
Olyan jól sikerült az egér driver frissítés - saját hülyeség, hogy attól kezdve az XP nem látta se az egeret, se a billentyűzetet.
Telelpítőlemezzel se sikerült javítani. Amíg lemezről elindult a rendszer látta a billentyűzetet, de amint elkezdte az XP részeit másolgatni újra nem volt egér/billentyűzet. Ez valyon miért lehet?egy ideig küzdöttem, ötletem nem volt, netem sem, fogy kérdezzek :-), úgyhogy XP föl egy régi vinyóra, C-ről adatok át, XP vissza erre, C adatok vissza.
Most már megy a gép, annyi szépséghibával, hogy az alaplapi LAN driver nem megy (persze mi más hiányozna a lementett driverek közül).
Most ép egy net kávézóban ülök, nézem a mailjeimet, meg töltöm le a lapom LAN driverét.További szép napot
Imre
-
Aron76
csendes tag
válasz WildBoarTeam #7568 üzenetére
Hallo Wildboar Team,
koszonom a magyarazatot, idokozben rajottem arra hogy amit en ilyen bonyolultan irtam le illetve kaptam meg a fonokomtol , sokkal egyszerubben is ki lehet szamolni, ugyanis eleg ha veszem a teljes osszeg 20% -at ugyan azt az osszeget kapom, hiszem mar eleve a 7 is 20% -a a 35 -nek , es ugye azon felul is 20% a berezes , elnezest kerek, hogy kicsit megdolgoztattalak titeket en is csak most jottem ra a FONOKOM kert meg ra hogy igy csinaljam , , , hat lyenek a fonokok , miert is lenne minden egyszeru nem?
megprobalom kideriteni a HA fuggveny jelet nemetul , esetleg tudtok az Excelben egy opciot amire rakatintva kiderulhet?koszonom
Aron
-
Mr.Csizmás
félisten
válasz WildBoarTeam #7712 üzenetére
[ Szerkesztve ]
"Szólítson csak Cirminek." | B&B XI | 3D nyomtatás Bp és környéke |
-
föccer
nagyúr
válasz WildBoarTeam #7703 üzenetére
Igen, ennek már nekifeküdtem. A baj csak az vele, hogy így marha sokáig tart és nem igazán leszek "jó" benne. Amit késízteni akarok (hosszabb távon), azért az nem lenne olyan egyszerű dolog, és Nem akarok most is úgy gényolni, mint anno a Dorland-Delphiben tettem.. Ezt most úgymond hülyebiztosra kell megcsinálnom, hogy akár 2-3 év múlva is futtatni tudjam.
ÜDv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz WildBoarTeam #7718 üzenetére
Csak kellő mennyiségű szalicil kell hozzá
ON:: lehet olyat csinálni, hogy ha az autoszűrőt egy külön, egyébként ütres sorba teszem, akkor amikor a szűrőveltételt megadom neki, akkor a felétételt kiírja nekem az adott cellába? A dolog arra lenne használva, hogy a nyomtatában megjelenő 39 oszlopból így ránézésre lejhetne látni, hogy melyek azok az oszlopok, amik szerint szűrve lett az adott kimutatás. Akkor nem kellene külö ráírogatni a lapra, hogy a következő 4 pldal az adattáblák azon sorait tartalmazza, ami megfelel ennek, és ennek, és ennek, és ennek a feltételnek. Tipikusan 5-7 feltételekkel fogunk benne szűrni, és úgy nyotatni az eredményeket.
Makró téma:
no, akkor egy kis szájbarágós segítséget kérek. Hogyan tudom elővarázsolni az adott munkalaphoz tartozó küdot (Talán Eszközök-> makró-> visual basic editor??? )?
Hogyan tudok kirakni a munkafüzetre egy nyomógombot?
És hogyan tudok a gomb megnyomásához utasítrásokat hozzárendelni?
Illetve mi a pontos neve a cellákat kezelő objektumnak, és annak milyen főbb tulajdonságai és milyen főbb akciói vannak?
Előre is köszi,
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz WildBoarTeam #7721 üzenetére
Alt+F8 a makrók ablakát nyitja meg, és nem a kódot...
1 részhez szerintem lista kell...Autoszűrő máshol nem igazán használható, csak ha van alatta adat.
Van alatta adat bőven. Vagy 5000 sornyi Az érvényesítés-> lista azért nem jó, mert egy-egy oszlopban önmagában nincs sok különböző adat az 5000 sor 15-20 különböző adatból áll össze. Csak van vagy 140 oszlop összesen, és ezek variációjából nagyából nincs 2 teljesen egyforma sor. Namost a listával azt érem el, hogy a legördülő menüben ott figyel mnind az 5000 sornyi adat benne a sok-sok redundáns értékkel. Az autoszűrő ezért jobb, mert ott nincsnek redundáns adatok. Egy érték, csak egyszer szerepel, így nagyon gyorsan lehet benne beállítani a dolgokat.
Objektum orientált programozás lévén minden dolog valamilyen objektumban foglal helyet. az objetumoknak vanna különböző tulajdonságai, mint pl a színe, vagy a mérete, tartalma, és vannak hozzá rendelt akciók, mint pl a kattintás (mi történi, ha rákattintasz), és vannak egyéb események, mint pl amikor törlöd az adott objektumot, vagy létrehozol egyet. stbstb..
üdv, föccer
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz WildBoarTeam #7732 üzenetére
Hát aki ilyen tündöklő, az lemaradhat.
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 WildBoarTeam #7757 üzenetére
A helyedben megszüntetném a B oszlop összevonásait, így minden megszüntetés felső sorába kerülne a cím. Kijelölöd a B4:Bsok tartományt, Ctrl+g (Ugrás), Irányított, Üres cellák. A kijelölés első cellája a B5 lesz. Ide beírsz egy = jelet, és megnyomod a fel nyilat, Ctrl+enter. Jó, ha ezután a teljes B oszlopra adsz egy irányított érték beillesztést.
Most már tudod alkalmazni a SZUMHA függvényt az összegzésre.
Feltételes formázással eltüntetheted a B ismétlődő elemeit (háttér színűek legyenek a karakterek).
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 WildBoarTeam #7757 üzenetére
Most látom, hogy nem is összegezni akarod az értékeket, hanem formázni a cellákat.
Azt hiszem, ez csak makróval lehetséges. Az összevonásokat mindenesetre érdemes megszüntetni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zz76zz
csendes tag
válasz WildBoarTeam #15015 üzenetére
Van olyan, hogy szövegből oszlopok és határolónak a szóközt választod, de nem tudom javul e a helyzet . . . gondolom nem ugyan azon oszlopba kerülnek.
Mondjuk utána lehetne "/" jelre is bontani a cellákat és akkor már rendezhető lesz. Nem tudom segített ewww.vagyunk.hu
-
Delila_1
Topikgazda
válasz WildBoarTeam #15878 üzenetére
A tábla szerkezetének ismerete nélkül nem érdemes nekilátni, vaktában lövöldözés lenne.
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
addikt
válasz WildBoarTeam #15878 üzenetére
Delila_1 válasza kicsit bővebben:
Küldd át neki valahogy a táblázatot, és megcsinálja (nálam működött!)[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz WildBoarTeam #15881 üzenetére
OK.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz WildBoarTeam #15878 üzenetére
Hello,
Ahogy már mondták így látatlanban sokat nem tudunk mondani, de azért az Excel tud adni egy standard megoldást. Az Űrlapok adatbevitelben tudnak segíteni, régebben az Adatok menüben volt, de most már nincs kint az alapértelmezett eszköztáron így neked kell testreszabással kirakni.
Egyszerűen használható, tudsz vele egyből menteni és visszakeresni korábbi rekordokat.
Viszont adatellenőrzésre (érvényesítés/data validation) nem alkalmas.Békés és boldog karácsonyt!
üdv.
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz WildBoarTeam #19981 üzenetére
=darab2(Másik_fül!A:A)-1
Ez akkor igaz, ha a Másik_fül nevű lap A oszlopában vannak a megszámolandó adatok, a -1 a végén a címsort vonja le az összes darabbó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.
-
Delila_1
Topikgazda
válasz WildBoarTeam #19987 üzenetére
Küldd el a fájlt, hátha tudok egyszerűsíteni a takarításban.
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 WildBoarTeam #23307 üzenetére
Egyszerűbb, ha a keresésnél nem a Következő, hanem a Listába mind gombot nyomod meg. A megjelenő felsorolásban egyenként nézheted meg a találatokat.
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 WildBoarTeam #23316 üzenetére
A kérdéses laphoz (mindegyikhez, ahol működtetni akarja) kell rendelni a lenti makrót, amit nem én írtam, de nagyon tetszik.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
With .EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 36
End With
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
válasz WildBoarTeam #23331 üzenetére
Hurrá!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DeFranco
nagyúr
válasz WildBoarTeam #26876 üzenetére
autoszűrőt neki, aztán üresre szűr és sorok törlése
fapados de gyors.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz WildBoarTeam #46841 ü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
válasz WildBoarTeam #46845 üzenetére
A B8 cella értéke 1, a B9-é (amit másolj majd B11-ig)
=HA(D9=D8;B8;B8+1)
.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
- Hardcore café
- Elite: Dangerous
- Letartóztatták a bitcoin-Jézust
- LG 34GS95QE-B: OLED paneles, ívelt gamer monitor
- Milyen légkondit a lakásba?
- Alacsony fogyasztású, 128 GB-os szervermemóriát kínál a Micron
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- Ingatlanos topic!
- Tudományos Pandémia Klub
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- További aktív témák...
- World of Warcraft Shadowlands Collectors edition EU EN
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Lemezes Retro PC Játékok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest