- Milyen belső merevlemezt vegyek?
- ThinkPad (NEM IdeaPad)
- Milyen CPU léghűtést vegyek?
- Vezetékes FEJhallgatók
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Kompakt vízhűtés
- Google Chromecast topic
- Halasztja a Recall funkció aktiválását a Microsoft
- Milyen billentyűzetet vegyek?
- AMD GPU-k jövője - amit tudni vélünk
Hirdetés
-
Olcsó USB WiFi AC adapter
lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.
-
Nagy fordulat jöhet az OpenAI-n belül
it Profitorientált céggé válhat az OpenAI, erősítette meg Sam Altman.
-
Csúcskategóriás PCIe 5-ös SSD-k a Gigabyte-tól
ph Az Aorus 14000 Gen5 széria 1 TB-os kapacitástól indul, és mérettől függően 14 GB/sec körüli olvasási sebességet kínál.
-
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
-
alfa20
senior tag
Sziasztok,
Van egy makróm, ami egy inputbox-ból kéri be mit szeretne az illető, az a bajom, hogy ha a "Cancel"-re nyomnak, akkor azt is rossz válasznak veszi, hogy még is ki tudjanak lépni, nem túl elegáns modón, de ha a rossz válaszok elérik a 2-őt akkor kilép a programból.
Be lehet szúrni egy parancsot amivel a "cancel"-re kilép?
Sub leosztás()
Dim usor As Long, usor2 As Long, usor3 As Long, usor4 As Long
Dim uszlp As Integer, RvA As String, regi As String, ujful As String
Dim RV As Byte
RV = 0
10
If RV = 2 Then Exit Sub
RvA = InputBox("Áttárolást vagy Rendelés szeretnél leosztani?" & vbCrLf & "(A/R)", "Válassz leosztást!")
If RvA = "a" Or RvA = "A" Or RvA = "r" Or RvA = "R" Then
GoTo 20
Else
MsgBox ("Rossz válasz!")
RV = RV + 1
GoTo 10
End If
20
Application.ScreenUpdating = False
....
End Sub()"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Telda
addikt
Hali!
Használja valaki a FONETIKUS függvényt? Mert nekem nem akar működni.
-
Delila_1
Topikgazda
-
ZohanKAA
csendes tag
Hali!
A következő problémára kellene nekem megoldás, de egyenlőre nem jövök rá sehogy sem.
egy vonalkód egy része tartalmaz egy kódszámot: pl 073 ez konkrétan nálunk a mai napot jelenti ( 7. hét 3. nap. ha 523 lenne az például az: 52. hét 3. nap.
Nekem ebből valahogy dátumot kellene csinálnom. szóval ha beolvasom a vonalkódból a 073-as számot azt szeretném ha a másik oszlopba ezt jelenítené meg: 2015.02.11
Fordítva egyszerű mert van rá függvény az excelben, de erre sehogy nem jövök rá.
Milyen megoldások létezhetnek?Előre is köszönöm a segítséget!
Üdv, ZohanKA!
-
-
vasq
csendes tag
Sry ZohanKAA , félre nyomtam az elöbb.
[ Szerkesztve ]
-
HIJ
őstag
Sziasztok!
Remélem valaki tud valamit ajánlani a problémámra, mert a koleganő a halálba kerget...
Adott egy office 2013 smal bussines, aminek az excelle kissé lassú. Illetve nem is maga a működése vagy betöltése, hanem beíráskor ha gyorsan gépelsz és váltod a cellákat, akkor lemarad. Tehát a beírás és a folyamatos enterezéskor kicsit belassul. Ha megállasz, akkor ő még pl a két cellával le van maradva. Maga a gép nem egy erőmű de bőven jónak kéne lennie egy excell működéséhez (AMD Sempron 140, 4 Gb DDR3). Találtam olyat, hogy hardveres grafikus gyorsítás tiltása, na azzal kicsit gyorsabb lett, de még mindig bőven rossz...
Találkozott már valaki ezzel a problémával? -
slashing
senior tag
elég szivatós a dolog mert ahogy delila is írja az 523 lehet 5. hét 23 és lehet 52. hét 3 is és ilyenből lehet több száz vagy ezer variáció, nah most addig nincs gond míg csak olyan vanalkódot olvasol be ami a mai nap vagy azutáni de ha mondjuk decemberben kell beolvasni egy május vonalkódot akkor az mindenképpen szívás...
(#25411) HIJ
Nálam is van ilyen ha elindítok egy bizonyos alkalmazást lényegtelen most mit de akkor totál belassul nekem is az excel kénytelen vagyok kilépni a másikból addig.... ha fut mellette valami másik erőforrás igényes program akkor azokat addig zárjátok be....
[ Szerkesztve ]
-
pirit28
csendes tag
Sziasztok !
Ismét egy kis segítség kellene.
Hogyan tudnám ezeket a számokat külön bontani függvénnyel,külön külön egy egy cellába ?
A segítséget előre is köszönöm !
-
félisten
-
pirit28
csendes tag
válasz Fire/SOUL/CD #25419 üzenetére
Szia !
Kösz ,ezt tudom hogy hogyan kell ,de automatizálni szeretném ,ha lehet függvénnyel.
[ Szerkesztve ]
-
slashing
senior tag
válasz pirit28 #25418 üzenetére
Ha A2-től vannak a szorzások:
A bal képlete: =HA(SZÁM(A2)=IGAZ;A2;BAL(A2;SZÖVEG.KERES("~*";A2)-1)*1)
A közép képlete: =HA(SZÁM(A2)=IGAZ;"";HAHIBA(KÖZÉP(A2;SZÖVEG.KERES("~*";A2)+1;SZÖVEG.KERES("~*";A2;SZÖVEG.KERES("~*";A2)+1)-SZÖVEG.KERES("~*";A2)-1)*1;JOBB(A2;HOSSZ(A2)-SZÖVEG.KERES("~*";A2))*1))A jobb szélével egyenlőre még nem jutottam dűlőre, valaki besegítehne, kezdek belezavarodni a sok szöveg.keresbe....
-
slashing
senior tag
válasz slashing #25421 üzenetére
Jobb széle
=JOBB(A2;HOSSZ(A2)-(SZÖVEG.KERES("~*";A2)+SZÖVEG.KERES("~*";A2;SZÖVEG.KERES("~*";A2))))
Valaki tiszta aggyal nézze már meg mert nekem már nem fog pedig olyan közel a cél 4-ből kettőre jót ad de a másik kettőre nem, a plusz minuszokkal kéne játszani valahogy illetve honnan számolja a követekező * keresést... már ha ez így érthető én már teljesen belezavarodtam
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz pirit28 #25420 üzenetére
Makróval:
Sub Szetcincal()
Dim adat
If InStr(Selection, "*") > 0 Then
adat = Split(Selection, "*")
Selection.Offset(, 1) = adat(0)
Selection.Offset(, 2) = adat(1)
On Error Resume Next
Selection.Offset(, 3) = adat(2)
Else
Selection.Offset(, 1) = Selection.Value
End If
End SubRáállsz a szétszedendő cellára, és indítod a makrót.
Sajnos saját készítésű függvényt nem lehet rá írni, mert az nem tud a szomszédos cellákba rajzolni.Programozó: 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 slashing #25422 üzenetére
Szia!
Ha az A1-ben van a szám:
Bal széle:
=HA((HOSSZ(A1)-HOSSZ(HELYETTE(A1;"*";"")))=0;A1;ÉRTÉK(BAL(A1;SZÖVEG.KERES("~*";A1)-1)))
Közepe:
=HA((HOSSZ(A1)-HOSSZ(HELYETTE(A1;"*";"")))=0;"";HA((HOSSZ(A1)-HOSSZ(HELYETTE(A1;"*";"")))=1;ÉRTÉK(HELYETTE(A1;C1&"*";""));ÉRTÉK(KÖZÉP(A1;SZÖVEG.KERES("~*";A1)+1;SZÖVEG.KERES("~*";HELYETTE(A1;C1&"*";""))-1))))
Jobb széle:
=HA((HOSSZ(A1)-HOSSZ(HELYETTE(A1;"*";"")))=0;"";HA((HOSSZ(A1)-HOSSZ(HELYETTE(A1;"*";"")))=1;"";ÉRTÉK(HELYETTE(HELYETTE(HELYETTE(A1;"*";"");C1;"");D1;""))))Ez elvileg 3 tényezős szorzatig működik, ha nincs szorzás azt is tudja, ha 2 tényező van, azt is.
Üdv.
[ Szerkesztve ]
-
slashing
senior tag
válasz Fferi50 #25424 üzenetére
Hmmm, teljesen máshogy közelítetted meg mint ahogy én de ez is szép képlet lett közben rájöttem a hibámra szóval akkor az én képleteim szintén 3 tényezős szorzásig:
Bal széle:
=HA(SZÁM(A2)=IGAZ;A2;BAL(A2;SZÖVEG.KERES("~*";A2)-1)*1)
Közepe:
=HA(SZÁM(A2)=IGAZ;"";HAHIBA(KÖZÉP(A2;SZÖVEG.KERES("~*";A2)+1;SZÖVEG.KERES("~*";A2;SZÖVEG.KERES("~*";A2)+1)-SZÖVEG.KERES("~*";A2)-1)*1;JOBB(A2;HOSSZ(A2)-SZÖVEG.KERES("~*";A2))*1))
jobb széle:
=HAHIBA(JOBB(A2;HOSSZ(A2)-SZÖVEG.KERES("~*";A2;SZÖVEG.KERES("~*";A2)+1))*1;"")
Egyedül a ha szám amin lehet változtatni kéne de ha alapból általános a cella beállítottsága akkor nem lesz gond ha előre be van állítva szövegre akkor át kelll állítani általánosra.
-
Fferi50
őstag
válasz Delila_1 #25423 üzenetére
Szia!
Ha már makró, próbáljuk meg tömbfüggvénnyel:
Function szetszedo(ByRef cl As Range)
alap = cl.Value
alap = alap & String(2 - UBound(Split(cl.Value, "*")), "*")
szetszedo = Split(alap, "*")
End FunctionKijelölöd a 3 cellát vizszintesen, ahová az eredményt szeretnéd kapni.
Ezután beírod =szetszedo(A1) , ha a "szétdobandó" szám az A1 cellában van.
Tömbképletként (shift+Ctrl+Enter) beviszed.Üdv.
[ Szerkesztve ]
-
Treb
tag
Sziasztok!
Én is egy kis segitséget szeretnék kérni excelben!
Arrol lenne szó hogy adott excel táblázatban mindennapnak külön füle van és minden fülön van 5 táblázat hasonló adatokkal de napi szinten azért vannak változások. Ezekből a táblázatokból az egyiket szeretném egy külön lapra másolni ugy hogy a napok szerint sorba egymás alá kerüljenek lehetőleg automatán menjen a dolog ha megoldható!
THX -
Sziasztok!
Azt a feladatot kaptam, hogy egy ehhez hasonló excel táblában az azonos azonosítójú (c. oszlop) számokat adjam össze, majd ha a végeredmény a és b oszlopban megegyezik, akkor törlődjön, ha pedig nem egyezik a két oszlop, akkor maradjon meg. Meg lehetne ezt valahogy oldani egy képlettel, mert az eredeti nem 13 soros, hanem 30000, ami egyesével több napot venne igénybe, mire kiválogatnám. Az volna a legjobb, ha mellette kilistázná a különbözőeket, mint ahogy azt a jobb oldalon illusztráltam.
Nagyon, nagyon megköszönném, ha ebben valamelyikőtök tudna segíteni, mert már egy napot bogarászással töltöttem és nem volt egy kellemes élmény.[ Szerkesztve ]
-
Delila_1
Topikgazda
Első lapnak betettem egy Havi nevűt, ahova bemásoltam a többi lap címsorát. Minden lapon az első a címsor.
Az összegző makró:
Sub Kigyujtes()
Dim usor As Long, sor As Long, lap As Integer, WSH As Worksheet
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Set WSH = Sheets("Havi")
For lap = 2 To Worksheets.Count
With Sheets(lap)
usor = .Range("A" & .Rows.Count).End(xlUp).Row
.Rows("2:" & usor).Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)
End With
Next
End SubSzerk.: eddig nem szórta szét a fórummotor ilyen randán a sorokat.
[ Szerkesztve ]
Programozó: 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
Topikgazda
A
.Rows("2:" & usor).Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)sorban a félkövér helyére
Range("A100:K200")-at írj.
Az usor = .Range("A" & .Rows.Count).End(xlUp).Row sor nem kell.
Még a Dim kezdetű sorból is kimaradhat az usor As Long, de nem szükséges kitörölni, nem árt semmit.
[ Szerkesztve ]
Programozó: 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
Topikgazda
válasz mustang08 #25431 üzenetére
A G oszlopba kigyűjtöd a C egyedi rekordjait (régebbi verziókban Adatok | Szűrő | Irányított, 2007-től Speciális szűrés).
A kép szerinti képleteket beírod az E, F, és I oszlopokba. Azokat a cellákat törölheted, ahol az I oszlopban HAMIS érték van. Kijelölöd az E2:I2 cellákat, Ctrl+ mínusz jel, cellák eltolása felfelé.
Ez utóbbira lehet írni egy makrót.Programozó: 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
Topikgazda
A próbálkozások között törölnöd kellett volna a Havi lap kigyűjtött adatait.
Beírtam a makróba, hogy tegye ezt meg.Sub Kigyujtes()
Dim usor As Long, sor As Long, lap As Integer, WSH As Worksheet
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Set WSH = Sheets("Havi")
usor = WSH.Range("A" & WSH.Rows.Count).End(xlUp).Row
WSH.Range("A2:K" & usor).ClearContents
For lap = 2 To Worksheets.Count
With Sheets(lap)
.Range("A100:K200").Copy WSH.Range("A" & WF.CountA(WSH.Columns(1)) + 1)
End With
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.
-
-
robull5
csendes tag
Sziasztok, szeretnék tanácsot kérni a következőben:
Van egy A1:A500-ig lévő különböző neveket tartalmazó oszlop. Szeretném megkerestetni és megszámoltatni az excellel, hogy hányszor fordult elő A oszlopban lévő "Anasztázia" a B1 : B500 és C1 : C500 oszlopban lévő értéke együttesen (magyarul mind a kettő értéket vizsgálja meg egyszerre, és számoltassa meg)
Példa:
Sor A B C
12 Anasztázia 0 1
130 Anasztázia 1 0
142 Anasztázia 3 0
168 Anasztázia 0 1
220 Anasztázia 1 0
456 Anasztázia 0 1
500 Anasztázia 5 2Ezt szeretném elérni, én az előfordulásra és annak darabszámára vagyok kíváncsi:
Tehát:
Anasztázia
0 1 3 db
1 0 2 db
3 0 1 db
5 2 1 dbVBA-t nem tudok használni, csak függvénnyel meg tudjuk oldani?
Üdvözlettel Robi[ Szerkesztve ]
-
slashing
senior tag
válasz robull5 #25443 üzenetére
Többlépcsős megoldással lehet csak megcsinálni.
Először is kell csinálni mondjuk a D oszlopba egy összefűzést:
=A2&" "&B2&" "&C2
Ha ez megvan akkor irányított szűréssel(fontos hogy fejléccel el legyen látva a táblázat, ezért van fent a képletben A2 B2 C2, de részletesebben nem megyek bele az irányított szűrésbe, keress rá példát a neten ha még nem csináltad, nem bonyolult) az egyedi értékeket kiszűrni valahova a táblázatba és ha ez megvan akkor az egyedi értékek mellé már csak egy darabteli függvény kell amiben megadod az összefűzött oszlopot tartománynak kritériumnak meg az egyedi értékeket és kész is vagy...
[ Szerkesztve ]
-
slashing
senior tag
válasz slashing #25445 üzenetére
csak mert unatkoztam: http://data.hu/get/8507616/2015-02-14_23-34-32.mp4
-
robull5
csendes tag
válasz slashing #25446 üzenetére
Szia. Isten király vagy, főleg, hogy ennyit foglalkoztál vele és még videóval is prezentáltad, ez csillagos 5-ös, jár a jutalomkönyv év végén a bizonyítványkiosztásnál
Amúgy én is pont ilyennel gondolkoztam, meg is tudnám csinálni, egy hasonló táblában csináltam így ahogy te, csak a gond nekem az, hogy abból a táblából amire hivatkozok, oda nem tudok már több oszlopot beszúrni, (hosszú, akarom mondani széles: CY-ig), mert félő hogy csúsznak a "dolgok".
Néztem ezt a SZUMHATÖBB függvényt értem, hogy mit szeretne, csak valahogy nem tudom megvalósítani
-
slashing
senior tag
válasz robull5 #25447 üzenetére
az irányított szűrést lehet csinálni új munkalapra is annyi különbséggel hogy előbb meg kell adnod egy sorban a fejléceket majd arról a lapról indítani az irányítottt szűrést ahova ki akarod gyűjteni, fontos hogy ne onnan indítsd ahonnan gyűjtesz mert akkor valamiért nem enged lapot váltani.
remélem érthetően és jól írtam le, én még nem sokat használtam ezt a funkciót...
üdv.
-
Delila_1
Topikgazda
válasz Gyufaaa #25449 üzenetére
Feltételes formázást adj azokra a cellákra, amik az A1 cellával azonos értékeket tartalmazhatnak. A képlet:
=G4=A1
Ezt a G4-en állva viheted be. Az első egyenlőségjelet úgy értelmezd, mintha a HA szó lenne ott.
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
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Vírusirtó, Antivirus VPN kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!