-
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
-
csongi
veterán
Sziasztok!MAkroba kellene egy kis segítség vagy valami oldal ahól bővebben utánna lehet olvasni. A következőt szeretném. Egy cellábba generáljon egy sorszámot ami a következőből áll. Évszám utolsó két számjegye, az adott hónap és az utolsó szám pedig a soronkövetkező sorszám.Pl: 0807001.
Meneteni mendig egy helyre mentesen amit előre megadok, és mindent megnyitott filét oda mentsen. Úgy hogy a file neve egy adott cellába beírt szöveg legyen. -
Chiller
őstag
válasz
Delila_1
#3689
üzenetére
Hálásan köszönöm, ez nagyon jó!
Egyetlen pici gondom van, hogy elfelejtettem mondani, nem csak egy számjegyűek a számok, hanem vegyesen 1 és 2 számjegyűek, és így nem jó az '&' jel... Mivel pld
1 13 3 45 4 és 11 33 4 5 4 is 1133454-et ad ki, holott ugye más az alapérték...
Tudom, csak a gond van velem
-
Delila_1
veterán
Jobban végiggondolva, ha akár szövegdobozban is jó lenne a 2. táblázatod, akkor teheted megjegyzésbe is. Egy PrintSceen-nel kimented, valamilyen rajzoló programmal (jó hozzá a Paint is) méretre vágod, elmented jpg-be.
Az 1. táblázat alatti cellára jobb klikk, Megjegyzés beszúrása. Ezen újabb jobb katt, Megjegyzés formázása. A Színek és vonalak fülön a Szín legördülőből a Kitöltési effektusok, ott a kép fülön Képválasztás.
-
Chiller
őstag
Jaj de jó, hogy találtam ezt a topikot. Naagy bajban vagyok. Ugyan nem vagyok teljesen nyúbi office téren, de a következő problémát nem sikerült eddig megoldanom:
Adva van egy 5oszlopos x 842 soros tábla számokkal. Azt szeretném, hogy minden egyes sor tartalmát (nem összegét!) megkeresse a táblában, és kiírja, hogy hányszor fordul elő.
Azaz valami ilyesmit:
2 3 7 8 9 (eredmény:3)
3 4 5 8 9 (eredmény:1)
2 3 7 8 9 (eredmény:3)
1 4 5 7 9 (eredmény:2)
2 3 7 8 9 (eredmény:3)
1 4 5 7 9 (eredmény:2)
4 5 6 7 8 (eredmény:1)
És ha még lehet kérni, akkor, hogy a táblában lévő ismétlődő számokat megszámolja.
Azaz (a fenti táblát figyelembe véve):
1. számból van 2
2. számból van 3
3. számból van 4
4. számból van 4
5. számból van 4
stb. DARABTELI-vel próbáltam ezt az utóbbit, de idegesítő mindig beírkálni a mintaszámot, a"automatikus kitöltés - klikk a keresztre és húzom" trükk nem működik
-
lordring
aktív tag
Sziasztok! Van egy oszlopom, amelyben 2 tizedes pontosságú számok vannak, tizedesvesszővel elválasztva. Ki kell cserélnem a vesszőket pontra, mivel az ügyviteli rendszerünk betöltő progija így fogadja el számnak. Viszont ha kicserélem, akkor a számok egy részét azonnal átírja dátumnak. Próbáltam beállítani a cellatípust Általános v. Szöveg típusúra, de nem segített.
-
Delila_1
veterán
A Vezérlők eszköztáron van egy Naptár vezérlőelem (angolban Calendar) nevezetű, de ezen csak 1 napot választhatsz ki, és a csatolt cellába (linked cell) a kiválasztott dátumot teszi.
Azt tudnám javasolni, hogy egy tartományba (mondjuk H1:H10) írd be a kiválasztott dátumokat, majd valahova
=DARAB2(H1:H10)
Ez megadja a kiválasztott dátumok darabszámát. -
Jazz
veterán
Üdv!
Excelben hogy lehet megcsinálni hogy:
- Egy munkalapon van egymás mellett két különböző táblázatom (amiknek az oszlopszélességei más-más).
1-es táblázat pl.: A-tól F-ig
2-es táblázat: H-tól N-igA 2-es táblázatot szeretném az 1-es alá berendezni úgy hogy a 2-es táblázat oszlopai ne idomuljanak az A-F-ig oszlopok méreteihez.
Szövegdobozba nem enged tálbázatot berakni így az sem működik.(ez a konkrét helyzet érdekelne mert már sokszor előjött máshogyan....szóval az a mo. hogy word-be berakom...nem kell)
Van erre valamilyen megoldás Excelben?Aki tud segíteni, help. thx!
-
cyky
csendes tag
Sziasztok!
Segítséget szeretnék kérni!
Szóval szeretnék egy cellába egy olyan havi naptárt beilleszteni, melyben kijelölök, mondjuk 6 napot és magában a cellában csak ez a 6-os szám jelenik meg, mert a későbbiekben ezzel akarok majd számolni, de ha a cella fölé viszem az egeret, vagy belekattintok, lehessen látni, mely napok voltak kijelölve.
Elöre is köszi mindenkinek! - Cyky -
Okoska2
aktív tag
válasz
Delila_1
#3671
üzenetére
Probálkozok egy ideje de nem jövök rá hogy és hova kell berakni.
=SZUM(B8)+(D8-200)*10+(E8*1000)+K8 Itt ha a D8 (a D8-at is már az Excel számolja) egyenlő vagy kissebb mint 200 akkor hibát kapok. Mivel ritkán kapok 200-nál kissebb értéket eddig nem zavart. De jó lenne ezt is berakni nehogy egyszer ne vegyem észre és rossz eredméyt fogadjak el.
Szoval ha D8 kisseb vagy egyenlő 200-al akkor automatikusan irja át nullára.
Ebben segítsetek légyszi.Előre is köszi!
-
Delila_1
veterán
válasz
Ősember
#3667
üzenetére
Ha semmiképp nem sikerül rábeszélned a szám formátumra, fogj egy üres füzetet, jelöld ki minden lapját és minden celláját, állítsd a formátumot kedved szerintire, és a Mentés másként menüpontban sablonként (Munkafüzet.xlt néven) mentsd el. Az Excel megnyitásakor ez a formátum jön elő innen kezdve.
A fájlt önállóan a C:\Document and Settings\Felhasználó\Application Data\Microsoft\Excel\XLSTART -ba teszi, ahol a personal.xls is van – ha van.
A mentés előtt beállíthatsz egyebeket is, én pl. a függőlegesen középre igazítást választottam. Kedved szerint sortörés engedélyezését, vagy bármi mást is választhatsz, csak ne írj semmit a füzetbe.
-
Ősember
őstag
fel tud bosszantani ez a szar excel fölöslegesen
3 cellám van, marha egyszerü, elsöben egy név szerepel másodikban egy eredmény (egyszerü szorzás, semmi trükk) harmadikban és negyedikben pedig két szám amit összeszorozva megkapjuk a második oszlopban emlitett eredményt. de ez a hülye excel mindig átállitja a szorzo tényezöit dátumra még akkor is, hacsak azt irom be, hogy 26.... tiszta kretén az egész, ki a halál tervezi ezt a szart?
a legbosszantobb az, hogy ez nem minden sornál játsza el
konkrét példa:
második oszlopban: =C9*D9
haramdik szlopban: 1
negyedik szlopban: 10
erre ez z eredmény: második: 10.jan, harmadik: 1, negyedik: ####
-
-
boecce
tag
Kedves Hozzáértők!!
Mit tegyek a makrómmal, ha az a dolga hogy a tőle balra lévő adatokkal kell számolnia, de adott esetben ezekben nincs adat, mégis számol vele, és hibás az eredmény. (konkrétan: két időadat közt kell kiszámítani a különbséget, és utána ezt feldolgozni attól függően, hogy ez hétvégei nap avagy közbeni nap-e) -
Delila_1
veterán
válasz
Ősember
#3657
üzenetére
Akkor ezt vidd be az előző helyett:
Sub KerekOtven()
usor = Range("A65536").End(xlUp).Row
For sor = 1 To usor
If Cells(sor, 1) > "" Then
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
End If
Next
End SubHogy a biztonsági szint magas voltára hivatkozott mindkét esetben, csak a szegényes szókincsére vall - eszerint. Hiányosan írták le a lehetséges hibákat.
-
Ősember
őstag
válasz
Delila_1
#3643
üzenetére
azt még szeretném megkérdezni, hogy meg lehet-e azt oldani, ha "A" oszlopban van 1 sor kihagyás, de utána folytatodik, akkor is kiszámolja az összes számot? mert jelen helyzetben az van, hogy ha van egy sorkihagyás, akkor csak a sorkihagyásig számolja ki az eredményeket. válaszod elöre is köszönöm
-
Delila_1
veterán
válasz
cortez25
#3648
üzenetére
Nem egészen egyszerű, de nem is túl nehéz. Felírod valahova (ahol nincs útban) a 30 nevet, elosztod 5 felé, és az egyes csoportoknak nevet adsz, pl. név_1, név_2, stb. Nevet úgy tudsz adni, hogy kijelölöd a csoportot, és a szerkesztőléc bal oldalán, ahol most a felső cellád helyét mutatja (pl. Z1, ha oda írtad a neveket), begépeleg a nevet, Enter.
Egy külön cellába beviszel egy érvényesítést, ami 1-től 5-ig ad vissza számokat. Ez a cella nálam a C1.
Kijelölöd a területet, ahova majd a neveket be akarod vinni.
Az érvényesítésnél a forráshoz ezt írod:
=HA($C$1=1;név_1;HA($C$1=2;név_2;HA($C$1=3;név_3;HA($C$1=4;név_4;név_5))))Felvitelnél előbb a C1-ben kiválasztod, hogy az 5 csoport közül melyikből akarsz választani, ezután a bevitel helyén az érvényesítés csak azt a 6 nevet ajánlja fel.
-
Ősember
őstag
válasz
Delila_1
#3647
üzenetére
hello
megy rendesen
csak egy gondom van... amikor éppen megcsinálom a makrot akkor teljesen jo minden, müködik pikk pakk akárhányszor csak akarom, de amint kilépek az excelböl és ujra használni szeretném nem inditja el a makrot arra hivatkozva, hogy tul magas a biztonsági szint. ha leveszem a biztonsági szintet egészen alacsonyra, akkor is azt irja, hogy a biztonsági szint magas.... valamit ötlet? 
-
cortez25
senior tag
válasz
Delila_1
#3644
üzenetére
Lehet,hogy bonyolult voltam
Szóval egyszerű a kérdés, van egy ugyanazon táblában egy listám, mondjuk nevekkel 30 db név. Ezeket a neveket 5 számhoz akarom hozzárendelni, úgy,hogy a végére elfogyjanak, vagy ne lehessen ismételni őket, viszont az 5 számhoz különbözö mennyiségű nevet is lehessen rendelni.
Na addig eljutottam,hogy a listát a számokhoz érvénysítettem, de attól a lista mindíg felajánlja ugyanazokat neveket és akár egy számhoz többször is ugyanazt a nevet gördítem le. Na ezt nem akarom.
-
Delila_1
veterán
válasz
Ősember
#3646
üzenetére
Mindkét kérdésedre igen a válasz. Az 1-et írd át annyira, ahányadik oszlopban vannak az adataid.
A kódot a VBE-be (Visual Basic Editor) másold be. Behívása vagy Eszközök/Makró/Visual Basic menüből, vagy Alt+F11-el történik. A bal oldali könyvtárban állj rá a füzetedre, majd a menüből az Insert/Module hatására jobb oldalon kapsz egy üres lapot, oda másold.
Indítás az Excelben: Eszközök/Makró/Makrók (vagy ezek helyett Alt+F8), ott a makró címére duplán kattintasz. -
Ősember
őstag
válasz
Delila_1
#3643
üzenetére
nagyon keveset foglalkoztam excelel, igy megkérdezném, hogy hova irjam be ezt a kodot?
ha az alapértékek nem A1-ben lesznek majd, akkor ezt a sort kell modositanom, igaz?sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
amennyit kivettem belöle akármilyen hosszu ez a lista ez végig megcsinálja majd a müveleteket, stimmt?
-
Delila_1
veterán
válasz
Ősember
#3642
üzenetére
G1-be írom a szorzót (123), H1-be a hozzáadandó értéket (5). A számok az A oszlopban, A1-től kezdődően vannak, a kerekített eredményt a B oszlopban kapom meg. A C-be beíratom a (A+H1)*G1 értéket, hogy ellenőrizni lehessen a kerekítést. Ha erre az utóbbira nincs szükség, töröld a Cells(sor,3)=sz sort.
Sub KerekOtven()
sor = 1
Do While Cells(sor, 1) <> ""
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
sor = sor + 1
Loop
End Sub -
Ősember
őstag
hello
adott egy oszlop tele számokkal. szeretném, ha az oszlopban szereplö összes számot megszorozná egy adott számmal, mondjuk 123-al és az összes kapott eredményt kerekitse mondjuk 50-re. tehát ha az oszlop egyik száma eddig 23 volt, akkor most 23*123=2829~2850 lesz. 27-nél pedi 27*123=3321~3300.
aki tudja mit kell tenni az ne fogja vissza! köszönöm elöre is -
Delila_1
veterán
Úgy vettem észre, hogy csak a billentyűzetről bevitt adatot veszi target értéknek, amit makróval íratsz be egy cellába, azt nem. Ezért, ha range("i" & target.column).select kifejezéssel hivatkozom egy cellára, a target.row értéke nem változik. Erről nem láttam sehol leírást.
Azt mondod, "ha az & tényleg műx". Próbáld ki! -
-
#3635
Delila_1
veterán
gazsiazasz
#3609
Delila_1
veterán
válasz
gazsiazasz
#3609
üzenetére
A makrót úgy írtam, hogy a 21. sor színeit, és a 22. sorban lévő IGAZ és HAMIS értékeket figyelje, azok alapján módosítsa a 41. sor valamelyik adatát. A linkelt képből nem derül ki világosan, hogy a 41-en kívül kell-e még máshol is változtatni.
Előbb képletekkel szerettem volna megoldani, de nem sikerült, makróval viszont nem túl bonyolult.Sub Méretek()
If Cells(41, 12) = 0 Then
f = 0
For oszlop = 3 To 11
If Cells(22, oszlop) Then
If Cells(21, oszlop).Font.ColorIndex <> 3 Then
Cells(41, oszlop) = Cells(41, oszlop) - 1
f = 1
Else
Cells(41, oszlop) = Cells(41, oszlop) + 1
f = 1
End If
End If
If f = 1 Then Exit For
Next
End If
If Cells(41, 12) = 1 Then
For oszlop = 2 To 11
If Cells(22, oszlop) And f = 0 Then
If Cells(21, oszlop).Font.ColorIndex <> 3 Then
Cells(41, oszlop) = Cells(41, oszlop) + 1
f = 1
Else
Cells(41, oszlop) = Cells(41, oszlop) - 1
f = 1
End If
End If
If f = 1 Then Exit For
Next
End If
End Sub -
#3634
Delila_1
veterán
FehérHolló
#3633
Delila_1
veterán
válasz
FehérHolló
#3633
üzenetére
Kipróbáltam. Ha meghagyod az eredeti Range("I" & Target.Columns).Select-et a
Cells(Target.Row, 9).Select helyett, akkor hiba nélkül működik.Akkor most véletlenül kiderült, hogy a formai különbségnek látszó eltérés a működésben is mást eredményt ad.
Jó szórakozást!
-
#3633
FehérHolló
veterán
Delila_1
#3632
FehérHolló
veterán
-
Delila_1
veterán
FehérHolló
Félrevezettelek az előbb (ha hagytad magad). A targetes így módosul:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 1 And Target.Column < 8) Then
Cells(Target.Row, 8) = "." 'Itt írtam hülyeséget az előbb
Cells(Target.Row,9).Select
Selection.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
Cells(Target.Row, Target.Column).Select 'Ez visszaáll a bevitt adat cellájára
End If
End Sub -
#3631
Delila_1
veterán
FehérHolló
#3628
Delila_1
veterán
válasz
FehérHolló
#3628
üzenetére
Itt egy kis makró, ami a fájl bezárásakor rákérdez a rendezésre (I oszlop szerint):
Sub auto_close()
If MsgBox("Akarod rendezni mentés előtt az adatokat?", vbYesNo) = vbYes Then
Range("I2").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
ActiveWorkbook.Save
End SubFontos, hogy auto_close legyen a neve, mert akkor automatikusan végrehajtódik záráskor.
Ha még ugyanarról a fájlról van szó, amelyikben B:G oszlopokban van adat, és I-be íródik a dátum, akkor gondoskodni kell a H oszlop kitöltéséről, hogy a rendezésbe belevegye az előző oszlopokat is. Ha üres oszlop van közöttük, csak az I oszlopot rendezi.
A H-ba, ha egyébként nem lenne ott adat, a targetes makróval íratunk egy pontot. Az
If (Target.Column >1 kezdetű sor után írd be:
Cells(8,Target.Column)="."Ha nincs fejléced, a Header:=xlGuess-t javítsd át Header:=xlNo-ra.
-
#3630
Delila_1
veterán
FehérHolló
#3626
Delila_1
veterán
válasz
FehérHolló
#3626
üzenetére
Látom, egy kulcs szerint akarsz rendezni. Szerintem sem érdemes makrót futtatni, a kulcsot képező oszlopban állva egyetlen kattintás, és kész, ki sem kell jelölni a táblát.
Legfeljebb zárás előtt egy inputboxban (vagy msgboxban) rákérdezel, hogy akar-e rendezni, és igen esetén egyszer lefuttatni. -
#3628
FehérHolló
veterán
lapa
#3627
FehérHolló
veterán
Nem fogok egy 400x9-es táblát minden új sor beillesztésénél átmásolni valahova, rendezni, majd visszamásolni. Főleg úgy, hogy egymás után 4-5 sort szoktam általában hozzáadni.
Egyébként erősen kétlem, hogy nincs rá egyetlen függvény (makróknál), amikor egy kijelöléssel és egy kattintással meg lehet csinálni, ha manuálisan akarja az ember.
-
#3627
lapa
veterán
FehérHolló
#3626
lapa
veterán
válasz
FehérHolló
#3626
üzenetére
próbáld meg kétdimenziós tömbbe (array) rakni, korábban volt róla szó. utána azon futhat le a két for-next. nagyjából két nagyságrenddel meggyorsítja.
-
#3626
FehérHolló
veterán
Delila_1
#3620
FehérHolló
veterán
válasz
Delila_1
#3620
üzenetére
Viszonylag sokat keresgéltem tegnap, végül ez volt az a sok közül, ami némiképp megfelelne a célnak:
Sub SortAllRangeData()
' Place column header for temporary sort area.
Range("IV1").Value = "Numbers"
' Move numbers to temporary sort location.
For Each cell In Selection
Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
Next cell
' Sort numbers in ascending order.
Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Move sorted data back to original sheet location.
Selection(1, 1).Activate ' Make sure the ActiveCell is the
' top left of Selection first.
CCnt = Selection.Columns.Count
RCnt = Selection.Rows.Count
CellCnt = Selection.Cells.Count
Tcell = 2
For c = 1 To CCnt
For r = 1 To RCnt
Range(ActiveCell.Address).Offset(r - 1, c - 1).Value = _
Range("iv" & Tcell).Value
Tcell = Tcell + 1
Next r
Next c
' Clean up temporary sort location.
Range("IV1", Range("IV1").End(xlDown)).Clear
End SubEz viszont túl sok idő, mire lefut. A cél a kezelés kényelmesebbé tétele lenne, nem az, hogy akárhányszor hozzá van adva egy adat, mindig lefusson egy ilyen és rabolja az időt. Inkább a végén megcsinálom manuálisan a sorba rendezést mielőtt mentem.
-
lapa
veterán
válasz
Delila_1
#3622
üzenetére
ne érts félre, nem kritikának szántam. élvezettel olvasom a megoldásaidat, tegnap is jót tanultam a dir() function részirűl, az application.filesearch-ben nem tudsz attribútumokra filterezni pl.
az meg pláne tisztelendő, hogy ilyen aktívan hosztolod a kedvenc programom totyikját
-
Delila_1
veterán
Ebben az esetben a legördülő bemeneti tartománya B1: B4, a cellacsatolás E2. A csatolást a legördülő "mögé" érdemes tenni, ott nem látszik, senkit sem zavar.
A makró:
Sub Ugras()
sor = Cells(2, 5) 'E2 cellában van a kiválasztott elem sorszáma
lapnev = Cells(sor, 2)
cell = Cells(sor, 3)
Sheets(lapnev).Select
Range(cell).Select
End SubMikor kiválasztasz egy munkalapot (Alma: Banán) a listából, az E2 cellába beíródik a listabeli sorszáma.
Az Ugras makrót rendeld hozzá a legördülőhöz. -
#3620
Delila_1
veterán
FehérHolló
#3619
Delila_1
veterán
válasz
FehérHolló
#3619
üzenetére
Függvény nincs rá, rögzíts makróban egy sorbarendezést, és azt vesézd ki.
-
#3619
FehérHolló
veterán
FehérHolló
#3617
FehérHolló
veterán
válasz
FehérHolló
#3617
üzenetére
Megoldva. Cells(CurrRow, CurrCol).Select.
(Változóknak van érték adva.)Sorba rendezés milyen függvénnyel megy? Kezdek belemelegedni.
-
-
#3617
FehérHolló
veterán
Delila_1
#3616
FehérHolló
veterán
válasz
Delila_1
#3616
üzenetére
Ugyanaz a gép. Amíg nem zártam be, addig ment, amikor újra megnyitottam, már nem.
Egyébként a megoldás: eszközök -> makró -> biztonság -> magasról közepesre. Közben rájöttem.Tudnál még esetleg valamiben segíteni, ha nem vagyok nagyon a terhedre?
A fenti makróba mit kellene még beleírni a végére, hogy visszaugorjon abba a cellába, amit változtattam?
Ezt próbáltam a végére (End If elé) írni, de kifagy:
Range(Target.Column & Target.Row).Select
-
#3616
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A #3600-nál azt mondtad, hogy tökéletesen működik. Másik gépen nem megy?
-
#3615
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A "Nem tudom"-ot? Nagyon szívesen, máskor is.
-
#3613
Delila_1
veterán
gazsiazasz
#3609
Delila_1
veterán
válasz
gazsiazasz
#3609
üzenetére
Ez elég bonyolult, dolgozom rajta, az eredményt hét végén elküldöm email-ben (ha jó a megadott címed).
-
#3612
Delila_1
veterán
FehérHolló
#3611
Delila_1
veterán
válasz
FehérHolló
#3611
üzenetére
Nem tudom.
-
#3611
FehérHolló
veterán
Delila_1
#3607
FehérHolló
veterán
válasz
Delila_1
#3607
üzenetére
Nem az a baj, hogy nem értelmezi a makrókat, hanem az, hogy a magas biztonsági szint miatt letiltja a futtatásukat, amikor megnyitom az adott excel filet.
Hogy lehet a biztonsági szintet csökkenteni, vagy valami más megoldás van rá?
(Bekapcsoltam az általad említett két bővítményt.)
-
Lehdog
csendes tag
Sziasztok!
Kedves fórumozók, segítségre lenne szükségem. A megoldandó feladat a következő: Szeretném elérni, hogy egy kombobox elemeit kiválasztva, a táblázat adott sheetjének adott cellájára ugorjon. Ha valaki tud egy ilyen makrót, legyen kedves ossza meg velem is
Előre is köszönöm! -
#3609
gazsiazasz
csendes tag
Delila_1
#3608
-
#3608
Delila_1
veterán
gazsiazasz
#3606
Delila_1
veterán
válasz
gazsiazasz
#3606
üzenetére
Tegyél már be egy képet, a leírás alapján (nekem) nem elég világos a feladat.
-
#3607
Delila_1
veterán
FehérHolló
#3602
Delila_1
veterán
válasz
FehérHolló
#3602
üzenetére
Az Eszközök/Bővítménykezelőben kapcsold be az Analysis ToolPak-ot és az Analysis ToolPak-VBA-t. Az első egy halom új függvényt ad, amiket a munkalapodon alkalmazhatsz, a másik ugyanezt adja a VBA felületen, amiktől értelmezhetővé válnak a makrók utasításai az Excel számára.
-
#3606
gazsiazasz
csendes tag
gazsiazasz
csendes tag
Hali!
kérdés:
vannak 10db cellában számok egymás mellett amit más adatokból nyerek képlet segítségével.
Ezek tulajdonképp egy berendezés alkatrészeinek a méretei, vannak növelő és csökkentő méretek, a 2összegének 0-t v. 1-et kell adjon, tehát ha a fent emlitett 10számot összeadom(a növelő tag pozitiv méretet, a csökkentő tag negatív méretet jelent), a végeredménynek 0-nak v. 1-nek kell lennie. Aztán ebből a 10 méretből egy másik képletből pl a számok feletti cellába ki van hozva hogy az adott cella értéke módosítható e vagy sem (Legalább 1méret biztosan módosítható mindig).Na most a kérdés az hogy ha én a növelő és a csökkentő(ezek egyébként fixek hogy melyik csökkentő, melyik növelő) tagoknak az előjeles összegénél 0-t kapok, akkor az egyik méretem ugy kell módosítani hogy 0 helyett 1et kapjak és ha pedig 1jönne ki a helyett 0-t kellene hogy kapjak végeredményképpen, és csak 1tagot lehet módosítani e célból a 10méret közül, azokon az elemeken belül amelyikeket kiadta az excel hogy azokat módosíthatom.
Segítsetek!!
-
gamer0101
aktív tag
Sziasztok! 2007-es Excelben miképp lehetne megoldani, hogy a cellába beírt "01" az "01" is maradjon cellaváltás esetén? Ugyenez vonatkozik persze minden 0-val kezdődő számra. Nekem így kellene most használni, de ő mindig kijavítja simán csak "1"-re.
Valami ötlet? -
#3601
Delila_1
veterán
FehérHolló
#3600
Delila_1
veterán
válasz
FehérHolló
#3600
üzenetére
Szívesen.
Csak be kellett zárni a táblát és újra megnyitni. Köszi! 
eddig nem problémázott, remélem ez után sem fog többet 
köszönöm szépen 
köszönöm eddigi segitséged 
Új hozzászólás Aktív témák
Fferi50- Vezetékes FÜLhallgatók
- Hardcore café
- Veszélyben vannak az adataid? Gond van a WD népszerű HDD-ivel
- Xbox Series X|S
- Battlefield 6
- Lexus, Toyota topik
- Okosóra és okoskiegészítő topik
- exHWSW - Értünk mindenhez IS
- Vivo X200 Pro - a kétszázát!
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- További aktív témák...
- Készpénzes számítógép PC félkonfig alkatrész hardver felvásárlás személyesen / postával korrekt áron
- HP ProBook 430 G7 Intel core i3-10110U laptop
- Designer 4K Monitor - BenQ PD-3200-U
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3285
- MacBook felvásárlás!! MacBook, MacBook Air, MacBook Pro
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő