[EnikoBP]

Idézet: Delila - Dátum: 2009. szept. 7., hétfõ - 6:30

EnikoBp

Segédoszlopokat kell felvenni a feladat megoldásához - hacsak nem kapsz egy egyszerûbb választ.

A G2 cella képlete a legkisebb többszörös kikereséséhez:
=HA(ÉS(B2>$A2;B2/$A2=INT(B2/$A2));B2;"")
Ezt húzd jobbra K2-ig. Az L2 (Eredmény) képlete:
=MIN(G2:K2)

A legnagyobb egész számú hányadoshoz a G2 képlete:
=HA(ÉS(B2<$A2;$A2/B2=INT($A2/B2));B2;"")
Ezt kell a K2-ig másolni,
L2-be: =MAX(G2:K2)

A G:K oszlopokat el is rejtheted.

Adhatsz feltételes formázást a B:F oszlopokra, akkor az L oszlopra nincs is szükség.
A felt. formázáshoz ezt kell megadnod: A cella értéke       egyenlõ       =MIN(G2:K2),
ill. =MAX(G2:K2). A sorokban az eredmény a Formátumban megadott módon lesz kiemelve.

nagyon köszönöm!

[Delila]

Idézet: EnikoBP - Dátum: 2009. szept. 7., hétfõ - 9:35

nagyon köszönöm!

Nincs mit (éjszaka jöttem rá a megoldásra).

[EnikoBP]

Sziasztok,
még egy kérdésem lenne,

pl keresett érték = 100
sorban szereplõ értékeke: 50 , 125, 150, 75
hogy tudom függvénnyel megoldani, hogy a 100-hoz legközelebbi, de egyben a legkisebb számot adja eredményként?

Ebben a példában, a 125 és 75 is egyenlõ mértékben esik távol a 100-tól, de nekem a 75 lenne az elfogadható eredmény.

Ebben esetleg tud valaki segíteni?

Köszönöm,
Enikõ

[Delila]

Szia Enikõ!

Sikerült összehozni egy makrót a feladatodra.
A keresett szám az A oszlopban van, a többi oszlop tartalmazza az összehasonlítandó értékeket - tetszõleges számú oszlopban.
Az eredményt minden sorba az utolsó utáni oszlopba íratom.

Sub keres()
    Dim usor, sor, oszl, uoszl, alap, sz_oszl As Integer
    Dim sz()
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    uoszl = Cells(2, Columns.Count).End(xlToLeft).Column
    ReDim sz(2, uoszl - 1)
    
    For sor = 2 To usor
        alap = Cells(sor, 1)
        For oszl = 2 To uoszl
            sz(1, oszl - 1) = Cells(sor, oszl): sz(2, oszl - 1) = oszl
        Next
            
        For sz_oszl = 1 To uoszl - 1
            If sz(1, sz_oszl) <= alap And Cells(sor, uoszl + 1) < sz(1, sz_oszl) Then
                Cells(sor, uoszl + 1) = Cells(sor, sz(2, sz_oszl))
            End If
        Next
    Next
End Sub

[EnikoBP]

Idézet: Delila - Dátum: 2009. szept. 8., kedd - 11:07

Szia Enikõ!

Sikerült összehozni egy makrót a feladatodra.
A keresett szám az A oszlopban van, a többi oszlop tartalmazza az összehasonlítandó értékeket - tetszõleges számú oszlopban.
Az eredményt minden sorba az utolsó utáni oszlopba íratom.

Sub keres()
    Dim usor, sor, oszl, uoszl, alap, sz_oszl As Integer
    Dim sz()
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    uoszl = Cells(2, Columns.Count).End(xlToLeft).Column
    ReDim sz(2, uoszl - 1)
    
    For sor = 2 To usor
        alap = Cells(sor, 1)
        For oszl = 2 To uoszl
            sz(1, oszl - 1) = Cells(sor, oszl): sz(2, oszl - 1) = oszl
        Next
            
        For sz_oszl = 1 To uoszl - 1
            If sz(1, sz_oszl) <= alap And Cells(sor, uoszl + 1) < sz(1, sz_oszl) Then
                Cells(sor, uoszl + 1) = Cells(sor, sz(2, sz_oszl))
            End If
        Next
    Next
End Sub

Szia Delila,

nagyon köszönöm, ez remek!
még annyit tudnál segíteni, hogy módosul ez a makró ha az "A" oszlopba egy azonosítót teszek, és a keresendõ érték "B"oszlopban lesz?

Sajnos a makrókhoz egyátalán nem értek.

köszönöm mégegyszer hogy ennyit segítettél!
Enikõ

[Delila]

EnikoBp

Itt a módosított makró.

