-
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
válasz daddy9 #42950 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 36 And Target.Column > 4 And Target.Column < 28 Then
If Target > "" Then Columns(Target.Column + 1).EntireColumn.Hidden = False
End If
End Sub[ 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.
-
zsolti_20
senior tag
válasz sztanozs #42940 üzenetére
Az este kicsit tovább gondoltam az egész dolgot és eléggé bonyolult lett. Van 5 oszlopom, ahová adatokat kell beírni, mint pl azonosító szám,nap,hónap,év,darabszám.
Ebből az excel fájlból szeretnék dolgozni egy program segítségével de ahhoz az szükséges, hogy az adatokat sorról sorra töltsék ki, az elsőtől kezdve, és ne hagyjanak üres cellékat a sorok között, mert ha a program gy észleli hogy a következő sor üres, akkor nem fogja tovább olvasni az excel fájlt.
Szóval üres celláim vannak és olyanok amiket kitölthetnek adatokkal de ezeket szigorúan sorról sorra kell. Nem szeretném, hogy valaki kifelejtsen egy sort vagy adatot és emiatt a program hibásan működjön, mert szükség van az azonosító számra, hozzá tartozó nap,hónap, évre és a darabszámra.
Hogyan lehetne megoldani, azt hogy ha pl 5 sort töltenek ki, akkor az 5 sorhoz ellenőrizni lehessen, hogy minden adat a helyén van vagy sem?
A program képes kiolvasni cellatartalmakat, így ha összepontosítani lehetne az eredményt egy cellába, akkor az alapján eltudja dönteni, hogy elinduljon vagy sem.
Arra gondoltam, hogy ezt a képletet használnám minden oszlop minden sorához:
=IF(B4<>"";"1";"0")
Ha az adott cella kitöltésre került akkor írjon 1-est ha nincs semmi oda írva akkor 0.
Egymás mellé bepakolnék 5 oszlopba ilyen függvényt hogy a kitöltésre váró 5 cellát figyelje.
Aztán egy olyan képletre gondoltam, ami képes össze számolni az egyeseket. És ha az egyesek mennyisége meg egyezik 5-el, akkor mondjuk írja ki a cellába hogy 1 ha nem nem annyi mert mondjuk kifelejtettek egy cellát akkor írja oda hogy 0.
Illetve egy olyan képletet keresek, ami képes megmondani azt, hogy a kitöltött cellák egymást követik vagy sem. Mert ha ez sikerülne akkor kitudnám íratni egy cellába, hogy oké de ha nem akkor nem indulna el a programom. Szóval úgy nézne ki, hogy ha:
1
1
1
1
1
Ez oké lenne és mehet a program de ha
1
1
0
1
1
Vagyis egy sor kimaradt akkor nem inditja el a programot, mert az excelben 0 értéket kapnék vissza. -
Delila_1
Topikgazda
válasz zsolti_20 #42952 üzenetére
A teljes lapon zárolod a cellákat, majd levéded a lapot. Érdemes kivenni a pipát a Zárolt cellák kijelölése elől, ne is tudjon rálépni a következő sorra.
Rendeld a lenti makrót a lapodhoz (lásd a Téma összefoglalót).Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If Application.WorksheetFunction.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then
Rows(Target.Row + 1).Locked = False
End If
End SubEz a makró csak akkor szünteti meg a zárolást a KÖVETKEZŐ soron, mikor már minden adat megvan az A: E tartományban,
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
daddy9
tag
válasz Delila_1 #42955 üzenetére
A másodikra (42951 hsz) meg se moccan semmi.
Hiába kezdem úgy, hogy minden oszlop fel van fedve, aztán úgy, hogy az 5. oszloptól el van rejtve. Hiába írok bármit a 36. sorba, nem reagál rá.
Az általam #42944 hsz-be írt verzió működik, de nem szép. -
Delila_1
Topikgazda
válasz daddy9 #42956 üzenetére
ÜRES 36. sornál ellenőriztem, minden beírásnál felfedi a következő oszlopot.
A felfedős sor alá még beírhatsz egy újatCells(36, Target.Column + 1).Activate
akkor be is áll a következő kitöltendő cellá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.
-
Bandita0176
újonc
válasz Fire/SOUL/CD #42945 üzenetére
Kedves Fire/SOUL/CD,
nagyon köszönöm, valószínűleg én fogalmaztam rosszul.
C2-> =LOG(B2;A2)*B2 (ez 25,77)
visszafejtés:
D2-> itt a feladatban ismerjük az A-t és a C-t. B-t nem ismerjük, de tudjuk, hogy C 14 alapú logaritmussal és ugyanazon szám szorzásával lett kiszámolva.Köszönöm!
-
dreizwanzig
tag
Szisztok!
Olyan kerdesem lenne, hogy azt hogyan tudom megoldani, hogy van egy adathalmazom, 1 oszlopban szamok es szeretnem az adatsorbol kitorolni az x (mondjuk 20) feletti szamokat, mert azok mar nem relevansak szamomra. Hogyan lehet ezt megoldani? Elore is koszi.
-
Hannibhál
őstag
válasz dreizwanzig #42959 üzenetére
sima Ha függvény elég szerintem:
=HA(A1>20,A1="",)
Ahol A1 majd a te oszlopod első cellája lesz, s lehúzod.
Vagy a komplett sort szeretnéd törölni?Gépelés nem az erősségemasdsdk
-
Protezis
őstag
Sziasztok!
Adott egy excel fájl, több sheettel, kiválóan működik. Szeretném online kezelni és emberekkel megosztani. Viszont egyes sheetek érzékenyebb adatokat tartalmaznak, amiket kevesebb emberrel osztanék meg. Tudomásom szerint sheetenként nem lehet állítani a jogosultságot, ezért 2 excel fájlra bontanám a meglévőt. Az egyszerűség kedvéért legyen "People" és "Salary" sheet. A "People" sheetbe felvehet egy új embert egy asszisztens is, amely embernek ezután a "Salary" sheetben is meg kellene jelennie (amelyet az asszisztens nem lát, majd valaki más kitölti az illető fizetését).
Táblákat használok, a "Salary" sheeten pl. a People[Name] kiválóan működik. Szétszedve 2 fájlba a következő még mindig működik:
'People.xlsx'!People[Name]
. Bezárom a fájlokat és újra megnyitva a következő hibát kapom:
Ekkor az összes helyen, ahol a People.xls-re hivatkozok, a fájlnév elé bekerül egyhttps://d.docs.live.net/3b452605f26e7dcf/
prefix és minden külső hivatkozás eltörik. Furcsa módon a data validation-nél használtak nem, oda nem is szúrja be a live.net-es prefixet.Jelenleg Office365 home előfizetésem van, az excel fájlok OneDrive-val szinkronizálódnak. A fájlok a jövőben Office365 business előfizetéssel fogjuk kezelni.
-
Delila_1
Topikgazda
válasz dreizwanzig #42959 üzenetére
Tegyél autoszűrőt az oszlopra. Szűrd a 20-nál nagyobb értékekre. Jelöld ki a látható sorokat, és töröld.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zsolti_20
senior tag
válasz Delila_1 #42953 üzenetére
Köszönöm ez egész jónak tűnik, de sajnos akárhogy próbálom nem működik. Miután levédtem a lapot beillesztem a makrót, de vissza lépve egy cella sem módosítható.
Pontosabban ha A-E között feltöltöm a cellákat akkor tovább enged a következő sorra de az első sornál minden adat után felkell oldanom a védelmet.
[ Szerkesztve ]
-
félisten
válasz torrentwarez #42962 üzenetére
Nézd meg a CSV adott sorát, lehet, hogy már abban van valami "elrontva". Vélhetően az F oszlopot újra kellene formázni...(mondjuk az nem biztos, hogy egyszerű lenne a formázás, ha valami nagyon elcseszett adatot vett át a CSV-ből)
Ha elküldöd a CSV-t az e-mail címemre (firesoulcd@gmail.com), vagy megosztod, hogy mindenki elérje, akkor okosabb lennék/okosabbak lennénk talán... Talán kiderülne a "turpisság" (pl magyar területi-beállításnál vesszőnek kell lennie a tizedes-elválasztónak, nem pontnak...)
[ 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)
-
Lasersailing
senior tag
válasz torrentwarez #42962 üzenetére
Ha jól értem a gondod, akkor az F3-as cella értéke 5.30 kellene legyen...
A csv file megnyitásakor ennek az oszlopnak add meg, hogy text formátumú legyen és akkor elvileg jó lesz.
Bocsánat angol excelem van, de remélem megérted így is
1) oszlop kijelől
2) text to columns (szövegből oszlopok)
3) delimited (?)
4) comma (vessző (vagy ami az elválasztó karakter))
5) kiválasztod a problémás oszlopot és beállítos a típusát text (szöveg) nek
6) finish (kész)Ha biztosra akarsz menni, akkor akár az összes oszlopnál be tudod állítani az adat típusát.
Üdv.
-
Szaszati
tag
Sziasztok!
Van egy kimutatásom, ami eddig annyit tudott, hogy dátum/óra/összeg oszlopokból napokra bontva készített egy összegzést, hogy adott nap óráiban hány darab és milyen összértékű eladás történt.
Mindez képletekkel volt megoldva, most azonban bejönne még egy típus oszlop, amivel szűrni kellene, hogy helyben vagy házhoz szállításra történt az eladás. Úgy gondoltam, erre legegyszerűbb a Pivot Table lenne, össze is raktam a táblát, ellenben egy funkció hiányzik a képletes megoldáshoz képest, ugyanis ott a heti összegzés végére az összegzés mellett átlagok is kerültek, a tábla aljára pedig napi átlagok is, amit sehogyan sem tudok megoldani Pivotban - ráadásul ezek az összegek/átlagok csak a hétköznapokra vonatkoztak, a hétvégéket nem vették figyelembe. Ha megoldható Pivottal, de az egész hetet figyelembe veszi, úgy is jó a megoldás.
Ezen a linken elérhető a fájl, így biztosan könnyebben érthető. Első lapon vannak a nyers adatok, a másodikon az eddig használt képletes megoldás (amit tulajdonképpen reprodukálni kéne csak az új szűréssel), a harmadikon pedig a pivot tábla abban a fázisban, ameddig eljutottam vele. 2016-os angol Excelt használok.
Előre is nagyon köszönöm a segítséget!
MobileArsenal - World domination temporarily suspended...
-
3DFan
aktív tag
Szia Delila_1!
Korábban mutattál egy rendezési eljárást, nálam a kijelölt tartomány első sorát rendezi csak. Mit rontottam el? Köszönettel.
[kép] -
torrentwarez
csendes tag
válasz Lasersailing #42969 üzenetére
Köszönöm, figyelmetlen voltam... nem tudtam, hogy az 5. lépésnél mindegyik oszlopot külön lehet illetve kell beállítani, hogy milyen cella formátuma legyen!
Így már jó lett!
-
torrentwarez
csendes tag
válasz Lasersailing #42969 üzenetére
Köszönöm, megoldódott!
-
Delila_1
Topikgazda
Sajnos ehhez a rendezési formához egyenként kell rendezni az egyes sorokat. A csatolt képen látszik, hogy a 19:21 sorokat úgy rendezi, hogy a 19. sor rendezését veszi elsődleges szempontnak, azután a 20-ast másodlagosnak, végül a 21-est.
Sor szerinti rendezésnél soronként kell megadni a rendezés szempontját.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 Szaszati #42971 üzenetére
A nyers lapra vegyél fel két oszlopot. G1 legyen Hét, G2 képlete =HÉT.SZÁMA(C2).
H1 legyen Hét napja, H2 képlete =HÉT.NAPJA(C2). Ennek az oszlopnak a formátuma nnnn.
A kimutatásnál a szűrőkhöz Típust és a Hét oszlopokat vidd be, az oszlopokhoz a Hét napja kerül, a sorokhoz az Órák, Percek és Idő, az értékekhez kétszer az Összeg (összegként és mennyiségként).
A kész kimutatásban a Mennyiség/Összeg2 címet átírhatod Db-ra.Érdemes a nyers lapon az adatokat táblázattá alakítani – még a kimutatás létrehozása előtt –, akkor a kimutatásnál nem kell átírni a forrást a bővítéseknél, elég egy frissítést ráadni.
Szerk.: a nyers lapon törölheted az M oszlop tartalmát.
A szűrőkhöz a Dátum-ot is berakhatod.[ 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.
-
Delila_1
Topikgazda
válasz zsolti_20 #42970 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then Rows(Target.Row + 1).Locked = True
End SubEz azt csinálja, hogy ha pl. a 4. sor adatait törlöd, az 5. sor celláit zárolja. A 4. sor újra kitöltése után ismét írható lesz az ötödik.
Erre gondoltál?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
iceQ!
addikt
Sziasztok,
Ez a hiba ablak fogadott már többször is.
Laptopban 8GB ram + i7 es proci van. Mellette fut még word, mégtöbb excel Outlook, böngészők.
Hiba néhán naponta jön elő. Gép ki-bekapcsolva van. Általában hiba ilyen hiba ablak nem jön elő, csak automatikusan bezárul az Excel.
Amiből lekvárt lehet főzni abból pálinkát is! A csavargó embert nem lehet munkára fogni! Samsung S23 Ultra Dual SIM | Notebook: HP Omen | Car: Volkswagen Passat B6 1.9 PD TDi BLS
-
félisten
Ha 32bites Office-t használsz, akkor ez a gond...
Hiába a 64 bites OS, a 32bites alkalmazások nem tudják címezni a 2GB feletti memóriát. Ezen a 2GB osztozik minden 32bites alkalmazás, így nyilván ha sok alkalmazás fut (több példányban az Excel, meg az Office többi tagja), akkor előállhat az a helyzet, hogy elfogy ez a 2GB...Az egyik kézenfekvő megoldás, hogy az általad használt Office 64 bites változatát kellene használni avagy egy időben csak 1 Excel fusson, illetve a linkben még arra tesznek javaslatot(több más mellett), hogy a grafikus hardvergyorsítás tiltása az Excelben talán segíthet...
[ 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)
-
zsolti_20
senior tag
válasz Delila_1 #42977 üzenetére
Igen pont erre gondoltam. Nagy köszönet érte.
Már csak 1 valamit kell kitalálnom és megvan a tökéletes script.
Ha feltöltöm adatokkal A1-től E1-ig az első sort akkor megnyitja a következő sort. Megoldható, hogy törléskor amikor lezárja az alatta lévő sort akkor az adatokat is törölje ki amik a lezárt sorban találhatóak?
[link]
Ha itt törlöm manuálisan a harmadik sor adatait akkor lezárja a negyedik sort, azt szeretném megoldani hogy lezáráskor a cellák tartalmát is törölje. -
Delila_1
Topikgazda
válasz zsolti_20 #42982 üzenetére
Óhajod parancs.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction
Application.EnableEvents = False
Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then
Range("A" & Target.Row + 1 & ":E" & Target.Row + 1) = ""
Rows(Target.Row + 1).Locked = True
End If
Application.EnableEvents = True
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.
-
huan
őstag
Sziasztok!
Két dátum különbségét mivel tudom kiszámolni napokban?
Office 2010 -
Delila_1
Topikgazda
válasz zsolti_20 #42986 üzenetére
Az első If-es sor legyen
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then _
Range("A" & Target.Row + 1 & ":E" & Target.Row + 1).Locked = FalseA teljes sor zárolását szüntettem meg az előző makróval.
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 Fire/SOUL/CD #42989 üzenetére
Függvény sem kell.
=vég_dátumot tartalmazó cella címe - kezdő_dátumot tartalmazó cella címe.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
huan
őstag
válasz Fire/SOUL/CD #42989 üzenetére
Sajnos ilyen függyvény nincs nekem.
-
Roxy27
tag
Sziasztok,
segítséget szeretnék kérni , hogy melyik függvénnyel tudnám megvalósítani az Excelben a kimutatást. Én a SZUMHATÖBB-re gondoltam, de nem tudom összehozni...
Lenne három kategória (D, 2, 3) és mindegyik kategóriához tartozik négy besorolás ( A,B,C,D), melyhez összegek tartoznak. A táblázatban ha valaki a megadott kategórián belül A,B,C vagy D besorolást kap, akkor a hozzá tartozó összeget szeretném, ha hozná és ahogy minden hónapban a besorolás módosításra kerül, akkor automatikusan hozza a hozzá tartozó összeget.
Előre is köszönöm a segítséget!!Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
Roxy27
tag
válasz Delila_1 #42997 üzenetére
Szia, megtennéd, hogy elküldöd rendesen Excel file-ba, hogy lássam mi mire vonatkozik pontosan? Ezt az Index dolgot nem ismerem egyáltalán. Most csak egy minta táblát küldtem, hogy kb. mit kell megoldani. De a rendes táblázat azért nem teljesen így néz ki. Ezért kell pontosan látnom, hogy mit kell írnom az adott tartományok helyére. Köszi! De ahogy nézem működik, csak be kell helyettesítenem...
Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27
-
félisten
válasz Delila_1 #42997 üzenetére
Itt egy másik megoldás.
Előnye: Nem kell segédtáblázat
Hátránya: A kategóriatáblázat kategórianévhez viszonyított eltolását be kell állítani a képletben=FKERES(C2;INDIREKT("B" & HOL.VAN("kategória " & B2;A:A;0)+1 & ":C" & HOL.VAN("kategória "& B2;A:A;0)+"4";IGAZ);2;HAMIS)
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 Roxy27 #42998 üzenetére
Idézek a Téma összefoglalóból:
"Ne azt írd, hogy például az A oszlop szűrt adatait szeretnéd a C oszlopba másolni, ha valójában a B oszlop szűrt adatai kellenek egy másik lap X oszlopába."Ahhoz, hogy el tudjam küldeni a fájlt, újra be kellene vinnem mindent egy új füzetbe, mert természetesen nem mentettem el a feladatodat. Az eredmény az lenne, amit a képen látsz, a képből is kikövetkeztetheted a valódi megoldást. Nem véletlenül kértem az elrendezésedet, mert ahhoz kellett volna igazítanom a képleteket.
Mások is elkövetik ezt a hibát, hogy nem az eredeti felállást küldve kérnek segítséget, majd közlik, hogy másról van szó. Igazán érdekel, miért küldtél más formátumot, mint a valódi. Kérlek, írd meg!
Ha nem sikerül összehoznod, küldd el Te a fájlodat, akkor biztos leszek benne, hogy nem dolgozom duplán a képletekkel, és nem kell nekem bevinni az adatokat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Ú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!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- 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.