Excel kérdés

Jelentkezz be a hozzászóláshoz.

#714
Köszi ezzel nincs is gondom. A képet nem sikerült olyan formátumban lementeni, hogy megfeleljen a 20KB követelménynek, és még kivehetõ is legyen a tartalma.

#713
Sziasztok! Lenne egy kérdésem! Van egy táblázatom, tele értékekkel és ezeknek az összege egy sum fügvénnyel van összeadva. Azt szeretném elérni hogy ha egy érték mondjuk más szinnel van beírva (vagy ez lehet akármien más megkülömböztetés) akkor azt ne adja hozzá.
joebacsi
#712

www.rdha.hu [bf 80k] [bf2 100k] KisKöcsögkör FTW! \"Az ország azé, aki teliszüli.\"

Yan
#711
naa, melóban meg voltak ezek a doksik.
hátha segít.
Ez az alap /magyar - 640kB
Ez bõvebb /angol - 3,8MB

¥ xfire: kistekila

Yan
#710
:o
ami hirtelen eszembe jut, törölted vagy uninstalláltad?
indítsd el a telepítõ cd-t és válaszd a repair-t

¥ xfire: kistekila

#709
Sziasztok!
Régóta mûködõ Office 2007 egyik napról a másikra nem indul el. A Word hibaüzenete: nincs elegendõ memória, vagy lemezterület a program indításához.(eddig is ennyi volt). Az Excel hibaüzenet: Csökkentett módban szeretné futtatni az Excelt? Utána: az egyik lexikon file XLLEX.DLL hiányzik. (A dll-t a másik géprõl áthoztam, kicseréltem, de ugyanaz a hiba.)
letöröltem az Office 2007-et és újraraktam, de nemlett jó(bár sejtettem)
csak ha az XP-t is újratelepíteném akkor lenne jó az Office?
B.U.É.K!

lalakov
#708
BÚÉK!
Delila1
#707
Szívesen, és BÚÉK!

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#706
Látom még rengeteg mindent nem tudok, de ezzel amit most tanultam tõled, elleszek egy darabig<#vigyor2>.
Köszönöm.<#worship>
Delila1
#705
Még annyit, hogy ha 1 feltételhez 1 utasítás tartozik, az If-et nem kell lezárni End If-fel, de több utasításnál már igen.
A 4 db belsõ If sorra csak akkor kerül sor, ha a bevitt érték megfelel az elsõ IF sor feltételének, vagyis a bevitt érték nagyobb nullánál.

Érdemes ezt is pontosítani, mert ha egy betût viszel be, az is nagyobb, akkor is hibára fut.

A pontosított elsõ feltétel:
If Target.Column < 3 And Target.Row < 4 And IsNumeric(Target.Value) Then

Az IsNumeric(Target.Value) azt figyeli, hogy a bevitt érték szám-e. Betû bevitelekor, vagy törléskor azonnal az End If sorra fut a makró, nem figyeli a közbensõ 4 feltételt. Törléskor a bevitt érték "", üres string, vagyis nem numerikus érték.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#704
Örülök, hogy sikerült.
Egy kicsit módosítottam rajta, mert adat törlésekor hibára fut. Képként tettem be, hogy a tagolás látsszon, remélem, sikerül a feltöltés.



Hengelhoffer: A Paint-tel is lehet gif gépet elõállítani, a Mentés másként menüpontnál meg lehet változtatni a kiterjesztést.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#703
Nagyon szépen köszönöm.<#worship> Sikerült.
Elõször az elsõ bekezdést elolvasva, ezt készítettem:
"Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cells(1, 3) = Cells(1, 3) + Target.Value
If Target.Address = "$B$1" Then Cells(1, 3) = Cells(1, 3) + Target.Value
End Sub"

Majd felfogva a többit, ez a véglegesem:
"Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column<3 And Target.Row=1 Then Cells(1, 3) = Cells(1, 3) + Target.Value
If Target.Column<3 And Target.Row=2 Then Cells(1, 3) = Cells(1, 3) - Target.Value
If Target.Column<2 And Target.Row=3 Then Cells(1, 3) = Cells(1, 3) * Target.Value
If Target.Column=2 And Target.Row=3 Then Cells(1, 3) = Cells(1, 3) / Target.Value
End Sub"
Delila1
#702
Szia,

