- iPhone topik
- Samsung Galaxy S23 Ultra - non plus ultra
- Samsung Galaxy A52s 5G - jó S-tehetség
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Mobvoi TicWatch Pro 5 Enduro - kitartás kartárs?
- Hívószám-hamisítás
- Samsung Galaxy S10 és S10+ duplateszt
- Mobil flották
- Telekom mobilszolgáltatások
Hirdetés
-
[SoP] Free-to-play akció RPG lesz a Ballad of Antara
gp A teljes változat elvileg PC-re és PlayStation 5-re érkezik valamikor jövőre.
-
Elkészült Oroszország első litográfiai berendezése
ph Ezt Vaszilij Spak, az Orosz Föderáció ipari és kereskedelmi miniszterhelyettese jelentette be.
-
Többet költenek a PS5 felhasználói
it Csökkennek a PlayStation 5 konzol eladásai, de a Sony szerint nincs miért aggódni, mert a felhasználók többet költenek.
-
Mobilarena
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 repvez #10947 üzenetére
Tettem ide egy füzetet.
A jelenléti lapokra két megoldás van benne, az "Anna éves" és "Anna é" nevű lapokon (ugyanez Rékával is), nem kívánt törlendő.
Az Összesítő lapon az órák szerepelnek, míg az egyéni jelenléti lapokon minden, ami egy-egy emberhez tartozik a hónapok adatait tartalmazó lapokon.
1 füzetbe tehetsz mindent. 12 hónap, 7 ember 1-1 lapja, plusz egy összesítő nem túl sok lap egy füzetben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kornl23
tag
Sziasztok,
tudnátok ebben segíteni:
Adott egy képlet, ha egy feltétel igaz beírja az aktuális dátumot, (amikor a feltétel igazra vált) és rögzítse a cellába. -
fess
őstag
válasz Delila_1 #10952 üzenetére
még azt meg lehet csinálni,hogy a megnevezés és típuson kívül, az cikkszámot is kigyűjtse a gyűjtő lapra?
-
Kornl23
tag
válasz m.zmrzlina #10956 üzenetére
Sajnos a MA függvény nem jó
Mert ha holnap megnyitom a fájlt akkor a holnapi dátumot írja ki és nem a feltétel igazba állítási dátumát. -
m.zmrzlina
senior tag
válasz Kornl23 #10957 üzenetére
Továbbra is a MA() fv-ből indulnék ki.
Az előző megoldásomat egészítsd ki ezzel:Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Range("E1").Select
For i = 1 To Range("E" & Rows.Count).End(xlUp).Row
If ActiveCell.Value <> "" Then
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
ActiveCell.Offset(1, 0).Select
Next
ActiveWorkbook.save
Application.ScreenUpdating = True
End SubEz a megoldás a munkafüzet bezárása előtt a dátumokat tartalmazó cellákat felülírja a saját értékükkel, kitörölve egyúttal belőlük a MA() fv-t.
Ezt nem modulba kell másolni, hanem a ThisWorkbook BeforeClose eseményébe! Természetesen a te tartományaid nyilván mások.
-
m.zmrzlina
senior tag
válasz m.zmrzlina #10959 üzenetére
Mondjuk talán okosabb lenne a BeforeClose helyett a BeforeSave eseményt használni mert az BeforeClose-zal nem tudsz mentés nélkül kilépni a munkafüzetből (ha netán szükség lenne rá).
[ Szerkesztve ]
-
dellfanboy
őstag
lehet inkább matematikai a kérdésem, de excelben sehol se találok olyan fv.t ami segítene nekem a súlyozásnál.
Van egy feladat:
csúcsidőben 25 ft/perc, csucsidőn kivul 18 ft/perc, este pedig 10 ft/perc.Ezt kellene besulyoznom az alábbi súlyok segítségével:
csúcsidő: 50, csucsidőn kivul 33, este 10. ( gondolom ez a fontossági sorrend is)
több infom nincs,
hogy nézni ki szerintetek a legmegfelelőbb fv?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
félisten
válasz dellfanboy #10962 üzenetére
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)
-
medvezsolt
senior tag
Sziasztok!
Lehet olyat Excelben csinálni, hogy PL:
Van egy adott oszlop egy cellájában egy érték és én ha ugyanazon oszlop másik cellájába beírok egy számot az vonódjon ki belőle ( ha kitörlöm, adódjon vissza). DE ezt nem az adott oszlop összes cellájára akarom értelmezni, csak néhányra. Tehát van az érték A1-ben. és A2,A3,A4 , stb cellákba irogatok számokat akkor hozzáadódjanak vagy kivonódjanak az A1ből. Viszont lehet, hogy A2öt ki akarom vonni belőle, A11-et nem. Tehát nem minden cellát. Esetleg minden vastag betűset, vagy minden kék hátterűt,stb.
Köszönöm,
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
medvezsolt
senior tag
válasz medvezsolt #10965 üzenetére
olyat pl lehet, hogy hajtsa végre ezt: =100 - (J7:J100) ha (J7:J100)=döltbetűs vagy piroshátterű? Lehet Excelben ilyenekre hivatkozni, hogy félkövér cellák?
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
m.zmrzlina
senior tag
válasz medvezsolt #10965 üzenetére
Volt valami hasonló téma itt. Nem tudom jó-e neked csak rémlett hogy volt már szó ilyesmiről.
-
Pityke78
őstag
Sziasztok!
Ki lehet rakni excel 2007-ben ikonként bizonyos cella formázásokat?
pl: szám + ezres csoport + 0 tizedesjegy
Vagy ezt egyedi makróként kell felvenni és futtatni?Köszi, Pityke
-
félisten
-
m.zmrzlina
senior tag
válasz medvezsolt #10966 üzenetére
Lehet és én ezt saját függvénnyel oldanám meg:
Function SZINESÖSSZEG2(minta As Range, tartomany As Range)
Dim cella As Range, osszeg As Double
szin = minta.Interior.ColorIndex
osszeg = 0
For Each cella In tartomany
If cella.Interior.ColorIndex = szin Then
osszeg = osszeg + cella.Value
End If
Next cella
SZINESÖSSZEG2 = osszeg
End FunctionGyakorlatilag ugyanaz mint itt csak pepitában. Ez a függvény a mintacella háttérszíne alapján összegez, nem pedig a betűszíne alapján.
[ Szerkesztve ]
-
Pityke78
őstag
válasz Fire/SOUL/CD #10969 üzenetére
Csak az ezres csoportnál könyvelőibe teszi és nem számba. Tudom, nem sok a különbség, de formátumban más lesz. Középre igazítás, stb.
-
félisten
válasz Pityke78 #10971 üzenetére
Értelek. Hát ez minden Excel-ben így vagyon. viszont ez miatt makróval "dúsítani" egy munkalapot, nem igazán nyerő ötlet, de Te tudod.
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)
-
Delila_1
Topikgazda
válasz Pityke78 #10971 üzenetére
A kijelölt területnek ezres csoportosítást ad tizedesek nélkül, és nem "írja rá" a cella jobb oldalára, hanem egy L betű szélességgel beljebb teszi a számokat:
Sub Szamformatum()
Selection.NumberFormat = "#,##0_L"
End SubA personalba másold be, majd tegyél ki hozzá a gyorselérési eszköztárra egy ikont.
A personalról már többször volt szó itt a fórumon.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 medvezsolt #10965 üzenetére
Ezt ennyi információval, hogy "lehet, hogy A2öt ki akarom vonni belőle, A11-et nem", nem lehet leprogramozni.
Mikor már PONTOSAN tudod, mit akarsz összeadni, vagy kivonni, mit milyen formátumban akarsz megjeleníteni, akkor újra tedd fel a kérdést.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
medvezsolt
senior tag
válasz Delila_1 #10974 üzenetére
Bocsi, de én tökéletesen pontosan definiáltam. És elég jól le is írtam. Fentebb válaszoltak is. A lényeg, hogy Az A oszlop nem minden elemét akarom hogy össze adódjon az A1 cellában, hanem csak néhányat. Például azokat amiket háttérszínnel látok el vagy félkövéren írok.
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
medvezsolt
senior tag
válasz m.zmrzlina #10970 üzenetére
Köszönöm Szépen , kipróbálom. A VBhez annyira nem értek, tehát anélkül szoktam Excelben varázsolni
" A processzorok füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább. "
-
félisten
válasz zoo8800 #10979 üzenetére
Le van védve a munkafüzet és ezért nem lehet az ablak méretét sem változtatni.
Amikor levédték a munkafüzetet, akkor ITT bejelölték az Ablakok opciót is.[ 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)
-
zoo8800
veterán
-
mr.nagy
tag
Sziasztok!
Van egy táblázatom amiben az 5 sortól kezdődnek az adatok. Az A oszlopban azonosító számok vannak.
Valami hasonlóra lenne szükségem mint az autoszűrő, csak annyi differenciával, hogy ha az A1 cellába beírok egy azonosítót automatikusan az legyen a szűrő kritérium és a szerint szűrjön. Persze ha ez változtatásra kerül akkor megint csak automatikusan a szerint módosítsa a szűrést.
Megoldható ez?
Excel 2003.
HMNote10Pro
-
Delila_1
Topikgazda
válasz mr.nagy #10982 üzenetére
Igen, megoldható. A laphoz kell rendelned a kódot.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A5").Select
If Intersect(Range("A1"), Target) = "" Then Exit Sub
If Not Intersect(Range("A1"), Target) Is Nothing Then _
Selection.AutoFilter Field:=1, Criteria1:=Range("A1")
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.
-
Delila_1
Topikgazda
válasz mr.nagy #10984 üzenetére
Most látom, hogy még délelőtt hozzáírtál.
Az 5. sor a címsor? Ha igen, nem kell módosítanod a kódon, ha az már adatsor, akkor a For kezdetű sorban a 6-ot írd át 5-re.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim usor%, sor%
usor% = Range("A65536").End(xlUp).Row
If Not Intersect(Range("A1"), Target) Is Nothing Then
If Target = "" Then
Rows("5:50000").Hidden = False
Else
For sor% = 6 To usor%
If Cells(sor%, 1) <> Cells(1) Then Rows(sor%).Hidden = True
Next
End If
End If
End SubAz A1 cellába történő beíráskor elrejti azokat a sorokat, amik nem egyenlőek annak a tartalmával. A cella törlésekor minden sort felfed.
Abban az esetben, mikor az oszlopban nem található adatot írsz az A1-be, minden sort elrejt, de ekkor is láthatóvá teheted újra a sorokat az A1 tartalmának a törlésével.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mr.nagy
tag
válasz Delila_1 #10983 üzenetére
Végülis ennek a használatánál maradtam, azonban a táblázatba építve egy hiba üzenetet kapok:
Object variable or With block variable not setÍgy néz ki most a teljes kód:
Private Sub CommandButton1_Click()
Sheets("eladás").Activate
Sheets("eladás").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("készlet").Activate
Sheets("készlet").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("kiárusítás").Activate
MsgBox ("KÉSZ!!!")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A7").Select
If Intersect(Range("E3"), Target) = "" Then Exit Sub
If Not Intersect(Range("E3"), Target) Is Nothing Then _
Selection.AutoFilter Field:=1, Criteria1:=Range("E3")
End SubMi lehet a hiba? Tudsz rá valami megoldást?
HMNote10Pro
-
sonar
addikt
Sziasztok,
Van egy grafikonom ahol bizonyos sávokat szeretnék beszínezni, meg lehet ezt valahogyan oldani?
Pl.: az x tengely 1-től 10-ig van számozva az Y meg 500-tól 3000-ig és a 2500-tól 3000-iget meg az 1000-1500 közöttit szeretném beszínezni, hogy kifejezőbb legyen.
(Office XP-t használok)Segítségeteket előre is köszönöm
üdv: sonarA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
perfag
aktív tag
Nekem 2010-esem van, abban ha kijelölöm a rajzterületet, a helyi menüjében a Rajzterület formázása párbeszédablakban Kitöltés lapon van egy rakat lehetőség, pl. Színátmenet kitöltés. Be lehet rakni színátmeneti végpont csúszkákat, azokat lehet huzigálni, a sávoknak színt adni - úgy baromság, ahogy van.
Én csinálnék egy képernyő lopást, ez megadja a diagram léptékét, Photoshopban, vagy bármilyen fóliázásra képes képszerkesztőben rátenném a sávokat, ezt a sávos képet kimenteném és a Kitöltés képpel vagy anyagmintával opcióval betenném háttérképnek. -
Agony
aktív tag
Sziasztok!
Egy ismerősömnek kiadtak egy még haladókat is megszorongató feladatot, és hozzám fordult segítségért, de én se vagyok kifejezetten excelpro, így szeretném a segítségetek kérni a következő "feladvány" megfejtésében.
Tehát adott az állományunk, melyben 31 munkalap van, az egész tábla lényegében egy versenysorozat összesítése. A 31 táblából 30 a kategóriákat takarja amikben a versenyben el lehet indulni, és minden kategóriának más a nevezési díja. Példának okáért a B1ifi 1000Ft-os nevezési díjjal rendelkezik, míg a B2ny 2000Ft-tal.
Minden munkalap egy-egy kategória, és az összesítő táblázat szempontjából 5 fontos adatot tartalmaz. A nevező kódját, a nevező nevét, a jármű kódját, a jármű nevét, valamint az egyesület nevét aminek a színeiben indul.
Az összesítő "Fizetés" nevű táblán ezek közül három adat szerepel, mégpedig a nevező neve, a jármű neve és az egyesület neve, majd ezeket követik oszloponként a kategóriák és eddig a megfelelő oszlop-sor metszetbe beírta az illetékes az összeget.
Van arra megoldás, hogy ha egy versenyzőt áthelyez példának okért a B2ny-ből a B1ifi-be, akkor automatikusan törlődjön az előző összeg a B2ny cellából, és beirásra kerüljön a B1ifi-be, tehát hogy az összegeket automatikusan ossza ki a tábla, elég legyen csak a versenyzőket mozgatni a kategóriák között?A segítségeteket előre is nagyon szépen köszönöm!
Start with a whisper, end with a scream!
-
Agony
aktív tag
Egy változóval már sikerült megoldani a problémát részben. Most a versenyző nyilvántartási száma alapján keres egyes munkalapokon és ha ott talál, beírja a nevezési díjat.
Viszont a versenyzőknek és a járműveknek is szinkronban kell lenniük.
Most FKERES-t használok, lehet abban 2 feltételt megszabni?Start with a whisper, end with a scream!
-
Delila_1
Topikgazda
Az FKERES-sel úgy lehet két feltételt figyelembe venni, hogy a táblázatok előtti oszlopban egy szóközzel összefűzöd a két kritériumot (=A1&" "&B1), és ebben az oszlopban kerestetsz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Agony
aktív tag
válasz Delila_1 #10996 üzenetére
Bocsi, de nem teljesen tiszta.
Most így áll a függvény:
=FKERES(2140;'20. B3ny'!A7:X17;6)
A 2140-es értéket, ami egy lovas igazolási száma, keresi a B3ny munkalapon az A oszlopban és adja a 6-os oszlop értékekét ahová beírtam az 1000Ft-os nevezési díjat.
A probléma az, hogy egy lovas több lóval is indulhat egy adott versenyen. A lónak a az igazolási számát a D oszlop tartalmazza.
És van egy összesítő tábla, ami sorokban tartalmazza a lovasokat a lovaikkal, tehát lényegében az összes létező kombináció szerepel rajta. Az első három oszlop tartalmazza a Lovas nevét a ló nevét és az egyesületét ahonnan indul, ezt pedig a kategóriák követik.
Tehát példának okáért:Név: Ló neve: Egyesület neve: B1ny B2ny B3ny
Kis Béla Paripa LovagokÉs akkor ide kellene hogy automatikusan beírjon 1000, 2000, vagy 3000 forintot ha megtalálja Kis Bélát és lovát a táblák valamelyikében.
Start with a whisper, end with a scream!
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Lemezes Retro PC Játékok
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen