- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen SSD-t vegyek?
- OLED monitor topik
- 3DMark (2013) eredmények
- Házimozi belépő szinten
- Ízléses, masszív és praktikus mikrotorony jött a Jonsbo műhelyéből
- Everest / AIDA64 topik
- Hővezető paszták
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
-
PROHARDVER!
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
-
#6900
Relisys
senior tag
Fire/SOUL/CD
#6878
Relisys
senior tag
válasz
Fire/SOUL/CD
#6878
üzenetére
Köszi mindkettőtöknek
-
#6899
Delila_1
veterán
Csakénvagyok
#6896
Delila_1
veterán
válasz
Csakénvagyok
#6896
üzenetére
Itt a kép.
-
#6898
Delila_1
veterán
Csakénvagyok
#6896
Delila_1
veterán
válasz
Csakénvagyok
#6896
üzenetére
Az első feltételnél kitetted a $ jeleket?
Figyeltél arra, hogy melyik feltételnél szerepel "A cella értéke", és melyiknél "A képlet értéke"?
Ennek működnie kell. -
#6897
Fire/SOUL/CD
félisten
Csakénvagyok
#6896
válasz
Csakénvagyok
#6896
üzenetére
-
#6895
Fire/SOUL/CD
félisten
Delila_1
#6894
válasz
Delila_1
#6894
üzenetére
Hali!
Igen, ma már "lőn világosság"...
Csak ez meg egy másik kérdést vetett fel bennem, nevezetesen, akkor miért van/mi értelme a 2007-ben fellelhető Leállítás, ha igaz lehetőségnek, a feltételes formázások listájában? 
A válasz egyszerű: [link]
A "A szabályértékelés leállítási idejének ellenőrzése a Leállítás, ha igaz jelölőnégyzet használatával" résznél van a lényeg...Egyszerűen kompatibilitási okokból vezették be a 2007-től, részletek a linkben.Fire.
-
#6894
Delila_1
veterán
Fire/SOUL/CD
#6892
Delila_1
veterán
válasz
Fire/SOUL/CD
#6892
üzenetére
Ma friss fejjel gondold át, és rájössz, hogy a tegnapi tesztem szépen bizonyítja a 'ciklus'-ból való kilépést. A 3. feltétel nem írja felül az elsőt. Ha nem lépne ki, csak sárga és piros színek jelennének meg.
-
#6892
Fire/SOUL/CD
félisten
Delila_1
#6891
válasz
Delila_1
#6891
üzenetére
Hali!
Oksa, így érthető(korábbi HSZ-ed is biztosan, csak nem ma)
Úgy lehetne ezt letesztelni, ha lenne olyan feltétel, hogy kisebb vagy egyenlő/nagyobb vagy egyenlő. Magyarul csinálsz(én ma biztosan nem ) 3 feltételt1. ha egyenlő
2. ha kisebb egyenlő
3. ha nagyobb egyenlőTermészetesen 3 különböző színre "festenék" a cellát. Mivel az egyenlő mindháromban benne van, ezért mindegy lenne a feltételek közti sorrend, mert mindig a legalsó/legutolsó feltétel teljesülne, hisz ott is megvizsgálod az egyenlőséget. Ha ez igaz, akkor bizonyítottuk, hogy az összes feltételen végigmegy, még akkor is, ha a legelső igaz is.
Na remélem, ezt meg én nem fogalmaztam túl bonyolultan...
(meg jó az okfejtésem és egyáltalán kivitelezhető)Fire.
-
#6891
Delila_1
veterán
Fire/SOUL/CD
#6890
Delila_1
veterán
válasz
Fire/SOUL/CD
#6890
üzenetére
A #6881-ben leírt formázásnál fontos, hogy a darab2 függvényes legyen az első, másképp nem azt érjük el a formázással, ami a cél.
-
#6890
Fire/SOUL/CD
félisten
Delila_1
#6889
válasz
Delila_1
#6889
üzenetére
Hali!
Öööö, bocs de ma adóbevallásokat töltögettem szinte egész nap, egy kissé meg vagyok zakkanva.
Ezt most úgy szájbarágósan leírnád még1x, mert egy kukkot nem fog fel az agyacskám belőle...Fire.
UI: De lehet, hogy ma ne is írd le, holnap reggel inkább elolvasom még1x, addigra talán javulást mutatok...
-
#6889
Delila_1
veterán
Fire/SOUL/CD
#6885
Delila_1
veterán
válasz
Fire/SOUL/CD
#6885
üzenetére
Igaz a sorrend fontosságára vonatkozó feltételezésem.
Megváltoztattam a sorrendet, és az üreseket azonosnak értelmezte. Azonosak is, de ebben az esetben a kitöltetlenségük az elsődleges szempont. -
#6888
Delila_1
veterán
Fire/SOUL/CD
#6887
Delila_1
veterán
válasz
Fire/SOUL/CD
#6887
üzenetére
Három, a negyedik az alapbeállítás.
-
#6887
Fire/SOUL/CD
félisten
Delila_1
#6886
-
#6886
Delila_1
veterán
Fire/SOUL/CD
#6885
Delila_1
veterán
válasz
Fire/SOUL/CD
#6885
üzenetére
A 2003-nál még nem lehet leállítani.
-
#6885
Fire/SOUL/CD
félisten
Delila_1
#6884
válasz
Delila_1
#6884
üzenetére
Hali!
Nem vagyok benne biztos, de szerintem minden feltétel meg lesz vizsgálva, függetlenül attól, hogy igaz avagy hamis. Pont ezért került be pl a 2007-esbe, hogy meg lehet "állítani" a feltételek feldolgozását. Leállítás, ha igaz
De még1x mondom, nem vagyok benne 100%-ban biztos...Fire.
-
#6884
Delila_1
veterán
Csakénvagyok
#6883
Delila_1
veterán
válasz
Csakénvagyok
#6883
üzenetére
A darab2 függvény az első a 3 feltétel közül. Ez azt mondja a feltételes formázásnak, hogy ha üresek a sorban a cellák, akkor zöld legyen a háttér.
Úgy vettem észre, hogy a feltételes formázásnál nem mindegy a feltételek sorrendje. Tapasztalatom szerint úgy működik, hogy megvizsgálja az első feltételt, ha az igaz, beállítja a formátumot, és kilép a formázásból. Ha nem igaz az első, akkor a 2. feltételt vizsgálja, és így tovább.
Ezért tettem előre az üres sor vizsgálatát, mert ahogy írod, mikor a C és D oszlop cellája is üres, akkor egyenlő.
Ki is próbáltam, jól működik. -
#6883
Csakénvagyok
őstag
Delila_1
#6881
Csakénvagyok
őstag
válasz
Delila_1
#6881
üzenetére
Köszönöm, valami hasonlót akartam elérni. Sajna az ithoni gépemen nem 100%osan tudom letesztelni, mivel OOo van Ubuntu alatt (a formátumok nem igazán passzolna). Majd holnap lecsekkolom
szerk: Ha eggyenlő akkor sárga lesz, viszont nem lesz sárga az üresen hagyott mező is?
-
#6882
Delila_1
veterán
Csakénvagyok
#6880
Delila_1
veterán
válasz
Csakénvagyok
#6880
üzenetére
A 3. feltétel nem "nagyobb,mint", hanem "egyenlő".
-
#6881
Delila_1
veterán
Csakénvagyok
#6880
Delila_1
veterán
válasz
Csakénvagyok
#6880
üzenetére
Előbb jelöld ki a teljes tartományodat a címsor nélkül, és add meg az első feltételt. A darab2 függvény az A oszloptól az utolsó oszlopodig számoljon, én G-ig írtam be.
Második lépésként a C oszlopot jelöld ki (C2-től lefelé), ami már tartalmazni fogja az első kritériumot, és add hozzá a másik kettőt.
A formátumot át tudod másolni a többi táblázatodra is. -
#6880
Csakénvagyok
őstag
Csakénvagyok
őstag
Elkélne egy kis segítség!
Excel táblázatban adott egy oszlop, aminek a színe vátozni kellene, a melette lévő oszlopban beírt számok szerint (ha kisebb akkor piros, egyenlő akkor sárga, ha nagyobb színtelen). Feltételes formázással ezt megtudtam csinálni, viszont többszáz poziciónál 4 táblázaton keresztül kellene cellánkét változtattnom. Egy megoldást keresnék hogy oszloponként andjam meg a feltételt. Még bonyolódik ott is hogy van néhány sor, ami be nem számok írodnak, csupán elválasztó sorok kiszínezve.
Hogy erthetőbb legyek mellékele egy képet is:
A harmadik oszlop színét kell a negyedik oszlop értéke szerint vátoztattni.
-
#6878
Fire/SOUL/CD
félisten
Relisys
#6877
válasz
Relisys
#6877
üzenetére
Hali!
A oszlopban eladási ár, B-ben darabszám, akkor C1-be írd ezt a képletet =A1*B1
Megfogod a C1 cella jobb alsó sarkát és végigmásolod, ameddig kell. Ha ezzel megvagy, akkor meg a C oszlop utolsó cellája alá beteszel egy =SZUM(C1:C1234) függvényt.
(értelemszerűen, a szum függvény tartománya, az C1-től ameddig a C-ben vannak adatok)Fire.
-
Relisys
senior tag
Hello!
Van két oszlopom( eladási ár, darabszám) és a teljes bevételt szeretném kiszámolni. Kb 30 termékről lenne szó, ha külön külön számolom ki minden terméket és a végén összeadom öket az nagyon sok munka. Ráadásul 12 hónapra kell elkészitenem:S
Van erre valami függvény? -
#6876
Sickboy25
addikt
Fire/SOUL/CD
#6875
Sickboy25
addikt
válasz
Fire/SOUL/CD
#6875
üzenetére
köszi így megváltozott, most megkeresem az automatikus számítás kapcsolót.
Azt is megtaláltam, így már szuper! Köszi a gyorsaságot, most megint melózhato
-
#6875
Fire/SOUL/CD
félisten
Sickboy25
#6874
-
Sickboy25
addikt
Sziasztok
ismét itt
Most egy olyan problémám lenne, hogy adott egy táblázat, ilyesmi értékekkel pl.: A1: 600 és mondjuk A13 -nál beírtam egy képletet, hogy =A1/420 és kidobja az értéket, ezzel nincs is baj, de utána már nem számol automatikusan, viszont ha kézzel írmo be a képletet, akkor megint számol... Miért van ez?
Nem én csináltam a táblázatot, nekem csak az értékeket kellene korrigálnom, de így nehéz, ha nem számol automatikusan.
Előre is köszi
-
#6872
neilszab
őstag
Fire/SOUL/CD
#6856
neilszab
őstag
válasz
Fire/SOUL/CD
#6856
üzenetére
Köszönöm Szépen perfag, Fire/SOUL/CD, Fehér Mancs a segítőkész válaszokat!
A "már/még"-et nehéz lenne eldönteni, bejött egy új folyamat, de a fejlesztés még nem készült el a megoldásra, így addig nekem minden éjjel - mikor még/már nem dolgozik senki a rendszerben - elő kell állítanom bizonyos adatállományokat. De most már teledobáltam makróval a cuccot, úgyhogy viszonylag hamar megvagyok vele.
"Nos ha ez a szitu, akkor ebben a sorrendben megoldható
1. illeszd be úgy ahogy van egy adott oszlopba az adatokat, jelöld ki az oszlopot
2. a vesszőt cseréld szóközre
3. a pontot cseréld vesszőre
4. állítsd számformátumra (bár már úgy néz ki, mintha az lenne, ezres elválasztóval, de akkor sem számformátumú a kiválasztott oszlopod)"Ezt próbáltam én is (a vesszőt viszont én a semmire cseréltem), viszont bizonyos így keletkezett számokat (pl 3 karakter tizedes jegy nélkül) nem volt hajlandó számmá konvertálni (fura, de a 4 karakterrel már nem volt gond), hanem jelezte, hogy hiba és hogy ez bizony egy szám szöveg formában... erre én meg, hogy na nem mond...
De az okokat meg a logikát nem fedeztem fel benne, hogy ha tudja Ő is, hogy az egy normál mezei szám, akko' mi a f****é (csudáért) nem rakta át számba, ahogy a többit is, ahelyett, hogy itt visítozik nekem...Ha meg nem szöveg formátumban másoltam be a táblába, akkor meg jött a hülye dátumozás...
Végül az előbbi verzióval + 1 ÉRTÉK függvény beiktatásával sikerült áthídalni a dolgot, de ettől függetlenül eléggé felháborít, hogy mindenféle trükkel kell élni ahhoz, hogy sima kikapcsolás helyett meg tudjam kerülni ezt az idióta funkciót...
Köszi Szépen még egyszer a segítséget!
Amúgy megnyugtatásként közlöm, hogy a Hétfő délelőttöt végigaludtam
-
Delila_1
veterán
Furcsa eset történt velem.
Valahol ezt láttam: Selection = Munka1.Range("A1")
Ezt a hivatkozást ki akartam próbálni, és egy másik lapról indítottam (a Munka1!A1-be beírtam előtte egy számot). Az eredmény Antal (!) lett.
A Munka1 változtatása nélkül a sort betettem egy ciklusba, mire produkált nekem 40 nevet az indító lapon egy oszlopban.
Feltámasztottam a leesett államat, és elkezdtem gondolkozni. A beállításoknál vannak előregyártott egyéni listáim (nevek, helységnevek, római számok, foglalkozások, stb.), hogy szükség esetén előkaphassam a feladatba illőt.
A most kihozott névsor viszont nem egyezik a jelenlegi névsorommal, de magyar nevek.
Az XLSTART menüben pihen egy régebben megírt Munkafüzet.xlt nevű sablonom, ami az Excel indításakor betöltődik. Ebben olyan beállításokat hajtottam végre, mint pl. a függőlegesen középre igazítás az összes cellában. Behívtam, megnéztem, hogy anno nem hagytam-e benne egy régi névsort, de üres minden lapja.
Mostanában mindent újra kellett telepítenem – a tápegységem ráunt a szolgálatra –, de a régi xlt-t és a personal.xls-t a lementett helyről pótoltam.
Mivel a telepítés után nem jutott azonnal eszembe, hogy az egyéni listáimat is elmentettem régebben, a nevekhez új listát vittem be. A többit már az elmentettből pótoltam.Meglehet, hogy az első névlistát valamikor a Munkafüzet.xlt-ben írtam meg, onnan másoltam be az egyéni listába, de a sablon mentése előtt kitöröltem, hiszen a sablon látszólag most is üres.
A kérdésem, honnan kerültek most elő a régi adatok?
A ciklus bevitele előtt miért nem a Munka1!A1-be bevitt számot produkálta a Selection = Munka1.Range("A1") sor? -
#6869
Fire/SOUL/CD
félisten
Hali!
Delila_1, Ulrik19
Kösz a korrekciót, most már van 3 képlet, valamelyik csak jó lesz Sickboy25 fórumtársunknak.Fire.
-
#6867
Delila_1
veterán
Fire/SOUL/CD
#6865
Delila_1
veterán
válasz
Fire/SOUL/CD
#6865
üzenetére
Csatlakozom az előttem szólóhoz, én sem ismertem, és én is köszönöm.
Sicboy25
A
Range(Target.Address) = Y / X * 100 sor helyesen
Range(Target.Address) = X / 100 * YAz Y=50 helyett megadhatod egy cella címét, amiben a % van, pl.: Y=Range("P1")
-
ulrik19
tag
válasz
Fire/SOUL/CD
#6865
üzenetére
X / Y * 100, csak a felvezető szöveg félreérthető volt, mivel először X-nek írta a viszonyítási alapot, majd utána X-szel az értékeket és Y-nal az alapot jelölte. (szerintem)
Az Application.EnableEvents = False hasznos volt, nem ismertem. Köszi!
-
#6865
Fire/SOUL/CD
félisten
Sickboy25
#6859
válasz
Sickboy25
#6859
üzenetére
Hali!
Makró-kód
Private Sub Worksheet_Change(ByVal Target As Range)
X = Range(Target.Address)
Y = 50
On Error Resume Next
If Not Intersect(Range("P3:V25"), Range(Target.Address)) Is Nothing Then
If X <> "" Then
Application.EnableEvents = False
Range(Target.Address) = Y / X * 100
Application.EnableEvents = True
End If
End If
On Error GoTo 0
End SubAmit állíthatsz, az az Y(állandó, én most 50-nek vettem) illetve az adattartomány(esetünkben P3:V25). Természetesen ebben a tartományban nem lehet a táblázat fejléce csak számadatok. Amennyiben pl betűt is tartalmaz a cella(mert véletlenül melléütsz), akkor nem történik semmi, bekerül amit beírtál, nyilván nem lehet vele számolni.
Fire.
UI: Ha azt akarod kiszámolni, hogy hány százaléka X-nek Y, akkor korábban rossz képletet adtál meg. Helyesen Y/X*100...
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
#6864
Fire/SOUL/CD
félisten
Delila_1
#6862
válasz
Delila_1
#6862
üzenetére
Hali!
Pedig elég egyszerű és szerintem már Te is használtad korábban ezt a megoldást, nevezetesen hogy le kell tiltani az eseményeket. Vagy rosszul tévedek?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
MsgBox "Ez a cella módosult: " & Target.Address
MsgBox (Range(Target.Address))
Range(Target.Address) = Range(Target.Address) * 0.05
Application.EnableEvents = True
End SubFire.
UI: Persze most hibakezelés nincs, nem nézem meg hogy üres-e az adott cella, vagy ha nem üres, akkor lehet-e értelmezni számként stb stb, de a lényeg benne van...
-
ulrik19
tag
válasz
Delila_1
#6862
üzenetére
Én ezt egy globális (sub-on kívül deklarált) boolean változóval szoktam megoldani. Alapban mondjuk IGAZ értékre van állítva. Amikor a felhasználó beüt egy új értéket, elindul a hozzá kötött esemény, melynek az elején megnézem, hogy ez a változó IGAZ-e. Ha igen, akkor továbbfut, ha nem, akkor IGAZ-ra állítom és kilépek a sub-ból. Ha fut tovább a kód, akkor rögtön HAMIS-ra állítom a változót, megváltoztatom a cella értékét. Mivel HAMIS, nem fog lefutni még egyszer ez a kódrészlet. De biztosan van rá szebb megoldás is
-
ulrik19
tag
válasz
Delila_1
#6860
üzenetére
vagy írsz egy cellába 0.5-öt (50%-ot) és csak azzal szorzás
Bár a kérdés szerintem nem ez volt.
Makróval meg lehet oldani. Figyelni kell a munkalap change eseményét, és ha a módosult cella a figyelt tartományban van, akkor lefuttatni egy rövid kódot, miszerint a most beírt számot ossza le egy előre definiált és rögzített cellában lévő értékkel, majd lecseréli erre a módosult cella tartalmát. Amire figyelni kell, hogy ez a felülírás is módosítási eseményt hoz létre, ami könnyen végtelen ciklusba fut... Sajnos most nincs időm megírni, de biztosan lesz rá válasz valakitől
-
Delila_1
veterán
válasz
Sickboy25
#6859
üzenetére
Így nem lehet, de van más megoldás.
Vegyük, hogy a P3:V25 tartomány 5 százalékát akarod kiszámolni.
Beírod az eredeti számokat a tartományba.
Egy cellába (mindegy hova) beírsz 100-at, egy másikba 5-öt.
Másolod a 100-at (Ctrl+c), kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Osztás.
Másolod a 5-öt, kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Szorzás. -
Sickboy25
addikt
Sziasztok
Nah egy nagy segítségre lenne szükségem....
Lenne egy excel tábla példaul: P3 és V25 között van egy komplett táblázatom. Ennek az összes cellájára, hogy tudok írni olyan képletet, ha a cellába beírok egy számot, akkor ne a számot adja ki, hanem számolja ki egyből, hogy az x-nek hány százaléka!
Tehát van X / Y = Z és ha én a cellába beírom az X számot, akkor enter után a Z-t dobja ki..., és Y állandó.Létezik ilyesmi?
-
Fehér Mancs
tag
válasz
neilszab
#6853
üzenetére
Egy alternatíva:
Az excelben be lehet állítani, hogy mit tekintsen default ezres elválasztónak és tizedesjelnek. Ha ezek mindenhol "," és "." , akkor nem fog automatikusan átformázni.
Ennek elérése:
Eszközök -> Beállítások -> Nyelvfüggő.Másik lehetőség, hogy a területi beállításokban próbálod meg átállítani az exportált fájlnak megfelelően.
-
#6857
Fire/SOUL/CD
félisten
neilszab
#6853
-
#6856
Fire/SOUL/CD
félisten
neilszab
#6853
válasz
neilszab
#6853
üzenetére
Hali!
Automatikus dátumfelismerés
Nem tudom, hogy ezt véglegesen ki lehet-e kapcsolni, de pl Excel 2007 esetén 2 darab kattintással orvosolható.A probléma
Abból indulok ki, hogy ilyen "számok" lehetnek
1,123,123.12
123.12
123,123Szóval olybá tűnik, hogy az ezres elválasztó a vessző és a tizedesjegyek elválasztója meg a pont. Nos ha ez a szitu, akkor ebben a sorrendben megoldható
1. illeszd be úgy ahogy van egy adott oszlopba az adatokat, jelöld ki az oszlopot
2. a vesszőt cseréld szóközre
3. a pontot cseréld vesszőre
4. állítsd számformátumra (bár már úgy néz ki, mintha az lenne, ezres elválasztóval, de akkor sem számformátumú a kiválasztott oszlopod)Ha jól értettem amit írtál, akkor ezzel meg is volnánk.
Fire.
-
perfag
aktív tag
válasz
neilszab
#6854
üzenetére
Annyi azért még kellene, hogy milyen módszerrel hozod át az adatokat. Ctrl-C és Ctrl-V, vagy valami köztes formátumba mentesz a másik progiból és ezt nyitod meg az Excellel, ... more input, please
(Jézusom, vasárnap éjjel 4-kor már/még dolgozol? Vagy másik időzónában élsz?) -
neilszab
őstag
válasz
neilszab
#6853
üzenetére
A dolog másik része (ahol meg a másik irányból akadok el), hogy szépen beillesztem szövegként a számokat, keres --> cserével kiszedem a "," jeleket, a "."-okból "," csinálok és átrakom szám formátumba, de igán ám, de nehány ránézésre teljesen normálisnak látszó számot (pl.: 660) továbbra is szövegként értelmez és kiírja hibaként, hogy szövegként tárolt szám. A 6600-nál meg már remekül működik, egyből számként felismeri, de a mezei 660 már nem tetszik neki, "Ő" is és én is tisztában vagyunk vele, hogy az egy szám, mégsem rakja át, csak hibaként jelzi
Ezt miért csinálhatja?
-
neilszab
őstag
Sziasztok!
Esetleg enm tudja vki hogy hol/hogyan lehet végérvényesen kikapcsolni ezt az idióta automatikus dátumformátum felismerést?
Elég jól ismerem az Excelt, tudom az apró kis trükköket ahogy ki lehet játszani ezt a funkciót (aposztróf használata, szövegként bevitel, stb...), de most olyan problémába ütköztem, hogy ezek használata további más problémákat szül és már a tököm kivan vele, hogy az Excel folymatosan jobban tudja, hogy én mit szeretnék.
Nem lehet ezt végérvényesem kilőni valahogy?
A probléma:
egy másik szoftverből egy rakás eltérő jellegű oszlopot kell beillesztenem az Excelbe, melyben szerepelnek összeg oszlopok is a követlező formában: pl 1,234,123.24De, hol van tizedes jegy, hol nincs, hogy 2 tagú, hol 3, az összeg lehet akár 1-től sokmillióig különböző variációkban és eddig bármilyen formát/trükköt próbáltam, hogy normál számba konvertáljam át, mindig vmilyen gebasz volt vmelyik variációval.
Köszi SZépen!
-
mr.nagy
tag
válasz
mr.nagy
#6851
üzenetére
Időközben magam is törtem a felyem és egy ilyen kódot csináltam:
Private Sub CommandButton1_Click()
Sheets("tábla").Activate
On Error Resume Next
ActiveSheet.Shapes("kép").Select
Selection.Delete
On Error GoTo 0
Dim myPic As Object
Set myPic = Sheets("tábla").Pictures.Insert(Sheets("adatok").Range("C1"))
myPic.Left = Sheets("tábla").Range("C5").Left + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
myPic.Top = Sheets("tábla").Range("C5").Top + ((Sheets("tábla").Range("C5").Height - myPic.Height) / 2)
myPic.Name = ("kép")
End SubEddig úgy tűnik, hogy működik, de ha van jobb özlet nyitott vagyok rá és megköszönöm!
-
mr.nagy
tag
válasz
Fire/SOUL/CD
#6765
üzenetére
Szia!
Még egy kis segítség kellene! Most így néz ki a kód:
Private Sub CommandButton1_Click()
Sheets("tábla").Activate
Dim myPic As Object
Set myPic = Sheets("tábla").Pictures.Insert(Sheets("adatok").Range("C1"))
myPic.Left = Sheets("tábla").Range("C5").Left + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
myPic.Top = Sheets("tábla").Range("C5").Top + ((Sheets("tábla").Range("C5").Height - myPic.Height) / 2)
End SubAzt, hogyan lehetne megoldani, hogy vizsgálja meg van e már kép az adott helyen és ha igen akkor törölje?
Üdv,
András -
#6850
DeFranco
nagyúr
WildBoarTeam
#6849
DeFranco
nagyúr
válasz
WildBoarTeam
#6849
üzenetére
Köszönöm mindenkinek, aki foglalkozott vele.
-
#6849
WildBoarTeam
senior tag
ulrik19
#6846
-
ulrik19
tag
válasz
WildBoarTeam
#6845
üzenetére
No igen. Bár ha ez a "hivatalos" megoldás, akkor nem látom túl sok értelmét a feladatnak. Mert ennyi erővel azt is mondhatnám, hogy az A2-be beírom a 3-at, formázom db-nak (3 db), majd ezt a cellát másolom A1-be. (az =A2 képlet is másolja a formátumot) Mert tulajdonképp magát az A1-et nem formáztuk így sem
Egyébként láthatnánk a többi feladatot is. Kíváncsi vagyok, hogy mi volt még
-
#6845
WildBoarTeam
senior tag
DeFranco
#6844
WildBoarTeam
senior tag
válasz
DeFranco
#6844
üzenetére
Hát ha tényleg van szebb megoldása, akkor az csak valamiféle képletekkel lehetséges...
Amúgy a feladat nem zárja ki, hogy az A1
1 tartományon kívül máshol nem lehet adat.
Tehát, ha pl A2-t megformázom egyénileg úgy, hogy szerepeljen mögötte a "db", és az A1-et ebből veszem át, akkor szerepel mögötte a "db", és ráadásul szám formátumú is, így jól számol a C1-be (ezt csak formázni kell számmá):
-
ulrik19
tag
válasz
WildBoarTeam
#6842
üzenetére
gyanítom (ill. remélem) van azért valami szebb megoldás is rá
(apró hibajavítás: az & nem operandus, hanem operátor
)Nekem az fura még, hogy nem B1 van a képletben, hanem B$1. Ennek vajon mi lehet az oka? A feladatban kell másolni a képletet?
-
#6842
WildBoarTeam
senior tag
DeFranco
#6841
WildBoarTeam
senior tag
válasz
DeFranco
#6841
üzenetére
Jó kis feladat.
Én tegnap igen átböngésztem miatta az Excel helpjét. A Szám összefűzése szöveggel ugye az & operandussal lehetséges, de még így is szöveg formát eredményez a cellában, és nem tud vele számolni, ha képlettel hivatkozok rá.
Én nekem amúgy a =SZÖVEG() függvény ugrott be, de valamiért a db-ból a "b" betűt 43-nak ismerte fel (ez gondolom valami excel sajátosság).
Ezt csináltam:
Végignéztem minden függvényt de semmi... Eddig marad a területi beállítás módosítása megoldásként.
-
DeFranco
nagyúr
Ez egy céges tanfolyami beugró teszt. Több kérdésből áll, de ez az egy, amire nem tudom a megoldást.
A semmilyen módon nem formáztuk kikötés szerintem annyit jelent, hogy ahogy megnyitották az excelt, már írták is bele, persze ez nem zárja ki az alapértelmezett formátum beállítás lehetőségét.
Én mégis arra gondolnék, hogy a cella tartalma valójában nem "3 db" hanem valami más, ami "3 db"-nak látszik. Volt egy excel könyvem, abban voltak ilyenek, hogy hogyan lehet operátorokkal úgy bűvészkedni, hogy szövegnek látszódjon, de szám legyen, de már nincs meg sajnos...
-
#6837
WildBoarTeam
senior tag
ulrik19
#6835
WildBoarTeam
senior tag
-
perfag
aktív tag
válasz
DeFranco
#6816
üzenetére
Csak egy ötlet: "Az A1 és B1 cellákat semmilyen módon nem formáztuk." - ez nem lehet igaz! Ha nem formázták, akkor az A1 balra lenne igazítva, mivel szövegként értelmezi az Excel. Mivel jobbra igazodik, ezért a db mint egyéni formátum kell legyen megadva, pl. 0" db";[Piros]-0,00;"-" amitől a pozitív érték, db utótagot kap. a negatív piros színű lesz, a nulla helyett - jelenik meg (de ezt szerintem tudod).
-
zsotesz81
senior tag
válasz
zsotesz81
#6830
üzenetére
Kipróbáltam, úgy hogy soronként másoljon:
Range("N5").Copy
Range("C5").PasteSpecial Paste:=xlPasteValues
Range("M6").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
.
.
.
Range("M14").Copy
Range("C14").PasteSpecial Paste:=xlPasteValuesÍgy megcsinálta, legalábbis a számolást, viszont most a tétek törlésénél bukik meg,
ahol szintén nagyobb tartomány (D5:D14) van egyben megadva. Lehet, hogy ezekkel nem tud mit kezdeni? -
Delila_1
veterán
válasz
zsotesz81
#6828
üzenetére
A 6825-ben írtak helyett ezt vidd be:
Range("N5").Copy
Range("C5").PasteSpecial Paste:=xlPasteValues
Range("M6:M14").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("C15").SelectEgyébként ha konvertálatlan módon küldöd a hozzászólást, nem vigyorognak bele az ugra-bugrák.
-
#6825
zsotesz81
senior tag
WildBoarTeam
#6820
zsotesz81
senior tag
válasz
WildBoarTeam
#6820
üzenetére
Kipróbáltam, azt még mindig nem tudom, hogy ott miért fut bele. Ez a kód:
Range("N5").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6:M14").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6:_C14").Select - aláhúzás nincs benne csak a smile elkerülése miatt raktam bele
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C15").SelectAmikor elér a Range("M6:M14")-hez, akkor ugrik az érvényesítőhöz, majd utána hiba, de miért megy oda? Akkor a Range ("C5")-nél miért megy tovább?
-
#6823
DeFranco
nagyúr
WildBoarTeam
#6822
DeFranco
nagyúr
válasz
WildBoarTeam
#6822
üzenetére
Igen, ez a részlet nekem is leesett (igazítás). Arra gondoltam, hogy talán valamilyen operátorral oldották meg (pl: 3&"db", de ez nem jó) ami nem látszik, csak a szerkesztőlécen.
Az eredmény tudatos, hiszen ez egy feladat, tehát van neki megoldása is.
-
#6822
WildBoarTeam
senior tag
Fehér Mancs
#6821
WildBoarTeam
senior tag
válasz
Fehér Mancs
#6821
üzenetére
Én is valami féle automatikus formázásra gondolok.
DeFranco:
Amúgy megfigyelheted, ha beírsz egy szöveget, azt az Excel alapból balra zártan igazítja, míg egy számot jobbra zártan igazít (ezt írta Fehér Mancs is). A Te általad linkelt képen jobbra zárt az A1, tehát feltételezhetően számnak ismerte fel az Excel (vagy mégis megformázták ).Keresgélek még, hátha rájövök mi a titka..
-
Fehér Mancs
tag
válasz
DeFranco
#6819
üzenetére
Ok, tényleg.
Valószínűleg akkor az történt, hogy amikor beírtuk a 3 db-t, akkor az excel automatikusan felismerte, hogy egy számról és egy egységről van szó, így magától megformázta. Nálam a "3 db"-re ez nem működik, de pl. ha "3 Ft"-ot írok be, akkor szépen megcsinálja.
Amúgy tényleg látszik, hogy szám van az A1-ben, mivel formázás nélkül jobbra rendezi, ami pedig a számok sajátossága.
-
#6820
WildBoarTeam
senior tag
zsotesz81
#6817
-
#6819
DeFranco
nagyúr
Fehér Mancs
#6818
DeFranco
nagyúr
válasz
Fehér Mancs
#6818
üzenetére
Ez eddig OK, azok voltak az a) b) kérdések, az tiszta. A képpel bemutatott nem. Valahogy felismeri hogy a "3 db" az 3, de kihangsúlyozza, hogy formázás nem volt...
-
zsotesz81
senior tag
Hali!
Visszatérnék kicsit a #6768-as hsz-re. Szóval a kód amit Delila írt végülis jól működik, viszont amikor az a makró fut ami kiszámolja a nyereményeket akkor megáll Run Time error '13', Type mismatch hibával. Erről a kódról van szó:
If Target.Address = "$D$5" And Target.Value > Cells(5, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(5, 4).Select
End If
If Target.Address = "$D$6" And Target.Value > Cells(6, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(6, 4).Select
End If
és így tovább egészen 14-ig.A makró azt csinálná, hogy az C5-be másolja a N5 tartalmát, a C6
14-be pedig az M6:M14 tartalmát. A C5-N5 másolást megcsinálja, viszont a többit nem, itt akad meg.
Gőzöm nincs mi akasztja meg, ha rányomok a debugra akkor az if-es sort jelöli ki.
Valami ötlet? -
DeFranco
nagyúr
Sziasztok!
Adott egy excel feladvány, aminek a c) kérdését sehogy sem tudom megválaszolni.
A tábla ugyan az, a c1-ben szereplő képlet a) esetben a1+b1 b) esetben szum(a1:b1) volt a képletnek megfelelő eredménnyel (#ÉRTÉK! és 2)
A lenti képen látjátok a c) pont szövegét a táblát és az eredményt. Mi a magyarázat? Egy napja keresem a választ:
-
-
#6813
Badb0y
addikt
Fire/SOUL/CD
#6787
Badb0y
addikt
válasz
Fire/SOUL/CD
#6787
üzenetére
Tyű mindkettő micsoda megoldás
No Delila, annyi a problémám hogy ugye csak nagybetű, és ez egy kinyíló lisátban furán néz ki kicsit. Gondolom olyan nincs, hogy minden szónak az első betűje legyen nagy.
Fire, ez is majdnem tökéletes, ha nem azt írná, hogy kép a termékről, hanem magát az url-t. Ezt nem lehet valahogy, hogy magát a nevét írja ki? Mert bégülis mindent megtalál ugye, csak azt írja, hogy kép a termékről, de nekem csak link kell
űSry, ha túl sokat akarok.
De mindenesetre nem semmi megoldások ezek, le a kalappal előttetek. Ilyen mélységben még nem voltam :excelben
-
#6812
zsotesz81
senior tag
Fire/SOUL/CD
#6811
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6811
üzenetére
köszönöm, közben rájöttem, hogy ezt makrórögzítéssel is meg tudom nézni.
-
#6811
Fire/SOUL/CD
félisten
zsotesz81
#6809
-
#6808
Fire/SOUL/CD
félisten
Delila_1
#6807
válasz
Delila_1
#6807
üzenetére
Hali!
VBA-ban igen, mert "átkonvertálja" Windows szabvánnyá. A sima chr(10) linux/unix rendszereknél a sordobás, Win esetében chr(13) + chr(10).
Msgbox esetén valóban mindegy, hogy chr(13) vagy chr(10).
Windows esetében az új sor(return/enter) az mindig is hexa 0xD azaz 13 volt és most is az(Win esetén pl egy szöveges fáljban az új sor az mindig 13,10 (0xd,0xa) "végződik", linuxnál csak 10(0xa). Weben erre oda kell figyelni, amikor szöveges állományt dolgozol fel, vannak direkt erre a célra függvények pl PHP-ban, amik ezeket a konverziókat(sorvége/újsor) elvégzik, oda-vissza)
Fire.
-
#6807
Delila_1
veterán
Fire/SOUL/CD
#6805
Delila_1
veterán
válasz
Fire/SOUL/CD
#6805
üzenetére
A chr(10) nem a sor elejére ugrik, hanem sortörést ad. Próbáld ki!
-
#6806
zsotesz81
senior tag
Fire/SOUL/CD
#6805
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6805
üzenetére
köszönöm mindkettőtöknek
-
#6805
Fire/SOUL/CD
félisten
zsotesz81
#6803
válasz
zsotesz81
#6803
üzenetére
Hali!
Variációk egy témára
Private Sub CommandButton1_Click()
MsgBox ("A játékot xy nyerte" & Chr(13) & "Gartulálunk")
MsgBox ("A játékot xy nyerte" & vbCrLf & "Gartulálunk")
MsgBox ("A játékot xy nyerte" & vbCrLf & _
"Gartulálunk")
End Subchr(13) -> Carriage Return (CR)-> Egy sorral lejebb
chr(10) -> Line Feed (LF)-> Adott sor elejére ugrás
(Ez DOS-ban a sor elejére vitte a kurzort illetve a nyomtatáskor is volt(van) szerepe
vbCrLf -> VBA konstans a CF és a LF egyben
Fire. -
#6803
zsotesz81
senior tag
Fire/SOUL/CD
#6802
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6802
üzenetére
Közben megcsináltam, még egy kérdés. Hogy lehet mindenképp új sorba kényszeríteni egy szövegrészt? Pl. Ez van kiírva, hogy "A játékot xy nyerte, gratulálunk!" A gratulálunk szót kellene új sorba rakni.
-
#6802
Fire/SOUL/CD
félisten
zsotesz81
#6801
válasz
zsotesz81
#6801
üzenetére
Hali!
Legegyszerűbb a form + image objektum. Ilyen "apróságokon" meg nem kell fent akadni(png-t nem kezeli), mert csak az időt viszi.
Meg kell nézni mit kezel, aztán konvertálás, aztán hajrá!
(Megfelelő konvertáló progival(ami csoportosan/batch módban dolgozik) pillanatok alatt megvan az ember)Fire.
-
#6801
zsotesz81
senior tag
Fire/SOUL/CD
#6800
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#6800
üzenetére
Erre én is gondoltam, csak kíváncsi voltam meg lehet-e oldani másképp.
(meg jó az okfejtésem és egyáltalán kivitelezhető)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
1 tartományon kívül máshol nem lehet adat.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Revolut
- Demót kapott a Stellar Blade PC-s kiadása
- Nintendo Switch 2
- Jövedelem
- Anglia - élmények, tapasztalatok
- exHWSW - Értünk mindenhez IS
- LED világítás a lakásban
- Elektromos (hálózati és akkus) kéziszerszámok, tapasztalatok/vásárlás
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen SSD-t vegyek?
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Antivírus szoftverek, VPN
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Csere-Beszámítás! Asztali számítógép PC Játékra! I5 12400F / RTX 3070 / 32GB DDR4 / 500GB SSD
- LG 65C4 - 65" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - 1000 Nits
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA! Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- 122 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 (48 hónap garancia!)
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest