-
Fototrend
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
-
Delila_1
veterán
A personalba írt kis makrótól kérdezem meg az aktuális cella karakter- és háttérszínét.
Sub Szin_lekerdezes()
MsgBox "Karakter: " & Selection.Font.ColorIndex & _
Chr(13) & "Háttér: " & Selection.Interior.ColorIndex
End SubIgaz, ez a ColorIndexet adja meg.
Kipróbáltam a makródat egy sárga hátterű cellán állva. Utána átállítottam ezt a sárgát a beállításoknál egy kislibazöldre, de ugyanazt az RGB összeállítást kaptam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
veterán
Itt együtt van az összes megye, de ha beírod a keresődbe egyenként a megyék nevét, és hogy képet akarsz, külön-külön is lekérheted a képeket, csak nem biztos, hogy stimmel a méretük.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Emu
őstag
Annyi a lényeg, hogy az értékesítés több termékből tevődik össze, aminek az arányait is szemléltetni szeretné az oszlopokon. Az oszlopokat pedig 2 sorban szeretném elrendezni, hátul a 2010-es havi lebontású értékesítésnek az oszlopai előtte pedig 2011 január-február, a többi hónap meg egyenlőre 0. Így érthető volt?
-
#9490
m.zmrzlina
senior tag
Cuci3
#9489
-
#9334
Fire/SOUL/CD
félisten
Cuci3
#9331
"Ez szerintem csak valami speckós, "Az Excel függvényei" könyvben lesz benne."
Ezt mire érted, mármint a PRÉSZLET és RÉSZLET-re?
Ahhoz nem kell speckó könyv elég a Súgó-t használni (Pénzügyi függvények)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)
-
#9306
scott_free
senior tag
Cuci3
#9305
scott_free
senior tag
hm, köszi.
bonyolítanám egy picit még a helyzetet:
lehet, hogy egy ez már programozás, de megoldható egy ehhez hasonló struktúra-rendszer kezelése és bővítése az excellel?
értelemszerűen az egymás alatti szintek összetartoznának, egy-egy tartományt képeznének.
(a bennük lévő adatok összeadódnának - tehát az 1-be beletartozna minden 1-gyel kezdődő sor, az 1.2-be az 1.2-vel kezdőd sorok, stb.)manuálisan mindezt meg tudom csinálni, de automatizálható-e egy ilyen táblázat? bővíthetővé tehető-e úgy, hogy pl. egy új sor felvitelénél egy legördülő menüből ki lehetne választani, hogy hova, melyik sor alá tartozna és akkor oda is tenné be? (pl. föl szeretnék vinni egy új sort 1.3-ként, akkor elég lenne kijelölnöm azt, hogy az 1-hez tartozzon, és automatikusan beteszi oda)
nem tudom, mennyire érthető ez így?
-
Delila_1
veterán
A felsővezetők kezébe kerülő diagramok értelmezéséről nekem is van egy kedvenc történetem.
Kollégám készített nekik egy hasábdiagramot a tényleges energia költségekről. A vezér visszadobta azzal, hogy túl magasak az értékek. Igen, de ezek már megtörténtek. A kolléga magasabbra állította az Y tengely maximumát, így a hasábok ehhez képest alacsonyabbak lettek.
Az új diagramot elfogadták...
[ 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.
-
Delila_1
veterán
Mit szólsz ahhoz, hogy dinamikus legyen a diagramod?
MintaA 4 féle megoldás mindegyike az ábrázolandó területek névadásával, az ofszet függvény felhasználásával készült.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
veterán
-
#8696
Fire/SOUL/CD
félisten
Cuci3
#8695
Kösz, de a kódom nem azt csinálja amit kértek, majd ha később megjavul a PH!(mert most borzalmasan be van állva), akkor elküldöm újra...
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)
-
#8681
Fire/SOUL/CD
félisten
Cuci3
#8680
A 2000-től a 2007-es Office-ig bezárólag, 6.0-ás VBA "motort használ", azonban ezen azonosság ellenére vannak olyan programozástechnikai eltérések (elsősorban pl deklarálásokban, függvényhívásokban), amikre oda kell figyelni és ez 2003 vs. 2007-re is igaz. A 2010-es Office már 7.0-ás "motort használ", ami alapvetően kompatibilis teljesen a 6-ossal, csak kibővített funkciókkal rendelkezik és ami nem mellékes, ugye a 2010-es Office x64-es változatban is elérhető.
[ 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)
-
-
#7524
Fire/SOUL/CD
félisten
Cuci3
#7523
Hali!
Ja ez más kérdés, szóval megoldható. Le kell kérni a már megnyitott munkafüzet(ek) teljes nevét az útvonallal együtt (Fullname). Ha még nincs megnyitva megnyitod csak olvasásra avagy sem. Az is lekérhető, hogy az épp megnyitott vagy már korábban betöltött munkafüzet az readonly avagy sem.
Private Sub CommandButton1_Click()
MsgBox (ThisWorkbook.FullName)
If ThisWorkbook.ReadOnly = True Then
MsgBox ("Csak olvasásra")
Else:
MsgBox ("Szerkeszthető")
End If
End SubFire.
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)
-
#7522
Fire/SOUL/CD
félisten
Cuci3
#7521
Hali!
Azt Te döntöd el (ReadOnly paraméter), hogy csak olvasásra nyitod meg, ergó akkor tudod, hogy hogy "kell" elmentened.
(Pontosabban csak olvasásra megnyitott fájl esetén nincs mit menteni, hisz nem lehet módosítani sem)
Fire.
[ 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)
-
proci985
MODERÁTOR
-
ulrik19
tag
hú, ez honnan van? Faktorálás? Bedőlt hitelek?
Nekem ebből egyébként nem egyértelmű, hogy ha egyazon ügyfélnek egyazon termékből több is "jutott", akkor külön-külön kell nézni. (pontosítok: a logika szerint - én legalábbis - egybe venném az azonos típusú tartozásokat)
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
#6543
Fire/SOUL/CD
félisten
Cuci3
#6533
Hali!
Szép feladat, bravó!
Nos ha az ügyfél azonosítók sorba vannak rendezve, akkor az alábbi kód elméletileg azt teszi, amit a feladat előír, remélem nem értettem félre semmit...
A D2 cellába másold be az alábbi kódot, aztán meg a D2-t másold le.
=HA(C2=MAX(OFSZET(C2;0;0;DARABTELI($A$2:$A$15;A2);1));B2;HA(A2=A1;D1;KERES(MAX(OFSZET(C2;0;0;DARABTELI($A$2:$A$15;A2);1));OFSZET(C2;0;0;DARABTELI($A$2:$A$15;A2);1);OFSZET(B2;0;0;DARABTELI($A$2:$A$15;A2);1))))
Fire.
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)
-
-
#6436
Fire/SOUL/CD
félisten
Cuci3
#6434
Hali!
Nem tudom, hogy közép- avagy felsőoktatási intézményből származik-e a feladat és azt sem, hogy ez csak egy házi feladat vagy komolyabb tétet képviselt.
Pont az benne a jó(legalább is számomra), hogy bizony el kell rajta meditálni és ezáltal egy kicsit frissül az ember agya. Ha az excel-ben egész nap csak pl makrózol, akkor egy idő után más dolgok kikopnak és fordítva. Ezért szeretem néha "felfrissíteni" a rég használt/elfeledett dolgokat.Fire.
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)
-
#6433
Fire/SOUL/CD
félisten
Cuci3
#6432
Hali!
Úgy látom sikerült!
(A terv bevált ![;]](//cdn.rios.hu/dl/s/v1.gif)
)
De komolyra fordítva, egy kis agytornának szántam, azoknak aki szeretnek ilyenen "agyalni", ennyi.
Fire.
[ 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)
-
#6414
Fire/SOUL/CD
félisten
Cuci3
#6413
Hali!
"Érdekes, hogy nem minden gépen jön elő a hiba üzenet."
Elméletben az általad javasolt hiba, minden gépen elő kellene hogy jöjjön...De kitudja.
De mindegy, mert az a lényeg, hogy megoldjuk a kolléga gondját, a módszer lényegtelen, mennél több javaslat, annál nagyobb esély a sikerre.
Fire.
[ 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)
-
#6408
WildBoarTeam
senior tag
Cuci3
#6405
WildBoarTeam
senior tag
Hát szerintem érdemesebb lenne a feltételes formázást úgy megadni, hogy az E oszlop alapján "zöldítsen". Mivel ott meg van adva, hogy ha az A1 szerepel valamelyikben, akkor ne 0 legyen az érték. Ezt kihasználva, ha pl. beírom, hogy "Alsó", akkor mindegyik "Alsó..."-val kezdődő sort bezöldíti.
Amúgy én még beletenném, hogy első lépésként ki lehessen választani a keresés alapját. Értem ezalatt azt, hogy lehessen konkrétan a megyére, vagy magára a kastélyra szűkteni a keresést. Bár ez másodlagos.[ Szerkesztve ]
blabla
-
-
Cuci3
tag
Szerintem al-nál vagy eg-nél sárga lap kell, de a B1-ben nem kellene megjeleniie semminek. Mivel nem egyértelmű az azonosítás (egyértelmű azonosítás: vagy teljesen megegyezik a név, vagy csak egy ilyen névkezdetű város van).
Viszont ez esetben az előbbi fájl is rossz.
[ Szerkesztve ]
-
Delila_1
veterán
Sajnos nem nyert.
"eg" beírására Alsósztregova kerül az B1-be, és ez lesz jelölt a listában is.Az előző posztokban a vita arról szólt, hogy pl. "al" beírásakor kell-e a B1-ben bárminek szerepelnie, vagy nem.
[ 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.
-
ulrik19
tag
Sajnos (?) a VB elég rugalmasan kezeli ezt a témakört. abban sem vagyok biztos, hogy a dim x, y as string esetében x és y is string lesz-e,nem csak y. (és x meg variant)
Viszont ha ezzel lenne a gubanc, akkor már korábban is jelentkeznie kellett volna.
Ha a kódban nem történt változás, valamint ugyanazon a gépen, ugyanazzal az excellel lett megnyitva, de más adatokkal, akkor az adatokkal van a "hiba". Pontosabban ott kell keresni ennek a hibának a forrását. (pl. vlookup-nál a hibajelzést: #missing)
Nálam ilyen esetben szintén ugyanez a hiba jött elő. Ami megoldódott az cells(x,y).Text alkalmazásával.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
vagy ha marad az INDEX()-es képlet, akkor megvizsgálni, hogy az adott sheet az aktuális év-e (valahol gondolom szerepel az adott évszám)
ha igen (tehát 2010-es as sheet), akkor az index() az aktuális hónapot kell venni (most ugye 2 a február miatt)
ha nem (azaz 2009-es vagy előbbi), akkor az index()-nél mindenképp 12-vel számoljon.
de itt jön be az én módosításom: ha nem index()-szel oldod meg, hanem simán a decemberi egyenleg linkelésével, akkor tök mindegy milyen évről van szó.
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
#6183
qpakcovboy
őstag
Cuci3
#6181
-
ulrik19
tag
ebben a modellben nincs értelme az INDEX() használatának, mert befizetések (és jó eséllyel számlák sem) lehetnek előre könyvelve, vagyis a példánál maradva (mai nap), a februáritól kezdve egészen decemberig minden hónap egyenlege azonos lesz, méghozzá az aktuális (-500)
Tehát tökéletes a megoldásod, de a táblázat alatti INDEX() részre nincs szükség (szerintem, mert elegendő a decemberi egyenleget az adott az összesítő cellába írni. talán akkor hasznos lehet, ha a jövőbeni hónapok egyenlegénél nullát szeretnénk látni mindenképp)
[ Szerkesztve ]
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Miért gond az, hogy a C3-ban számolódik az oszlop? A cím()-nél az 5. paraméter egyébként a munkalap neve, tehát így is írhatod (talán picit még szebb is):
=INDIREKT(CÍM(A1;A2;1;IGAZ;A3))
ahol A1-ben van a sorszám, A2-ben az oszlopszám, A3-ban a munkalapnév
természetesen részben vagy egészben konkrét értéket is beleírhatsz a függvénybe:=INDIREKT(CÍM(4;3;1;IGAZ;"sheet1"))
ami a sheet1!$C$4 értékét adja vissza. (a 3. paraméter a relatív/abszolút hivatkozást állítja, jelen esetben $oszlop$sor-ra, azaz mindkettő abszolút, a 4. paraméter pedig azt jelzi, hogy A1, vagy S1O1 típusú legyen a hivatkozás, jelen esetben A1, viszont az INDIREKT() miatt édes mindegy lesz, hogy relatív/abszolút, illetve A1/S1O1 a beállítási mód, mert mindenképp egy adott konkrét cella ÉRTÉKÉT fogod felhasználni....az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
ulrik19
tag
Hmmm, nem is csoda, hogy nem érti
Nyilván, erre nem lehet felkészíteni.Viszont eleve nem túl praktikus az, ahogy csináltad. Használd ilyenkor a cím(), address() függvényt, az megoldja az ilyen problémát, átláthatóbb és logikusabb is. Ja, és így nyelvfüggetlen is
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
#6055
Fire/SOUL/CD
félisten
Cuci3
#6054
Hali!
Egy másik megoldás, index-el, és ha nem akarod megváltoztatni a paramétereit a diagramnak, hanem egy az egybe szeretnéd másolni.
With ActiveSheet
.ChartObjects(1).CopyPicture
.Range("G10").Select
.Paste
End WithFire.
[ 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)
-
Cuci3
tag
A megoldás szerencsére meglett, de ilyet se tapasztaltam még: a szerkesztés menü picit megváltozik, ha SHIFT folyamatos lenyomása mellett hívjuk le. A Másolásból Kép másolása lesz.
Ez a rendszerszemlélet olyan Microsoftos. 
És persze a kód is meglett, lentebb csak érdekességnek:
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Range("F4").Select
ActiveSheet.Paste[ Szerkesztve ]
-
#5960
Fire/SOUL/CD
félisten
Cuci3
#5958
-
#5959
Fire/SOUL/CD
félisten
Cuci3
#5958
-
Szia!
Működik, köszönöm! Application.CutCopyMode = True 'Biztos kel ez a sor? Nekem tök felelslegesnek tűnik.
Hát szerintem igen. Mert elötte kikapcsolom a vágólapot (így küszöbölöm ki a "nagy méretű adat van a vágólapon, biztos hogy bezárja a file-t" ablakot. Vissza meg azért kapcsolom, mert ha még egyszer futtatom akkor is lefusson... vagy ez hülyeség?
-
#5924
Fire/SOUL/CD
félisten
Cuci3
#5923
Hali!
. Az MS elég egyértelműen fogalmaz: [link]
Arról nem tudok, hogy valami registry-s trükkel vagy egyéb módon lehetne-e magasabbra állítani a 64k/procedúránként limitet.Fire.
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)
-
#5907
Fire/SOUL/CD
félisten
Cuci3
#5905
Hali!
Hol van ez pontosan a 2003-ban? Mert keresgéltem a 2007-ben, de nem igazán találok ilyet, de vagy balfék vagyok, vagy tényleg nincs benne...
Fire.
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)
-
Delila_1
veterán
Köszönöm.
A régebbi verziókban már régóta használom a saját készítésű ikonokat. Természetesen arra mindig szánok időt, ami a munkát gyorsítja. Igen, szegényes a színpaletta, de még ezekkel is kifejező rajzokat lehet létrehozni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ulrik19
tag
Így van, ahogy Delila írta, meg kell fordítani a gondolatot. Ugyanis a next automatikusan megtörténik, amint a ciklusmag végére ér a folyamat. Vagyis, ha az elágazásod arról szól, hogy mikor nem egyezik meg a sheet neve a vizsgálandóval, akkor ha egyeznek, nem történik semmi a cikluson belül.
For Each lap In Workbooks(valtozo).Worksheets
If lap.Name <> el Then
... ide jön amit végeztetni akarsz ...
End If
Next...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
#5810
Fire/SOUL/CD
félisten
Cuci3
#5808
Hali!
Sajnos a Pascal vagy C/CPP-ban megszokott Continue utasítás itt nem létezik, helyette a Goto utasítást kell bevetni.
(az Exit For/Exit Do egyenértékű a Break Pascal vagy C/CPP utasítással, az Exit For kilép a For ciklusból, míg az Exit Do, a Do-Loop ciklust szakítja meg.)Példaprogi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
j = 0
For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name = "Munka5" Then GoTo label001
j = j + 1
label001:
Next
MsgBox (j)
End SubFire.
[ 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)
-
gsc73
aktív tag
ÁÁÁÁÁÁÁÁÁÁÁ, elnéztem, most gyorsan ki is próbáltam, ez működhet!!!!!!!!!!!!!!!!
Most má' vége van a munkaidőnek, úgyhogy otthon, vagy holnap folytatom, de ez tetszik eslő felindulásomban!
Üdv: g.
kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.
-
gsc73
aktív tag
Igen, az kellene, ha Importálni akarnék, és ott pontosan meg lehet adni az elválasztó karaktereket, de nem az a cél. Egyébként ez 2007-ben is pontosan ott van. A cél hogy automatikusan legyen rendezve megnyitás után.
Üdv: g.
u.i.: én is úgy tudtam hogy Te, de a valóság néha más....
kedvenc szavaim: palack, flakon, kredenc, fridzsider, ibrik, trafik, szvetter, fregoli, rezsó, sparhelt, vájdling, szifon, gardrób, partvis, spejz, tégely, drót, abrosz, lavór...szocreál.
-
Delila_1
veterán
Egy – bosszantó – érdekesség:
Ha előre beírom a dátumot (eredmény 25.okt), és utána adom meg a 2009.10.25 formátumot, a kimutatásban nem engedélyezi a csoportosítást. Ha viszont előre megadom a formátumot a teljes oszlopra, és azután írok bele értékeket, egy rossz szava nincs a csoportosítással szemben, simán végrehajtja.
A súgóban a csoportosítással kapcsolatban van egy ilyen mondat: Numerikus tételek, dátumok és időpontok csoportosítása bizonyos típusú forrásadatoknál nem lehetséges.A bizonyos típus mibenlétéről nem esik szó.
Ez is az Excel egyik rejtelme...Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kp78
addikt
Valami ilyesmi, de ez a függvény nekem elsőre kínai
Próbálom bogozni...
Ha elküldöm emailben a táblámat, nem tennéd meg, hogy ott is megcsinálod egyszer, mert ott már két fül is van, abból utána könnyebben kibogozom a logikáját„El szeretném magyarázni” vagy „szeretném elmagyarázni”. De semmiképpen sem "elszeretném magyarázni". Biztos, hogy le tudod írni helyesen. :) Egyenlőre a sorozatgyilkos darabol fel, de ezt egyelőre nem szeretném :)
-
#5479
Fire/SOUL/CD
félisten
Cuci3
#5478
Hali!
Mr. Nagy feladata elég egyértelmű, amit korábban írtam, szerintem az is...De sebaj, akkor kérdésekkel válaszolok.
"Én változáskor az autofilterből..."
Mi változik? Milyen esemény(Event) fut le, amikor valaki lenyitja az autofiltert, kijelöl egy vagy több elemet, majd leokézza?
(mert hogy a Worksheet_Change esemény biztosan nem fut le például)Fire.
UI: az irányított szürés meg kizárja az autofilter-t mellesleg...
[ 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)
-
Delila_1
veterán
Mit szólsz a 3. pontra az irányított szűrős megoldáshoz? Szűrőfeltételként lehetne megadni az autoszűrő kritériumát. A végrehajtáshoz viszont meg kellene szüntetni az autoszűrést.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Cuci3
tag
Kicsit másabb progi, de lényegében ugyanaz. Sajnos a Nyomtatás menü Mégse gombja valahogy nincs nevesítve, VBA rögzítő sem érzékeli, neten sem találtam meg. Ezért nyomtatás előtt felugrik egy aranyos kis kérdés, hogy tényleg ki akarod-e nyomtatni. Egy idő után idegesítő lehet, dehát ez is csak egy félmegoldás (a kérdésem után még simán kattinthat az ember a mégsére a nyomtatási ablakban).
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim kerdes As Integer
kerdes = MsgBox("Valóban ki akarod nyomtatni?", vbQuestion + vbYesNo)
If kerdes = 6 Then
If ActiveSheet.Name = "Munka1" Then
ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
End If
ElseIf kerdes = 7 Then
Cancel = True
End If
End Sub -
Geby
senior tag
Félig rájöttem, a formátumát számra változtatva növeli az értéket, de elég furcsán.
Ha rámegyek a fájl menü nyomtatás menüre, akkor már nyomtat is, és ha mondjuk beírom hogy 3 példány, akkor az első lap amit még azelőtt nyomtatott ki hogy ténylegesen akartam volna nyomtatni az kijön egy számmal, a másik 3 példány meg eggyel nagyobb számmal. -
Geby
senior tag
-
Delila_1
veterán
Nem egyforma eredményre jutottunk.
Nálad a két FKERES-nél hol az egyik. hol a másik oszlop értéke felel meg, amiből gyakorlatilag nem lehet tudni, mikor melyik igaz.
A hosszú képletem mindig az igazi értéket adja.
Csak a rend kedvéért írtam le ezt.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
EmberXY
veterán
Azt látom, hogy miről beszéltetek, de a makró kapcsán egyértelműen magamra ismertem, és mivel nem is gondoltam volna, hogy valaki ezen akar majd lovagolni, kicsit meglepődtem.
Ha félreértés, akkor félreértés, de akkor részemről nincs harag.
Bár továbbra sem értem, hogy a kettőtök beszélgetéséből kiszűrt konzekvencia hogyan jutott arra a szellemi szintre, hogy a makróval kapcsolatos kérdés képezze a hozzászólásod tárgyát...
Na ez a kacifántos mondat.Up the Irons!
-
EmberXY
veterán
Köszönöm az elismerő besorolást a "lusta, munkaidőben csak makrók futtatásában unatkozó" kategóriába.
Én csak azt nem értem, hogy miután ez a fórum az Excellel kapcsolatos, és én e témában kérdeztem, erre volt egy segítőkész fórumozó, aki segített (mellesleg neked is), kvázi kibeszéltük a témát-------->mindezt együttvéve mi a franc közöd van ahhoz, hogy én mit írok, milyen választ kapok?
Rajtam legalább látszik, hogy nem értek 100 %-ig az Excelhez, ezért kérdezek, te meg csak süketelsz itt.
Mi a gondod?"fogalamzzatok pontosan..
"[ Szerkesztve ]
Up the Irons!
köszi a gyors választ 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Melyik tápegységet vegyem?
- Milyen egeret válasszak?
- Házimozi belépő szinten
- Gaming notebook topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Árnyékos sarok
- Kínai és egyéb olcsó órák topikja
- Ingyen kellene, de tegnapra
- Tagadják a szervergyártók, hogy túlmelegedne a GB200-as szerverdizájn
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Játékkulcsok a legjobb áron: Steam
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! Microsoft szoftverek, vírusírtó szoftverek, egyéb szoftverek széles választéka!
- Indiana Jones and the Great Circle - Digital Premium Edition - beváltás: 2025.1.30 - RTX 40XX