-
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
-
Hobbbyt
őstag
Sziasztok!
Fél napos próbálkozás és szenvedés után kérném a segítségeteket, adott egy "Autó kiadások" tábla amiben gyűjtöm az autóra költött összes forintot (tankolás, fenntartási költségek, vásárláskor felmerült költségek stb..)
Eleinte egymás alá írtam (dátum, tétel, mennyiség, ár, megjegyzés fejlécekkel) de most szeretném a tankolást külön venni, illetve külön is listázni de úgy, hogy továbbra is írhassam "folyóban" a dolgokat.
Egyszerűen nem találom a megoldást, hogy az egyik táblázatból, hogyan írathatnám ki a feltételnek megfelelő sorokat, sorban. (alakíthatnám táblázattá is, de én a kiírt adatokat szeretném képlettel tovább dolgozni (benzin ár grafikon, fogyasztási grafikon stb.)
Nem szükséglet, de szeretném tudni, hogy ennyivel is több legyek.
Remélem van erre valami megoldás. (biztos, hogy van, csak nekem nem állt össze)
[ Szerkesztve ]
10 féle ember van: aki ismeri a bináris számrendszert, és aki nem.
-
Arpee78
senior tag
Hogy lehet két hasonló táblázat adatai egyesíteni? Például van két táblázatom AB és DE oszlopokban, olyat szeretnék eredményként ami a GHI oszlopokban van.
-
Hobbbyt
őstag
válasz Pakliman #40452 üzenetére
Jogos.
Inkább a kihívás az ami izgat, nem a szükség.. de szeretném megoldani és "időtállóvá" tenni.Ott oldalt már próbáltam összetenni valamit a HOL.VAN, Indirekt és címek megadásával de valahogy nem áll össze.
(#40453) lappy :
Azért nem, mert ebben az excelben, egy helyen kezelem az összes bevételem, kiadásom, lakhatási költségeket és mindent amit egy mérnök tudni szeretne az élet "áráról"[ Szerkesztve ]
10 féle ember van: aki ismeri a bináris számrendszert, és aki nem.
-
Pakliman
tag
válasz Hobbbyt #40456 üzenetére
Ha következetesen használod a "tankolás" szót, akkor tulajdonképpen elég Neked a SZUMHATÖBB függvény.
A táblázatodban a C5 cella lehet pl.:=SZUMHATÖBB(D10:D5000;B10:B5000;"tankolás")
(Az 5000 egy elég nagy tartomány, ami elég lesz egy ideig, de ezeket a címzéseket akár dinamikussá is lehet tenni.)
Elég lehet a SZUMHA is, de a másikkal akár havi/éves stb. szinten is tudsz számoltatni
pl.: 2018-ban ennyit tankoltál (feltételezve, hogy a "Dátum" oszlop dátumot és nem egy formázott számot tartalmaz):=SZUMHATÖBB(D10:D5000;B10:B5000;"tankolás";A10:A5000;">=" & DÁTUM(2018;1;1);A10:A5000;"<=" & DÁTUM(2018;12;31))
[ Szerkesztve ]
-
tgumis
tag
Sziasztok!
Adott egy makró:
Sub keplet_helyett_ertek()
Range("a1").Select
'Képleteket tartalmazó tartományok kijelölése
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'A keletkezett területek bejárása és képlet-érték csere
For Each akt_range In Selection.Areas
akt_range.Formula = akt_range.Value
Next
End SubHogyan tudom átírni, hogy futtatáskor a munkafüzet összes lapján hajtsa végre ne csak azon amelyiken állok?
-
Delila_1
Topikgazda
válasz tgumis #40459 üzenetére
Sub keplet_helyett_ertek()
Dim lap As Integer, akt_range As Range
For lap = 1 To Sheets.Count
Sheets(lap).Activate 'Lap aktívvá tétele
'Képleteket tartalmazó tartományok kijelölése
On Error Resume Next 'Hibakezelés, ha nincs képlet
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'A keletkezett területek bejárása és képlet-érték csere
For Each akt_range In Selection.Areas
akt_range.Formula = akt_range.Value
Next
On Error GoTo 0
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.
-
Pakliman
tag
válasz tgumis #40459 üzenetére
Szia!
Még egyszerűbben, villogtatás nélkül:
Sub keplet_helyett_ertek()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Formula = ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Value
Next ws
On Error GoTo 0
End Sub -
Laciahegyrol
csendes újonc
Sziasztok,
Olyan problémában kérném segítségeteket, hogy mit kellene beállítani ahhoz, hogy egy cella tartalmát SAP-ba a formázás (szóközök, sortörések) megtartásával tudjam átmásolni?
Jelenleg csak úgy működik, hogy előtte Word-be másolom és onnan SAP-ba.
Az Excel egy rakás műveletet hajt végre egy hosszú szövegen, majd ezt a kész szöveget kellene átmásolnom SAP-ba. Ha a cellát másolom, majd beillesztem, teljesen szétesik a szöveg. Ha előtte Word-be átrakom, majd kijelölöm, másolom, tökéletesen működik.
Előre is köszönöm!Üdv: Laci
-
Mutt
aktív tag
válasz Laciahegyrol #40463 üzenetére
Szia,
Én nem tudok ilyen beállításról. Nekem egy cella tartalmát rendesen másolja át a Ctrl+C és Ctrl+V páros,
pl. a 40.00 Ft-ot egy form-ba, vagy egy mezőbe simán másolja formázva.
Ahol gond lehet az amikor több cellát akarsz másolni, mert akkor már táblázatként viszi át ami el tudja rontani a dolgokat.
Ebben a példában a formon táblazatos formátum kezelhetetlen, de a több mezőt tartalmazó táblázatban (jobb oldlat) rendben van.
Esetleg próbáld meg ezt a makrót, ami a kijelölt tartomány celláinak a formázott értékét egy hosszú szövegbe helyezi át.
Sub SAP_Copy()
Dim szoveg As String
Dim cella As Range
Dim sor As Long
szoveg = ""
sor = 0
For Each cella In Selection
If sor <> cella.Row And sor > 0 Then
szoveg = szoveg & vbNewLine
End If
szoveg = szoveg & cella.Text & " "
sor = cella.Row
Next cella
Call CopyText(szoveg)
End Sub
Sub CopyText(Text As String)
'VBA Macro using late binding to copy text to clipboard.
'By Justin Kay, 8/15/2014
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Subüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
tkesy
őstag
Sziasztok,
Szeretném ismét a segítségeteket kérni. Van egy diagramom, amivel kicsit küzdök, mivel azt kérték, hogy:
- vízszintes tengelyen a calendar week számai szerepeljenek, (1-52-ig), de legyen rajta negyed évek jelölése
Ezt segédtengellyel gondoltam megoldani, de ha hetek számát adom meg és az alapján rajzoltatom meg a diagramot, a tengely formázásnál nem jelenik meg a segédtengelyek beosztásának lehetősége.
Ha dátumot használok, akkor igen, de akkor is csak a fő segédvonalat rajzolja ki, a másodlagost nem. :S- piros szaggatott vonal, pedig onnan induljon, ahol a fekete véget ér (ezt jelenleg simán úgy hoztam létre, hogy havonta mikor ezt elkészítem, egyszerűen tovább húzom a kijelölt adathalmaz tartományát)
de ez a módszer nem működik a piros esetében, mert ha megváltoztatom a kijelölt tartományt, akkor mindig balra igazítja ezt vonalat. Ezt nem lehet valahogy lerögzíteni a "jobb oldalra"?Előre is köszi a segítséget.
>>>> The Truth Is Out There - I Want To Believe <<<<
-
dajkapeter
senior tag
Sziasztok!
Egy kis segítségre lenne szükségem. Feltételes formázással szeretném megoldani, hogy a táblázatom első oszlopában szereplő nevek színesek legyenek, ha a nevekhez tartozó dátum egy értéktől kisebb. Ezt hogyan tudom kivitelezni? Bárhogy próbálom a neveket nem akarja a dátumokhoz tartozó feltétel alapján formázni.
Köszi!
Ha írásommal megsértettelek akkor annak valószínűleg nem én vagyok az oka....
-
babe98
csendes tag
Sziasztok!
A láblécbe be lehet csempészni valahogyan egy adott cella aktuális értékét? -
dellfanboy
senior tag
talalkozott mar valaki olyannal, hogy levedtem jelszoval 1 munkafuzet reszet pl. e4 cellatol p55ig viszont ettol fuggetlenul a d oszlop tartalmat siman lehet modositani, barkinek, ill
bizonyos sorok eseten akar az x,y,z oszlopot is?! fogalmam sincs miert, mert pl x44 modosithato x45,46,47 nem.ugy csinaltam, hogy allow edit ranges-ben kijeloltem a teruletet e4:"p55 majd protect sheet.
valamit kihagytam?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
Simán beveszi a 3 felső sort az X tengelyre. Önszántából oszlopdiagramot ajánl fel, de az Adatsorok típusának módosítása menüponttal átalakíthatod terület ábrázolására.
A 2. kérdést nem értem, majd valaki má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.
-
Pakliman
tag
válasz dajkapeter #40466 üzenetére
-
babe98
csendes tag
válasz babe98 #40469 üzenetére
újradefiniálom a kérdést, segítsetek légyszi:
Azt szeretném valahogyan elérni, hogy az élőlábban (bal szélen) nyomtatáskor az A1 cellában szereplő érték legyen olvasható (ez mindig szöveg típusú). Ha valamilyen direkt cellahivatkozásként ez nem megoldható, akkor tökéletes lenne az is, ha egy makró lefuttatása után kerülne oda. (a nyomtatás előtt mindig lefuttatnám a makrót).
Ezt meg lehet oldani? -
babe98
csendes tag
-
andreas49
senior tag
Hali,
Segítséget kérek formázás átadáshoz a számított eredményre, valamint az azonos eredmények ABC sorrendbe tételéhez.
Jelenleg az azonos eredményeket az alap adatok fordított sorrendjét adja.
Mellékelem a minta táblázatot.
Köszi a segítséget előre is.
[link]HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Delila_1
Topikgazda
válasz babe98 #40474 üzenetére
Nézz el ide: http://forum.technokrata.hu/viewtopic.php?f=16&t=25550&p=995207#p995207
Itt nincsenek számozva a hozzászólások, 2015.02.01 7:48-tól 2015.02.01 14:49-ig nézelődj, kérdéstől a válaszig.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
p5quser
tag
Sziasztok!
Eskü, rágugliztam a problémámra, de még jobban összekeveredtem.
Azt szeretném megoldani excel vba-ban, hogy meghatározzak 4-5 munkalapot a munkafüzetben - egyenkénti pár betűs szóval - hogy ezzel a szóval hivatkozhassak rájuk a munkafüzet összes moduljában, userformjában, mindenhol.
Szóval valami "global variable" -szerűt szeretnék, amit egyszer meghatározok és utána már elég csak a meghatározott néven hivatkozni rájuk. Olvastam "public property"-kről, "option explicit"-ekről, de nem tiszta hogy hová rakjam. A thisworkbookhoz, vagy modulként kell behívni?
Négy userform van a munkafüzetben, várható még benne modul is, szóval van katyvasz bőven és ha véletlenül egyéb excel file is megvan nyitva (ami azért nem életidegen dolog ) , akkor jönnek a furcsaságok.
Ha megoldható, jó lenne nem userformonként, modulonként meghatározni, hanem egyszer az adott munkafüzetben.
Ha nem ebbe a topikba való, hanem a visual basic-be, akkor szkúzi, átpakolom oda kérdésem.
Előre is köszönöm! -
babe98
csendes tag
-
Pakliman
tag
válasz p5quser #40480 üzenetére
Szia!
A legegyszerűbb megoldás (szerintem), ha a munkalapokat átnevezed:
Amint láthatod, egy munkalapnak 2 "Neve" van, VBA-ban mindkettő használható, de más módon:
1.: egy tulajdonképpeni "belső" azonosító, közvetlenül lehet hivatkozni rá:Munka3.Range("A1")
2.: ez látszik az Excelben a lapfülön, szövegként hivatkozhatunk rá:Worksheets("Munkaóra").Range("A1")
A 2. változatnál egy általános modulban deklarálni kell a szükséges "változókat"Public ws1 As Worksheet
Public ml3 As Worksheet
Public Össz As Worksheet, majd a Thisworkbook modulban értéket adni neki(k):
pl.:Private Sub Workbook_Open()
Set ws1 = Worksheets("Táblázat")
Set ml3 = Worksheets("Munkaóra")
Set Össz = Worksheets("Segéd")
End Sub[ Szerkesztve ]
-
p5quser
tag
válasz Pakliman #40482 üzenetére
Igen, az összes eddigi próbálkozásaimnál ez a hiba jött...
Az alábbi képen próbáltam egybeszedni amit javasoltál és a userform egy részletét, ahogy alkalmaznám.
Idáig egyébként mindenhol Sheets(1), Sheets(2), stb néven hivatkoztam a munkalapokra, pont a rövidítések végett.
Baffuf...
Pill...[ Szerkesztve ]
-
p5quser
tag
Sajnos nem. Az előbb "eldeklaráltam" az egyik sheet nevét, azt hittem azért nyüszög, de javítás után (wsp-wsh) is ugyanaz a hiba mint a fenti képen.
[ Szerkesztve ]
-
Pakliman
tag
válasz p5quser #40486 üzenetére
A Workbook_Open metódus csakis a munkafüzet megnyitásakor fut le, vagyis az értékadás is akkor történik meg.
Próbáld meg először azt, hogy mentéssel bezárod a munkafüzetet majd újra megnyitod.Ha azt szeretnéd, hogy bármikor rendelkezésre álljanak az új hivatkozások, akkor egy általános modulban kellene létrehozni egy pl. Init nevű eljárást és abba beírni az értékadást.
Később, amikor szükség van az azonosítókra, a kódban egyszerűen csak meghívod az Init eljárást. -
RedHarlow
aktív tag
Sziasztok, hogy tudom egy külön oszlopba bemásolni 2 oszlop különbségét? Létezik err függvény?
Pontosabban: A oszlopban lévő adatok közül amelyik nincs meg a B oszlopban íródjon ki az üres C oszlopba.
[ Szerkesztve ]
-
Fferi50
őstag
válasz dellfanboy #40470 üzenetére
Szia!
Nyilván munkalapot védtél le (protect sheet).
A cella szerkeszthetősége attól függ, hogy zárolt-e vagy sem. Alapból minden cella zárolt de a zárolás csak akkor lép életbe, ha a munkalapot levéded.
Felételezhető, hogy az inkriminált, védelem után is szerkeszthető cellákról a zárolás valamilyen ok miatt már korábban lekerült. Ezért engedi szerkeszteni a lapvédelem után is.
Állj rá a cellára. Jobb egérgomb - cellaformázás - védelem fülön látható a Zárolt és a Rejtett állapotot jelző "kocka". Ha nincs kipipálva a Zárolt, akkor szabadon szerkeszthető védelem esetén is. Be kell jelölni a lapvédelem bekapcsolása előtt. Egész cellatartományokat is bejelölhetsz egyszerre - kijelölés után.Üdv.
-
RedHarlow
aktív tag
Mellékletként csatoltam a példa excel file-t, elég gyakran az a feladatom, hogy két táblát összehasonlítsak, erre lenne szükségem egy makróra. Az első lapon az eredeti adatok láthatók (mindkét tábla) a másodikon a kész feladat.
1. Először az A táblából ki kell szednem a számot ami közép 6 / 8 értékekkel történik ezt kell összehasonlítanom a B tábla adataival.
Vissza kell jeleznem, hogy mely adatok hiányoznak a B oszlopból.
A B oszlopban be kell jelölnöm (X-el) azokat amik megvannak A-ban.[ Szerkesztve ]
-
Pakliman
tag
válasz RedHarlow #40494 üzenetére
Szia!
Egy kezdetleges lehetőség:
'Az "EREDETI" munkalapra vonatkozik...
Sub fut()
Dim sor_u As Long: sor_u = 13 'Ezt később dinamikusan kell meghatározni, most csak a példa miatt fix.
Dim sor As Long
For sor = 1 To sor_u
'Feltételezem, hogy az A oszlopban a keresendő érték MINDIG aláhúzásjelek között van!!
'Az "F" (6.) oszlopban a "sor" sorban lévő értéket keressük az "A" (1.) oszlopban
If Application.CountIf(Columns(1), "*_" & Cells(sor, 6) & "_*") Then
'Ha találtunk ilyet, akkor a "C" (3.) oszlop "sor" sorába teszünk egy "X"et
Cells(sor, 3) = "X"
End If
Next sor
End Sub -
andreas49
senior tag
válasz Fferi50 #40490 üzenetére
Hali,
Az F5-E24 mezők vannak formázva (háttér, betű, betű szín), az eredmények a B5-C24-ben vannak. A B és C oszlopban is annak a formázásnak kellene megjeleni.
Az F5-24 oszlopban 10 darab '0' (azonos) eredmény van, de ezekhez tartozó megnevezés pont fordított ABC rendben jelenik meg.
KösziHONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
Új hozzászólás Aktív témák
- Steames kulcsok jó áron eladóak!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz