- Már elstartolt az AMD nyári játékpromóciója
- Mikrofon topic
- Fejhallgató erősítő és DAC topik
- Projektor topic
- Milyen széket vegyek?
- Asztrofotózás
- Apple notebookok
- HiFi műszaki szemmel - sztereó hangrendszerek
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- Azonnali VGA-s kérdések órája
Hirdetés
-
Végre pontos megjelenési dátumot kapott a Visions of Mana
gp A készítők tisztázták azt is, hogy PlayStation 4-re megjelenik-e a végső kiadás.
-
Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
it Négy újabb amerikai állam csatlakozott az USA Apple ellen indított, monopolellenes peréhez.
-
Elnéztük a mai dátumot
ma Nem holnap, ma mutatkozik, pontosabban mutatkozott be a HTC U24 Pro, csak elnéztük (mármint én) egy nappal a dátumot.
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
-
csferke
senior tag
Sziasztok!
Munkafüzet egyes Munkalapjaira szeretnék különböző vízjelet (jpg képet) elhelyezni.
Amit eddig találtam a net-en az a fejléces megoldás. Ez nálam nem játszik mert a fejlécet már használom és oda nem fér.
A másik ötletem, hogy beillesztettem mint képet és átlátszóra váltottam a fehér hátteret. Sajna ez sem igazi mert nem lehet teljesen a Munkalap cellái mögé tenni és így elég zavaró.Valakinek megoldása?
Angol Excel 2007.köszi
-
bteebi
veterán
Sziasztok!
Írtam egy olyan makrót, amivel egy adott sorban lévő adatokat tudok átmásolni egy másik lap utolsó sorába úgy, hogy az eredeti helyről törlöm őket, vagyis effektíve "archiválom" az adatokat:
Public rwind As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valasz As String, firstemptyrow As Long
If Target.Column = 6 Then
rwind = Target.Row
If Target = "Archiválható" Then
valasz = MsgBox("Szeretnéd archiválni?", vbYesNo, "Archiválás")
If valasz = vbYes Then
firstemptyrow = Sheets("Archivált").Cells(Sheets("Archivált").Rows.Count, 2).End(xlUp).Row + 1
Range(Sheets("Adatok").Cells(Target.Row, 2), Sheets("Adatok").Cells(Target.Row, 6)).Copy Destination:=Sheets("Archivált").Cells(firstemptyrow, 2)
Range(Sheets("Adatok").Cells(Target.Row, 2), Sheets("Adatok").Cells(Target.Row, 6)).Delete Shift:=xlUp
Else: MsgBox "Nem lett archiválva!", vbOKOnly, "Archiválás"
End If
Sheets("Adatok").Cells(rwind, 2).Select
End If
End If
End SubElső közelítésben teljesen jól működik. Két "probléma" van vele: ha megosztom a munkafüzetet (sokan használnák), akkor nem működik az archiválás, mert - gondolom - az "Archivált" lapon nem tudja megtalálni az utolsó sort. Valahogy meg lehetne ezt kerülni?
A másik kérdésem pedig az lenne, hogy hogy lehet olyat csinálni, hogy egy szöveg egy adott ideig (pl. 5 másodpercig) legyen csak kiírva, utána pedig eltűnjön? Ha jól gondolom, akkor ilyet message boxszal sehogy se lehet csinálni.
Előre is köszönöm a javaslatokat!
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
-
Delila_1
Topikgazda
válasz bteebi #33655 üzenetére
Nálam működik így:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valasz As String, firstemptyrow As Long
If Target.Column = 6 And Target = "Archiválható" Then
Application.EnableEvents = False
rwind = Target.Row
valasz = MsgBox("Szeretnéd archiválni?", vbYesNo, "Archiválás")
If valasz = vbYes Then
firstemptyrow = Sheets("Archivált").Cells(Rows.Count, 2).End(xlUp).Row + 1
Range(Cells(rwind, 2), Cells(rwind, 6)).Cut Destination:=Sheets("Archivált").Cells(firstemptyrow, 2)
Range(Cells(rwind, 1), Cells(rwind, 6)).Delete Shift:=xlUp
Else: MsgBox "Nem lett archiválva!", vbOKOnly, "Archiválás"
End If
Sheets("Adatok").Cells(rwind, 2).Select
Application.EnableEvents = True
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz bteebi #33655 üzenetére
Szia!
" ha megosztom a munkafüzetet (sokan használnák), akkor nem működik az archiválás, mert - gondolom - az "Archivált" lapon nem tudja megtalálni az utolsó sort."
Közös használat esetén csak teljes sorokat vagy oszlopokat lehet törölni, cella blokkokat nem, ezért nem működik abban az esetben a makród.Range(Sheets("Adatok").Cells(Target.Row, 2), Sheets("Adatok").Cells(Target.Row, 6)).Delete Shift:=xlUp
sor helyett:
Sheets("Adatok").Cells(Target.Row, 2).EntireRow.DeleteÜdv.
[ Szerkesztve ]
-
bteebi
veterán
Delila, Fferi, nagyon köszönöm mindkettőtöknek! Holnap jobb esetben (ha nem leszek beteg) ki is fogom próbálni mindkettőt.
Cancel all my meetings. Someone is wrong on the Internet.
-
Fecogame
veterán
Van egy sorom:
wp_1_comments
És ezt szeretném folytatni így, ha "lehúzom" a táblázatban, egészen ~14000-ig:
wp_2_comments
wp_3_comments
.
.
.
wp_13999_comments
wp_14000_commentsHogyan tudnám megcsinálni?
Lassú a mobilinterneted? 4G/LTE antennák, közvetlenül raktárról ---> http://bit.ly/LTE_Antennak
-
Fferi50
őstag
válasz Fecogame #33661 üzenetére
Szia!
A következő képletet használd:
ha az első sortól indul akkor: "wp_" & sor() & "_comments"
ha nem az elsőtől, akkor: "wp_" & sor()-(sor()-1) & "_comments"
Ezt húzd végig az oszlopon lefelé, amíg kell.
Majd kijelölöd az oszlopot. Másolás - irányított beillesztés - értéket Ezt teheted ugyanarra az oszlopra, vagy egy másikra is - a képletes oszlop ezután törölhető is.Üdv.
-
csferke
senior tag
válasz bteebi #33656 üzenetére
Az élőfejbe sortöréssel tedd be a képet.
Ezzel próbálkoztam már én is.
Az Élőfej bal oldalán már van egy cégnév-logó amely nyomtatáskor jórészt lefedi a lap középső részét is. Az Élőfej Középbe is betettem egy jpg-t, sortöréssel elmozgattam, hogy a lap közepén legyen.
Ekkor nyomtatásnál az Élőfej bal oldali képének bal szélét és a nyomtatandó Munkalap első sorait is kinyomtatja még egyszer, csak halványabban, kb. a nyomtatóhenger egy fordulatával lejeb-re. -
Véreshurka
senior tag
-
Delila_1
Topikgazda
válasz Véreshurka #33621 üzenetére
Próbáld az Excel beállításai | Népszerű elemek | Színséma beállítást módosítani, hátha...
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bteebi
veterán
válasz csferke #33664 üzenetére
A pdf az egy érdekes probléma. Nézd meg az oldal/margóbeállításokat. Esetleg azt próbáld meg, hogy a két képet összegyúrod egybe, és úgy teszed be, hátha az segít. Sajna a konkrét file nélkül nehéz segíteni, bár azzal együtt se biztos, hogy menne...
Cancel all my meetings. Someone is wrong on the Internet.
-
csferke
senior tag
válasz bteebi #33668 üzenetére
A pdf az egy érdekes probléma.
Köszi.Picit nyakatekerten, de megoldottam másként.
Az előszámla pdf-et, amit csak e-mailban küldök azt pdf-be nyomtatom.
A számlát, amit viszont ki kell nyomtatnom ott a nyomtatóhoz készítettem egy vízjelet. Itt csak az a szépséghiba, hogy minden nyomtatáskor plusz 2-3 kattintásra kel. Ezt még elviselem amíg nem találok jobb megoldást. -
csferke
senior tag
Most viszont egy másik kérdésem lenne.
A oszlopban - évek
B oszlopban - hónapok nevei (minden évben újraindul)
C oszlopban - értékekK1:K12
- hónapok nevei
a C oszlop MIN és MAX értékét keresem hónapokra (k1:k12-re) kimutatva (januárMIN januárMAX, februárMIN februárMAX .......)
A C oszlopban szerepelnek mezők melyeknek nincs értéke, üres mező.köszi előre is
[ Szerkesztve ]
-
muszty
tag
Sziasztok!
Segítségetekre lenne szükségem. Egy olyan táblázatot szeretnék készíteni, aminek az értékei attól függően változnak, hogy mennyit adok meg.Nyolc részre szeretném osztani a KÉK mezőbe beírt (jelen esetben 500) értéket úgy, hogy a számok 2,4-es szorzóval növekedjenek. Ennek a szorzónak is jó lenne egy külön mezőt csinálni, hogy később módosítani tudjam. Néha 2,3-as szorzóval szeretném használni.
A képen manuálisan vannak megadva a számok, amiket előre kiszámoltam és lekerekítettem. Tehát a lényege az lenne, hogy ne kelljen számolgatnom az értékeket, hanem amikor módosítom a kék mezőben lévő számot, akkor az összes érték annak függvényében változzon. A nyolc érték összeadva megegyezik a kék mezőben lévő értékkel.
Tehát.
Első: 1.
Második: 1 * 2,4= (kerekítve) 2
Harmadik: 2 * 2,4= (kerekítve) 5
Negyedik: 5 * 2,4= (kerekítve) 12
...stbElőre is köszönöm a segítségeteket!
[ Szerkesztve ]
-
Fferi50
őstag
válasz csferke #33673 üzenetére
Szia!
Két tömbképlettel megoldható szerintem:
=MAX(($C$2:$C$130=K2)*$C$2:$C$130)
=MIN(HA(($C$2:$C$130=K2)*$C$2:$C$130>0;($C$2:$C$130=K2)*$C$2:$C$130;""))A tömbképletet Ctrl+Shift + Enter billentyűkombóval kell bevinni, az Excel kapcsos zárójelben jeleníti meg.
Beírod így az első cellákba, majd lehúzod az oszlopon. A minimumnál az üres, illetve a feltételnek meg nem felelő hónapok miatt trükközni kellett kicsit, ezért hosszabb a képlet.Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz muszty #33674 üzenetére
Szia!
"Nyolc részre szeretném osztani a KÉK mezőbe beírt (jelen esetben 500) értéket úgy, hogy a számok 2,4-es szorzóval növekedjenek."
Egy mértani sorozat összegének és hányadosának ismeretéből szeretnéd előállítani a sorozat tagjait. Ehhez első körben az összegképletet felhasználva számolható ki az első tag, majd utána a többiek. A kerekítés miatt szükség van egy segédsorra, amiben a tagok száma szerepel.
A segédsor az I2-P2, a célösszeg a H1, a hányados az I1 cellában van.
A képlet az I3 cellában van, ezt kell végighúzni a P3 celláig.
A képen láthatod, hogy az ellenőrző összeg a kerekítések miatt 2-vel nagyobb, mint a cél, de azt gondolom, ezt már kezelni lehet.Üdv.
-
Fferi50
őstag
válasz poffsoft #33677 üzenetére
Szia!
"Azt látod, hogy a két sor nem ugyanaz? "
Nem is lehet ugyanaz. Gondolom, észrevetted, hogy 30 * 2,4 semmilyen kerekítéssel nem lesz 48.
Ha a 2,4-es szorzóval mész végig a kerekítéses módon, nem lesz az összeg 500, vagy az összeg nem jó, vagy a szorzó. Az Excel célérték keresése sem tudott hasonló feltételekkel eredményt produkálni.
Ezért gondoltam azt, hogy a mértani sorozat (hiszen ha minden tag az előző tag ugyanakkora szorosa, akkor erről van szó) elemeinek kerekítése adhatja a jó megoldást. Szerintem ezzel lehet a 2 feltételt egyidejűleg teljesíteni.
Aztán ez vagy megfelel a kérdező elvárásainak vagy nem.Üdv.
-
alfa20
senior tag
Sziasztok!
Van egy grafikon amit mind más felhasználó nyomtat, viszont az élőlábon annak a munkatársnak a neve kell hogy szerepeljen aki nyomtatja valahogy be lehet állítani az élőlábat, hogy ne keljen mindig manuállásan át írogatni?
nincs erre egy parancs mint a dátumra?"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
muszty
tag
válasz Fferi50 #33679 üzenetére
Igen, igazad van, én hibáztam. Rosszul írtam be a számokat a táblázatba. Tehát a táblázat számai a következőek (kerekítés nélkül, ha a kék mezőben a szám 758 és a szorzó 2,4)
1
2,4
5,7
13,8
33
79,6
191
458Kerekítéssel:
1
2
6
14
33
80
191
458Valaki meg tudná nekem csinálni? Természetesen megtérítem az árát.
[ Szerkesztve ]
-
lappy
őstag
válasz alfa20 #33681 üzenetére
ezen az oldalon a nagyobb kódot próbáld ki
Bámulatos hol tart már a tudomány!
-
Snoop-y
veterán
Sziasztok a kovetkezo problemara keresem a megoldast (angol nyelvu excel 2013)
Sheet1
C oszlop: (nevek) D oszlop (start date) E oszlop (end date) F oszlop (Tag)
ember1 2017.01.01 2017.01.06 HOL
ember1 2017.05.01 2017.05.01 BUS
Sheet2
A oszlop (nevek) B oszlop - AF oszlopig (datumok 2017.01.01 es igy tovabb)
ember1
A feladat az hogy a Sheet2 B tol AF oszlopig beirjuk a Sheet1 F oszlopaban levo Tag erteket pl HOL.
A Sheet1 peldajat kovetve ezert Sheet2 -n a kovetkezot szeretnem latni ember1 -nel:
A B C D E F G H
Nevek 2017.01.01 2017.01.02 2017.01.03 2017.01.04 2017.01.05 2017.01.06 2017.01.07
Ember1 HOL HOL HOL HOL HOL HOL uresAmeddig en eljutottam az az hogy egy adott datumot meg tudok keresni egy range-ben (lasd Sheet1 D es E oszlop) ha az a range csak egyszer szerepel az adott Sheet-en. A problema az hogy nem tudom az adott range-et az Ember1-hez kotni es ha a range tobbszor is ismetlodik csak mas emberrel akkor nem mukodik illetve a Sheet1 -en is tobbszor szerepelhet az adott ember csak mas tag-el (de nem ugyanazzal a date range-el
=LOOKUP(2,"1"/('Holiday IGBS'!D:D<=B1)/('Holiday IGBS'!E:E>=B1),'Holiday IGBS'!F:F)
[ Szerkesztve ]
New level... Advertising has us chasing cars and clothes, working jobs we hate so we can buy shit we don’t need
-
EmberXY
addikt
Sziasztok!
Arra van lehetőség, hogy makróval egyfajta felugró értesítő üzenetet jelenítsünk meg, ha egy munkalapon egy bizonyos feltétel fennáll?
Röviden felvázolnám a lényeget: van egy nyilvántartás, ami több munkalapból áll, az egyik lap egyfajta jegyzetfüzetként szolgál, beírom, ha valami kérés, igény van, és az esetleges teljesülését is megjelölöm egy "i" vagy "n" betűvel a mellette lévő oszlopban, szóval látható, hogy mi teljesült és mi nem, viszont csak akkor, ha konkrétan rámegyek a lapra és átnézem a listát. Viszont ha más kolléga kezeli a dokumentumot, vagy csak simán elfelejtem, akkor maradhatnak elintézetlenül dolgok, és ez kellemetlen.
Azt szeretném megoldani, hogy a dokumentum megnyitásakor (plusz akár X időnként újra) egy felugró üzenetben jelezze, ha ezen a lapon az "i" vagy "n" jelölést tartalmazó oszlopban bárhol található "n" jelölés, a helye és mennyisége érdektelen, a lényeg az lenne, hogy felhívja a figyelmet, hogy mindenképp nézzek/nézzünk rá a lapra. Vagyis egy adott lapon egy adott oszlopban egy adott érték meglétéről kellene egy felugró értesítés.
Ez valahogy megoldható? Köszönöm előre is, ha van ötlet, segítség.Up the Irons!
-
Fferi50
őstag
válasz EmberXY #33686 üzenetére
Szia!
Ezt a dokumentumot egyszerre többen is nyitva tartják és módosíthatják (közös használat) vagy egyszerre csak egy embernél lehet nyitva?
Természetesen megoldható makróval az üzenet, viszont lenne egy makró nélküli javaslatom:
A munkalapok egy cellájába betenném ezt a képletet:
=Darabteli(jegyzetlap!A:X;"n")=0
Feltételes formázással ezt a cellát úgy formáznám, ha az értéke nem 0, akkor legyen pl piros, egyébként zöld.
Ha az egyes munkalapokhoz más-más oszlopba kerül a jegyzetlapon a megjegyzés, akkor ahhoz kell igazítani a tartományt.Üdv.
-
EmberXY
addikt
válasz Fferi50 #33687 üzenetére
Szia!
Ez csak egyszerre egy helyen van megnyitva, csak néha más-más kezeli.
Azért szeretném, ha inkább valami felugró üzenet lenne, mert azt biztosan észreveszi, aki éppen a gépnél ül, és kénytelen utánajárni, mert így is rengeteg ilyen-olyan jelző mező van, amik felett így is átsiklik mindenki. Szerencsére legtöbbször én használom a dokumentumot, a nagy részét én alakítottam ki, de amint szabadságra megyek, az egész rendszer egy katyvasz lesz, mert vagy ez marad el, vagy az, ezt szeretném valahogy elkerülni.
A makrós megoldás mennyivel lenne bonyolultabb? Egy makró már fut, azt hiszem abban is Te segítettél anno...Up the Irons!
-
Fferi50
őstag
válasz EmberXY #33688 üzenetére
Szia!
Nem túl bonyolult, csak meg kell számolni az adott munkalaphoz tartozó "n" értékeket.
Sub figyelmeztet()
If Application.CountIf(Sheets(jegyzetlap).UsedRange, "n") > 0 Then MsgBox "Elintézetlen tétel van"
EndifEzt meghívhatod a Thisworkbook Workbook_Open eseményéből és a munkalapok Activate eseményéből.
A UsedRange változtatható aszerint, hogy melyik oszlopban kell keresni, ezt még akkor pontosítani kell.
Üdv.
-
EmberXY
addikt
válasz Fferi50 #33689 üzenetére
Köszönöm előre is, reggel ezzel fogok kezdeni.
Ezt a "meghívást" is szerintem még pontosítani kell majd, mert ehhez én láma vagyok
És még annyit kérdeznék pluszban, hogy az "n" értékeknél konkrétan csak a különálló "n"-t keresi, vagy mindent, amiben "n" van?
Addig is köszönöm a segítséget.Up the Irons!
-
poffsoft
addikt
válasz EmberXY #33690 üzenetére
A figyelmeztet() subot a modul1 lapra írod be.
Majd a thisworkbook lapot megnyitva a jobb listából a workbook_open eseményt kiválasztva beírod a megjelenő üres sub-ba:
Call modul1.figyelmeztetUgyanígy az adott sheetek Activated eseményeinél.
[ Szerkesztve ]
[ Szerkesztve ]
-
nordican
tag
Sziasztok, zárolt munkalapon szeretnék kiemelni valamilyen színű háttérrel nem zárolt (szóval kitöltendő) cellákat, van valakinek ötlete, hogy hogyan lehet? Itt pont ezt tárgyalják: http://www.extendoffice.com/documents/excel/2604-excel-highlight-color-unlocked-cells.html
De az első opció nekem nem működik, a Kutools működik, de ha olyan gépen nyitják meg a fájlt, ahol nincs Kutools, nem látszódik a kiemelés.[ Szerkesztve ]
-
lappy
őstag
válasz nordican #33697 üzenetére
én úgy csináltam hogy egy pár cellának kivettem a zárolást (a cellaformátum menüből éred el)
majd kejelöltem egy cellatartományt amiben benne van ez a pár cella
ezután feltételes formázás és képlettel formázás menü(az utolsó) beírtam a képletet, kiválasztottam a színt
és ok
és tényleg kijelölteBámulatos hol tart már a tudomány!
Új hozzászólás Aktív témák
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Steam kulcsok - UTALÁS/REVOLUT
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!