-
IT café
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
-
Delila_1
Topikgazda
válasz sutyimatyi #21545 üzenetére
A helyedben elfordítanám 90°-kal a táblázatot.
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 lazlogogola #21544 üzenetére
Látatlanban arra gondolok, hogy a forrásban nem az A1-ben kezdődnek az adataid.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DS39
nagyúr
a gépemen nincs telepítve semmilyen nyomtató, de eddig mindig meg tudtam nézni a nyomtatási képet probléma nélkül (leginkább Word-ben volt erre szükségem). most úgy adódott hogy Excelben kellett volna, de ott hibaként jelzi hogy nincs nyomtató, így meg sem jeleníti a nyomtatási képet. be lehet állítani az Excelt hogy nyomtató nélkül is lássam az előnézeti képet?
-
Delila_1
Topikgazda
válasz sutyimatyi #21554 üzenetére
Nem látom át, miket számolsz. Van kezdési idő, de nincs végzés.
Mondd meg a főnöknek, hogy neki is könnyebb lefelé görgetni, mint oldalra. Mindig azt tesszük a sorokba, amiből több van. Itt a napokból max. 31 van, ráadásul naponként 3 adatot kell látni. Fordított elrendezésnél minden adat látszik az oszlopokban.
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 lazlogogola #21558 üzenetére
Küldd el a két fájlt, privátban megadom a címet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kerteszke3
újonc
A következő lenne a kérdésem: hogyan lehet képlettel és segédoszlop nélkül összeszámolni két számsorban az egyezések számát, ha a számok sorrendje is számít? Tehát megnézi, hogy az első helyen álló számok egyeznek-e, utána azt, hogy a második helyen állók megegyeznek-e stb.
Legyen mondjuk a két tömb A1:A5 és B1 : B5. Ekkor például 1,2,3,4,5 és 0,1,2,3,4 esetén a képletnek 0 db egyezést kellene adnia, míg 1,2,3,4,5 és 1,2,5,6,3 esetén 2 darabot.
Előre is köszönöm!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz kerteszke3 #21565 üzenetére
Tömbképlet! beírod a képletet a kapcsos zárójelek nélkül, majd a szerkesztőlécen állva Shift+Ctrl+Enterrel viszed be.
{=DARAB(HA((A1:A5)=(B1:B5);B1:B5))}
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 kerteszke3 #21567 üzenetére
Örülök neki, 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.
-
Delila_1
Topikgazda
válasz littleNorbi #21569 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
PistiSan
addikt
válasz Delila_1 #21527 üzenetére
Maradtam végül az eredeti megoldásnál, kis módosítással.
Eredeti: =JOBB(B1;(HOSSZ(B1)-2))
Új:= =JOBB(B1;(HOSSZ(B1)-2))*1A TRIM-el sajnos nem volt jó, mert ugyan megkaptam a számot, de szorozni nem lehetett 1-el, hibát kapsz úgy.
Ha kimásolom, és értékként illesztem be, majd megszorzom 1-el, úgy jó volt, de az első verzió végül is jobb megoldás. -
kőbaltazár
tag
Sziasztok!
Saját készítésű legördülő listában lehet valahogy egérgörgővel le-fel közlekedni? (EXCEL 2003)
Üdv és köszi!Üdv: Kőbaltazár
-
kőbaltazár
tag
Ja még annyit, hogy a listában jelenleg 8 tétel látszik. Be lehet állítani, hogy több látszódjon?
Üdv: Kőbaltazár
-
Delila_1
Topikgazda
válasz ildikol #21575 üzenetére
Töröld ki az If Target.Column = 16 Then sort, és a hozzá tartozó utolsót, az End If-et.
Lesz egy káros hatása. Ahányszor beírsz valamit az első lapra, annak a sorát átmásolja egy új sorba a másik lapra. Mire kitöltöd a teljes sort (A-tól P-ig), 16 új sorod lesz a másoltakat tartalmazó lapon.
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 ildikol #21577 üzenetére
Az a gyanúm, hogy nem pontosan másoltad a makrót. A
Cells(Target.Row, "Q") = Time sor határozza meg a beírandó MOST() függvény helyét.Képet akarsz betenni? Annak nincs sok értelme. Tedd ki a fájlt egy elérhető helyre, de előbb a nem publikus adatok helyett írj bele kamu értékeket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ildikol
újonc
válasz Delila_1 #21578 üzenetére
Megnéztem, de nem találok benne hibát..
Privatesubworksheet Change(byvaltargetAsRange)
Application.EnableEvents = False
Cells(Target.Row, "Q") = Time 'aktuális idő beírása
Application.EnableEvents = TrueIf Cells(Target.Row, "P") = "Eztkellmásolni" Then 'ezt a szöveget írd át
Masol Target.Row 'Masol makró meghívása, az aktuális sor értékének átadásával
Else
Application.CutCopyMode = False
End If -
veterán
-
veterán
válasz bandus #21583 üzenetére
illetve még a kérdés, hogy ha megvan a kívánt cella, annak akkor azt ugye A$1$ formátumban kapom meg. ebből hogyan nyerek ki két számot (a példában ugye 1,1), amit később használhatok?
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz bandus #21584 üzenetére
Feltettem ide. Az új makró a Module2-ben van.
Miért Private? Azt csak a VB szerkesztőből tudod indítani, nem jelenik meg a címe az F8-cal behívott párbeszéd ablakban.
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 bandus #21584 üzenetére
Az egyszerűség kedvéért a keresést rögzítéssel vettem fel. utólag vettem észre, hogy nem állítottam le a rögzítést. A makró csak ennyi:
Sub Keres()
Dim tofind As Date, sor As Long, oszlop As Long
tofind = Range("A3")
Sheets("FEL").Select
Cells.Find(What:=tofind, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
sor = Selection.Row
oszlop = Selection.Column
MsgBox "Sor: " & sor & vbLf & "Oszlop: " & oszlop
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.
-
veterán
válasz Delila_1 #21585 üzenetére
hát, hogy őszinte legyek csak ezt ismerem, nem tudom milyen sub-ok vannak mégéshogy mi mire jó viszont a linkeden nem érek el sajnos semmit sem.
szerk:köszönöm, szuper!
annyi érdekelne még, hogy az beállítható-e, hogy milyen range-ben keressen?
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz bandus #21587 üzenetére
Megkapod a találat sorát és oszlopát.
Mivel nem írtad, mit akarsz kezdeni ezzel a két adattal, jobb híján kiírattam az értéküket. Gondolom, másolni akarod a FEL és LE lapokra, mivel azoknak a nevét betetted egy-egy változóba.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csongi
veterán
Sziasztok!
Folytatom a művemet
Olyan függvényt keresek, ami listával használható.
Vagyis
Ha B1 listába kiválasztom a zöldet, akkor a d2 cella értéke legyen a k5.
Ha b1 listába kiválasztom a kéket akkor a d2 cella értéke legyen a K6.
És így tovább. -
Delila_1
Topikgazda
válasz bandus #21587 üzenetére
mit = Range("a5")
Columns("A:A").Find(What:=mit, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Select
MsgBox Selection.RowSzerk.: itt a keresés végén a Select utasítást látod. Erre azért van szükség, hogy utána le tudd kérdezni a pozícióját. Előtte az A oszlopot jelölted ki, Activate utasítással 1-et írna a találat sorának.
[ 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.
-
PindurAnna
Közösségépítő
Sziasztok. Ismét segítségre lenne szükségem.
Van két oszlopom, amiben számok vannak. Az első oszlopban adószámok - formátuma tehát 12345678-1-12
A második oszlopban cégjegyzékszámok vannak - formátuma 12-12-123456Át kellene színezni azokat a sorokat, ahol az adószám - első oszlop - két utolsó száma nem egyezik a cégjegyzékszám - második oszlop - két első számával.
Galaxy S9+;Lenovo yoga 500;Gigabyte H77-DS3HPentium 840 4GB DDR3-1066, 4820GB+10000GB HDD;27"Lg W2753;TP-LINK WDL4300 router;SAMSUNG ML-1520,Epson Stylus OFFICE BX300F,Samsung Note 10.1, S7 edge
-
Delila_1
Topikgazda
válasz PindurAnna #21592 üzenetére
Kijelölöd a formázandó területet. A formázás képlete
=JOBB($A1;2)<>BAL($B1;2)
[ 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.
-
veterán
válasz Delila_1 #21591 üzenetére
hát vagy nagyon béna vagyok, vagy nemtudom már, kifolyik a szemem, de nem hajlandó operálni nekem, pedig az első pár futtatás jó volt,most pedig mindig ezt a 91-es hibát dobja, pedig elméletileg minden definiálva van.
[link]
tanácstalan vagyok, pedig egyszerűnek tűnik a dolog.jah, és a dátum formázása sem működik, tehát ha a változóba olyan dátum kerül, ami mögött nincs ott a 00:00, akkor a format parancs nem teszi hozzá. már napok óta ezzel az egyszerű dologgal szívok :/
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
alfa20
senior tag
válasz csongi #21590 üzenetére
Szia,
nem emlékszem mennyi színt használtál, de teszem fel ha hármat
pl: zöld, kék, piros
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;"")))ha négy színt használsz, pl: zöld, kék, piros, fehér:
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;HA(B1="fehér";K8;""))))és így tovább...
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
anonymus89
addikt
Sziasztok!
Ezt a képet szeretném megcsinálni excel-ben diagramként tudnátok segíteni mi kellene beállítani, hogy mindkét adattábla látszódjon ugyanígy egymás mellett?
office 2003-ról van szó
ha bepipálom a másodlagos értéktengelyt akkor egyszerűen ráteszi a másikra és egymáson nem egymás mellet lesznek. Nem igaz, hogy ennyit felejtettem és nem bírok rájönni a módjára...[ Szerkesztve ]
Organikus, természetes összetevőjű, 100% tisztaságú bőrápoló termékek //marcsiszappan.hu//
-
lappy
őstag
-
alfa20
senior tag
abban tud valaki segíteni, hogy az alábbi miért nem csatolja be a munkafüzetet?
szeretnék egy makrót, hogy ne keljen mindig ugyan azt megírnom, de a csatolást nem küldi el.
a ".Attachments.Add ActiveWorksheet" sort már próbáltam az alábbiakkal is:
".Attachments.Add ActiveWorksheet.Name"
".Attachments.Add ActiveWorksheet.Fullname"Sub Mail_RE()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "cim@mail.hu"
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = "Hello World!" & vbCrLf & vbCrLf & "szia"
.Attachments.Add ActiveWorksheet
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest