-
Fototrend
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
Képletek:
H3 -> =D3
I3 -> =E3
J3 -> =F3Makró:
Sub mm()
Dim talál As Integer, sor As Integer
Dim usor As Integer, usor_1 As Integer
usor = Range("A1000").End(xlUp).Row
usor_1 = Range("H1000").End(xlUp).Row
For sor = 3 To usor_1
talál = 1
On Error Resume Next
talál = Range("A:A").Find(Cells(sor, 8)).Row
Cells(sor, 11) = Cells(talál, 2)
Next
For sor = 3 To usor
talál = 1
On Error Resume Next
talál = Range("H:H").Find(Cells(sor, 1)).Row
If Cells(sor, 11) = "" Then Cells(sor, 11) = Cells(talál, 2)
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.
-
Azura
csendes tag
Sziasztok
az lenne a kérdésem, hogy hogyan oldható meg, hogy egy excel sheet-en lévő táblázatot exportáljak egy meglévő word dokumentumba makro segítségével.
Előre is köszi a segítséget
Üdv
Azura -
perfag
aktív tag
-
lappy
őstag
Egy olyan kérdésem lenne ha van egy lenyíló listám és be van állítva hogy az objektumot ne nyomtassa, de nem frissíti a benne lévő adatot. Hogyan lehet megoldani hogy frissítve nyomtassa, de ne látszódjon az objektum?
Bámulatos hol tart már a tudomány!
-
Cuci3
tag
válasz Alfonzka77 #9445 üzenetére
Ez kevésbé Excel probléma, inkább statisztika, annak is az ökonometria ága. Elsőként ajánlanék egy kevésbé macerás programot (Eviews), de ha ragaszkodsz az Excelhez:
-ha elcsúsztatod, akkor J oszlopból is kevesebb értéket kell venned: A10:A333 mellé J1:J324 kell, mivel így meg lesz az azonos elemszám. És én valami indirektes szépséggel oldanám meg a K1 cellától kezdve kb így:
+LIN.ILL(INDIREKT("J1:J"&(333-SOR()+1));INDIREKT("A"&SOR()&":A333"))Viszont a statisztikának vannak egyéb szépségei meg feltételei (pl.: sztenderd normális eloszlás a maradéktagra, továbbá heteroszkedaszticitás), melyeket Excelben annyira nem lehet megfigyelni.
-
Break
aktív tag
Sziasztok!
Lenne egy kis problémám ....
Van egy több sorból álló táblázat, ami folyamatosan bővül egy-egy újabb sor bemásolásával.
Melyik függvénnyel lehet elérni, hogy a másik munkafüzetlapba mindig az utolsó sor adatait emelje át pl. hivatkozásként?
Ugyanis mindig az utolsó sor adataiból kellene kitölteni egy űrlapot.Hogy lehetne ezt a legegyszerűbben megoldani?
Köszi ....
''Tedd, vagy ne tedd, de soha ne próbáld......'' by Yoda (Birodalom visszavág)
-
bugizozi
őstag
Hello! Én a következő kis makróval oldanám meg...
ucso = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Munka2").Range("A1") = Sheets("Munka1").Range("B" & ucso)A Munka1 munkalapon lévő táblázat A oszlopának megvizsgálja az utolsó sorát (program első sora), majd a Munka2 munkalap A1 mezőjébe írja a B oszlop utolsó sorában lévő értéket, ami jelen esetben 5 (program második sora).
Remélem ez alapján el tudsz indulni!
ui: lehet makró nélkül is meg lehet oldani, de nekem ez juttott hirtelen eszembe
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Cuci3
tag
válasz bugizozi #9458 üzenetére
Tegyük fel, hogy az adatokat folyamatosan írjuk, nincs benne üres sor, meg mindenhol ki van töltve. Ekkor kell két cella. Az első cellába rakjuk bele azt, hogy melyik az utolsó használt sor (Munka2-n állok):
=SZUM(HA(Munka1!A1:A505<>"";1;0))
Én itt A1:A505 tartományt jelöltem ki, de lehet ennél több vagy kevesebb. Meg ez után kell a cellán egy F2, majd egy ctrl+alt+enter gomblenyomás, hogy a tartomány hivatkozást jól megcsinálja.És innentől már mehet az indirekt - Nekem A1-ben van az előző képlet:
+INDIREKT("Munka1!A"&A1)
Ha nem tetszik, akkor marad a makró. -
lappy
őstag
Sziasztok!
EGY olyan kérdésem lenne, hogyan lehet megoldani azt hogy csak egy A4 -es nagyságú területet lássanak egy munkalapon?Bámulatos hol tart már a tudomány!
-
Break
aktív tag
Köszönöm a tippeket .... nemsokára jelentkezem.
+1x köszi Cuci3 & bugizozi
''Tedd, vagy ne tedd, de soha ne próbáld......'' by Yoda (Birodalom visszavág)
-
perfag
aktív tag
A problémát kicsit pontosabban kellene definiálnod. A táblázatod folytonos, vagy vannak benne üres cellák is? Nem mindegy!
Folytonos tábla esetén, feltételezve A oszlopot referenciaként, feltételezve, hogy 100-nál nem lehet több sor, feltételezve, hogy a referencia munkanap neve Munka1:
=INDIREKT("Munka1!A"&DARAB2(Munka1!A1:A100))Ha lehetnek üres sorok (A oszlopban üres cellák), akkor kell egy számláló cella a Munka1 nevű lapon, legyen ez pl. F6:
{=MAX(SOR(A1:A100)*(A1:A100<>""))}
Ez egy tömbképlet, a kapcsos zárójeleket Ctrl-Shift-Enter egyidejű lenyomásával lehet odavarázsolni (Fire tudott mást, egyszerűbbet itt a fórumban, de én elfelejtettem)
A hivatkozás ekkor így alakul:
=INDIREKT("Munka1!A" & Munka1!F6) -
bugizozi
őstag
Sziasztok!
Szeretnék kérni tőletek egy kis segítséget / tanácsot!
Van egy excel amiben vannak a hét napjai oszlopokban, és minden oszlop alatt van összeítő.A képen két nap összesítője van (minden nap alatt van egy mhely kódja és egy munkaszám).
A feladat az lenne, hogy ezeket összeítsem..itt pl az előző képen a két mhely kódja oszlopot összesítettem kézzel...na ezt kellene, hogy mind a hét napra megcsinlája, és kattintásra..
kérdés: hogyan?Elsőre nem tűnt vészesnek, de akárhogy gondolkodom rajta, nem jut eszembe egyszerű megoldás Optimálisnak az tűnt, hogy kimásolgatom egy oszlopba a kis oszlopokat egymás alá a napok alól, majd annak az oszlopnak az egyedi elemeit szűröm egy adott helyre, majd az elemek mellé valahogy szumha és fkeres fv-ekkel odamásolom az összesített értéket.. de ez nem tűnik valami szép megoldásnak, lehet van valami egyszerűbb... ehhez kérék egy kis segítséget...
Köszi!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
lappy
őstag
válasz m.zmrzlina #9463 üzenetére
És a színét hogyan lehet megváltoztatni?
Bámulatos hol tart már a tudomány!
-
perfag
aktív tag
válasz bugizozi #9465 üzenetére
Nem túl elegáns megoldás, de műxik: öt SzumHa összege szerintem megteszi.
SZUMHA(tartomány; feltételek; [összegtartomány])
A feltételnél relatív hivatkozol az összegző mhelykódra, a tartománynál abszolút hivatkozol az első mhelykód oszlopra, az összegtartománynál abszolút hivatkozol a jobbról lévő értékoszlopra majd egy plusz és megcsinálod ezt a többi napra is.
Ha a 2-es gépre megcsinálod csak lehúzod az egészre. -
lappy
őstag
Sziasztok!
azt hogy lehet megoldani mint a csatolt képen a munkalap területét és színét megváltoztatni?
http://mobilarena.hu/dl/upc/2011-02/15/93425_kyhaoiygumrnbptl_nevtelen1.jpg[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
perfag
aktív tag
Már a #9461-nél is gondoltam, hogy azt szeretnéd, ha csak néhány sor és oszlop lenne látható a munkalapodon.
A képnek megfelelő munkalapot így állítod elő: kijelölöd az 57-es sort, lenyomod a Shift-et, nyomva tartod! leütöd az End-et (ez a baj veletek újoncokkal, akik a Windows-zal ismeritek meg a táblázatkezelőket, hogy csak az egérrel akartok dolgozni, az End funkciókról nem is hallottatok), leütöd a lefelé kurzormozgató nyilat, ettől az összes sor az 57-tel kezdődően kijelölődik, felengeded a Shift-et, jobb egér gomb: Elrejtés.
Jobbról ugyanezt megcsinálod, az end után a jobbra mutató kurzormozgató nyílra bökj.Szín: Teljes táblázat kijelölése gomb, jobb egér gomb, Cellák formázása, Kitöltés lap, Háttérszín megadása.
-
bugizozi
őstag
ezt asszem értem, hogy mit akarsz, a végét én is valahogy így terveztem...csak az "összegző mhelykódot" ami a második képen van a mhely kód alatt oszlop (2 3 5 6 B), azt hogy hozom létre? mert ugye vagy van ismétlődő elem, vagy nincs, ez változó, és nekem minden elem kell és csak egyszer..
ui: amúgy 7 szumha, mert hétfő-vasárnap
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
perfag
aktív tag
válasz bugizozi #9470 üzenetére
A kérdésedből nem értettem úgy, hogy a mhely kódokat is ki kell gyűjtened.
Bár nem értem minek (persze lehet, hogy úgy kell, a feladatból alig ismerek részleteket). Akkor elvileg a második kép mhely kód oszlopa dinamikusan változó?
Szerintem túlbonyolítottad a kitűzött célt, de ilyenkor minimum újra kell gondolni az adatok elrendezését. -
Delila_1
Topikgazda
Sub Áthelyezés()
Dim usor As Integer, sor As Integer, sor_1 As Integer
usor = Range("A50000").End(xlUp).Row
sor_1 = 1
For sor = 1 To usor Step 5
Range(Cells(sor, 1), Cells(sor + 4, 1)).Copy
Cells(sor_1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
sor_1 = sor_1 + 1
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.
-
Swen_N
csendes tag
Sziasztok
Lehet e az EXCEL munkalap sávját kétsorosra állítani valahogy?
Annyi munkalapom van, hogy kényelmetlen a csúszkával "játszani" folyton, ha két soros lenne kényelmesen elférne minden munkalap.
Van rá mód?Köszönöm,
-
félisten
Nem tudom, hogy azt el lehet-e ketté osztani (szvsz nem), de a CTRL+PAGEDOWN vagy PAGEUP segítségével, elég gyorsan lehet "közlekedni" a sheet-ek közt
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Swen_N
csendes tag
válasz Fire/SOUL/CD #9479 üzenetére
vagy esetleg a munkalapok méretét változtatni és akkor összehúznám őket
azért köszi... -
Delila_1
Topikgazda
A lapfülek bal oldalán lévő nyilakon jobb klikkre függőlegesen megjelenik a lapok neve, onnan könnyebben kiválaszthatod a szükségeset.
Tehetsz ki gombokat is az első lapra, a gombokhoz tartozó makró ennyi:
sub ElsőLap()
sheets("ElsőLap").select
end subA makrók második sorában megadhatod a cellát, amelyikre szeretnéd, hogy ugorjon a kijelölés.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
karczt
csendes tag
Sziasztok, A következő problémával küzdök. Kolléga nőm office 2007 telepítése után, nem tud a cellákba írna számokat csak akkor, ha előtte beírt már egy betűt illetve a nyilakra nem a cellák között tud lépkedni, hanem a gördítősávot mozgatja, függetlenül a SCROLL LOCK-tól. Ujra telepítés sem segített. Szeretnék segítséget kérni a probléma megoldására. Valaki találkozott már hasonlóval?
-
félisten
Mint már írtam, első körben próbálkozzatok meg egy másik billentyűzettel...
(Lehet, hogy kezd megpusztulni a billentyűzet, vagy csak simán vannak beragadt gombok rajta)
Amúgy más alkalmazások esetén (pl szövegszerkesztő) nem tapasztaltok hasonló furcsaságokat?[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
karczt
csendes tag
válasz Fire/SOUL/CD #9483 üzenetére
mindenhol máshol jól működik a bill. csak az excelbe vannak ezek a gondok
-
bozsozso
őstag
sziasztok!
egy kis segítséget szeretnék. egy adott oszlop értékeit szeretném ősszeadni de csak akkor ha az előtte lévő oszlopban egy adott karakter szerepelpl.:
A B
* 1
* 2
- 1
* 4tehát csak azokat a B oszlop tartalmakat szeretném összeadni ami előtt A oszlopban * szerepel. Ezt meg lehet oldani valamilyen függvénnyel? tehát:1+2+4=7
a segítséget előre is köszönöm
[ Szerkesztve ]
-
félisten
válasz bozsozso #9485 üzenetére
=SZUMHA(A1:A4;"#";B1:B4)
Csillagot nem használhatsz, mert az ún. asterix karakter (helyettesítő karakter, mint akár a kérdőjel)
karczt
Az a baj, hogy pl a scroll lock esetén amit leírsz, annak úgy is kell működni.
Alfanumerikus ill. numerikus padon beírva a számot, akkor ugyanaz a helyzet?[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
bozsozso
őstag
válasz Fire/SOUL/CD #9486 üzenetére
köszönöm, ez szuper. A *-ot csak példának írtam nem az a karakter szerepel benne
-
m.zmrzlina
senior tag
Ötletre volna szükségem.
A következő kód egy ActiveX parancsgombhoz van rendelve és azt csinálja, (meg még sok minden mást de ez most nem érdekes) hogy a vágólapról megfelelő helyre beilleszt egy 1 oszlop széles változó hosszúságú tartományt, vagy ha a felhasználó <Szóköz>-t nyom akkor törli a meglévőt, vagy nem engedi elfelejteni a "névadást"(Select Case 2. ág)
Private Sub CommandButton1_Click()
Dim tech As String
start:
tech = InputBox("Add meg a technikus nevét!" + Chr(13) + Chr(13) + "A lista törléséhez nyomj < SPACE >-t!")
Select Case tech
Case Is = " "
GoTo clearcontent
Case Is = ""
MsgBox "Nem adtad meg a technikus nevét!" + Chr(13) + Chr(13) + "Pótold a hiányosságot!", vbCritical, "Hiányzó adat!"
GoTo start
Case Is <> ""
GoTo paste_list
End Select
paste_list:
Application.ScreenUpdating = False
CommandButton1.Caption = tech
Cells(2, 2).Value = tech
Cells(4, 2).Select
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteAll
If Err.Number <> 0 Then
MsgBox "Jelöld ki a panellistát!" & Chr(13) & "Hibakód:" & Err.Number, vbCritical, "Hiba!!!"
Cells(2, 2).Select
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents
CommandButton1.Caption = "Tech_1"
Exit Sub
End If
'stb...stb...stb...Az a gondom, hogy ha a felhasználó izgalmában véletlenül több szóközt nyom egy helyett akkor nem a régi lista törlése történik hanem beilleszti a vágólapot úgy hogy a parancsgomb felirata " "(kvázi semmi) lesz ami kód szempontjából egy teljesen normális működés de nem ez a cél.
Ezt a felhasználói hibát kellene lekezelni a legegyszerűbben. Nem baj ha nem <Szóköz>-zel törlünk, lehet akár <Del> vagy <Backspace> is.
Hogyan lehet ezt megoldani?
[ Szerkesztve ]
-
Cuci3
tag
válasz m.zmrzlina #9488 üzenetére
Az elejére bedobnék egy Msgboxot:
a=Msgbox("Valami", vbinformation + vbYesNo, "Valami2")
Ezzel meg lehet kérdezni, hogy törlni akar-e vagy új értéket beilleszteni, ezzel a space-t kiváltod (ha a = True / Yes, vagy mi kell ide, stb.). Ha mondjuk nem-re nyom, akkor mehet az inputbox.
u.i.: most a kódot nem ellenőriztem, csak beírtam fejből, rem jó lesz.[ Szerkesztve ]
-
-
m.zmrzlina
senior tag
válasz m.zmrzlina #9490 üzenetére
Közben megoldottam a problémát.
Az Inputbox után a Select Case elé betettem ezt a sort:If InStr(tech, " ") = 1 Then tech = " " Else tech = tech
Mivel az Inputboxba nem várunk olyan adatot ami szóközzel kezdődik ezért bármilyen bevitt adat ami szóközzel kezdődik az törölni fogja a listát.
Van viszont más kérdésem az Inputbox-szal kapcsolatban.
Hogyan kell lekezelni a Cancel gombot, hogy valóban Cancel-ként viselkedjen? Jelen formájában ugyanazt csinálja mint az OK gomb. -
félisten
válasz m.zmrzlina #9491 üzenetére
MySelect = MsgBox("Valami", vbInformation + vbOKCancel, "Valami2")
If MySelect = vbCancel Then MsgBox ("Cancel")Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #9492 üzenetére
Ezt nem igazán értem. Próbáltam Inputboxra alkalmazni de nem ment.
Ide kellene valahogy beilleszteni:
Private Sub CommandButton1_Click()
Dim tech As String
start:
tech = InputBox("Add meg a technikus nevét!" + Chr(13) + Chr(13) + "A lista törléséhez nyomj < SPACE >-t!")
If InStr(tech, " ") = 1 Then tech = " " Else tech = tech
If tech = vbCancel Then Exit Sub
Select Case tech
' Case Is = vbCancel
' Exit Sub
Case Is = " "
GoTo clearcontent
Case Is = ""
MsgBox "Nem adtad meg a technikus nevét!", vbCritical, "Hiányzó adat!"
GoTo start
Case Is <> ""
GoTo paste_list
End Select -
félisten
válasz m.zmrzlina #9493 üzenetére
Inputbox-ra sehogy, mivel nincsenek rajta gombok. Ezért írtam a MsgBox-ot, mert ott lehetnek gombok.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #9494 üzenetére
-
félisten
válasz m.zmrzlina #9495 üzenetére
Még korán van számomra(hétvégén ha 10-12 órát aludtam, az már túlzás, meg ma reggel is 5-kor feküdtem ), félreérthetően fogalmazok. Szóval az előbbit úgy értettem, hogy nem Te adhatod meg, hogy milyen gombok legyenek az InputBox-on, amik meg vannak, azoknak nincs olyan visszatérési értékük, mint MsgBox esetén.
Persze le lehet kezelni több módon is az InputBox Cancel-t: [link] [link]
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #9496 üzenetére
Köszönöm a választ, este megnézem a linkeket.
-
bugizozi
őstag
Hali!
Lehet hogy láma kérdés, de a makró kódban lehet úgy kommentelni, hogy nem csak egy sort a ' karakterrel, hanem mint pl az egyik programozási nyelvben, hogy az egyik sor elejére írok egy /* -t aztán utána az 5. sor végére írok egy */ -t aztán az az öt sor ki van kommentezve?!
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Cuci3
tag
válasz bugizozi #9498 üzenetére
Alapvetően nincs ilyen funkció, tehát két lehetőség van:
1. Minden sor elejére aposztróf
2. Vagy az első sor elején egy aposztróf + mindegyik sor (kivéve az utolsó) végén egy speckó karakter (space + aláhúzás): _
Ezzel amúgy programkódot is össze lehet kapcsolni.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.