- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
- Az AI átformálja a Peugeot modelljeit is
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
- Mindenféle környezeti behatásnak ellenállnak az ASUS új TUF tápjai
- Milyen TV-t vegyek?
- Apple MacBook
- Milyen billentyűzetet vegyek?
- LG LCD és LED TV-k
- Shield TV-t csinált a Shieldből az NVIDIA
- Milyen egeret válasszak?
- Milyen házat vegyek?
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Házimozi belépő szinten
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
-
33200 - 33101
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 35901 35900 - 35801 35800 - 35701 35700 - 35601 35600 - 35501 35500 - 35401 35400 - 35301 35300 - 35201 35200 - 35101 35100 - 35001 35000 - 34901 34900 - 34801 34800 - 34701 34700 - 34601 34600 - 34501 34500 - 34401 34400 - 34301 34300 - 34201 34200 - 34101 34100 - 34001 34000 - 33901 33900 - 33801 33800 - 33701 33700 - 33601 33600 - 33501 33500 - 33401 33400 - 33301 33300 - 33201 33200 - 33101 33100 - 33001 33000 - 32901 32900 - 32801 32800 - 32701 32700 - 32601 32600 - 32501 32500 - 32401 32400 - 32301 32300 - 32201 32200 - 32101 32100 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
Egy segédoszlopba kell a következő képletet beírni, ha a szavak az A oszlopban vannak:
B1 képlete: ="(" & A1 & ")"
Ezt végighúzod ameddig az A oszlopban vannak szavak.
Ezután a B oszlopot kijelölöd - másolás - irányított beillesztés értéket. Vagy ezt másolod rá az A oszlopra, vagy kitörlöd előle az A oszlopot.Üdv.
-
Mexildos
aktív tag
Sziasztok!
Olyan kérdésem lenne, hogy hogyan lehetne azt megcsinálni Excelben, hogy egy oszlopban vannak szavak. Ezeket a szavakat mind zárójelbe szeretném tenni? Van erre egy egyszerű képlet?
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
-
Dr V
őstag
-
Delila_1
veterán
-
andrasa1
csendes tag
Sziasztok!
Szeretném megkérdezni, hogy a p:mp oszlopból hogyan tudok percet nyerni?
Köszönettel:
A.A -
Delila_1
veterán
-
Dr V
őstag
-
Delila_1
veterán
-
Delila_1
veterán
-
SssunnyyY
csendes tag
-
Dr V
őstag
Sziasztok!
Mi a billentyűkombinációja a relative/abszoút cellahivatkozásnak? Egyesével beírogatni néha kicsit sokáig tart.
The bass and the tweeters make the speakers go to war! -
SssunnyyY
csendes tag
Sziasztok!
Sosem voltam nagy Exceles, de a 2016-os feladta a leckét, még az alapok se mennek...
Több gondom is van...
1. A VR-számok alatt futó projekteket szeretném ábrázolni ugyanabban a sorrendben, mint a táblázatban (a diagramon jelenleg fordítva van).
2.Az kezdő dátum az x tengelyen mindig az aktuális (MA) nap legyen és az ábrázolt projektek kezdőpontja az indítás időpontja, a végpontja pedig a határidő legyen.
Lehetséges, hogy rossz diagramtípussal próbálkozom?
Köszi előre is!
-
Delila_1
veterán
-
Juditta_56
aktív tag
-
Smogus
őstag
Köszönöm!
Ez frankón működik
Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ -- -
Juditta_56
aktív tag
-
Smogus
őstag
Sziasztok!
Egy táblázatban egy oszlopban számla sorszámok találhatóak.
Azt szeretném elérni,hogy ebbe az oszlopba ne szerepelhessen kétszer ugyan az.
Szóval ha elkezdek valamit beírni és ha bejeztem, akkor adjon egy hibaüzenetet, ha már van abban az oszlopban ugyan olyan érték vagy szöveg, mert sajnos betűt és számokat is tartalmaznak a száma sorszámok.
Lehetséges ez excelben?Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ -- -
lappy
őstag
-
Dr V
őstag
Sziasztok!
Szeretnék képeket beszúrni, ami egy cella értékétől függ. Ha más lesz az eredmény, más képet szúr be.
Ezt hogyan tudom megcsinálni?The bass and the tweeters make the speakers go to war! -
Fferi50
Topikgazda
-
Dr V
őstag
-
dWan
tag
-
Dr V
őstag
Sziasztok!
Angol nyelvű excelt használok.
Az alábbi képlettel egyik cellából kiszedtem egy számot:=MID([@Column14];3;2)
Eredmény:50
Az így kapott értékekből szeretnék átlagot számolni, de DIV#/0! hibát kapom eredményül.
Ha az 50et kézzel beírom, akkor számol átlagot.
A cellaformátumot számra átállítottam, de ennek ellenére sem kapok jó eredményt. Hogyan tudnám kiszámolni az átlagot? Sajnos a szám, amivel számolnom kell, egy szövegben található, de szerencsére fix helyen, ezért is tudom kiszedni az MID képlettel.The bass and the tweeters make the speakers go to war! -
dWan
tag
-
mome
tag
-
lappy
őstag
-
mome
tag
Sziasztok!
Cellaformázással megoldható, hogy a 206,23000011 cellaértékből csak az utolsó két karakter a 11 jelenjen meg?
Köszönöm.
-
Kasya
nagyúr
-
lappy
őstag
-
lappy
őstag
-
Kasya
nagyúr
Sziasztok!
Egy (szvsz) nagyon alap dolgot kerdeznek, de mar nincs erom a dologhoz:
2 oszlopos adathalmazból szeretnek diagrammot kesziteni. Az A oszlop datumokat tartalmaz, a B pedig pozitiv szamokat. A Diagrammban szeretnem, ha az X tengelyen a datum lenne, az Y tengelyen pedig a napok elorehaladtaval folyamatosan osszeadodnanak a szamok. Vagyis egy novekvo függvényt kapnek.Hogyan tudnam ezt elerni?
-
Dr V
őstag
-
lappy
őstag
-
Dr V
őstag
Sziasztok!
Hogy tudok egy megadott karaktert kiszedni az excelben?
FKERES függvénynél a keresett értékhez szeretném megadni egy képlettel egy cella 7. karakterét.The bass and the tweeters make the speakers go to war! -
mormota
senior tag
sziasztok
erőforrásbarátabbá szeretnék tenni egy legyűjtést azáltal, hogy nem ugrálok és copy pastázok két fül között darabonként, hanem tömbbe copy-zom ki a kívánt adatokat egymás után, majd egyszerre illesztem be a kellő helyre
az a muris a dologban, hogy egy adatbázis-szerű táblázatból kell kiszedni, ahol egy sorban van egy adott helyiség, és a hozzá tartozó 2-3-akámennyi (max 22) adat 6-os blokkokban az i oszloptól kezdődően
a legyűjtésnél pedig minden sorban szerepeltetni kellene az adott adatbázis sorához tartozó helyiség két azonosítóját (B és D oszlop)
remélem érthető voltam

