-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
Találtam már egy képletgyűjteményt, az egész jól elmagyarázza, hogy mikor mit érdemes használni és mindenhez van egy példa is.
Csak most kicsit továbbmennék a makrók felé.
Ha esetleg tudsz olyat, ami hasonló módon példákkal operál, azt szívesen veszem.
bugizozi: ha minden kötél szakad, ez a legjobb mindig!
-
A legjobb oldal
Viccen kívül én némi más nyelvű programozási tapasztalattal innen szedtem az összes tudásom + amit ebben a fórumban olvastam / kérdeztem!
-
Köszönöm szépen ismét!
Lemásoltam a táblát, a másolatban már javítva van %-os változó, gondoltam azt majd akkor veszem elő, ha szükséges. Abban is átírtam.
Amúgy nem tudsz valami jó szakirodalmat vagy blogot a makrózásról, amiből tanulgathatnék? Természetesen 0-ról indulok...
-
Itt az inverze.
Sub Valami_3()
Dim sor%, sor1%, ucso%, WS1 As Worksheet, WS2 As Worksheet
Dim kezd, vég
Set WS1 = Sheets(1)
Set WS2 = Sheets(2)
sor1% = 1
ucso% = WS1.Cells(Rows.Count, "A").End(xlUp).Row
For sor% = 2 To ucso%
kezd = WS1.Cells(sor%, "A")
vég = WS1.Cells(sor%, "B")
Do
sor1% = sor1% + 1
If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then
WS2.Cells(sor1%, "A") = kezd
WS2.Cells(sor1%, "B") = kezd
WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C")
WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D")
kezd = kezd + 1
End If
Loop While vég >= kezd
Next
End Sub -
m.zmrzlina
senior tag
Aztán rájöttem, hogy a belinkelt képedet néztem, az nem változott.
Akkor tényleg itt az ideje egy kis pihenésnek
-
m.zmrzlina
senior tag
Amint írtam az adatbázis és a form is bonyolultabb a kép csak illusztráció.
Arra gondoltam, hogy nem lehetne-e bevezetni változót minden adatra (ami akár 50-nél több különböző változót jelentene) Ezt viszonylag könnyen fel lehet tölteni ciklussal, aztán kiirogatni megfelelő helyre a formra.
Nincsen ötletem. -
Delila_1
veterán
Az adat_3:adat_7, és az adat_10:adat_15-öt (esetleg az adat_18:adat_19-et is) ciklusban íratnám be. Akkor csak az adat_1 és adat_2 van szólóban.
sor = 1
For oszlop = 4 To 8
Cells(oszlop + 13, 3) = Cells(sor, oszlop)
NextFejreálltam a próbánál. Indítottam, és nem csinált semmit. Aztán rájöttem, hogy a belinkelt képedet néztem, az nem változott.
-
m.zmrzlina
senior tag
Itt egy végletekig leegyszerűsített illusztráció:
A felső öt sor az adatbázis. A valóságban természetesen sokkal nagyobb sor és oszlop irányban is. A bekeretezett rész a form amit ki kell tölteni. A valóságban külön munkalapon vannak.
A harmadik munkalapon van egy lista ami részhalmaza a az A oszlopban lévő számoknak(azonosítók). MATCH()-csel megkeresem a lista első elemét az adatbázisban majd a hozzá tartozó adatokat beírom a formba majd mentem a formot egy új munkafüzetbe.
Ezután form törlése, a lista második elemének keresése, form kitöltés, mentés stb... amíg van a listában elem.A keresés és a mentés nem gond csak a form kitöltésére keresek egy elegánsabb megoldést mit hogy a:
Worksheets("lista").Range("A" & sor).Copy Worksheets("űrlap").Range("A2")
sort leírjam 50-szer néha többször (természetesen megfelelő cellahivatkozásokkal) a makróba. (a hivatkozásokat ne nézd nem illenek az képhez)
-
Delila_1
veterán
-
m.zmrzlina
senior tag
-
ThaBoss
senior tag
Sziasztok!
Visszatértem egy kis segítséget kérni! Volt nemrég ez a gondom: [link], amit Delila_1 segítségével sikerült megoldani. Azóta is tökéletesen üzemel a makró:
Sub Valami()
Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets(1)
Set WS2 = Sheets(2)sor% = 2: sor1% = 2
WS2.Cells(sor1%, "A") = WS1.Cells(sor%, "A")
WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "A")Do While WS1.Cells(sor%, "A") <> ""
If WS2.Cells(sor1%, "A") < WS1.Cells(sor%, "B") Then
WS2.Cells(sor1% + 1, "A") = WS2.Cells(sor1%, "A") + 1
WS2.Cells(sor1% + 1, "B") = WS2.Cells(sor1%, "A") + 1
sor1% = sor1% + 1
Else
sor1% = sor1% + 1: sor% = sor% + 1
WS2.Cells(sor1%, "A") = WS1.Cells(sor%, "A")
WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "A")
End If
Loop
End SubSzeretnék beiktatni egy C és D oszlopot is. A és B változatlanul maradna és a makró feladata is. Viszont minden sor C és D oszlopában szerepelne valami információ szöveg vagy képlet (sima számítás pl: =2*1000+3*500+100). Ezeket pedig szeretném kilistázni minden egyes sorba a második fülre az eredmény (azaz A és B oszlop cellái) után úgy, hogy csak addig írja ki ezeket, amíg az első lap A és B tartománya tart.
Kissé bonyolult így de adok képet is hozzá! Tehát így néz ki a táblám első füle:
és azt szeretném, ha a fenti makró valami ilyet csinálna belőle:
Előre is köszi!
-
thee
csendes tag
Köszönöm!
-
Fire/SOUL/CD
félisten
-
köszönöm Delila, megértettem már akkor is, csak tetszett ez az általam eddig nem ismert függvény és elkezdtem vele próbálkozni, hát nem működött nekem sem.
A feladatot úgy oldottam meg ahogy azt tanácsoltad, sikerült is, nagyon jó lett, még egyszer köszönet érte.Akkor sem hagy nyugodni ez a NAGY függvény
-
Fire/SOUL/CD
félisten
Abban a munkafüzetben úgy is kell, hogy működjön, mivel 1167 rekord van. A =NAGY(E:E,1168) dobna hibát...
Lehet kimaradt valami/nem követtem az eseményeket, csak nem világos, hogy "Meg lehetne oldani makróval, csak kissé lassú lenne a futása, és Neked nem lenne semmi dolgod.", szóval mihez kellene a makró, amikor látszólag jól működik minden.
Szerk
visszaolvastam, már világos mihez kellene makró.
-
Delila_1
veterán
-
Fire/SOUL/CD
félisten
-
Írtam a csatolt fájlban, hogy a nagy(E:E, 2), sőt a nagy(E:E, 171) is 171-et ad eredményül, mert az első 171 db szám mindegyike "legnagyobb". Leírtam, hogyan kerestem ki a szűrő segítségével az ez alatti legnagyobbat.
Meg lehetne oldani makróval, csak kissé lassú lenne a futása, és Neked nem lenne semmi dolgod.
-
thee
csendes tag
-
Fire/SOUL/CD
félisten
-
bajor14
csendes tag
Sziasztok!
A melóhelyen outlook 2010-et használunk és ebből kéne vmi statot csinálnom.
A lényeg, hogy vannak közös fiókjaink és abból kell összedzednem, hogy kihez mennyi mail jött/nap. Jelenleg számolgatással
történik a riportálás. Bármilyen ötletet/segítséget megköszönnék! -
Én sem értem teljesen, de úgy gondolom, hogy az "adott időszak" az adott hét lehet.
Heti bontásban készítettem egy táblázatot az egyes hibakódoknak megfelelő százalékos eloszlásról. Hogy ebből hogy lesz grafikon, azt még nem tudom, de a kérdés sem egészen fehér.
Az F oszlopba a C-ből speciális szűréssel (Adatok | Rendezés és szűrés | Speciális) írattam át az egyedi értékeket.
A G2 képlete:
=HAHIBA(DARABHATÖBB($A:$A;G$1;$C:$C;$F2)/DARABHATÖBB($C:$C;$F2);0)Ezt másolhatod jobbra, és le.
Ugyanígy készíthetsz összefoglaló táblázatot a Hibakód 2-ről. -
Fire/SOUL/CD
félisten
"a feladat első körben, állapítsam meg melyik az az első 4 hibakód ami az adott időszakban legtöbbször szerepel."
Eddig értem a feladatot. A függvény a NAGY() névre hallgat"miután ez megvan e 4 illetve az összes többi (mint egyéb) heti bontásban a az adott hét összes százalékában..."
Na itt elvesztettem a fonalat, szóval készíts egy táblázatot manuálisan, tetszőleges adatokkal és arról egy képet, hogy hogy is kellene ennek kinéznie. Az A/B/C/D oszlopok kamu adatokat is tartalmazhatnak, csak azon adatokból minek kellene lenni az eredménynek, azt add meg, akkor érthetőbb lesz (számomra legalábbis) -
Írtam rá egy függvény Sarga_Osszeg néven.
Function Sarga_Osszeg(Tartomány As Range) As Double
Dim CV, ossz As Double
For Each CV In Tartomány
If CV.Interior.ColorIndex = 6 Then ossz = ossz + CV
Next
Sarga_Osszeg = ossz
End FunctionAz összegző cellába beírod: =sarga_osszeg(A1:G50), ahol az A1:G50 helyett a saját összegzendő tartományod kerül (egérrel is kijelölhető, mint minden más függvénynél). Adhatsz rövidebb nevet, két helyen kell átírnod a makróban.
Ezt a sárga hátteret veszi figyelembe, ennek a színkódja 6.
-
bandus
veterán
tudom, hogy nem erre szolgál, csak ez áll hozzá a legközelebb
de nemhiszem el, hogy ne lehetne megoldani valahogy -
Fire/SOUL/CD
félisten
-
bandus
veterán
sziasztok!
az lenn a kérdésem, hogy ilyesmi: [link] lépcsős függvényeket hogyan lehetséges excelben ábrázolni? az alakja szépen megvan ha pontdiagramban ábrázolom, csak az lenne jó, ha például össze tudnám kötni az ugyanazon x értékhez tartozó 2 db y értéket egy függőleges vonallal, illetve az ugyanazon y értékhez tartozó x értékeket is. remélem érthető a kérdésem
köszi előre is -
Feltettem ide a fájlt, ha már Fire megígérte, nem hazudtolom meg.
A dátumokat egyenként kell majd beírni, mert ha képlettel van (pl. C4-ben =A4+1), akkor nem találja meg.
A makró minden indításnál az előző napon be nem fejezett feladatokat átviszi a következő napra, az előző napiakból törli. Ha nem kell törölni, a makróban (ThisWorkbook-hoz rendelve) a megjegyzést tartalmazó sort töröld ki.
-
Lestat777
csendes tag
-
Fire/SOUL/CD
félisten
-
Boglya
senior tag
-
Lestat777
csendes tag
Értem
. Gondolkodunk a SharePoint által igénybe vehető intraneten, de nem tudom, hogy ott lehetséges-e mindenkinek külön Calendárt létrehozni, majd 1 személy által mindent ellenőrizni. Ezért lett volna kiváló az Excel ebben a formában. -
Fire/SOUL/CD
félisten
-
Lestat777
csendes tag
-
Fire/SOUL/CD
félisten
-
Boglya
senior tag
-
Lestat777
csendes tag
Szia.
Sajnos minden gépre rá kellene raknom (mindenkinek egyéni Calendar), úgy hogy a főnök távolról is megtudja nyitni, hogy ki - mit csinált, hogy haladt a munkával. Sajnos nem ismerek más erre alkalmas programot
-
Fire/SOUL/CD
félisten
-
Fire/SOUL/CD
félisten
Biztos, hogy ezt Excelben akarod kivitelezni? Mert erre vannak külön alkalmazások, ingyenes is és akár magyar nyelvűre is rá lehet akadni. (Ha használsz Outlook-ot abban is van)
Delila_1
Hajnali 9-kor az internetszolgáltató felébresztett, mert gond volt a hálózattal...
Igen, a -1 biztosan rossz megoldás, én sem értem (pedig megvolt az első kávé is) -
Lestat777
csendes tag
Sziasztok!
Segítségre lennem szükségem egy Exceles naptárat szeretnék létrehozni.
Amibe napi teendőket szeretnék beleírni, majd egy állapot oszlopban jelölni, hogy sikeresen teljesítve lett-e. Ide szeretnék egy feltétel írni: Amennyiben nem teljesült a feladat a következő napra tegye át automatikusan. Létrehoztam egy logika oszlopot is: oda kerülne a képlet( és őt ellehetne rejteni). Belinkelem hogy miről lenne szó.
Köszönöm.
-
m.zmrzlina
senior tag
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Nincsen ötletem.
)
. Gondolkodunk a SharePoint által igénybe vehető intraneten, de nem tudom, hogy ott lehetséges-e mindenkinek külön Calendárt létrehozni, majd 1 személy által mindent ellenőrizni. Ezért lett volna kiváló az Excel ebben a formában.
Új hozzászólás Aktív témák
Fferi50- Vezetékes FEJhallgatók
- Milyen alaplapot vegyek?
- Kormányok / autós szimulátorok topikja
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Eredeti játékok OFF topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Október 6-án jelenik meg a Star Wars: Galactic Racer
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- A fociról könnyedén, egy baráti társaságban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- Apple iPhone 17 Pro Max 256GB & 512GB Bontatlan Független Összes Szín / 27% áfás ár
- Szerver / szerverterem / szerver infrastruktúra felvásárlás, 1-1db is, kiszállással, logisztikával
- Eladó Realme gt neo 2 5g Dobozában tokkal
- Sosemhasznált! HP OmniBook 5 Flip i5-1334U 16GB 1000GB 14" FHD+ áthajtós-érintős Gar.: 1 év
- Keresünk Galaxy S22/S22+/S22 Ultra
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest