- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
- Mikrotik routerek
-
IT café
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
-
baderoli
tag
válasz Delila_1 #16100 üzenetére
Köszönöm! Ha két különböző területet szeretnék megjelölni egy makrón belül,akkor elég csak megismételnem a lezáráson belül? Pl:
Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End SubHa jó a logikám akkor a D42:H71 és J42:L71 területre írja be. De szerintem a Dim sor nem is kell kétszer és talán a Next sem. Amúgy ez milyen nyelven van ? Visual Basic?
-
Delila_1
Topikgazda
válasz baderoli #16101 üzenetére
Csak a Dim kezdetű sort nem kell újra beírni.
Meg lehetne úgy is oldani, hogy az első makróban van az értékadás, és onnan hívjuk meg a másodikat, az értékek átadásával, akkor nem kellene ismételni a for-next ciklust. Ez egy olyan egyszerű makró, hogy nem érdemes külön bajlódni vele.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz baderoli #16101 üzenetére
Ha kipróbálod az általad alkotott makrót akkor rájössz a hibákra. Mondjuk én sem értek nagyon hozzá, de kevés próbálgatással rá lehet jönni a hibára!
Érdemes előtte próbálgatni!
De itt van egy működő progi!Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
End SubBámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
Ebben az esetben a 2. tartományba csak 1 db X-et ír.
Két makróval:Sub X_ek()
Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
Beiras sorF%, sorA%, oszlopE%, oszlopU%
sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
Beiras sorF%, sorA%, oszlopE%, oszlopU%
End SubSub Beiras(sorF%, sorA%, oszlopE%, oszlopU%)
For i = 1 To 2
sor% = Rnd() * (sorF% - sorA%) + sorA%
oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
Cells(sor%, oszlop%) = "X"
Next
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.
-
-
baderoli
tag
Köszönöm! Ismét sokat segítettetek.
-
Bocimaster
csendes tag
Sziasztok!
Egy kérdésem lenne:
Legördülő listába lehet -e függvényt tenni?
leírás:
főkategória: 5 elem
alkategória: amik a fő kategória alá tartozik mondjuk 3 elemmel alkategóriánként.
- ha a főkat.ból kiválasztom az elsőt, akkor mellette lévő oszlopban - a hozzá tartozó alkat. 3 eleméből válasszak!
válaszokat előre is köszönöm
U.I.: - ha véletlenül lenne valakinek egy pöpec feladatlist (munkahelyre- vagy feladat tükörnek is hívják)
nagyon szívesen megnézném.....Az ösztön mindig többet ér az észnél.
-
Delila_1
Topikgazda
válasz Bocimaster #16112 üzenetére
Látogass el ide!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz Bocimaster #16112 üzenetére
Delila1 megelőzött!!
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Bocimaster
csendes tag
válasz Delila_1 #16113 üzenetére
nagyon köszi
BUT
=ZVOLIT(POZVYHLEDAT(Kiadásoktbl[@kategória];táblázatKategóriák[kategória neve];0);táblázatKategória1[Ügyiratok, megkeresések];táblázatKategória2[Adatbázisok];táblázatKategória3[Egyeztetések, tárgyalások];táblázatKategória4[Munkacsoportok, projektek, Képzés, előadások];táblázatKategória5[Nem kategorizált];táblázatKategória6[6. kategória];táblázatKategória7[7. kategória])
A kiemelt résznél hibát ír, és még nem jöttem rá miért...
Az ösztön mindig többet ér az észnél.
-
lappy
őstag
válasz Bocimaster #16115 üzenetére
Ezt milyen függvény?!
Angolul vagy magyarul még egyszer leírnád!Bámulatos hol tart már a tudomány!
-
Bocimaster
csendes tag
http://filefeltolto.hu/letoltes/39e761004106036a/teljesitmeny-ertekeles-finan.xlsx
ide feltöltöttem a fájlt
(szánom bánom bűnömet, egy meglévő sémát dolgozok át...)
de már haladok és tanulok is belőle..... elnézést mindenkitől ha "csicskának" látszok....
Az ösztön mindig többet ér az észnél.
-
lappy
őstag
válasz Bocimaster #16117 üzenetére
Nem látszol annak csak nem igazán értem hogy ez mi így nem tudok segíteni!
És mi a feladat??![ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
csferke
senior tag
Sziasztok!
Ebben az IF-ben mi nem stimmel?
If ActiveCell = "o" Or "ts" Or "ti" Or "tu" Or "u" Then
ActiveCell.Offset(0, 2).Select
End IfEzzel a hibával megáll
és az If sort jelöli meg a hiba forrásának.
köszi
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz csferke #16120 üzenetére
Vegyél fel egy változót, ami az egyszerűség kedvéért legyen V.
V=ActiveCell.value
If V = "o" Or V ="ts" Or V ="ti" Or V ="tu" Or V ="u" Then
ActiveCell.Offset(0, 2).Select
End If[ 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.
-
BenJoe80
senior tag
Ezt nem hiszem el! Ilyen hülye nem lehetek! Lenne szíves valaki elmagyarázni, hogy hogy a sunyiba lehet azt megoldani, hogy a sorba rendezéskor a táblázat fejléceit ne rendezze? Nem bírok rájönni, pedig biztos valami egyszerű dolog a megoldás. A vicc, hogy van olyan táblázatom, ahol ez nem így működik, csak nem emlékszem, hogy mit csináltam.
A segítséget előre is köszönöm!
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
BenJoe80
senior tag
válasz Delila_1 #16096 üzenetére
Az 1. kérdésre: Bocsi, de be kellett fejeznem időre.
A 2. kérdésere: Alkalmaztam, csak utólag.Különben meg nem értem mi bajod? Az, hogy nem ültem tűkön, amíg valaki nem válaszol? Amit írtatok most már tudom és a későbbiekben tudom hasznosítani. Ezért hagy ne kérjek már elnézést!
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
bozsozso
őstag
Sziasztok,
Kis segítségre lenne szükségem.
Adott egy táblázat 2 munkalappal.
Mind a két munkalap A oszlopában cikkszámok szerepelnek annyi különbséggel, hogy az egyik munkalapon a cikkszámok 000-val vannak kiegészítve(pl.:1234567 megfelelője 1234567000). A 000 nélküli cikkszámok B oszlopába szeretnék valami jelölést tenni (x,ok,talált teljesen mindegy mi), hogy a másik munkalapon megtalálta a 000-val kiegészített megfelelőjét. Ha nem talált akkor valami eltérő jelölés kerüljön oda.
Létezik erre valami függvény? Az FKERES-el próbálkoztam, de nem sikerült. Próbálam a bal függvénnyel levágni az első 7 karaktert, de akkor viszont megváltozott a formátum és nem tudtam olyan formátumba állítani, hogy megtalálja. Ha pedig kézzel berögzítettem vagy kitöröltem a 000-kat úgy rendben volt minden. Igaz itt nem szöveget írtam az adott cellába hanem kiemeletem egy adott oszlopot és azt írtam be. Ez is jó megoldás számomra, mert az adott oszlopot is tudom használni. Tehát megfelelne a fenti függvény is csak nem tudom hogyan tudnám ilyen módon megkerestetni a másik munkalapon az adatokat.
Előre is köszönöm a segítséget.
-
Sixkiller6
őstag
Macro segítség kéne
milyen scripttel tudom egy adott néven lementeni a workbookot, ha a használandó név mondjuk Sheet!A1-ben van. pontosabban a filenévnek lenne egy fix része, és hozzá kéne csapni a Sheet!A1-et stringként, és ilyen néven kéne menteni.- no es importante -
-
Sixkiller6
őstag
válasz bozsozso #16128 üzenetére
próbáld visszafelé, csapj hozzá 3 nullát és countif-fel
mondjuk sheet2!B1.be: =countif(sheet1!A:A;"A1&"000")
vagy hogy a 0-kat elrejtse: =if(countif(sheet1!A:A;"A1&"000")>0;countif(sheet1!A:A;"A1&"000");"")fkeres másra való, ott a megtalálás után, az adott sor egy másik oszlopából venne ki egy értéket.
[ Szerkesztve ]
- no es importante -
-
csongi
veterán
Olyat hogy tudok csinálni, hogy egy cellába betennék egy legördülő nyilas ablakot és benne lévő beállított szavakból tudnék válogatni. Remélem érhetően sikerült leírnom. .
Mint egy legördülő választási lista. -
bozsozso
őstag
válasz Sixkiller6 #16130 üzenetére
Nem jó úgy sem ha hozzáteszem a 000-t. Bár látszólag a formátum nem változik ami feltünő az az, hogy ahogy elveszem vagy hozzáteszem a 000-t akkor a cella jobb oldala helyett a bal oldalra rendeződik.
-
Delila_1
Topikgazda
válasz Sixkiller6 #16129 üzenetére
2003-asnál magasabb verzióban az & ".xls" helyére ".xlsm"-et írj.
Sub Ment()
Dim nev$
nev$ = Left(ActiveWorkbook.Name, Application.WorksheetFunction.Search(".", ActiveWorkbook.Name) - 1)
nev$ = nev$ & "_" & Sheets(1).Range("A1") & ".xls"
ActiveWorkbook.SaveAs Filename:=nev$
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
-
Sixkiller6
őstag
válasz Delila_1 #16134 üzenetére
igen, ilyesmit próbáltam, csak pdf-be exportálással és nem értettem hogy miért nem akar működni, aztán összejött, nem értem mit változtattam, mert kitöröltem mindent és újraírtam. akkor már jó volt.
no mind1, lényeg, hogy megy, de köszönöm a választ!- no es importante -
-
csongi
veterán
Elnézést, nem írtam a verziót.
2007-es. -
Delila_1
Topikgazda
válasz Sixkiller6 #16137 üzenetére
A radír hasznos dolog.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
csongi
veterán
Hogyan lehetne úgy kiszámoltatni egy oszlop átlagát, hogy azokat a cellákat ne vegye figyelembe amelyik cellákban az érték nulla?
-
lappy
őstag
válasz Bocimaster #16119 üzenetére
[link]
Szia!
Bocs a késésért, de nem volt egyszerű rájönni hogyan is működik.
Annyi a változás hogy a feladat napló munkalapon nem lehet automatikusan a táblázatot színezni (sötétebb világosabb cella színezés), csak manuálisan.Bámulatos hol tart már a tudomány!
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."