Ez egy eseményvezérelt eljárás, ami a Change eseményhez van rendelve, vagyis akkor mûködik, ha valamelyik cellában változtatod az értéket.
Az If Target.Address = "$A$1" Then sorral lekérdezzük a bevitel címét (Target.Addres). Ha ez $A$1, vagyis az A1 cellában módosítottuk az értéket, akkor növelje a Cells(1,2) (B1) értékét a bevitel értékével (Target.Value) – Cells(1,2)=Cells(1,2)+Target.Value. Ezt úgy kell érteni, hogy a B1 legyen az eddigi B1, plusz a most bevitt érték.
A Cells(1,2)-ben az 1 a sor-, a 2 az oszlop száma. A C1 cellára Cells(1,3) formával hivatkozhatunk.
Te most az A1 és a B1 változását akarod figyeltetni. Ebben az esetben 3 feltételt kell figyeltetned.
1. a bevitel az A oszlopban történt-e?
2. vagy a B oszlopban?
3. az elsõ sorban?

Ha a makróból hiányoznak a feltételek, a változtatás a teljes lap bármelyik cellájának módosulásánál végrehajtódik, ebbõl kavalkád, és végtelen ciklus jönne létre.
A két oszlop figyelését egyszerre is megadhatjuk:
If Target.Column<3
ehhez egy ÉS kapcsolattal hozzá kell rendelni a sor figyelését:
And Target.Row=1

Nem írom tovább, mert akkor megakadályozlak az önálló makróírásban.
Mindenképp írd meg, mire jutottál.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

lalakov
#701
Szia!

Be szoktam nézegetni ide, még ha nincs is kérdésem, hátha tanulok valamit. Ez a #683-ban leírt mûvelet jól néz ki. De nem tudtam rájönni, mi mit jelent, megpróbáltam átírni saját használatra, de nem akar összejönni. Gondoltam, ha rájönnék, hogyan mûködik, nem kéne minden kis számítást megkérdezni<#papakacsint>. Arra akarnám módosítani, hogy: A1+B1=C1, bármelyikben is módosítom az összeget, adja hozzá C1-hez. De a legjobban annak örülnék, ha én tudnám megcsinálni. El lehet ezt magyarázni egy mezei halandónak?<#vigyor2>
Vagy utána kéne olvasnom?
#700
Köszönöm! Ez is összejött! A mentés is sikerült.. Az volt a legnagyobb problémám, hogy egyáltalán nem adott semmi hiba üzenetet. Csak egyszerüen nem müködött a makro. De mostmár minden ok!
Yan
#699
picit állítgattam, és így már megy 'o7-ben is:
Excel beállítások => Adatvédelmi központ => (jobbra)beállítások => Makróbeállítások => pipa a VBA project ...; (esetleg a harmadik, negyedik rádiógombot választani)

&#165; xfire: kistekila

