-
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
-
biker
nagyúr
válasz Fferi50 #23250 üzenetére
Ugy ertem, hiperhivatkozas, a mezoben levo szovegre kattintva megnyitja a munkalapot
Tekintsd tartalomjegyzeknek
Ekkor nem kellett mezore hivatkozni, 2010 mar megkoveteliA masik felere: nem macro gond, regen gond volt egy sima sum/szum is
Delila: koszi, megkeresem
[ Szerkesztve ]
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
-
Zirowe
nagyúr
Sziasztok, gyors kérdés, nem tudom volt-e már: több monitoros rendszer esetén hogyan lehet megoldani azt, hogy két megnyitott excel file két különböző monitoron jelenjen meg?
Mert míg ez működik worddel, addig az excel mindig egy monitorra viszi az össze megnyitottat.We've jumped way beyond the Red Line. Limited supplies. Limited fuel, and now no hope! But I promise you one thing. On the memory of those lying here before you, we shall find it. And Earth will become our new home. So say we all!
-
#02644736
törölt tag
Sziasztok?
Azt hogy lehetne megoldani, hogy ha bármilyen számot beviszek az excelbe (2013-as), akkor azt kerekítse 0,05-re?
-
Tido
aktív tag
Sziasztok, azt milyen függvénnyel tudom elérni, hogy egy egy oszlopban 4 szöveges elemet vizsgáljon, ha ezek közül az egyik értéke NO akkor az eredmény NO, ha a 4 elemből mindegyik OK, akkor OK legyen az eredmény?
HA függvényre gondoltam, de abban nem tudom beállítani a tartományt, csak 1 cellát vizsgál meg.
Köszi a segítséget!
UPC 300/20 + Synology DS418play + RB2011UiAS-2HnD
-
-
rgeorge
addikt
válasz Zirowe #23256 üzenetére
Melyik office verzió? Ha jól emlékszem, a 2010/2007-ben alkalmazásonként lehet beállítani, hogy a dokumentumok/munkafüzetek külön ablakot kapjanak (és tálcagombot) vagy nem. Lehet, hogy ez tér el Nálad az Excel és a Word beállításaiban.
Picard: "What we leave behind is not as important as how we've lived. After all, Number One, we're only mortal." Riker: "Speak for yourself, sir. I plan to live forever."
-
Zirowe
nagyúr
válasz rgeorge #23270 üzenetére
Közben keresgéltem a topicban és találtam megoldást (elindítani rendesen a megnyitni kívánt excel dokumentumot, majd megnyitni egy új excelt és onnan a másodikat), ami az eddigi állapothoz képest mindenképpen haladás.
Viszont akkor amit te mondasz, hogy alkalmazásonként eltérő beállítást lehet adni, az hogyan oldható meg?
Tehát hogy a külön megnyitás legyen alap.Office 2010, illetve munkahelyi gép, feladatkezelő elérése le van tiltva (csak mert láttam olyan megoldást is, amihez az kellett).
We've jumped way beyond the Red Line. Limited supplies. Limited fuel, and now no hope! But I promise you one thing. On the memory of those lying here before you, we shall find it. And Earth will become our new home. So say we all!
-
Des1gnR
őstag
válasz Fferi50 #23246 üzenetére
Közben az a helyzet állt elő, hogy van amikor az új árlistában kevesebb termék van, így azokat ami a "mi" listánkba benne van és az újba nincs, azt ki szeretném listázni egy új munkalapra.
Az általad írt ciklust fordítottam vissza és 80%-ban működik is, de a két munkalap sorainak számának különbségéből látom, hogy 21 terméket vettek ki az új listából, ám az én makróm csak 17-et listáz ki.
Sajnos nem jöttem rá, hogy mi a gond. (Remélem nem bonyolítottam túl a leírást.)For i = 2 To Sheets("pm_nk_arlista").UsedRange.Rows.Count
Set ujszam = Sheets("pm_nk_arlista_uj").UsedRange.Columns(1).Find(What:=Sheets("pm_nk_arlista").Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
If ujszam Is Nothing Then
Sheets("Kiesett_termékek").Cells(a, 1).Value = Sheets("pm_nk_arlista").Cells(i, 1).Value
Sheets("Kiesett_termékek").Cells(a, 2).Value = Sheets("pm_nk_arlista").Cells(i, 2).Value
Sheets("Kiesett_termékek").Cells(a, 3).Value = Sheets("pm_nk_arlista").Cells(i, 3).Value
Sheets("Kiesett_termékek").Cells(a, 4).Value = Sheets("pm_nk_arlista").Cells(i, 4).Value
Sheets("Kiesett_termékek").Cells(a, 5).Value = Sheets("pm_nk_arlista").Cells(i, 5).Value
a = a + 1
End If
Next iVan ötletetek?
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
nobela
senior tag
Sziasztok, azt hogy lehet megcsinálni, hogy egy oszlopban lévő összes bejegyzés elé bekerüljön ugyanaz a 2 karakter?
Tehát előtte így néz ki:
xhf
ssg
mtzÉs így szeretném:
YYxhf
YYssg
YYmtz(nyilván több száz sorról van szó)
Köszi.
ÁRESÉS !!! Sennheiser HD 650 (szinte teljesen új) magyar garanciával, akár ezüstözött szimmetrikus kábellel is eladó 119.900.- Ft
-
Des1gnR
őstag
válasz nobela #23276 üzenetére
Feltételezve, hogy az A oszlopról van szó és a 2. sortól indul. Ha az első sortól akkor a for ciklus 1-től induljon. Ha másik oszlopról akkor pedig Cells( i, 1) részt írd át. Az 1 jelöli az A oszlopot, a 2 a B-t és így tovább. A Munkalap_neve természetesen a saját munkalapod neve legyen.
Sub YY()
For i = 2 To Sheets("Munkalap_neve").UsedRange.Rows.Count
Sheets("Munkalap_neve").Cells(i, 1).Value = "YY" & Sheets("Munkalap_neve").Cells(i, 1).Value
Next i
End Sub[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
-
bteebi
veterán
Sziasztok!
Olyat szeretnék csinálni makróval, hogy egy adott file összes munkalapján kicseréljek egy adott szót, pl. az almát körtére. Makró nélkül könnyen meg lehet oldani, hatókörnek a munkafüzetet kell megadni:
Ilyen opciót azonban VBA-ban sehol se találtam, ezért úgy gondoltam, hogy ciklusban lefuttatom az összes munkalapon. A kód:
Sub csere()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRows
Next
End SubAz aktív lapon lefut jól, de a többinél valamiért nem megy. Mi lehet a baj?
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
-
m.zmrzlina
senior tag
válasz bteebi #23281 üzenetére
A Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRows
helyesen: ws.Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRowsVagy kevésbé elegánsan: a
For Each ws In ActiveWorkbook.Worksheets
sor után ted be a következő sort:
ws.Activate -
bteebi
veterán
Delila_1, m.zmrzlina, köszönöm!
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
válasz bteebi #23281 üzenetére
És azt hogy lehetne megcsinálni, hogy egy input box-ba beírt értéket cseréljen le (mindig ugyanarra, ""-re)? Beírnám az értéket, lecseréli, és addig menne, amíg cancel-t nem nyomok.
Mások kódjai alapján egyelőre eddig jutottam, minden bizonnyal több hiba is van benne.
Először is: le se fut , "Object required" hibát ír ki. Meg minden bizonnyal a ws.Cells.Replace What rész se stimmel. Meg tudnátok mondani, hogy hol hibáztam?Sub csere()
Dim ws As Worksheet, cserelni As String
On Error Resume Next
Application.DisplayAlerts = False
Set cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
Title:="Csere", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
If cserelni Is Nothing Then
Exit Sub
Else
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:="cserelni", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Next
End If
End Sub[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
válasz Delila_1 #23286 üzenetére
Na, így már működik - vagyis egyszer lefut, jól. Azt hogy lehetne megoldani, hogy mindig legyen új inputbox, amíg cancel-t nem nyomok? Úgy a makró újraindítása nélkül több szót is le lehetne cserélni egymás után.
Sub csere()
Dim ws As Worksheet, cserelni As String
On Error Resume Next
Application.DisplayAlerts = False
cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
Title:="Csere", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:=cserelni, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Next
End SubCancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
válasz bteebi #23287 üzenetére
Vázlat:
Sub CsereBere()
Kezd:
cserelni = Application.InputBox("Mit cseréljek?", "Csere", , , , , , 2)
If cserelni = False Then
Exit Sub
Else
'Csere művelet
GoTo Kezd
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.
-
gbela
senior tag
Sziasztok,
tegnap frissítettem Excel 2013-ra és egy alap kis dolog ami nagyban könnyítette a munkámat megváltozott.
Adott két munkafüzet nyitva egymás mellett. Egyikben mindenféle szűrés meg minden beállítva, és kijelölve egy cellacsoport számokkal. Alul mutatja ugye az összegüket, tökjó, örülünk, ezt kell nekünk begépelni a másik munkafüzet egyik cellájába. Namost 2010-es verzióban ez simán ment, itt viszont ha átkattintok a másikba akkor az elsőben eltűnik, nem mutatja lent a sum-ot. Minden előző verzióban ott megmaradt a kijelőlés, így simán be tudtam írni a másik ablakba. Naponta több tucat alkalommal kell ezt megtennem, most nem igazán látok rá megoldást, valaki esetleg? -
slashing
senior tag
válasz Des1gnR #23292 üzenetére
két fájl egymás mellett külön ablakban az egyikben számok pl. A1:A10 mondjuk csupa 1-es ezt kijelölöd akkor a státuszsorban kiírja ezeknek az átlagát az összegét és hogy hány cella van kijelölve de csak addig míg át nem kattintasz a másik fájlra vagy munkafüzetre mert akkor már az lesz aktív és nem mutatja az előbbi adatokat lent...
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Én ezt csak úgy tudom elképzelni, hogy korábban a két fájl két külön alkalmazásablakban volt megnyitva most meg egyben.
Magyarul egyetlen példányban van az excel megnyitva és azon belül a két fájl. Ha így van akkor nem szabad azt várni, hogy az aktív munkafüzet státuszsorában a nem atívhoz tartozó adatok látszódjanak.
[ Szerkesztve ]
-
slashing
senior tag
jaja olyan mint régen a böngészők annyi böngészőt kellett nyitni amennyi oldalt néztünk most csak egyet és azon belül vannak a fülek, csak az excelben nincsenek fülek. Látszólag többször van megnyitva az excel de valójában csak egyszer... átfutottam a beállításokat de nem találtam rá utaló dolgot de nem lepődnék meg ha lenne rá valami registry hack vagy hasonló de azon sem ha nem lenne
-
gbela
senior tag
válasz m.zmrzlina #23295 üzenetére
Igen, én is erre gondoltam elsőre (régiben ugye konkrétan abba az ablakba nyitotta meg alapból a fájlokat, és külön indítva excelt és azon menüből megnyitva a fájlt lehetett a két ablakot csak egymás mellé tenni, tehát ahogy írod is, két példány futott).
Viszont ha ugyanezzel a módszerrel nyitom meg most akkor is (mintha) ugyanabban a példányban nyitja meg. Tehát a probléma gyökere ha jól veszem ki, hogy nem sikerül két példányt futtatnom magából az Excelből.
Erre ötlet?[ Szerkesztve ]
-
gbela
senior tag
válasz m.zmrzlina #23299 üzenetére
2013-ban nincs ilyen beállítás, de sikerült közben megoldanom a gondom (bár a paraméterezett Excel shortcut tálcára juttatása is szép történet), szóval minden oks.
Új hozzászólás Aktív témák
- Steames kulcsok jó áron eladóak!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."