Sziasztok!

Volna egy feladatsor amit meg kellene oldani, én Excel-ben nem vagyok otthon. Tudna valaki nekem segíteni?

Füge

"Az NMÉ képlet paramétereit be lehet valahogy egyszerűen írni, ha mondjuk 100 nagyságrendű paramétere van?"
Nem, mivel max 29 értéket lehet megadni.

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)

Office 2010-ről lenne szó

MZ/X

Akkor légy oly szíves vagy írni, vagy az adatlapodon feltüntetni, mert nem tudhatjuk, én meg 2010 x64-et használok, amit adok megoldást az ebben biztosan megy, de ha valaki korábbi verziót használ (és tudom, mert írta, vagy feltüntette az adatlapján, aláírásában stb), akkor igyekszem ahhoz alakítani a megoldást.

Elméletben lehet rá makrót írni.

[ 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)

Private Sub CommandButton1_Click()

Dim MyParamsRateValue As Integer
Dim MyParamsValue As Integer
Dim MyParamsCount As Integer
Dim MyRange As Range
Dim MyParams As Variant

'NMÉ képlet RÁTA paraméterének értéke
MyParamsRateValue = 25
'NMÉ képlet ÉRTÉK paramétereinek értéke
MyParamsValue = 1000
'NMÉ képlet ÉRTÉK paraméterinek a száma
MyParamsCount = 1
'A CELLA címe, ahova képletet szánod
Set MyRange = Range("A5")

MyParams = "=NPV(" & MyParamsRateValue
For i = 1 To MyParamsCount
MyParams = MyParams & "," & MyParamsValue
Next i
MyParams = MyParams & ")"
MyRange.Formula = MyParams

End Sub

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)

Köszi

MZ/X

Sziasztok.

Összerúgtam a port a 2010-es excellel
Következő a tényállás:

Kirakok néhány jelölő négyzetet , vagy csekboxot, vagy bármien vezérlőt egy sheetre. Eddig ok.
De én ezt a munkalapot duplikálni akarom sokszor mert mindig ez az alap. Erre egyszerűen rögzítek egy makrót és hozzá rendelem egy objektumhoz (teljesen mindegy mihez). DE amikor rákattintok akkor olyat csinál, hogy létre hozza ugyan az új munkalapot de a régin duplikálja illetve eltolja a vezérlő elemeket, mindig amikor rányomok a makróra csinál az eredetin egy másolatot a vezérlőkből. Mi a fene van?

[ Szerkesztve ]

A kisebbség is számíít, teszkó.

Na még valami előjött. A kihelyezett vezérlők vándorolnak Bővebben ha meg nyitom az excell filet akkor mindig eltolódnak jobbra kb 1 oszlopnyit

A kisebbség is számíít, teszkó.

Normál esetben nem kell makró hozzá, egyszerűen a munkalap fülön jobb egér és az áthelyezés vagy másolás opciót használd. Az a fontos, hogy mielőtt ezt megléped, mindig az adott munkalap egy üres cellájára kattints, ne egy vezérlőn legyen a fókusz. Ebben az esetben az eredetivel teljesen megegyező másolat jön létre, ahol minden vezérlő pozíciója is megegyezik az eredetiével. (Lehet, hogy a "vándorlást" is megoldódik így, bár azt más is okozhatja)

[ 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)

Sziasztok!

2007-es Excel-t használok és olyan problémám akadt, hogy lenne két egymás melletti cellám, elsőben egy számtartomány kiindulópontja a másodikban ennek a vége van, tehát pl. első cella 1 a második 10 (vagyis 1-től 10-ig).
Van valami jó képlet arra, hogy az Excel kiszámolja a 2 tartomány közötti értéket és egy új lapra, egymás alá sorban kiírja az elemeket? (Magyarul 1,2,3,4...10 egymás alá)
Valami ilyesmit szeretnék elérni, csak az én adatbázisomban ezek a számok mind 9 jegyűek. Valakinek ötlete?
Köszönöm előre is!

Üdv,
TB

"Valami ilyesmit szeretnék elérni, csak az én adatbázisomban ezek a számok mind 9 jegyűek."
Na erre mutass példát és hogy mit jelent a "...Excel kiszámolja a 2 tartomány közötti értéket" (nem világos mit is kell kiszámolni) és akkor megoldható lehet a feladat.

[ 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)

Sorry, valóban kicsit nehezen tudom elmagyarázni!
Szóval adott egy ilyen sor:

És valamilyen képlettel szeretném sorokra bontani, hogy így nézzen ki:

Tehát az első képen látható számok közti értékeket sorokra bontva írja ki.

[ Szerkesztve ]

Az O2 képlete =INDEX(Munka1!N:N;DARAB2(Munka1!N:N)).

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi!
De ezt így beírtam de csak N1 elemét, azaz az első értéket adta vissza minden sorban.

Munka2!N2 -> =Munka1!N2
Munka2!N3 -> =HA(N2+1<=Munka1!$O$2;N2+1;"")
Munka2!O2 -> =HA(Munka1!$O$2>=N2;N2;"")

A két utóbbit kell másolnod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi szépen, így már jó lesz!

Szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Esetleg ki lehetne egészíteni picit?
Mert ez addig tökéletes, amíg nem írok Munka1N3 és O3 cellákba más értéket. A képlet teljesen rendben van, csak nekem van még kb. 20000 sorom, mindegyikben más tartománnyal és velük is szeretném ezt megcsinálni.
Így már megtudnám oldani, csak át kell írnom a képletet. Csak kicsit nagy meló ekkora vagy nagyobb adathalmazzal.

Sziasztok!
egy emelt érettségi feladattal fordulok hozzátok.
Feladatsor itt van (6.oldaltól kezdődik)

Forrásfájlok a feladathoz
Egészen konkrétan a 4. feladattal van problémám. Döbbenten állok előtte, fogalmam sincs, hogy csináljam. Próbáltam sok HA függvény egymásba ágyazásával, de nem jött jó megoldás ki, soha. Azt sem értem, hogy az első helyre is a jól másolható függvénnyel kell kitölteni az adatot, holott, nem tudjuk, hogy az első autós előtt volt-e valaki, kellett-e várakoznia.
Ebben kérnék segítséget, hogyan lehetne megoldani a fent linkelt 2.feladat(Kocsimosó) 4.feladatát.

Ebben az esetben a lenti makróval oldd meg.

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%, "N") = WS1.Cells(sor%, "N")
WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")

Do While WS1.Cells(sor%, "N") <> ""
If WS2.Cells(sor1%, "N") < WS1.Cells(sor%, "O") Then
WS2.Cells(sor1% + 1, "N") = WS2.Cells(sor1%, "N") + 1
WS2.Cells(sor1% + 1, "O") = WS2.Cells(sor1%, "N") + 1
sor1% = sor1% + 1
Else
sor1% = sor1% + 1: sor% = sor% + 1
WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N")
WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")
End If
Loop
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Az F2 képlete: =DARAB2(B:B)-SOR()+1

Az első autó azért első, mert nem volt előtte senki.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Bár azt írja, hogy Runtime error: 6 Overfow, a Munka2 fülre A : B és N : O oszlopokba is helyesen kiszámolta!
Úgyhogy köszönöm a segítséget! Immár tökéletes lesz!

[ Szerkesztve ]

Kapcsold be a bővítmények közül a két Analyzis kezdetűt!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

OK, már rendben lesz!

Ez miért jó képlet?

Hát mert nem jó...

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)

Tényleg nem jó, töröm a fejem a megoldáson.
Te tudod?

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

csak az elvet, meg nem írtam a képletet, de nem vészes. Azon kocsik darabszámát kell meghatározni, amelyek érkezési ideje kisebb, mint az előző kocsi távozási ideje.

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)

F2 képlete, amit aztán lehet lemásolni: =DARABHATÖBB(D2:$D$31;"<" & E2)

