-
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
-
föccer
nagyúr
válasz alexnowan #1411 üzenetére
alexnowan : keress meg néhány programozással foglalkozó cégnél/egyénnél. az ára/idő szinte csak az igényektől függ...
dukari: Érdekes bug Próbáltam törölni a cellát is, és a tartalmát is. Egyik sem vezetett megoldásra.... Ha kicsi a tábla, akkor marada a shift+<klikk>,
Kérdés: Van egy fájl, amiben van kb 14 munkalap. Szépen formázott, nyomtatásra váró jegyzőkönyv van minden munkalapon. Ha újjab másolatot készítak egy munkalapról, akkor: 'nem lehet több betütipus' hiba jön elő. Ha az egyik munkalapon az egyik diagrammhoz újjabb adatsort akarok hozzáadni, akkor ugyan ez a hiba+program szabálytalan műveletet hajtott végre....
Van valami megodás? Vagy készítsek 30 db fájlt?
thx
üdv.: föccerÉpítésztechnikus. Építőmérnök.
-
föccer
nagyúr
Üdv!
No, eljött az idő, hogy Én si kérdezzek ebben a témában
Adott egy adattömb. Példának okáért egy ilyen:
A B
1 1 130
2 1 0,25
3 2 4,5
4 2 65,2
5 3 733,1
6 3 2
7 4 182
8 4 47
9 4 2
10 4 19
11 4 88,7
12 5 17,85
13 5 8
14 5 4
15 5 9,5
16 6 16
17 7 7
18 8 20A feladat, hogy a C oszlopba olyan összeget hozzak létre a B oszlopban lévő számokból,, amik az A oszlopban szereplő azonosítók szerint azonosak.
Tehát az A1+A2; A3+A4; A5+A6; A7+A8+A9+A10+A11; stb...
Szóval: hogyan paraméterrezzem a szumha fügvényt?
A segítséget előre is köszönöm.
Üdv, föccer
mod: jah, másik kérdés: Adott az XLS dokumentum. cirka 50MB-t képek nélkül. Hozzáírtam még még néhány tucat cellát, majd mentés, és csinált belőle egy cirka 22 MB-os fájlt. Ezt most hogyan, és miként? Ugyan az az excel verzió (egyik napról a másikra), és adatot nem töröltem. A többi függvényhez nem nyúltam, azokat értékekkel nem helyettesítettem... Hogy a rákba csinálta ezt? Egy kicsit beparáztam, amikor megláttam. kb 1 hete csinálom ezt a táblázatot, és nem szeretném, ha fossá menne. (bár minden napra van + biztosági mentésem róla, de akkor is...)
Üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
No, arra rájöttem, hogy miért lett 28 megával kevesebb a fálj. Volt olyan kedve az excell és eltüntetett nekem cirka 1200 sort a táblázatból
shit. Kidobtam az eddigi mai napi munkámat...
üdv, föccer
mod:
A1 : FG6700-as táblázatból csinált nekem A1 : FG5500-at.
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Fire/SOUL/CD #7690 üzenetére
A darabteli egy olyan számot ad eredményül, ami azt mondja meg, hogy hány darab cellám van a megadott tartományban, ami eleget tesz az adott feltételnek. Nekem arra lenne szükségem, hogy a feltételnek eleget tevő cellák tartalmát összeadja. Jobban modva nem is azoknak a celláknak, hanem a mellette lévőknek.
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7693 üzenetére
Bingó, ez a megoldás. Elég egyszerű, nem tudom, hogy miért nem akart menni Azért ennél sokkal durvább függvényeket szoktam csinálni
pl:
=HA($BI1194="";"";HA(NINCS(FKERES($BI1194;alapanyagok;$DR1194;0));"ANYAG";HA(VAGY(FKERES($BI1194;alapanyagok;$DR1194;0)=0;FKERES($BI1194;alapanyagok;$DR1194;0)="");"ÁR";"OK")))üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Fire/SOUL/CD #7696 üzenetére
köccke.
mod:
A feladat, hogy a C oszlopba olyan összeget hozzak létre a B oszlopban lévő számokból,, amik az A oszlopban szereplő azonosítók szerint azonosak
csak lehet egy picit bugyután fogalmaztam...
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Tudtok nekem valamó jó irodalmat ajánlani (akár elektronikus formában is ), ami az Excel 2003 makró alapokat magyarázza el? Valami bézik hülyéknek szánt verzió kellene, onnantól fogva, hogy hol és hogyan tudok egy munkalapra gombokat és chekboxokat kitenni, és hogyan tudok aláprogramozni különböző műveleteket. Gondolok itt olyanokra, hogy gombnyomásra kiüríteni a megadott cellákat, meg ilyenek.
Köszi,
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz WildBoarTeam #7703 üzenetére
Igen, ennek már nekifeküdtem. A baj csak az vele, hogy így marha sokáig tart és nem igazán leszek "jó" benne. Amit késízteni akarok (hosszabb távon), azért az nem lenne olyan egyszerű dolog, és Nem akarok most is úgy gényolni, mint anno a Dorland-Delphiben tettem.. Ezt most úgymond hülyebiztosra kell megcsinálnom, hogy akár 2-3 év múlva is futtatni tudjam.
ÜDv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz WildBoarTeam #7718 üzenetére
Csak kellő mennyiségű szalicil kell hozzá
ON:: lehet olyat csinálni, hogy ha az autoszűrőt egy külön, egyébként ütres sorba teszem, akkor amikor a szűrőveltételt megadom neki, akkor a felétételt kiírja nekem az adott cellába? A dolog arra lenne használva, hogy a nyomtatában megjelenő 39 oszlopból így ránézésre lejhetne látni, hogy melyek azok az oszlopok, amik szerint szűrve lett az adott kimutatás. Akkor nem kellene külö ráírogatni a lapra, hogy a következő 4 pldal az adattáblák azon sorait tartalmazza, ami megfelel ennek, és ennek, és ennek, és ennek a feltételnek. Tipikusan 5-7 feltételekkel fogunk benne szűrni, és úgy nyotatni az eredményeket.
Makró téma:
no, akkor egy kis szájbarágós segítséget kérek. Hogyan tudom elővarázsolni az adott munkalaphoz tartozó küdot (Talán Eszközök-> makró-> visual basic editor??? )?
Hogyan tudok kirakni a munkafüzetre egy nyomógombot?
És hogyan tudok a gomb megnyomásához utasítrásokat hozzárendelni?
Illetve mi a pontos neve a cellákat kezelő objektumnak, és annak milyen főbb tulajdonságai és milyen főbb akciói vannak?
Előre is köszi,
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz WildBoarTeam #7721 üzenetére
Alt+F8 a makrók ablakát nyitja meg, és nem a kódot...
1 részhez szerintem lista kell...Autoszűrő máshol nem igazán használható, csak ha van alatta adat.
Van alatta adat bőven. Vagy 5000 sornyi Az érvényesítés-> lista azért nem jó, mert egy-egy oszlopban önmagában nincs sok különböző adat az 5000 sor 15-20 különböző adatból áll össze. Csak van vagy 140 oszlop összesen, és ezek variációjából nagyából nincs 2 teljesen egyforma sor. Namost a listával azt érem el, hogy a legördülő menüben ott figyel mnind az 5000 sornyi adat benne a sok-sok redundáns értékkel. Az autoszűrő ezért jobb, mert ott nincsnek redundáns adatok. Egy érték, csak egyszer szerepel, így nagyon gyorsan lehet benne beállítani a dolgokat.
Objektum orientált programozás lévén minden dolog valamilyen objektumban foglal helyet. az objetumoknak vanna különböző tulajdonságai, mint pl a színe, vagy a mérete, tartalma, és vannak hozzá rendelt akciók, mint pl a kattintás (mi történi, ha rákattintasz), és vannak egyéb események, mint pl amikor törlöd az adott objektumot, vagy létrehozol egyet. stbstb..
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
No, akkor ezeket az infókat most jóóól meg kell emésztenem
köszi,
Üdv, föccer
ps: még egy kérdés: Olyat tudok csinálni, hogy egy esemény akkor fusson, ha rányomok pl a printre? Mert akkor nagyszerűen lehetne töltögetni az autoszűrő alatti cellákat, mielött kimenne printre, és a nyomtatás után meg szépen lehete.
gondolok itt valami Worksheets("munka1").OnPrint eseményre, amibe jól bele lehetne írni az általad előbb vázoltaktat.
Köszi, üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Na, hős vagyok. Sikerült az első műveletemet végrehajtattni. C6 cella tartalmát gombnyomáűsta átmásolta az A30 cellába
No, már törölni is tudtam...
Kis lépés ez az Excellnek, de hagy hőstett tőlem...
Ez működik?
Cells(A120)
gondolok itt egy A1-től C20 ig történő terület hivatkozásra?
köszi az eddigi segítséget. Asszem nekifekszem a súgónak. Nagon nagy szükségem lenne az objektumok tulajdonsátgaira, eseményeire, és a paraméterezésrs... No meg nem ártana tudni a VBasic szintaktikáját is (lokális változó deklarálása, ciklusok szintaxisa. Valahogy a for i:= 0 to 9 do begin .. end nem nagyon akar működni Hiába no, én csak a pascalt toltam
De még pár óra és ráérzek, és akkor lesz ám nemulass
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7735 üzenetére
jahjahjah. A ciklusok megvannak. A gombnyomásra szorzótáblát már megcsináltam (avagy a for ciklus alapjai )
No ,meg kezdem érezni, hogy hol, mit hogyan találok meg. Kezdem látni a builder felépítését. Köszi a sok segítséget, még biztosan jövök kérdezni
üdv, föccer
mod: a for-nál kihagytad a végéről a next-et
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7735 üzenetére
Üdv!
Rá tudom valahogy venni a VBasicot, hogy futtassa a már jól begyakorolt, és ismert excell függvényeket? Vagy külön le kell kódolnom mondjuk az fkeres(,,,), vagy az érték() függvéyneket? Ha igen, akkor hogyan? Sokat segítene, ha nem kellene mindent megírnom
Help-ben így hirtelen nem találom
köszi, üdv: föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7739 üzenetére
mint macska az esőt...
ezeken a hivatkozáson még agyalnom kell, mert még nem látom át a logikáját, de a többi megvan. Frankó. Gyakorlatilag, akkor úgy lehet makróból futtatni a már megszokott függvényeket, hogy kiválasztom az adott cellát, majd az aktív cellába beíratom képletként...
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7739 üzenetére
Hm, miben különbözik a
FormulaR1C1
a sima
Formula
tól?
Abban, hogy a FormukaR1C1- ben a praméterezésnél az R1C1 pozíciótól számolod a cellákat (definiálod őket), míg a Sima Formulával pediglen a "globális" pozíció jelöléseket használom?
Köszi, üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7746 üzenetére
No, mondom Én, hogy kezdedm kapisgálni
Nem vagyok Én annyira elveszett bárány a programozás tekintetében. A progmat szakmában csak a mat-tal lett volna bajom. De azzal nagyonjah, egyébként csoki, vagy sör?
üdv, föccer
mod: off
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7725 üzenetére
Na, most van időm jobban átnézni, hogy mi írtál.
Az a helyzet, hogy nem teljesen erre gondoltam. Az eredeti elképzelés az, hogy a van egy olyan lapom, ahol beállítom a szűrési feltételeket. Ehhez nem használok makt, hanem simán, a legördíthető is listákat. Ezután (egy másik munkalapon) megnyomok egy gombot, és voilá, töltöget nekem minden félét.
Valami ilyesmi az elképzelés:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 to 20
With ThisWorkBook.Sheets("munka2").autofilter.field(i)
if not criterial1 = "" then
cells("B", i).value = .citerial1
end if
end with
NextEnd Sub
És persze a print a végére, de az már csk formaság...
Viszont valami nem kerek, mert nem akar menni...
i need help
köccke
Üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Hu, már faradt vagyok. Azért ez még erősán át kellene gondolnom
A Cells("B",i) tuti baromság, az már bizos.
De alényerg asszem érthető. Azt szeretném, hogy egy for-ral végigszaladni az összes auto szűrőn, és ahol van beállított szűrőérték, azt berakom az alatta lévő cellára.
Amiko futtatni akartam kiírta, hogy fattal error. pls change user
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7756 üzenetére
Runtime error '1004'
Range osztály Autofilter metódusa hibás
Egyébként amikor a Sheets paraméterét adom meg (hogy milyeik munkalapra akarok hivatkozni, akkor a paraméterbe "melyik nevét" kell megadni? Atulajdonságoknál van olyan, hogy (Name), értéke Munka1 és van oylan, hogy Name, értéke vezerlok (ez az általam, a munkalapnak adott megnevezés?
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7756 üzenetére
A feltételnt nem fordítva kellene? Ha az autoszűrő critériuma nagyobb mint "", akkor a cella értéke legyen a critériummal egyenlő? Így azt vizsgálja, hogy van-e valami a cellában, és ha igen, akkor a kritériumot beállítva a cella tartalmának. Nekem pont fordítva kelle...
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7764 üzenetére
Amennyiben nem ez a célod, írd le pontosan, mit is akarsz. Azt szeretnéd, hogy a Lista lapon egyenként beállítod a (20) szűrőt, és ezek a kézzel beállított kritériumok jelenjenek meg a Kritériumok!B120 tartományában?
Majdnem.Az egyenként, kézzel beállított kritériumok jelenjenek meg, ugyanezen lapon azokban a cellákba, ahol az autószűrő is van. Magyarán, azt szeretném elérni, hogy úgy jelenjen meg a nyomtatásban, mintha egy érvényesítés-> listából választottam volna ki.
De lassan meg lesz a megoldás, csak még nem látom át teljesen, a szintaktikát, meg az objektumok kapcsolatát.
kérdés: mi a különbség a ":=" és az "=" között. Pascalban az első az értékadás, a második pediglen érték vizsgálat. De ahogy nézem, ez itt fordítva van?
Valamint az értékadás jobbról balra, vagy balról jobbra történi?
köszi,
üdv, föccer
mod: amit írsz kódot, még mindig a kritérium cellákat ellenőrzi, hogy üresek-e. Nekem arra lenne szükségem, hogy az autoszűrő critériumát vegye feltételnek, és ha annak van valamilyen értéke, akkor ezt az értéket kell bevinni a cella értékének. Tehát a feltételt és a műveletet kellen még megcserélni . Jah, és mindezt persze ugyaz azon a munkalapon.
Köszi szépen.
Üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As Worksheet
Set w = Worksheets("Receptek")
For i = 1 To 20
w.Cells(2, i).Selected
If Selected.AutoFilter.Criteria1 > "" Then
Selected.Value = Selected.AutoFilter.Criteria1
End If
Next
End SubMiért nem akarja az igazságot??? Pedig annyira egyszerű utasítást akarok kiadni, hogy pascalban már 100000x megcsináltam volna... Itt sem a szemantikával van a bajom, hanem az ismeretlen objektumokkal...
üdv, föccer
Excel nem ismeri az objekt pascalt?
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Következő próba:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As Worksheet
Set w = Worksheets("Receptek")
For i = 1 To 20
w.Cells(2, i).Select
If Selected.AutoFilter.Filters > "" Then
Selected.Value = Selected.AutoFilter.Filters
End If
Next
End SubAzt mondja, hogy Range osztály select metódusa hibás...
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As WorksheetSet w = Worksheets("Receptek")
For i = 1 To 20
If w.Cells(2, i).AutoFilter > "" Then
Cells(2, i).Value = Selected.AutoFilter.Filters
End If
NextEnd Sub
Nem spammelek, csak próbálkozom Hogy lásd, hogy nem csak a sültgalambot várom )
Köszi,
üdv, föccer
mod:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim w As Worksheet
Set w = Worksheets("Receptek")
For i = 1 To 20
If w.Cells(2, i).AutoFilter > "" Then
w.Cells(2, i).Value = w.Cells(2, i).AutoFilter.Criteria1
End If
Next
End Subobjekt required. Mindezt a w.cells(2, i).value = w. cells(2, i).autofilter.criteria1 sorra...
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7770 üzenetére
Run-Time error '91':
Objekt variable or With block variable not set.A hibát For i = 1 To AF.Filters.Count sorraadja.
Ha inicializálom elötte az i -t nem segít. Ha az elejére beszúrok egy sheets("Receptek").select-et, nem segít.
Lassan kezdem azt hinni, hogy bennem van a hiba...
Kérdés: a lent írt kódban mit akar csinálni az usor változó? Nem egészen tudom értelmeni az
usor = Range("A65536").End(xlUp).Row utasítást...
Köszi az eddigi segítséget. Nem tudom, hogy mi a rákért nem akar rendesen menni...
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7774 üzenetére
viszont a runtime- error még mindig él, és vigyorog az arcomba...
bekapcsolok mindent, és csinálok egy restartot, hátha....
hmm, restart után nem dobott hibát....
Viszont be kelett tennem egy Sheets("Receptek").Select-et, hogy utánna helyesen fusson a Set AF = ActiveSheet.Autofilter utasítás.
No, a másik, hogy ugyan hibát nem jelez, de nem írja be nekem a megfelelő adatokat... Még nem tudom, de minden esetre legalább van egy futtatható makróm.
Köszi szépen az eddigieket is. Nagy voltál
Üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7770 üzenetére
No, itt a végleges, nálam is hibátlanul futó makró
Sub CommandButton1_Click()
Dim AF As AutoFilter
Dim F As Filter
Dim i As Long, usor As Long, C As Long
Sheets("Receptek").Select
Set AF = ActiveSheet.AutoFilter
C = AF.Filters.Count
Range(Cells(2, 1), Cells(2, C)).Value = ""
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Sheets("Receptek").Cells(2, i).NumberFormat = "@"
Sheets("Receptek").Cells(2, i).Value = F.Criteria1
End If
Next
End SubKöszi a segítséget, nélkületek nem lett volna meg. Soakt tanultam belőle. Most jön a következő feladat
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7779 üzenetére
Nem baj az. Az eredeti tábla második sora eddig is üres cellák voltak. Egészen pontosan erre a sorra volt beállítva az autoszűrő. Így teljesen pörfekt, ha abba a sorba írom a critériumokat. Már csak azért is, mert így a nyomtatásban, az üres sorban eléggé feltünő az a néhány kitöltött cella. Így ránézésre látszik, hogy melyik oszlopok, mi szerint vannak szűrve És végeredményben ezt volt a cél.
üdv föccer
mod:
Mikor már a lapra álltál [Sheets("Receptek").Select], nem kell külön megadni a lapot:
Sheets("Receptek").Cells(1, i).Value = F.Criteria1 helyett elegendő a
Cells(1, i).Value = F.Criteria1Amikor nem adtam meg neki a teljes elérést, akkor a vezérlők sheeten hajtotta végre cellatartalom beírását. Nem tudom miért, de így volt. Ezzel tutira mentem, és így szépen műxik.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #7783 üzenetére
Igen, addig látszik, amig nem 40 oszlop van egy lapra kinyomtatva 6-os betűnagysággal (85% nyomtatási nagysággal), olyan szorosra véve az oszlopokat, hogy a cellatartalmaknak így is csak az eleje látszik. Sajnos így is nagyon zsúfolt . És mindennek fejébe egyszerre 10-12 lappal kell majd dolgozni. Hidd el, legnagyobb gondomnak se szeretném, ha +ba azt kelljen bogarászni, hogy melyik lap éppen miről szól.
No, hamán nyomtatá:
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Lehet-e valami olyat csinálni, hogy ne kapásból kinyomja a nyomtatóra, hanem jelenírse meg a nyomtatási párbeszéd ablakot? Mint Delphiben az
if printdialoge.execute then
begin
...
endobjektummal csináltam? Vagy ez is ezt csinálja? Még nem próbáltam ki, mert nem akarom fölösbe használni a festéket, meg a paprít Illetve figyelembe veszi-e az eredetileg beállított nyomtatási területeket, illetve az olddalbeállításokat (margók, élő fej élőláb, minden oldalon látszódó sorok beállaítása stb). Gondolo igen, csak még nem mertem kipróbálni...Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Surfym@n #7794 üzenetére
Én ezt 2003-ban úgy oldom meg, hogy megnyitok egy külön Excelt, amit átrakom a másik képernyőre, és abban nyitom meg az új fájlt.
Elvileg lehet. jobb klikk az második grafikonon, és a tuljadonságok menüben van egy ilyen pont, hogy második értéktengelyhez.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
No, következő nagy kérdés. Kezdek komolyabban foglalkozni a makrózással, de most megint megakadtam.
Szóval:
Adott, egy létező Sheet, amin van egy commandbutton. Ehhez tartozó click() metódusba az van írva, hogy:hozzon létre egy új Sheetet
Sheets("vezerlo").Select
Sheets.AddMajd erre az új lapra rakjon be egy új commandbuttont:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=60, Top:=71.25, Width:=144.75, Height:= _
57).SelectEz valahogy úgy kellene kinéznie, mint ha Delphi-ben tolnék egy form2.ShowModal metódust, amikoris a Form2-n lenne egy gomb.
A kérdés az, hogy hogyan tudnám azt lekódolni, hogy ehhez az újonnan (egyébként kódból létrehozott) gombhoz rendeljek hozzá különböző történéseket? A példa kedvéért azt, hogy ha megnyomom az új gombot, akkor törölje az újjonnan létrehozott Sheet-et...
Remélem érthető voltam
A segítséget előre is köszi.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Na, ugye az excel megkülönbötzet egy cellán belül cella értéket, és cella formátumot. Ha beírod a cella értéket (és csak a cella értékét), akkor nem fog változni a cella formátuma. Így a frissen beszurt értéket, a már meglévő formátumba fogja "kényszeríteni". Amikor belemész a cellába, és nyomsz rajta egy entert, akkor az Excel megvizsgálja a cella értékét, és ha egyértelműen be tudja azonosítani, hogy az szám, akkor átállítja a formátumot is szám-ra. Ezért van az, hogy akkor helyesen meg fog jelenni.
A sima beillesztés azért működik, mert ott a cella formátumát, és az értékét is átviszi.
Vagy az a cél, hogy a szám típusú értéket, a szöveg típusú cellaformátum mellett úgy jelenítsen meg, mitnha szám lenne? Akkor a cella formázásnál kell megadni, hogy jobbra zárt, osz jóccakát. De attol még szöveg formátuma marad...
Vagy nem értem, hogy mit szeretnél elérni...
Üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
Tisztelt Macro Mágusok!
Sajnos a hét végén temérdek rabszolga melót kellene elvégeznem a hőn szeretett MS excellel. Tudom, hogy a feladat viszonylag "egyszerűen" lekódolható lenne makróba, viszont az ez irányú ismereteim meglehetősen csekélyek (ami itt, ebben a fórumban rám ragadt), és ráadásul az is rég volt.
Ha megtennétek értem, hogy egy kód részlettel kisegítenétek, amiből kiindulva végig tudnám kódolni az egész feladatot, azt hálásan megköszönném Persze a feladat nagyságára való tekintettel némi jutányos sörmennyiséget/kp-t, túró rudit, szilvalekvárt (vagy pálinkát). tudok felajánlani. Sajnos a cég erre nem tud jelentősebb pénzt fordítani, mert van nekik egy jó rabszolgájuk Így a fizetség, csak amit a fizetésem-lakáshitelem elbír
No lássuk:
A környezet:
MS excel 2003. 3 munkalap.Munkalapok:
Az elsőn van a vezérlő, és a paraméterezést tartalmazó cellák (paraméterek: kezdő sorszám(integer); utolsó sorszám(integer); nyomtatás(boolean). Vezérlők: Összes sor nyomtatása, kijelölt sorok nyomtatása, sorszám közötti sorok nyomtatása.A másodikon vannak az alap adatok. Az adatok soronként össze tartoznak, és ~20-25 oszlopot tartalmaznak és sorszámmal vannak ellátva. 1-1 checkbox a sorok elején. A sorok száma:5749 (innen jön a feladat rabszolga része)
A harmadikban pedig egy formanyomtatvány sablonja, formázással, szegélyekkel, minden féle jóval.
A feladat, hogy a 2. munkalapon lévő adatokkal, soronként haladva, feltölteni a 3. munkalapon lévő sablont, és a paramétereknek megfelelően elindítani a nyomtatást.
Azaz, sort beolvas, sablon kitölt, nyomtat. Következő sor, adatok beolvas, nyomtat...
A paramétereknek a nevének hűen kellene működnie. Tehát:
nyomtatás: Ha ki van pipálva, akkor elvégzi a nyomtatás. Ha nincs kipipálva, akkor nem nyomtat. (logikája csak annyi, hogy 1: véletlenül ne küldjek el ~6000 oldalt a nyomtatóba, másrészt ha tesztelem a makró futását, akkor ne balhézzon nekem...)
Összes nyomtatása: szó nélkül beküldi az összes sort a nyomtatóba (na, erre felkészült a konica? )
Kijelölt sorok nyomtatása: Ahol checkbox ki van pipálva a sor elején, azt átrakja a formanyomtatványra, és kinyomtatja. Ahol nincs kipipálva, az kimarad.
Sorszámok közötti sorok nyomtatása: Értelem szerű. 1123-5433 közötti sorokat kitölt, nyomtat.
Ezen felül, csak hogy finomabb legyen, van néhány feltétel ami megszabja, hogy a sablon bizonyos celláiba, pontosan melyik adatokat lehet beírni. Ezt a feltételt minden esetben a 2. munkalapról kiolvasott adatokból el lehet dönteni.
Szóval egy jó kis házi feladat a főnökömtől hét végére. Persze nekem megér egy tálca sőrt, hogy csak az egyik napom menjen rá
Szóval várnám a szíves jelentkezőket a feladat megoldására. Ha szükséges, akkor lebutítom a jelenlegi xls táblát, és elküldöm a vállalkozó szelleműeknek. Sajnos közvetlenül publik-ba nem rakhatom ki, mert az kimerítené az ipari kémkedés fogalmát, de egy butított verziót gond nélkül kitehetek.
Előre is köszi a segítséget. A sörök/csokik várják leendő gazdájukat
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz bugizozi #9849 üzenetére
Sajnos nem ilyen egyszerű a dolog. Ki kell nyomtatni (még ha részben is) az anyagot. A táblázatot már elküldtem. Most már a kinyomtatott adatlapokat kell egy jelentés mellékleteként elküldenem, így a nyomtatásra mindenképpen szükségem van.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
-
föccer
nagyúr
válasz petrusz82 #10708 üzenetére
Én ezt úgy oldanám meg, hogy készítenék egy segédtáblát, aminek első oszlopában a termék nevek vannak felsorolva, felülről lefelé abc rendbe rendezve. Mellettük a második oszlopban pediglen a kívánt kód. Ha a segéd tábla A1:H1 mezőben van, a keresési értékek pediglen A5:M5-ig, akkor A6 cellába:
=HA(vagy(fkeres(A5;$A$1:$H$1;2;0)="#HIÁNYZIK";A5="");"Hibás adat";fkeres(A5;$A$1:$H$1;2;0))
Nincs előttem xls, remélem nem írtam el
üdv,föccer
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.