addig sikerül eljutnom, hogy megszámoltatom vele, hogy hány 6-os blokk van az adott sorban, de hogy ezeket betenni a tömbbe sikerült-e azt már nem tudtam leellenőrizni, azt meg még csak megoldani se tudtam, hogy a legyűjtés kellő helyére bemásolja a 6-os blokkokat
Illusztrálok, tehát vagyok -
Lasersailing
senior tag
Sziasztok,
Excel VBA-ból szeretnék e-mailt küldeni. Egyszer régen már írtam ilyen makrót (még előző munkahelyemen), de most nem működik. Olyasmi rémlik, hogy valahol a VBA menüben kellene valamit átállítani, de nem találom, hogy mit...
Makró érintett sora:
Dim level As Outlook.Mailitem ' levélHibaüzenet:
"Compile error: User-defined type not defined"És kijelőli a fenti sort (meg megáll, vagy inkább el sem indul)
Esetleg valaki tud segíteni?
köszi előre is!Szerkesztés:
Bocsánat, megtaláltam a megoldást, ideírom, hátha másnak is kell:
Tools / references --> ki kell jelőlni a "Microsoft Outlook 14.0 Object Library" -t! -
róland
veterán
Köszönöm!
Tetszik, de a makrómentes (céges policy miatt) munkafüzettel nem megy. Meg összetett táblázatoknak csak bizonyos részei kellenek a CSV-hez, így új munkafüzet lapra másolva lesz megoldva az exportálás.
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik! -
v-paci
aktív tag
-
lappy
őstag
-
v-paci
aktív tag
Sziasztok,
két dátum közötti évek számát szeretném számítani, de folyamatosan #SZÁM hibát dob az excel. Mi lehet a probléma:
=DÁTUMTÓLIG([@Belépés];MA();"É")
Próbáltam táblázat nélkül sima cellamegadással/fix dátumokkal is, de úgy sem működött. 2013-as verziót használom.
"Mi kalandvágyból itthon maradtunk." -
b3n1t0
csendes tag
Szia,
az alábbi makrót bemásolod egy modulba (témaösszefoglaló), a munkalapon kijelölöd azt a tartományt, amit exportálni szeretnél, majd ALT + F8, kiválasztod a Save2Text makrót és indítás. A makróban kommenttel jelölt mentési helyre elkészíti a file-t, lentebb szintén kommentelt résznél tudsz még elválasztó jelet módosítani (vessző, pontosvessző stb...)
Public Sub Save2Text()
Dim lineText As String
Dim myrng As Range, i, j, k
Filename = "C:\export.csv" 'hova/milyen néven mentse
Open Filename For Output As #1
Set myrng = Selection
For i = 1 To myrng.Rows.Count
For j = 1 To myrng.Columns.Count
lineText = IIf(j = 1, "", lineText & ";") & myrng.Cells(i, j) '";" mivel legyenek elválasztva az adatok
Next j
Print #1, lineText
Next i
Close #1
End SubPoco X5 Pro 5G *** "Néha nulla vagyok / Néha meg egy / Nem osztok, nem szorzok / Nekem egyre megy" - (ETA - Nulladal) -
lenkei83
tag
Jó reggelt!
Látott már valaki ilyet? Fura munkalapok jelentek meg a Project Explorer-ben, a munkafüzetben nem látni ezeket. Honnan jöttek és hogyan tudom eltüntetni?
Ja és az codename mindegyiknél thisworkbook
Üdv.:
P. -
moya#no1
aktív tag
Üdv sracok. Szereztem Office 365 elofizetést. De. Telepitettem a gépre és érdekes Németül települt a macre....
van erre valami modosítási lehetőségem ?Just Ride KTM -
Fferi50
Topikgazda
Szia!
"az egyiknél betűt kell írni mint n, a másiknál hogy hány darab van abból, a harmadiknál pedig a végederményt"
Kérdés, honnan tudod, hogy melyik betű milyen számot jelent? Mennyi az n és mennyi a k, vagy ha van más betű, akkor azoknak mi az értéke. Mert betűt számmal szorozni, annak mindig 0 az eredménye.Egy ötlet arra, hogyan lehet 2 betűt is használni:
A1 cellában vannak a betűk - ha két betű van, akkor ; (pontosvessző) az elválasztás közöttük.
B1 cellában van az előfordulások száma, ha két betű van az A1 cellában, akkor ide is két szám kell, elválasztó itt is a ; (Az n = 5, k = 7 állandókat használtam.) C1 cella képlete:=HA(HIBÁS(SZÖVEG.KERES(";";A1));5*B1;5*BAL(B1;SZÖVEG.KERES(";";B1)-1)+7*KÖZÉP(B1;SZÖVEG.KERES(";";B1)+1;HOSSZ(B1)))Ezt még meg lehet fejelni pl. azzal, hogy a szorzók (a betűk) értékét is egymásba ágyazott ha függvényekkel választod ki.
Üdv.
-
bficsor
csendes tag
-
poffsoft
veterán
-
blountex
senior tag
Köszi, de hasonlóra jutottam én is amit írtál, viszont ez így nem az igazi.
Talán azt kifelejtettem, hogy mindössze 3 cella áll rendelkezésemre, aminél az egyiknél betűt kell írni mint n, a másiknál hogy hány darab van abból, a harmadiknál pedig a végederményt. Ez addig simán is megy, míg 1 betűt kell írni, de néha előfordul a két betű is, és ekkor ezt külön kell számolni. Nem olyan probléma csak mivel a táblázat több szálon fut át, így nem akarom ezt annyira átvariálni. No persze rejtett sorokat meg képleteket azért bele lehetne csempészni
-
Fferi50
Topikgazda
Szia!
Veszel két cellát, az egyikbe beírod az n, a másikba a k szorzóját.
Pl. A1 cella az n szorzója, B1 cella a k szorzója, akkor C1-be a képlet: =A1*25+B1*12
Sőt:
Az n számára és a k számára is használhatsz egy - egy cellát és akkor
C1 képlete = A1*A2+B1*B2 (n az A2, k a B2 cellában van).Remélem, jól értettem a kérdésed.
Üdv.
-
blountex
senior tag
Hello!
Nem igen foglalkoztam VB programozással, függvényt meg szerintem nincs rá.
Ezt eddig függvénnyel oldottam meg, az alábbiak szerint. Van egy n betű és annak 25 értéke. Ahány n van annyival szorozza meg a 25 értéket, csak hogy van mikor több változó is van, így ezt a függvény nem tudja érzékelni mint n+k, akkor nem tudja hogy mennyi n és mennyi k van hiába írom azt hogy 3n+k ami 87.
Tehát valami ilyesmi kéne, hogy ha az:
n=25
k=12
és ?n+?k azaz a kérdőjel helyére beírok egy számot pl 3n+1k azaz 3*25+1*12=87 akkor ő azt egy másik cellába írja ki az értéket -
ANT
őstag
Köszi mindkettőtöknek.
Végül is a tornasor lehet növekvő és csökkenő is. 
lappy: megoldottam a "házit", bár a cellatartományaid egy kicsit el voltak csúszva a függvényben.
''Soha ne add fel, ez a legnagyobb, halálos ellenség'' Replika -
Delila_1
veterán
A feladat szerint annak a nevét és magasságát kell megadni, "akinek a tornasorban megadott helyét a B10-es cellába írtuk".
A tanulók magasság szerint emelkedő sorrendben szerepelnek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
lappy
őstag
-
Delila_1
veterán
-
lappy
őstag
-
ANT
őstag
Üdv mindenkinek.
A következő feladat megoldásához kérnék segítséget:
Külön a név és a tertmagasság megjelenítése megy az INDEX és HOL.VAN függvényekkel, de ez a sorszámmal kombinált verzió meghaladja a képességeimet.