A megoldás eleget tesz a "– az érkezőt is beleértve –" kitételnek is.

(feladatsorban nem találtam, hogy hányas Office verzió használható, és kérdezőnk sem írta, úgy hogy ez természetesen Office 2010-ben megvalósítható megoldás)

[ 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)

Sajnos ez sem jó. A 2. kocsi érkezésekor az első már lelépett, így az F3 cellában 1-nek kellene szerepelnie, nem 2-nek.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

De jó, csak nézd meg az időértékeket még1x...
A 2. kocsi 6:25-kor érkezik is 6:28-kor távozik, viszont a 3. kocsi még a 2. kocsi távozása előtt megérkezik 6:27-kor.

[ 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)

Az első 6:24:41-kor távozott, a második ezután 28 másodperccel érkezett.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

=DARABHATÖBB(D2:$D$31;"<" & E1)+1

Ezt is ellenőrizni kell több sorban.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Igazad van, az Érkezésének pillanatában kitétel is szerepel, bocsesz.

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)

Ez sem jó. Az F10-ben 2 helyett 3-as értéket ad a képlet.

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ó kis fejtörő, iszom egy kávét, szívok egy cigit, lenyelem az ebédem és nekiugrom. Tetszik.

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)

Ezt valakinek át kellene néznie, én már csillagokat látok tőle. Azt hiszem, ez a jó megoldás.

=DARABHATÖBB(D$2:$D31;"<" & E30;E$2:E31;">"&E30)+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.

Nem jó a sorrend. Ebéd, kávé, cigi a helyes.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Na, korábban ezt kellett volna tennem, egyből meglett a megoldás

F2-be: =HA(D2=MIN($D$2:$D$31);1;DARABHATÖBB($E$2:E2;">" & D2))

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)

Ez is elmászik a 10. sorban.

Szerk.: szerintem jó a 13487. Több sorban ellenőriztem.

[ 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.

Nem mászik, van még 2 kocsi bent. [link]

[ 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)

Ügyesen az F31 képletét adtam meg.
F2 -> =DARABHATÖBB(D$2:$D2;"<" & E1;E$2:E2;">"&E1)+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.

Hurrá! Nagy vagy, mehetsz vacsorázni.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Ne tessék gonoszkodni a néninek. Majd az teszi fel az I-re a pöttyöt, amikor érkezik csdm mester és benyögi, hogy "hát de 2003-al kell megcsinálni"... Na akkor megyek vacsorázni.

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)

Semmi gonoszkodás, komolyan gondoltam, hogy nagy vagy!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hogyan tudom elérni, hogy ha egy cellába teszek egy hiperlinket ami ugyanannak a munkalapnak egy másik cellájára mutat akkor a hivatkozott cella a bal felső cella helyére kerüljön a kattintás után?

[ Szerkesztve ]

nem tudom, hogy ezt a linkel hogy hozod össze, de az biztos, hogy így lehet(ha jól értettem, amit kérdeztél) Itt az U66-os cella lesz a kliens terület bal felső sarkába görgetve.

Application.Goto Range("U66"), Scroll:=True

[ 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)

Vegyük, hogy a Munka1 lap B4 cellájába tennéd a linket.
Ne tedd be, csak egy szöveget írj oda, ami utal az ugrás helyére.
A lap kódlapjára:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then _
Application.Goto Sheets(2).Range("U66"), Scroll:=True
End Sub

felhasználva Fire előbbi hozzászólását.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Későn vettem észre, hogy ugyanannak a lapnak egy másik cellájára kell ugrani. Természetesen hagyd ki a Sheet(2)-t.

Ha több ilyen elrugaszkodási pontod van, Select Case szerkezetben adhatod meg a kiindulási pontot. A példa szerinti ugrások B1-ből D3-ba, vagy B4-ből G5-be:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$B$4"
Application.Goto Range("G5"), Scroll:=True
Case "$B$1"
Application.Goto Range("D3"), Scroll:=True
End Select
End Sub

[ 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.