Delila1
#698
Most látom, hogy míg írtam a szöveget, Te már betetted a választ, köszönöm (lassan írok).

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#697
Közben sikerült kihámoznom.
Úgy látszik, nem enged önálló rajzolatot rendelni a gombokhoz, csak a saját készletébõl lehet valamit alkalmazni. A semminél ez is több, de nem értem, hogy egy jó funkciót miért kellett megszüntetni.
A saját makróimat a Gyorselérési eszköztárra tettem ki, az ott lévõ gombok képét így módosíthatom:
Office gomb/Az Excel beállításai/Testreszabás. A Gyorselérési eszköztáron kiválasztom a saját makrómat, ekkor elérhetõ lesz a Módosítás gomb, amivel az Excel saját rajzai közül kiválaszthatom a nekem tetszõt (akkor is, ha nem tetszik <#hehe>).

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#696
Próbáltam minden formátummal, de itt a melóhelyen csak szegényes képszerkesztési lehetõségeim vannak. Paint, és Office Pictures Manager. Az utóbbival ezt tudtam csak kihozni.

Megpróbálom érthetõen leírni az elérést.

- Bal felsõ sarok - excel nagy kerek gomb
- Alul - "Az Excel beállításai"
- Testreszabás
- A jobboldali panelen a kívánt sor kijelölése
- Amennyiben a gombkép cserélhetõ, pl. makróknál, az "Alaphelyzet" melleti gomb elérhetõvé válik "Módosítás..." néven

Delila1
#695
Ebbõl sajnos tényleg nem lehet látni semmit, a nagyítás olvashatatlanná teszi. Megtennéd, hogy gif-be mented, az kisebb méretet ad, mint a jpg.
Az is jó lenne, ha leírnád a menük útvonalát.

Köszönöm.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#694
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(1, 2) = Cells(1, 2) + Target.Value
Cells(1, 3) = Cells(1, 3) + 1
End If
End Sub

Ez a makró a C1-ben gyûjti a beadott összegek darabszámát.
Sikerült a "makrós" mentés?

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#693
Elnézést a kép minõségért. Nem tudtam jobbat kihozni emiatt a nevetséges 20KB feltöltési korlát miatt 50KB már elég lett volna, de akkor ki fizetne a VIP tagságért ^^



A gombkép szerkeszthetõségérõl még nem találtam infót. Úgy látszik még senki nem találta meg, és a guruk röstellik ezt beismerni . Ha pontosan tudnák, már írták volna.

#692
Még visszatérve az elsõ kérdésemre, azt meglehetne oldani makróval, hogy a hozzáadott értékek számát számolja? Tehát azt szeretném hogy számolja hogy hányszot adtam hozzá új számot.
#691
Én is elmentettem 2003-ként, még állítgattam rajta aztán jó lett.
Delila1
#690
Nálam nem jelentkezik ez a tünet. Ha 2003-ban mentve mûködik, akkor ez a megoldás jó.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Yan
#689
nekem mind be van kapcsolva, mégis ugyanaz volt a tünet.
de kompatibilis módban, 2003-ként mentve jó lett.

&#165; xfire: kistekila

Delila1
#688
Érdemes két bõvítményt bekapcsolni.
Office gomb/Az Excel beállításai/Bõvítmények
A Kezelésnél: Excel bõvítmények/Ugrás
Itt az Analysis ToolPak és az Analysis ToolPak–VBA négyzetét jelöld be.
Új függvények állnak ezután a rendelkezésedre, és makróban is több dolgot tudsz végrehajtani. Lehet, hogy a Target is csak a bõvítmény bekapcsolása után mûködik, de akkor biztosan. 2007-es, makróbarát füzetként is mentheted.
A súgóban nézz utána a biztonsági beállításoknak, és a megbízható helyek létrehozásának.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Yan
#687
mentsd el 2003-ként.
ha újra megnyitod, lesz a táblázat felett egy makró beállítás rész, ott engedélyezd.

Biztonsági figyelmeztetés => Beállítások... => Tartalom engedélyezése

&#165; xfire: kistekila

#686
Még egy egy kérdés...
Hogy kell mindezt elmenteni? Mert sima excel ként nem hajlandó a makrót is elmenteni, makró barát excel munkafüzetként elmenti, csak úgy meg nem mûködik a makró.. ?????
(2007-es Excel-t használok)
Delila1
#685
Szívesen.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#684
Nagyon szépen köszönöm! Úgy néz ki hogy mûködik!
Delila1
#683
Ezt egy egyszerû makróval lehet csak megoldani, képletekkel körkörös hivatkozás lenne.
A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztõbe, és jobb oldalon kapsz egy üres lapot. Oda másold ezt be:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cells(1, 2) = Cells(1, 2) + Target.Value
End Sub

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#682
Hol találtad meg a változtatást?
Én eddig sem jutottam el.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

#681
Sziasztok! én egy olyat szeretnék csinálni. Hogy Mondjuk van az A1-es és a B1-es cella. Ha az a1-be beírok egy értéket legyen 10, akkor azt hozzá adja a B1-es cellához, amibe 10 lesz látható. Aztán ha újra beírok egy értéket A1-be, legyen 5, akkor az a b1-ben 15 legyen. Vagyis gyakorlatilag egy számológépet szeretnék létrehozni, csak ott ugye a szám után a "+" jelet nyomkodjuk. Remélem sikerült megértetni magam! Már agyalok rajta egy ideje de még nem sikerült megoldást találnom! A válaszokat elõre is köszönöm!
#680
A gombkép változtatását már sikerült megtalálni, már csak a szerkesztést kell. Remélem megvan valahol, mert ez jó kis funkció volt a régebbi excelben

#679
Sziasztok!

A 2007 excelben a makrókhoz lehet gombképet társítan, szerkeszteni, ill. kitenni a menüre?
Lehet e saját eszköztárat létrehozni?
Bevallom ezeket a funkciókat nem találom sehol, a help sem említi.

lalakov
#678
Köszönöm, ezzel lesz a legegyszerûbb.
Yan
#677
feltételes formázásnál azt is megadhatod hogy mettõl meddig jelezzen és milyen színnel.
kiválasztod a szabályt és szerkeszted kedvedre 😊

&#165; xfire: kistekila

lalakov
#676
Csak most tudtam átnézni(eddig dolgoztam), de ez nem jó, mert azt szeretném, ha tizenötezrenként szólna(illetve amikor átlépi), de figyelmeztessen már elõtte is. Ezért kéne kiírnia a 3 szervíz felirat valamelyikét különbözõ színekben(a színezés már menne).
lalakov
#675
Köszönöm. Kocsi kilométeróra figyeléséhez kéne, hogy szóljon tizenötezrenként, illetve kicsivel elõtte is.
Delila1
#674
Azt hiszem, erre a képletre lesz szükséged.

=HA(K55/15000<>KEREKÍTÉS(K55/15000;1);"SZERVIZ!!";"")

Ez akkor kiált szervízért, ha a hányados 2 tizedesjegyet tartalmazó szám. 7,8-nál, 7,9-nél csendben marad, de 7,86-nál jajgat.
A hosszú képleted alapján jutottam erre a gondolatra.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Yan
#673
makróban igen, mert az vb 😊

(HA annyi nõ közt dolgoznál, mint én, ilyen jelölõket nem használnál (már)) <#awink>

&#165; xfire: kistekila

Delila1
#672
Az elsõ feladathoz leírhatnád, mit is akarsz elérni, mert így nehéz kitalálni a szándékodat. Valószínû, hogy a VAGY és az ÉS függvényekre van szükséged.

Feltételezésem szerint ez kell:
=HA(VAGY(ÉS(K55/15000>7,8;K55/15000<7,9);ÉS(K55/15000>7,9;K55/15000<8);K55/15000>8);"SZERVÍZ!!";"")

A =HA(K55/15000=egész szám;"SZERVÍZ!!";"") helyett ezzel próbálkozz:
=HA(K55/15000=INT(K55/15000;"SZERVÍZ!!";"")

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

joebacsi
#671
igaz elég buzi megoldás, de tudod egymásba ágyazni õket, ami neked kell azt tudod ez alapján is:
+HA(G21>10;HA(G21<>20;"Punci"))

Annyira nem ismerem az excel szintaktikáját, de normális nyelvekben megadható rendesen több feltétel, && (és), ||(vagy) operátorokkal.
Hirtelen nem látom, hogy a ha függvény tudná e ezt.

www.rdha.hu [bf 80k] [bf2 100k] KisKöcsögkör FTW! \"Az ország azé, aki teliszüli.\"

lalakov
#670
=HA(K55/15000>egész szám;"SZERVÍZ!!";"") helyett
=HA(K55/15000=egész szám;"SZERVÍZ!!";"")
lalakov
#669
Köszönöm<#circling>

A feltételes képletben meg lehet adni több feltételt is? Valami ilyesmire gondolok 1 képleten belûl(így írtam be, de nem tetszik neki):
=HA(K55/15000>8;"SZERVÍZ!!";"")+HA(K55/15000>7,9<8;"SZERVÍZ!";"")+HA(K55/15000>7,8<7,9;"SZERVÍZ";"")

Illetve lehet olyan képletet megadni, hogy:
=HA(K55/15000>egész szám;"SZERVÍZ!!";"")
Yan
#668
kijelölöd azt az oszlopot ahol a képletet használod:
feltételes formázás => cella kijelölési szabályok => egyenlõ
vagy csinálsz rá új szabályt.
(MSO 'o7)

&#165; xfire: kistekila

lalakov
#667
Sziasztok!

Ebben a képletben(vagy persze bármiben), hogy lehet színnel ellátni az eredményt?:
=HA(K55/15000>8;"SZERVÍZ";"")

Köszönöm
Delila1
#666
Az eredeti táblázatomban volt egy plusz oszlop. A kép méretét le kellett csökkentenem, ezért elhagytam az utolsó oszlopot, és az utolsó kritériumot. A szövegdobozban viszont ott felejtettem. Elnézést!
A képlet helyesen:
=SZORZATÖSSZEG(($A$2:$A$20=H1)*($B$2:$B$20=I1)*($C$2:$C$20=J1);$E2:$E20)

Akárhány feltételt meg lehet adni ilyen módon, végül a pontosvesszõ után az összegzendõ oszlopot. Nem lehet vele más lapon lévõ adatokra hivatkozni, és nem megengedett a $A:$A forma sem, pontosan kell megadni a tartományokat.

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.

Delila1
#665

Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.