Köszi előre is a segítséget.
Szerk: excel2007 a játszótér, ha ennek van jelentősége.
''Soha ne add fel, ez a legnagyobb, halálos ellenség'' Replika -
lenkei83
tag
-
Fferi50
Topikgazda
Szia!
Szerintem kicsit túlkombinálod.
Ez a függvényes, ami csak 1 cella esetén müxik jól.If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value ' ez volt a target értéke
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then ' ha másolásról van szó, akkor
target.PasteSpecial Paste:=xlPasteValues ' most bemásoljuk az értéket - ami megegyezik az előzőleg regiertekbe tett értékkel!
Application.CutCopyMode = False
target.Value = RemoveNotNum(regiertek) 'ezért itt jó a regiertek és a target.value is!!
Else
target.Value = RemoveNotNum(regiertek) 'ha nem másolás volt, akkor is kiszedjük a számokat
EndIf
mivel ez a két sor azonos, lehet az EndIf után tenni.Ez pedig a Sub-bal, itt viszont a meghíváskor RANGE-et kell megadni, nem értéket!
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
RemoveNotNum Target 'regiertek
Else
Target.Value=regiertek
RemoveNotNum Target 'regiertek
End If
Ez működik több cellás cél esetén is (meg egy cella esetén is).Üdv.
-
lenkei83
tag
Azért
regiertek, mert az a sor ugyan meg van hogyregiertek = target.Value, de utána van egyapplication.undo, és ha ilyenkor hívom meg functionnal atarget.Value = RemoveNotNum(target.value)-t, akkor atarget.Valueéppen üres, vagyis üresre fogja hozni a cellámat.If sh.CodeName = "Munka7" Or sh.CodeName = "Munka13" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Or sh.CodeName = "Munka5" Then
Application.EnableEvents = True
Exit Sub
Else
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
target.Value = RemoveNotNum(regiertek)
Else
target.Value = RemoveNotNum(regiertek)A meghívásnak így kellene kinézni? Konkrétan a bemásolt (vagyis az aktuálisan kijelölt) területre szeretném alkalmazni, akkor így kellene meghívni?
RemoveNotNum SelectionNem igazán akar működni worksheet_change-el
Else
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
RemoveNotNum regiertek
Else
RemoveNotNum regiertek
End Ifüdv
P. -
Fferi50
Topikgazda
Szia!
Szerintem a Copy ágon nincs régi érték...
Ha több cellából áll a Target tartomány, akkor két lehetőséged van:
- vagy a Target tartomány celláin mész végig for each ciklussal és egyenként hívod meg a függvényt,
- vagy és ez szerintem a jobb, hogy a függvényből paraméteres eljárást csinálsz és ezen belül megy végig a ciklus a range celláin:Sub RemoveNotNum(ByRef myRange As Range)
Dim xOut As String, xTemp As String, i As Integer, xstr As String, cl As Range
xOut = ""
For Each cl In myRange
For i = 1 To Len(cl.Value)
xTemp = Mid(cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
cl.Value = xOut
xOut = ""
Next
End Sub
(Ez már csaknem az eredeti makró :-)
A meghívás pedig RemoveNotNum Target (illetve a Target helyett írhatod azt a tarrtományt, amelyből ki szeretnéd venni a nem szám karaktereket.
Itt már nem kell zárójel, mert nem függvény, hanem eljárás ami működik. Ez akkor is működik, ha csak egy cella van kijelölve, akkor is, ha több.Üdv.
-
lenkei83
tag
Szia Feri!
Köszönöm, működik, annyit kellett változtatni, hogy
RemoveNotNum(target.value)helyettRemoveNotNum(regiertek)
Nem is értem mit nem értettem...
Amire viszont most jöttem rá, hogy ha több értéket akarok egyszerre bemásolni akkor ez nem működik, mert a target range csak egy lehet. Van erre valami megoldás?
üdv
P. -
Delila_1
veterán
Elolvastad az egyéni nézetekről szóló fejezetet a súgóban?
Elrejted pl. az előző év adatait tartalmazó oszlopokat, majd egy új egyéni nézetet veszel fel 2016 névvel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
SssunnyyY
csendes tag
-
Delila_1
veterán
-
Delila_1
veterán
Az első oszlop a vezeték száma, a második a hossza. A következő 3-ban adod meg, hogy melyik vezeték csatlakozik hozzá. Az F2 cella képlete
=FKERES(C2;A:B;2;0)+HAHIBA(FKERES(D2;A:B;2;0);0)+HAHIBA(FKERES(E2;A:B;2;0);0)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
SssunnyyY
csendes tag
Sziasztok!
Tudnátok abban segíteni, hogy a hetek számát kitöltve, akár 5 évre előre, hogyan tudnám úgy görgetni az oszlopokat, hogy csak az aktuális 1 éves intervallum látszódjon, azaz rögzítve legyen a Terv/Tény oszlop is és a Felelős oszlop.
Igazából bármilyen megoldás érdekelne, hogy hogyan tudnám bővítve látni a dátumokat, ha szükség van "előretekintésre"?
Előre is köszi!
-
Fferi50
Topikgazda
-
lappy
őstag
-
bficsor
csendes tag
-
Fferi50
Topikgazda
-
Delila_1
veterán
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
Juditta_56
aktív tag
-
Delila_1
veterán
A lenti makró a kijelölt tartományban végzi el a számok félkövérre állítását a szövegen belül. Ez a tartomány az eredeti, képlettel előállított szövegnek az értékként beillesztett területe legyen.
Sub Felkover()
Dim CV As Range, b As Integer
For Each CV In Selection
For b = 1 To Len(CV)
If IsNumeric(Mid(CV, b, 1)) Then CV.Characters(b, 1).Font.Bold = True
Next
Next
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. -
Delila_1
veterán
-
bficsor
csendes tag
Sziasztok!
A csatolmányban írtam le részletesen a problémámat, amelynek lényege, hogy elegánsan szeretném megoldani, hogy két oszlopban felsorolt pontokhoz tartozó hosszakat összeadja az excel.
Tudnátok segíteni?
Előre is köszönöm!
-
poffsoft
veterán
-
Juditta_56
aktív tag
Köszönöm azért Neked is!

A SZÖVEG függvényt ismerem, ezexerint nem ez volt a megoldás, hanem Delila új makrója.
Még egyszer köszönöm Neked is, Delila!
A makródat majd kibővítem, hogy az összes sort (cellát) átalakítsa és akkor tényleg csak egy gombnyomás lesz a szöveg "megírása".
"You may say that I'm a dreamer But I'm not the only one" -
Fferi50
Topikgazda
Szia!
A második makróból csinálj egy függvényt (pl):
Function RemoveNotNum(ByVal ertek As String)
Dim xOut As String, xTemp As String, i As Integer, xstr As String
xOut = ""
For i = 1 To Len(ertek)
xTemp = Mid(ertek, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
RemoveNotNum = xOut
End FunctionEzután az első makróban a target.Value = regiertek sort cseréld ki erre:
target.Value = RemoveNotNum(regiertek)Üdv.
-
fecske13
tag
Elmentettem akkor azt a fájlt, most feltettem ide:
Szovegek_formazasa_1_cellan_belul
hátha még másnak is szüksége lehet rá.
A köszönet Delila-t illeti."Az a lényeg, egészség legyen, meg kerozin a repcsibe." -
Smogus
őstag
-
lenkei83
tag
-
scott_free
senior tag
sziasztok,
az októberi office-frissítés használhatatlanná tette az űrlapokat (probléma leírása), amire elvileg tegnap kijött a javítás, a 2054-es verzióval.
azt tudja valaki, hogy magyarul mikor lesz ez elérhető? mert még mindig a 2038-asra frissít.

köszi!
-
Delila_1
veterán
-
Delila_1
veterán
Örülök, hogy sikerült, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
Juditta_56
aktív tag
-
poffsoft
veterán
-
Delila_1
veterán
-
Smogus
őstag
Sziasztok!
Hogyan tudom azt megoldani, hogy ha A1 cella értéke pl 100% , akkor A2 cella értékében egy adott képlet érvényesüljön, ellenkező esetben pedig maradjon üresen a cella értéke?
Előre is köszönöm!
Ha az emberi agy elég egyszerű lenne ahhoz, hogy megértsük, akkor egyszerűségünkben erre már nem lehetnénk képesek. -- http://smogus.deviantart.com/ -- -
Delila_1
veterán
Szia Juditta!
Azt a fájlt már nem tudtam előbányászni.
Előtte írtam, hogy a képlet eredményeként látszó szöveget nem lehet részenként formázni, de irányítottan, értékként átmásolhatod valahova. Azt már akár karakterenként másképp formázhatod.
Írtam egy makrót, amit a lapodhoz kell rendelned (lásd a Téma összefoglalót). A formázandó cellán állva egy duplaklikk kiemeli félkövérrel a benne szereplő számokat.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim b As Integer
For b = 1 To Len(Target)
If IsNumeric(Mid(Target, b, 1)) Then Target.Characters(b, 1).Font.Bold = True
Next
Cancel = True
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. -
Juditta_56
aktív tag
Szia, Delila!
Ezt ("Összeollózott szövegek formázása 1 cellán belül") az anyagot fel tudnád rakni valahová, ha szépen megkérlek, mert már nem érhető el? Előre is köszönöm!

A problémám - amire remélem, megoldás lesz az anyag -, hogy a főnökség nem szeret táblázatot nézegetni, ezért mindent el kell küldeni szövegesen (is). Az összesítőket képletekkel szövegbe rakjuk, majd bemásoljuk egy e-mailbe, viszont szeretném, hogy a számok bold formátumúak lennének (és csak a számok). Próbáltam, hogy a szerkesztőlécen a cellahivatkozást - amiben az adott szám van - vastagra állítom, de képletben nem fogadja el. Esetleg az excelben lévő "kész" szövegben lehet valami trükk, amivel a számokat ki lehetne vastagítani? Nyilván egyenként meg lehet oldani, akár az excelben, akár az e-mailben, de jó lenne valami trükk rá...
Egyébként mindent köszönök előre is, meg utólag is, rengeteget tanulok Tőled!
"You may say that I'm a dreamer But I'm not the only one" -
Delila_1
veterán
-
Juditta_56
aktív tag
Szia!
Én is most kínlódtam meg ezzel. Kérdés, hogy Neked milyen formátum kell.
Ha "simán" mentettem a munkalapot csv-ként, az nekem pontosvesszővel elválasztott adatokat eredményezett. Úgyhogy összefűztem a szükséges adatokat úgy, hogy közé vesszőket tettem (a fejlécet is!), ezt átraktam egy üres munkalapra és azt mentettem csv-ként. Így szabályos, vesszővel elválasztott mezőket kaptam. (Konkrétan a guglinaptárba akartam importálni a beosztásomat.)
"You may say that I'm a dreamer But I'm not the only one" -
poffsoft
veterán
-
róland
veterán
Kedves Hozzáértők!
Hogyan lehet Excel adott munkalapjából CSV fájl-t készíteni? (Egy munkabeosztás/jelenléti ív számolt adatait kellene átadni bérszámfejtő programnak. Gyakorlatilag a manuális rögzítést szeretnénk megúszni.)
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik! -
Delila_1
veterán
-
olloczky
senior tag
-
Delila_1
veterán
Vegyél fel egy segédoszlopot, ahol összefűzöd a számokat. A képen ez a G oszlop.
Mivel az összefűzött számjegyek szöveg típusúak lesznek, szöveget kell keresned, ahogy az I1 cellában látod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül. -
olloczky
senior tag
Sziasztok
Egy nagy táblában ahol számok vannak külön cellában ott, hogy tudok egy adott kombinációra rákeresni?
példa:
1 2 3 4 5
5 6 7 8 9
10 11 12 13 14nyílván ezt több ezer számmal, és én az 5 6 7 8 9 sorra szeretnék rákeresni, szimplán a számok megadásával. Hogy lehetséges?
üdv
Úgy még sosem volt, hogy valahogy ne lett volna! -
Delila_1
veterán
Örülök, hogy sikerült az egyszerűbb módszerrel összehozni, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
-
33200 - 33101
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 35901 35900 - 35801 35800 - 35701 35700 - 35601 35600 - 35501 35500 - 35401 35400 - 35301 35300 - 35201 35200 - 35101 35100 - 35001 35000 - 34901 34900 - 34801 34800 - 34701 34700 - 34601 34600 - 34501 34500 - 34401 34400 - 34301 34300 - 34201 34200 - 34101 34100 - 34001 34000 - 33901 33900 - 33801 33800 - 33701 33700 - 33601 33600 - 33501 33500 - 33401 33400 - 33301 33300 - 33201 33200 - 33101 33100 - 33001 33000 - 32901 32900 - 32801 32800 - 32701 32700 - 32601 32600 - 32501 32500 - 32401 32400 - 32301 32300 - 32201 32200 - 32101 32100 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
Hirdetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- HP. Laptop. i5. Model: 15-da1002nq
- Team Group 32GB DDR4 3200MHz TED432G3200C22BK
- AKCIÓ! 2TB Samsung 980 PRO NVMe SSD meghajtó garanciával hibátlan működéssel
- Sony Playstation konzolok Okosítása / Szervizelése - TMR Szenzor bépítés // 13.00-s PS4 Moddolás
- Lenovo IdeaPad Slim 3 Ryzen 7 8840HS 15" FHD+ 16GB 1000GB Teljeskörű garancia
- Bomba áron dobozos Hp Laptop! /AMD Ryzen 5-7520U/8 GB/256 SSD/FHD/Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest















