-
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
-
Hali!
Azt hittem jön megoldás, ezért kivártam, de hiába, azért Húsvét van.

Na akkor ahogy én oldanám meg ezt a feladatot(csak javaslat, nem kötelező betartani)
![;]](//cdn.rios.hu/dl/s/v1.gif)
Két munkalapom van, Lista és DB névvel.
# Lista munkalap: "A" oszlopban minden cellán, lenyíló listából választható az adott termék. "B" oszlop üres, de csak azért, hogy a lenyíló menü nyilacskája ne zavarjon be(vizuálisan) "C" oszlopba. "C" oszlopban jelenik meg, a kiválasztott termékhez tartozó link.
# DB munkalap: "A" oszlopban a termékek, "B" oszlopban a hozzá tartozó link
Megoldás lépésről-lépésre
1. DB munkalapon "A" és "B" oszlopok feltöltése adatokkal
2. DB munkalapon "A" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK néven: [link]
3. DB munkalapon "A" és "B" oszlop kijelöl és Tartományként elnevez, esetünkben LAPTOPOK_ES_URL néven(Eljárás ugyanaz mint a 2. pontban)
4. Lista munkalapon "A" oszlop kijelöl, Adatok csoport/Érvényesítés LENYÍLÓ/Érvényesítés..., többi a képen: [link]
5. Lista munkalapon C1 cellába beírni a következő képletet
=HIPERHIVATKOZÁS(FKERES(A1;LAPTOPOK_ES_URL;2;HAMIS);"Kép a termékről")És ennyi lenne. (Excel 2007-ben készült)
Fire.
-
Hali!
Macskaköröm? LOL, na Te jó adattitkosító lennél, mert ebből szerintem senki ebben az életben nem jött volna rá, hogy az macskaköröm.

Nem írom le a megoldást a kereséssel, mert szerintem, mire ezt a HSZ-t befejezem, Delila_1 vagy Ulrik19 vagy ha benéz "hirtelen" Fehér Mancs akkor addigra már meglesz.
Egy elvet ecsetelnék röviden, ami nem a kereső fx-re épül, de talán ebből is lehet tanulni valamit. Szóval egy saját függvényt kellene készíteni, ami a laptopok nevéből legyártaná, a linket(URL-t). Pl úgy, hogy a laposok nevéből a szóközöket _ karakterrel helyettesíti, illetve (mivel szerveren vagyunk) ezért kisbetűsre alakítja és ugyanazon sor megfelelő oszlopába beírja. Így ha módosítod a laptop nevét, akkor automatikusan generálódik a letöltési link.
Persze ennek ez is a hátránya egyben, mert ha módosítani kell a laptop nevén, akkor egyből új fájlnévvel azt fel is kell tölteni a szerverre, a korábbi néven szereplő képet meg törölni(ne foglalja feleslegesen a helyet)Persze ez csak egy elv, és csak azért írtam, hogy több szempont alapján és más-más módszerekkel is megoldható egy feladat, mindig mérlegelni kell,(és pontosan tudni), hogy mit akar megvalósítani az ember.
Na de visszatérve a feladathoz. Ebben a formában a "hagyományos" kereső szolgáltatások "nehézkesen" (vagy talán nem is) alkalmazhatóak, hisz semmi nem utal a laptopok nevére a linkben, még rész sztringet sem lehet keresni, ezért nincs mit megtalálni ebben a formában. (Szerintem)
Fire.
-
-
Hali!
Hát én kíváncsian várom Delila_1 válaszát(vagy másét), hogy ki mit értett meg ebből, bevallom tippem/elképzelésem van a dologgal kapcsolatban, de ezzel nem tudok megbirkózni: "inspiron laptop ----||--------- ----------||----------------"
Mi ez? "...paróka, szobafestő pemzli, egyujjas kifordított bundakesztyű vagy papucs orrán pamutbojt"...
Meditáltam rajta, de nem tudom az mi az...Már kínomban "elpusztítottam" 2 csokinyulat, de nem segített...

Fire.
-
Hali!
Csak a legutolsó 2 HSZ-t kellett volna elolvasnod, abban pont arról van szó, hogy mit lehet tenni, ha túl sok feltételt kell egybeágyazni, ezáltal "kilométeres" a cellában lévő kód.
![;]](//cdn.rios.hu/dl/s/v1.gif)
Szerk
Nagy valószínűséggel kivitelezhető lenne úgy is...Csak ahhoz pontosan kell tudni, mit szeretnél megvalósítani...Fire.
-
-
válasz
mr.nagy
#6764
üzenetére
Hali!
Majdnem...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Függőleges igazításnál a cella ill. kép magasságával kell számolni, ami mindkét esetben a Height nem pedig a Width.
Persze ha a kép szélessége és magassága azonos, akkor nem jön ki a hiba.
![;]](//cdn.rios.hu/dl/s/v1.gif)
(meg akkor sem, ha a cella magassága(sormagasság) kisebb, mint a kép magassága)Fire.
-
válasz
mr.nagy
#6762
üzenetére
Hali!
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert(Range("A1"))
myPic.Left = ActiveSheet.Range("F1").Left + ((ActiveSheet.Range("F1").Width - myPic.Width) / 2)
myPic.Top = ActiveSheet.Range("F1").Top
MsgBox (ActiveSheet.Range("F1").Width)
End SubEbből adódóan házi feladat, hogy hogy lehet függőlegesen is középre igazítani.
(A példa alapján nem jelenthet gondot)Fire.
-
válasz
mr.nagy
#6756
üzenetére
Hali!
Ez az elv, ha egy adott cellában lévő linkre hivatkozol, akkor alakíts a makrón(nem nehéz). Ebben a példában azt tanulhatod meg, hogy hogy kell netről megnyitni egy (ebben az esetben) képet és azt hogy kell pozicionálni(itt A1 cellához van igazítva)
Private Sub CommandButton1_Click()
Dim myPic As Object
Set myPic = ActiveSheet.Pictures.Insert("http://www.prohardver.hu/dl/faces/c14.gif")
myPic.Left = ActiveSheet.Range("A1").Left
myPic.Top = ActiveSheet.Range("A1").Top
End SubFire.
-
válasz
zsotesz81
#6750
üzenetére
Hali!
Ez a kód mindig kilép a legelső "All in"-t tartalmazó cellánál és bezáródik a form. Végig kell szaladni az adott cellatartományon és letárolni, hogy melyik cellákban van All in.
Ehhez alkalmazz tömböt.[link]
Egy megoldási(több elven megoldható) eljárás: A tömböt az elején kinullázod, a for ciklusban meg a megadott indexet eltárolod a tömben. a döntetlenallin szubrutinban meg ezen tömb alapján dolgozol.
(ami nem nulla, ott allin van, ha csak 1 nem nulla van, akkor nyilván senki nem fogadta el az allin-t, ha 2 vagy több akkor meg igen.)Fire.
UI: ma már ennek a gyakorlati kivitelezésében nem biztos hogy tudok segíteni konkrétan(csak este vagy holnap), de más egész biztosan.

-
Hali!
Magyarul el akarod tüntetni a cellá(k)ból a képleteket úgy, hogy csak a képlet által generált érték maradjon...Ha igen, akkor egyszerűen megoldható.
Kijelölöd a szükséges cellá(ka)t(lehet egész oszlop stb), jobb egér, másolás, ismét jobb egér, irányított beillesztés, csak értéket válaszd
Vigyázz, mert ha így csinálod, akkor "saját magára" másol, a képletek elvesznek. Értelem szerűen, a kijelölés/jobb egér/másol után kijelölhetsz másik helyet is a celláknak, akkor oda kerülnek az értékek az irányított beillesztés után.Fire.
-
válasz
WildBoarTeam
#6741
üzenetére
Hali!
Akkor összefoglalom, adott egy munkafüzet benne 9 darab FIX munkalappal az elején(ezek indexe 1-től 9-ig van). Ezek állandóak, nem törlődnek. Ezen felül létrehozol különböző számú munkalapot, amik nyilván a 10-es indextől kezdődnek. Az a feladat, hogy a 9 FIX munkalapon felül az összes munkalap törlése kerüljön, számától, nevétől függetlenül.
Ha ez a szitu, akkor csak egy minimális változtatás a korábbi kódon és kész
Private Sub CommandButton1_Click()
start_sheets = 10
Sheets(start_sheets).Select
Application.DisplayAlerts = False
For i = start_sheets To Sheets.Count
ActiveSheet.Delete
Next i
Application.DisplayAlerts = True
End SubFire.
-
válasz
ulrik19
#6740
üzenetére
Hali!
Jogos és logikus észrevétel, de megoldható for - next ciklussal is(persze ha ez/így kell WildBoarTeam-nek)
Private Sub CommandButton1_Click()
start_sheets = 2
Sheets(start_sheets).Select
Application.DisplayAlerts = False
For i = start_sheets To Sheets.Count
If ActiveSheet.Name = "Vége" Then
Exit For
Else
ActiveSheet.Delete
End If
Next i
Application.DisplayAlerts = True
End SubMeg kell adni, a kezdősheet indexét(lehet ezt is módosítani persze), a ciklus végig szalad kezdőindex-től a Sheetszámlálóig és törli(nem kérdez), ha menetközben megvan a "Vége" nevű Sheets, akkor kiugrik a ciklusból.
Az teljesen jó meglátás volt, hogy úgymond törlés után "balra elmozdulnak" a lapok, és más indexet kapnak, épp ezért törlöm(dolgozom) mindig az aktuális sheets-el, merthogy az lép a helyébe.
Fire.
-
válasz
WildBoarTeam
#6738
üzenetére
Hali!
1 .A törlést rakd a DisplayAlerts True/False "közé"
Application.DisplayAlerts = False
Sheets(Sheet_Neve).Delete
Application.DisplayAlerts = True2. A ciklusban indexel is lehet hivatkozni a Sheets-re, mint ahogy teszed is. Az aktuális Sheets neve is lekérhető, értelemszerűen ha a neve "Vége", akkor kilépsz a ciklusból.
Fire.
-
Hali!
Itt képben(kicsit másképp) a feltételes formázás, amit Ulrik19 is javasolt
(Annyiban más, hogy nem kell cellaszínt alapban beállítani)A régebbi Excelben(tényleg régebbiben pl Excel 97) nem kellett feltételes formázás elég volt ennyi pl =HA(A1<=MA();PIROS;ZÖLD)
Sajnos(vagy nem sajnos) az újabbakban csak a feltételes formázás marad, vagy saját függvény készítése.Fire
-
válasz
Fire/SOUL/CD
#6732
üzenetére
Az a "[/M]"nem kell persze, csak sikerült kiakasztanom a PH szerkesztőjét...

Fire.
-
-
-
válasz
Lackó86
#6717
üzenetére
Hali!
Hát ezt nem teljesen értem...
Szóval akkor ez lenne a szitu, pl
30 - nincs kerekítés
30,000001 - kerekítés 40-re
35 - kerekítés 40-re
39,999999 - kerekítés 40-re
40 - nincs kerekítésHa igen, akkor beépített kerekítő függvényről nem tudok, ami ezt megcsinálná, azonban természetesen megoldható. Leírom hogyan, Te meg próbáld meg ezt képlettel kifejezni.
Ha szám maradék nélkül osztható 10-el, akkor az adott szám kerül a cellába
Ha maradék képződik, akkor a szám egész része+10 kerül a cellábaEgy kicsit törd a kobakod...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
válasz
Delila_1
#6715
üzenetére
Hali!
Igen ez valós probléma néha, ezt elkerülendő mindig azt a konstanst/típust stb kell/célszerű használni, ami úgymond a nagykönyvben meg van írva és itt nem a súgóra gondolok, mert a súgóban is lehet találni olyan leírást, amivel biztosan nem működik egy adott függvény pl.

Fire.
-
válasz
Delila_1
#6709
üzenetére
Hali!
Igen, de ez ebben az esetben nem bevett szokás, hogy megnyitott form mellett lehessen módosítani a munkafüzetben..

Akkor szokás ezt alkalmazni, ha pont az a cél, hogy a form pl információkat jelenít meg folyamatosan a munkafüzet változásait követve.Szóval nem katasztrófa a False használata(De mint megerősítettek a True hibát dob), ezért inkább akkor vbModeless a False helyett...
Ez ilyen programozástechnikai elv(hogy ilyen rondán fogalmazzak) és nem csak Excel hanem más programnyelvek területén is teljesen alap eljárás)Fire.
UI: Nálatok sem működik a PH helyesírás ellenőrzése HSZ írásakor?

-
válasz
Delila_1
#6707
üzenetére
Hali!
Bocs, hogy megint "beleugatok", de ez nem a megfelelő megoldás, azaz ez így ahogy leírtad, úgy látszólag megy, de True értéknél hiba lesz.(Nem vagyok otthon, nem tudom kipróbálni, csak emlékezetből írok)
Szóval egy parancsgombról így lehet meghívni a Form-ot.
Helytelen
Private Sub CommandButton1_Click()
UserForm1.Show True
End SubA modal paraméter az vbModal vagy vbModeless értéket vehet fel.
zsotesz81
vbModal esetén amíg az ablak(Form) be nem csukódik, addig nem lehet a munkafüzethez férni, vbModeless esetén meg igen.Helyesen
Private Sub CommandButton1_Click()
UserForm1.Show vbModal
End SubFire.
-
válasz
Delila_1
#6699
üzenetére
Hali!
Sebaj én sem vagyok biztos, hogy teljesen megfelel Lackó86-nak, mivel ez a megoldás ugyebár kétírányba kerekít, azaz 35,44445-t 40-re, míg 34,44445-t meg 30-ra.
Ha az a cél esetleg, hogy mindig felfelé kerekítsen, akkor nyílván még kell egy kis módosítás, de majd talán megtudjuk...
Fire.
-
-
-
-
válasz
Lackó86
#6680
üzenetére
Hali!
Ez egy kis matek, pl ugye 27 köbgyöke az 3. A gyök hatvánnyal is kifejezhető, mert az a szabály, hogy a gyökértéket(27) emelem a gyökkitevő(3) reciprokára(1/3).
Azaz=HATVÁNY(27;1/3)
=HATVÁNY(A1;1/3)Ebből logikusan következik, hogy n-ed fokú gyök sem okozhat problémát
=HATVÁNY(x;1/n)Fire.
-
válasz
Delila_1
#6659
üzenetére
Hali!
Jó munkaközösség lehet ott felétek is...

Ilyen "viccet" én is már elkövettem annó, csak egy "apró" hiba csúszott a számításba, nevezetesen hogy másnap kórházba kerültem vesekővel és a vizsgálatok, meg fetrengés közepette nem tudtak elérni az akkori kollégák, ezért 2-3 napig nem használták a táblázatokat, nem tudták mi törpént az Excel-el.
Na azóta nem viccelődöm ilyennel...

Azért nem gondoltam volna, hogy ilyen "gonoszka" is tudsz lenni, de roppant mód díjazom
![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
válasz
ulrik19
#6557
üzenetére
Hali!
"Tudom, blama kérdés, de ezeket a feladatokat milyen gépeken, milyen programnyelven és milyen fordítóval szokták csinálni? A .pas alapján pascal-nak gyanítom. A .c meg a c-re utal, de annyira már nem vagyok jártas, hogy tudjam, mi is a kapcsolat a kettő között. (vagy a .c itt mást jelent)."
Hát az excel feladatokat ez nem érinti, hisz ott VBA Macro programozással kell megoldani a feladatokat. Amúgy meg igen, léteznek különböző fejlesztőkörnyezetek, különböző OS-ek alatt futó változatokban.(pl nem mind támogatja a W7 illetve x64-es kódokat)
A legismertebbek(manapság Windows alatt) az MS Visual Studio(C/C#), Delphi, Builder, vagy akár maga a Visual Basic...A sakktábla csak egy példa volt, nem tudom, hogy a feladatok közt szerepel-e, de máshol(excel feladat) már találkoztam vele, pl ITT.
Fire.
-
válasz
ulrik19
#6552
üzenetére
Hali!
Midig tanul az ember, bevallom Assembly, Pascal/c/c+++(DOS), Pascal/c/c++(Windows), PHP stb nyelven már írtam könyvtárszerkezet bejáró kódot, VBA-ban még nem, jó látni ezt is.

ulrik19 #6550
Remek! Ha így közelítjük meg a dolgot, akkor szvsz nem lehet segédoszlop nélkül megvalósítani.MÁS
Megkaptam a linket a "gondolkodós" feladatokhoz. Vannak köztük programozói feladatok, ezt persze minden érdeklődő nyugodtan nézze meg, de ha pl c/c++-ben nem tudsz megírni egy kódot, aminek a feladata egy 8x8-as sakktáblát lólépésben úgy bejárni, hogy minden mezőt érintsen, akkor VBA-ban sem fogod tudni. A programozóihoz, programozói (és több esetben matematikai) ismeretek szükségesek.
A többi feladat (is) tényleg érdekes, mindenki válassza ami szimpatikus. A főoldalt linkelem be, a lap tetején az Archívum menüben találhatjátok a konkrét feladatokat. [link]A linkért köszönet illeti Vasinger! fórumtársunkat!

Fire.
-
válasz
ulrik19
#6547
üzenetére
Hali!
1. Nem tudom, hogy a KERES miért ismeretlen fogalom számára, max annyi tippem lenne, hogy megint az az ok, hogy régebbi Office-t használsz esetleg(Pl 2000-esben nem biztos, hogy benne van alapból, de ennek sem néztem utána, csak feltételezés)
2. Ez a kérdés jogos. Ha a Te értelmezésed a helyes, akkor a korábban adott megoldáson nem jó, hisz én csak azzal foglalkoztam, hogy egy azon ügyfélen belül melyik a legnagyobb, azzal már nem, hogy a hiteltermék oszlopon belül, az azonosakat is összeadjam.

Majd ma valamikor ma megnézem, hátha a Te értelmezésed szerint is(ami egyébként teljesen logikus) megoldható segédoszlop nélkül(talán)3. Még annyit a korábbi megoldáshoz, hogy azt elfelejtettem odaírni(elég késő volt már és egy kissé el voltam pittyedve
), hogy az Ügyfél és Összeg mező szerint emelkedő sorrendben kell rendezni a táblázatot, egyébként utólag módosítva pl az összegeket, borul a bili... 
Fire.
-
-
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.
-
-
-
válasz
ulrik19
#6519
üzenetére
Hali!
Természetes, mert logikus...
Azért mert ugyebár az természetes, hogy meg lehet jeleníteni nullát egy cellában. Az is logikus(noha nagy általánosságban értelme nem sok, de azért szükséges) hogy lehet vele matematikai műveleteket végezni(kivéve osztás). Ha meg a nullát meg lehet jeleníteni, azzal műveleteket végezni, akkor az üres cellát miért ne lehetne (virtuálisan, nem fizikálisan) nulla értéknek venni műveletek során? 
(természetesen szigorúan SZÁM formátumról beszélünk)Képzeld el, ha be kellene írnod a nullát adott cellába, hogy tudjál vele műveletet végezni...Akkor inkább a korábbi megoldás nem?

Fire.
-
válasz
ulrik19
#6517
üzenetére
Hali!
CSE-nél természetesen 0-nak veszi, tehát ürescella*10 az nulla lesz.
Ezt írtad korábban: "Vagyis < , > esetén nem számolja bele, de <> és = esetén igen."
Na ez az ami nem lehet(függetlenül az excel változattól), pontosabban az egyenlőség esetén nem szabad, hogy a DARABTELI függvény beleszámolja az üres cellákat is. <> esetén természetesen beleszámolja az üreseket is, de józan paraszti ésszel is belátható, hogy azt is kell tennie.A SÚGÓ az jó dolog, de nem helyettesíti a tanulást, meg a sok éves tapasztalatot, szóval azt tudni illik, amit feljebb leírtam(itt most nem rád gondolok, csak ha mások is olvassák a topic-ot), mert csúnyán el lehet rontani egy (amúgy összetett és jól megírt) munkafüzetet egy ilyen "apró" tudásbéli hiányosság miatt.(darabteli <> esetén az üreseket is beleszámolja)
Fire.
-
-
válasz
ulrik19
#6512
üzenetére
Hali!
"Ugyanis a Te általad írt példánál maradva, igenis csökkenti a darabszámot egy a kritériumnak megfelelő cella törlése."
Figyelmesebben olvasd el újra amit írtam, mivel ugyanerről beszélek...![;]](//cdn.rios.hu/dl/s/v1.gif)
"Annyiban érdekes a dolog, hogy az üres cella egyik számmal sem egyenlő, de nem nagyobb/kisebb egyetlen számnál sem. Vagyis < , > esetén nem számolja bele, de <> és = esetén igen."
Ez nálam nem így működik, nem is működhet másképpen.
Szerintem az a gond nálad, hogy NEM SZÁM formátumúak a cellák, hanem amikor beírsz/törölsz cellákat, akkor ÁLTALÁNOS vagy SZÖVEG lesz a formátum, akkor van olyan jelenség, amit leírsz. Formázd a tartományt SZÁMMÁ, és jó lesz...
(A darabteli-nek ui. SZÁM érték KELL, nem pedig SZÖVEG)Fire.
-
válasz
ulrik19
#6508
üzenetére
Hali!
Nincs azzal gond, valóban nem foglalkozik az üres cellákkal, csak ez úgy értendő, hogy a kritériumnak megfelelő cellák esetén.
Tehát pl ha a kritériumban az van hogy pl 5-nél nagyobbak, akkor hiába törölsz olyan cellát, amiben 5 vagy annál kisebb szám szerepel, nem fog megváltozni a darabteli által visszaadott érték. 
Fire.
-
-
-
Hali!
Ja, így már más. Ha egy munkalapon belül vannak az adatok(külön oszlopokban pl), akkor lehet folytonos pl vonal-diagramot készíteni több tartomány megadásával egy azon adatsoron belül, ezt biztos és gondolom ez neked sem okoz problémát. De hogy más-más munkalapon vannak az adatok, amik ugyanahhoz az adatsorhoz tartoznak, az már gázosabb.
Most már nincs kedvem kipróbálni, de lehet, hogy a tartomány elnevezése megoldás lehet, bár úgy rémlik, hogy azt még annyira sem fogadja el.
Fire.
-
Hali!
Igen, lehet: Ebben a példában a Munka2-3-4 lapokról származnak az adatok.
Persze ennek feltétele, hogy olyan diagramtípust válassz, ami meg is tudja jeleníteni a több adatsort.![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
-
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.
-
-
válasz
mr.nagy
#6418
üzenetére
Hali!
Tehát akkor összefoglalnám. Minden gépen ugyanolyan verziójú és szervízpakkal elátott XP fut, valamint ugyanolyan verziójú és szervízpakkal ellátott Office 2003, ennek ellenére az asztali gépeken működik a makród kifogástalanul, míg a noti(ko)n/laptop(oko)n nem?

Nincs esetleg Visual Basic telepítve külön? (vagy az asztalikra vagy a notikra)
Fire.
-
-
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.
![;]](//cdn.rios.hu/dl/s/v1.gif)
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.
-
-
Hali!
Lemaradt ez endif, akkor így
If adat = "SPEARS" Then
z = z + 1
End IfAmúgy meg én is azt kérdeztem volna, amit ulrik19, szóval mi változott, vagy esetleg maga az office csomag változott?
A Type Mismatch típushibára utal, tehát az And-es sorban keresném a hibát, de mivel azt írtad, hogy nem abban a sorban írja ki, ezért nem tudok mást elképzelni, azaz mégis.
Debuggold a kódot lépésről-lépésre, aztán ha mégis az And-es soron fog leakadni, akkor tuti, hogy a megadott cellákból nem megfelelő adatokat hasonlítasz össze...Fire.
-
-
-
válasz
Delila_1
#6369
üzenetére
Hali!
Nem tudom az összpontszámot, egyik PH-s fórumtárs keresett még valamikor tavaly privátba, hogy ebben a feladatban segítsek neki, én is így, ezt az 1 feladatot kaptam.
Csak mivel elég érdekesnek tűnt, gondoltam megosztom veletek, remélhetőleg még lesznek érdeklődök, akik egy "kis" agytorna gyanánt nekiugranak.
Én szeretem az ilyen feladatokat, és örültem volna, ha annak idején nekünk is ehhez hasonló "nehézségű" feladatokat hoztak volna példaként, nem pedig a szokásosakat.
(Meg akkor nem kellett volna megtanulni magamtól)Más:
Korábban említést tettél rá, hogy 2003-ban csak 3 szabályt lehet megadni. Először nem is figyeltem fel rá, de most hirtelen végig gondolva ez nem igazán értem, nálam ugyanis 5 szabály van.
Na most ennek az lehet az oka, hogy 2007-ben készült tábla, de 2003-as formátumba mentettem?
Hogyhogy nem reklamál a 2003-as formátum az 5 szabály miatt(és működik persze)?
Fire.
-
válasz
Delila_1
#6367
üzenetére
Hali!
Jó elbeszélünk egymás mellett, sebaj, dagad a szürkeállomány legalább...

Szóval akkor ezt nem valósítja meg, az utoljára belinkelt táblád.
"Példaként: ha A1-be a „bük” karaktersorozatot írjuk, akkor B1-ben jelenjen meg Bük neve, míg Bükkösdhöz csak legalább négy karakter beírásával juthatunk („bükk”)."
Ez már nem félreérthető asszem...

Fire.
-
válasz
Delila_1
#6365
üzenetére
Hali!
Ezt csak egyféleképpen lehet értelmezni
ha nincs a megadott karaktersorozattal kezdődő község: piros cellában világossárga betűk;
ha több ilyen is van: sárga alapon piros betűk;
ha pontosan egy ilyen község van: zöld betűk;
üres cella esetén maradjon az eredeti cellaszín!Az üres A1 kivételével minden esetben kerül valamilyen szöveg B1-be.
De persze tudom mire gondolsz, és ha úgy oldottad meg, akkor úgy is jó.
Fire.
-
válasz
Delila_1
#6363
üzenetére
Hali!
Ez sajnos teljesen rossz értelmezés, ugyanis B1 csak és kizárólag akkor lehet üres, ha A1 is üres. Minden más esetben B1-be kell kerülni egy helység névnek(vagy ha nincs semmilyen egyezés a listában, akkor akár lehet nincs találat felirat is) a megfelelő cellaháttér- és betűszínekkel.

Fire.
-
-
-
-
-
-
-
válasz
Delila_1
#6339
üzenetére
Hali!
Sárga alapon piros betükkel A1-ben bü és B1-ben Bük, és a listában a Bük sora legyen kijelölve zöld alapon. És ez nem szerintem, hanem a feladat leírása szerint.
![;]](//cdn.rios.hu/dl/s/v1.gif)
Amúgy örülök, hogy nekiugrottatok, bevallom sejtettem, hogy ha valaki neki áll az biztosan Te meg ulrik19.

Fire.
-
Hali!
Na látom dolgoznak a szakik rajta
, meg várom ki-milyen módszerrel oldja meg. Eddig sajnos még egyik sem jó... 
Fire.
-
válasz
Fire/SOUL/CD
#6312
üzenetére
Vagy ha ez sem megy esetleg valakinél, akkor INNEN
Fire.
-
válasz
Fire/SOUL/CD
#6311
üzenetére
Hali!
OOPS! Elrontottam a linket, szóval akit érdekel, az INNEN töltse le. Sorry!Fire.
-
Hali!
Egy fórumtárs, még tavaly kért segítséget EHHEZ a feladathoz.
Csak azért raktam be, hogy szakavatott szakik(szakihölgyek
) egy kicsit megtornásztassák a szürkeállományt. 
Segéd adatok/oszlop(ok) stb nélküli megoldásért plusz pont jár.![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
-
-
-
-
-
-
válasz
Surfym@n
#6283
üzenetére
Hali!
Akkor estleg így
1. Egész munkalap kijelöl/jobb egér/cellaformázás/védelem fül Zárolt elől pipa kiszed
2. Elrejteni kívánt oszlop kijelöljobb egér/cellaformázás/védelem fül Zárolt elé pipa betesz
3. Oszlop elrejt
4. Korrktúra/Változások csoprt/lapvédelem, a megjelenő ablakban a zárolt cellák kijelölése elől pipa kiszedPersze ez nem biztos, hogy számodra megfelelő megoldás, de hátha.

Fire.
-
válasz
Delila_1
#6279
üzenetére
Hali!
Excel 2007/2010-nél az első megoldás is jó. Épp azért írtam le a tartomány "elnevezős" módszert, mert arra gondoltam, hogy hátha a 2003-ban csak úgy szuperál. Kösz az infót!
Fire.
UI: Az meg hogy mi van a súgóban, bizonyos fokig lényegtelen, pontosabban nem feltétlenül csak és kizárólag az a megoldás/lehetőség.
Excel 2007 Súgója a legördülő lista létrehozásával kapcsolatban![;]](//cdn.rios.hu/dl/s/v1.gif)
(Szóval itt már csak javasolja, hogy célszerűbb elnevezni a tartományt, de nem kötelező) -
válasz
Robb202
#6277
üzenetére
Hali!
Nem csak Te vagy meglepődve, mert hogy annak működnie kellene

[Munka1-en a legördülő, Munka2 A1 : A10 az adatok]
A cella/adat-tartománynak lehet nevet is adni(kijelölöd pl A1 : A10 cellákat és elnevezed pl UBUL-nak).
Az érvényesítésénél nem =Munka2!$A$1 : $A$10-ként hivatkozol rá, hanem =UBUL-ként.
Természetesen ez sem valószínű, hogy megoldja a problémád, de egy próbát megér.Fire.
-
válasz
VANESSZA1
#6150
üzenetére
Hali!
Egy "hétköznapi" munkahely esetén az ember dolgozik pl 8-16-ig + 30perc az ebédidőre például. Ez természetes, nincs benne semmi érdekes, ledolgozza az ebédidőt.
Azonban ahol 3 műszakban, szalag/folyamatos munka folyik, ott kötelező biztosítani óránkénti pihenőt, valamint étkezésre bizonyos időt(amit te is írtál pl összesen 45 percet)
Még ezzel sincs gond, viszont a 3 műszakos/folyamatos/szalag/non-stop munka esetén nem lehet ledolgoztatni pluszban a pihenő+ebéd+egyéb időket.
(legalábbis legjobb tudomásom szerint) Ennek kellene utánajárni.
Arról nem is beszélve, hogy akkor meg torlódás van, amikor megérkezik a következő műszak "legénysége"...
Pár észrevétel a műszakkal kapcsolatban1. Normális esetben ezek kötöttek, azaz ahogy a legelején írtad is 6-14; 14-22; 22-6
Ez nekem furcsa, hogy valaki 8-16-ig is dolgozhat(nem elképzelhetetlen, csak furcsa)
Célszerű lenne(ha nincs egyéb akadálya) ezt a műszakbeosztást követni2. Az is megszokott, hogy ha valaki 6-11:30-ig dolgozik, akkor azt 5 órának számolják, nem pedig 5:30-nak. Vagy dolgozzon 5-órát vagy 6-ot
3. Az sem megszokott, hogy valaki "másfél" műszakot dolgozik(szintén csak nem megszokott, nem elképzelhetetlen) mert vagy 1-et, vagy 2 vagy 3 műszakot húz le(nyilván ez utóbbi pl a katonáknál, tűzoltóknl stb fordulhat elő pl ügyelet esetén)
4. Minden egész órára jár a pihenőidő de(és itt lehet hogy tévedek) az ebédszünet részarányos része nem. Ez attól függ, hogy az ebédre kijelölt időben a melós még dolgozik avagy sem. pl 6-11 melózott a melós, akkor nyilván nincs ebédszünete, hisz az pl 12:00-12:30-ig tart
Szóval ésszerűsíteni kellene a cégnél a termelést és a műszakokat
Fire.
-
válasz
Delila_1
#6146
üzenetére
Hali!
Hát lehet, hogy Uri Geller a rokonod és gondolatolvasással is rendelkezel, mert szó szerint ezek a gondolatok merültek fel bennem is, ahogy folyamatosan követtem a topic eseményeit. És IGEN, én sem csináltam meg olyan számlázó/elszámoló/raktár stb progit, ami nem az adott/hatályos törvényekre/szabályzásra épül.
Hihetetlen, hogy ennyire egy a gondolatunk meg a tapasztalatunk.

Fire.
-
-
-
válasz
ulrik19
#6070
üzenetére
Hali!
1. Ha nálad fut 2000 alatt, akkor mindenhol kell futni 2000 alatt. Ha nem így van, akkor ahol nem fut ott valami gond van. Az Office és/vagy az OS van "megrogyva"
2. A fájl szinten hozzáférés addig jó, amíg nem kell foglalkozni hozzáférési jogokkal, például ha egy szerveren van a fájl. Ha ott korlátozva van hozzáférés és/vagy a fájl jogok nem megfelelően vannak beállítva, akkor azon a fájlon nem kell fájlműveleteket elvégezni.
(persze szerver alatt nem a húgom gépét értem, ami szomszéd szobában van
)3. Természetesen a kódot kifogástalan, nehogy azt gondold, hogy a kódod kritizálom, dehogy. Ezek csak észrevételek/tények, amit Pulsar-nak kell végig gondolnia/gyakorlatban megvalósítania, alkalmazni
Fire.
UI: Nem teljesen poénnak szántam a format c-t.
Annó írtam egy összetettebb macrót egy emberkének, nálam ment, nála nem, ua. az office volt fent nála is. Mindenféle hibákat dobált, ilyen csomag hiányzik, nem megnyitható, dll, parse error stb stb. 1 hétig napi 4-5x váltottunk levelet és szüntetgettem meg neki a hibákat, de mindig jött egy újabb. Na ezt meguntam, mondtam neki, hogy most 2 lehetősége van, az egyik hogy újratelepíti az OS-t meg az office-t, vagy a másik, hogy elfelejt.(nem vagyok én System Repair
)
2-3 óra múlva hív, hogy megtörtént, és az 1 héttel korábban küldött kód kifogástalanul működik...1 hetet szívtam, mikor már az elején megmondtam hogy format c, 1 hét alatt meg ki tudja hányszor újra lehetett volna telepíteni az OS-t
-
válasz
ulrik19
#6067
üzenetére
Hali!
De ugye nem egy gépre van telepítve a 2000 és a 2003 vagy 2007 is?
pl Nálam: [link]
Ilyen esetben persze hogy "fut a 2000-en" is, merthogy nem azon fut...

Ha meg csak a 2000 van fent és mégis fut nálad, Pulsar-nál meg nem, akkor passz.
(Ilyenkor szoktam javasolni a format c parancsot
)Fire.
-
Hali!
De ez amit írsz, egy teljesen "normális" dolog adott esetben, mert a 2000-hez képest a használt VBA verzió is megváltozott a 2003/2007-ben. Ez meg annyit jelent, hogy bizonyos finkciók, procedurák, tulajdonságok változhattak, valamint szintaktikailag is megváltozott a VBA kód felépítése. Nem véletlen, hogy normálisabb tutorialokban, oda van írva, hogy old style code, azaz 97/2000/2002-es verziójú VBA kódnál használható.
A 2010 még kilóg a csapatból, nyilván közelebb áll a 2003/2007-es office-hoz, mint a 2000-hez. Azonban ezzel is vigyázni kell, mert ha az ember nem néz utána a Microsoft-nál pl, hogy mik változtak benne, amik legalábbis a VBA és az ehhez kötődő makróprogramozást érinti, akkor még az sem kizárt, hogy lehet olyan kódot írni, ami már 2003/2007 alatt sem fog működni. Persze ez utóbbi részemről csak feltételezés, mert még nem jártam utána a témának és igazából addig nem is fogok, amíg a végleges 2010-es office meg nem jelenik.(programozási célra(VBA) kerülendő egyenlőre, mivel béta)
A lényeg, hogy a 2003/2007/2010 ebből a szempontból "egy húron pendülnek", azaz nem feltétlenül fog futni az a makró kód 2000-an, amit "ezekkel" készítesz. Persze a 2000-es formátumok nagy része használható bennük, azaz úgy kell makrót írni a 2007 pl, mintha az egy 2000-es lenne.
Fire.
-
-
válasz
Delila_1
#6061
üzenetére
Hali!
"Nem egyformán értelmezzük a feladatot."
Hát ez így ebben a formában egy szer igaz.
Nekem meg ez az amiért másképp értelmeztem(és gyanítom, hogy ulrik19 is)
"Azt hogyan tudom megcsinálni, hogy ne csak egy értéket tudjak kiválasztani hanem akár több értéket egyszerre."Ezt csak vezérlőelemekkel lehet megoldani, ha meg még a több kijelölt adattal dolgozni is kell, akkor még plusz makró.
Majd remélhetőleg Bicé is még benéz Húsvét előtt, aztán megmondja a frankót.

Fire.
-
Hali!
Mint előbb ulrik19 említette, más megoldást kell választanod.
Nem írtad, mennyire vagy jártas VBA-ban, úgy hogy nem biztos hogy ez a kód segít.
Ez Listbox-al dolgozik, ami a Munka1 lapon van ListBox1 néven, az adatok amikkel kitölti(üres cellákat kihagyja), az meg a Munka2, A oszlopában (bármelyikben lehet, csak módosítani kell egy elég egyértelmű sorban) A kód a munkafüzet megnyitásakor fut le, de a későbbiekben szükséges lesz belőle szubrutint készítened, hisz több esetben is szükség lesz, hogy lefusson.(Például, amikor módosítasz az adatokon)Private Sub Workbook_Open()
Dim MySrcColumn As String
Dim MySrcSheet As String, MyDestSheet As String
Dim SourceRange As Range
Dim LB1 As Object
Application.ScreenUpdating = False
MySrcSheet = "Munka2"
MySrcColumn = "A"
MyDestSheet = "Munka1"
Set LB1 = Sheets(MyDestSheet).ListBox1
Sheets(MySrcSheet).Activate
MyUsedRange = Range(MySrcColumn & "65536").End(xlUp).Row
Set SourceRange = Sheets(MySrcSheet).Range(MySrcColumn & "1:" & MySrcColumn & MyUsedRange)
LB1.Clear
LB1.MultiSelect = fmMultiSelectExtended
For i = 0 To SourceRange.Rows.Count - 1
MyItem = Cells(SourceRange.Row + i, SourceRange.Column)
If Not IsEmpty(MyItem) Then
LB1.AddItem MyItem
End If
Next i
Sheets(MyDestSheet).Activate
Application.ScreenUpdating = True
End SubFire.
-
-
válasz
animatrix11
#6043
üzenetére
Hali!
Ha profin szeretnéd megoldani, akkor ez kell hozzá:
Windows SharePoint Services 3.0
Itt pedig olvashatsz a mikéntről, feltételekről [link]Ahogy itt egyik fórumtárs írta, a közös használat esetedben nem igazán a legjobb megoldás.
Fire.
-
Hali!
Hát akkor fogadj el egy tanácsot. Mivel a 2010 BETA változat, ezért ha lehet kerüld a használatát, ha ilyen jellegű munkára(makró programozásra) adod a fejed, mert ki tudja mi változott benne és abból mi bugos vagy sem. Én a helyedben sürgősen visszatérnék 2007-re, aztán majd ha kint a végleges 2010, csak akkor használnám "komolyabb" célokra, mert akkor már pontosan lehet tudni, hogy mik változtak, milyen újítások/javítások történtek végérvényesen.

Fire.
UI: persze a jelen hibát nem feltétlenül ez okozza, csak ha lehet beta-t ne használjunk, mert sok kellemetlenséget okozhat.
-
válasz
Fire/SOUL/CD
#6033
üzenetére
Hali!
A Te kódod működik rendesen, most próbáltam 2007 és 2010 Excvel alatt is. Pulsar hibáját lehet hogy az okozza, hogy régebbi excel-en próbálja használni, ahhoz meg kell két DLL, mert csak akkor használható a BuiltinDocumentProperties.
Fire.
-
-
Hali!
Azt jelenti, hogy nincs olyan tulajdonság vagy ha van is akkor nincs értéke pl NULL, NIL
Ami meg a kódot illeti, Te Creation date -et kérsz le, ami hivatalosan Creation Date Esetleg próbálj odafigyelni a kis-nagy betűkre, bár bevallom nem tudom, hogy ez VBA-ban számít-e.Fire.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Microsoft és egyéb dobozos retro szoftverek
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4414
- GYÖNYÖRŰ iPhone XR 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4270, 100% Akkumulátor
- MacBook Air 13" M2 16gb ram/256gb ssd 27% Áfás
- AKCIÓ! szinte RAM áron adom! MSI Vector GP78 HX13V i7-13700HX RTX4080 32GB DDR5 1TB QHD240 1 év gari
- Targus DOCK423A - USB-C Dual HDMI 4K HUB - 2 x HDMI (120Hz)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

![;]](http://cdn.rios.hu/dl/s/v1.gif)


Ez ilyen programozástechnikai elv(hogy ilyen rondán fogalmazzak) és nem csak Excel hanem más programnyelvek területén is teljesen alap eljárás)





, kicsit olvass vissza, módosítottam az egyik HSZ-em.
Fferi50