Sub keres()
    Dim usor, sor, oszl, uoszl, alap, sz_oszl As Integer
    Dim sz()
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    uoszl = Cells(2, Columns.Count).End(xlToLeft).Column
    ReDim sz(2, uoszl - 1)
    
    For sor = 2 To usor
        alap = Cells(sor, 2)
        For oszl = 3 To uoszl
            sz(1, oszl - 1) = Cells(sor, oszl): sz(2, oszl - 1) = oszl
        Next
            
        For sz_oszl = 1 To uoszl - 1
            If sz(1, sz_oszl) <= alap And Cells(sor, uoszl + 1) < sz(1, sz_oszl) Then
                Cells(sor, uoszl + 1) = Cells(sor, sz(2, sz_oszl))
            End If
        Next
    Next
End Sub

Megnyugtattál, hogy jól mûködik, kezdtem kételkedni az eredményben.

[EnikoBP]

Idézet: Delila - Dátum: 2009. szept. 8., kedd - 17:31

EnikoBp

Itt a módosított makró.

Sub keres()
    Dim usor, sor, oszl, uoszl, alap, sz_oszl As Integer
    Dim sz()
    
    usor = Range("A" & Rows.Count).End(xlUp).Row
    uoszl = Cells(2, Columns.Count).End(xlToLeft).Column
    ReDim sz(2, uoszl - 1)
    
    For sor = 2 To usor
        alap = Cells(sor, 2)
        For oszl = 3 To uoszl
            sz(1, oszl - 1) = Cells(sor, oszl): sz(2, oszl - 1) = oszl
        Next
            
        For sz_oszl = 1 To uoszl - 1
            If sz(1, sz_oszl) <= alap And Cells(sor, uoszl + 1) < sz(1, sz_oszl) Then
                Cells(sor, uoszl + 1) = Cells(sor, sz(2, sz_oszl))
            End If
        Next
    Next
End Sub

Megnyugtattál, hogy jól mûködik, kezdtem kételkedni az eredményben.

Szia,
nagyon köszönöm , szépen mûködik!
Enikõ

[Delila]

Szívesen. 

[annak5604]

Sziasztok!

Az alábbi feladat vár megoldásra:

Adott egy 20 oszlopból és kb. 100000 sorból (Excel2007) álló táblázat. "A" oszlop dátumértékeket tartalmaz, "B" oszlop idõértékeket.

Erre a két oszlopra megadott irányított szûrõvel szeretnék egy idõintervallumban szereplõ adatokat lekérni. Egy példával illusztrálva (a tartomány nem valós), a szûrõtartományban a következõ értékek szerepelnek:

A110:D111 tartományban
Date Time Date Time
>=2009.01.01 >=00:04:00 <=2009.02.20 <=02:00:00

Az irányított szûrõ új helyre másolja a lekérdezés eredményét.
Ha ezt a feladatot "kézzel" oldom meg, akkor rendben is van minden. De ha ugyanezt makróval szeretném ("gombnyomásra"), akkor szürt értékek nem jelennek meg.

    Range("A1:V100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("A110:D111"), CopyToRange:=Range("A115:V115"), Unique:= _
        False

A hibakeresésben addig jutottam, hogy ha a kritérium értékeinél nem használok ">=" vagy "<=" jeleket, akkor ad szürt értéket a makró.

Hogyan lehet megoldani makróból az irányított szûrést idõintervallumra?

Köszönöm!

[Delila]

annak5604

A makró jó, nálam mûködik.
Próbáld meg az adataidat és a kritériumtáblát egy üres lapra átmásolni, és ott indítsd a makrót.
Ritkán, de elõfordul, hogy egy-egy lap hibás.

[annak5604]

Idézet: Delila - Dátum: 2009. szept. 9., szerda - 15:58

annak5604

A makró jó, nálam mûködik.
Próbáld meg az adataidat és a kritériumtáblát egy üres lapra átmásolni, és ott indítsd a makrót.
Ritkán, de elõfordul, hogy egy-egy lap hibás.

Átmásolva sem megy, továbbra sem.

Gondolom az adatmennyiség (sorok száma) nem befolyásolja a dolgot. (A példa 100 sorra szól, valójában 100000 van.)
És csak akkor mûködik a makró, ha a kritériumtáblában nincs ">=" és "<=" jel.

[-vadaszg-]

Sziasztok,

Ismét szeretnék segítséget kérni:
Van -e arra lehetõség, hogy van excelben egy NÉV oszlop (amiben szerepel Vezetéknév Keresztnév), ezt szeretnék szétszedni A oszlop: Vezetéknév B oszlop: Keresztnévre.
Illetve van egy másik oszlop amiben a címek szerepelnek egyben, pl. ir.szám Város Utca hsz, van -e valami függvény ami ezeket pl. a space mentén szétszedi õket, vagy elég az is, ha csak az ir. szám-ot másolja át egy másik oszlopba.
Segítségeteket elõre is köszönöm!
Üdv.,
Gábor

[debaj]

Függvényt nem tudok, de a Data menüpontban van egy Text to Columns menüpont, az pont ezt csinálja.

[-vadaszg-]

Idézet: debaj - Dátum: 2009. szept. 30., szerda - 16:19

Függvényt nem tudok, de a Data menüpontban van egy Text to Columns menüpont, az pont ezt csinálja.

ó, nagyon köszönöm! Sikerült

[fabianzsofi]

Sziasztok!
Látom, ti tényleg profik vagytok  , nekem pedig van egy igen vacak problémám  .

Kaptam jónéhány excel táblát, ahol A oszlopban van a kód, D oszlopban pedig egy kép beillesztve.
Namármost nekem a képek kellenének, A néven elmentve a wincsire, de a manuális "copy-paint"-en kívül semmi ötletem nincs. (Kerestem neten, angolul is, kérdést találtam hasonlót, de választ csak fizetõset.)

Van valakinek valami elegáns, automatikus megoldása?

köszi

[Klisé]

Sziasztok!

Vki segítsen léci. Az excelben vmi elállítódott és ha ctrl+c-t nyomok, akkor nem másolja a cellát, hanem kidob egy ablakot, amivel törölni tudom az adott cellát. Ctrl+v-re is ezt csinálja. Mi állítódhatott el?

Köszi a segítséget

[Root_Kiskacsa]

Idézet: Klisé - Dátum: 2009. okt. 16., péntek - 10:35

Sziasztok!

Vki segítsen léci. Az excelben vmi elállítódott és ha ctrl+c-t nyomok, akkor nem másolja a cellát, hanem kidob egy ablakot, amivel törölni tudom az adott cellát. Ctrl+v-re is ezt csinálja. Mi állítódhatott el?

Köszi a segítséget

Excel 2007 gyakori bugja ez. Még nekem sem sikerült kideríteni, hogy mi okozza, viszont ha a munkafüzetet bezárod és újra megnyitod, jó eséllyel megszûnik a probléma. Ha nem szûnne meg, zárd be és nyisd ki újra.
Egyébként nem csak a CTRL+C/V kombinációk, hanem jobbára majdnem mindegyik CTRL+valami kombináció ilyenkor bezavarodik.

[Klisé]

Idézet: Root_Kiskacsa - Dátum: 2009. okt. 18., vasárnap - 12:44

Excel 2007 gyakori bugja ez. Még nekem sem sikerült kideríteni, hogy mi okozza, viszont ha a munkafüzetet bezárod és újra megnyitod, jó eséllyel megszûnik a probléma. Ha nem szûnne meg, zárd be és nyisd ki újra.
Egyébként nem csak a CTRL+C/V kombinációk, hanem jobbára majdnem mindegyik CTRL+valami kombináció ilyenkor bezavarodik.

Szia! Köszi a választ, de a bezárás és újra megnyitás nálam nem segít. 2 hete napi többször nyitom és zárom be ugyanazt a táblázatot melóhelyen és a hiba nem múlik. Újratelepítés segíthet csak?

[Root_Kiskacsa]

Idézet: Klisé - Dátum: 2009. okt. 18., vasárnap - 13:26

Szia! Köszi a választ, de a bezárás és újra megnyitás nálam nem segít. 2 hete napi többször nyitom és zárom be ugyanazt a táblázatot melóhelyen és a hiba nem múlik. Újratelepítés segíthet csak?

Nem fog segíteni az újratelepítés, nekem benn a cégnél randomra csinálják ezt a gépek, múlttól és operációs rendszertõl függetlenül. Valami kiváltja ezt a viselkedést az Excelben, csak sajnos még nem sikerült beazonosítanom, hogy mi. Füzet újranyitása nálam többnyire mindig segített, nálad nem tudom miért segít ez sem.

Szerk: Persze ha jobban belegondolok, két hete már Windows 7 van a munkaállomásomon, (ráadásul Vistáról upgrade-elve és nem újratelepítve) és azóta még nem jelentkezett a hiba. De ez még egyelõre lehet puszta szerencse is. -- Vagy valamit leszedett a Win 7, ami a Vista alatt zavaró tényezõ volt az Excelnek.

Szerkesztette: Root_Kiskacsa 2009. 10. 19. 20:45 -kor

[Szisz67]

Üdv mindenkinek!
Hogyan állíthatom be excelben, hogy két betút számként kezeljen, amivel a késöbbiekben számolhatok. :confused: