-
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
-
mimi_bacsi
tag
Adott egy több 10ezer sorból álló táblázat (OpenOffice). Több oszlopból áll, és azokban az oszlopokban, ahol a körzetszámnak kell lenni, az nem mind van kitöltve (sok sorban azonos helység van, azaz azonosnak is kell lenni a körzetszámnak. És sok körzetszám is megegyezhet, de más a helység (pl. Debrecen és Hajdúszoboszló körzetszáma is 52)
Van-e megoldás arra, hogy ahol 6 számjegyből áll a telefonszám és hiányzik a körzetszám, oda a helység jó körzetszámát írja be a program? Persze szinte mindegyik helységhez van legalább egy jó körzetszám.
(ahol 7 számjegyű a telefonszám, oda sajnos nem tudom, hogy 20, 30, 70-es számot írjon-e be, de ez a kevesebb) -
Delila_1
Topikgazda
válasz mimi_bacsi #6960 üzenetére
Kell hozzá egy táblázat, ami a helységneveket, és a hozzájuk tartozó körzetszámokat tartalmazza, utána jöhet az FKERES függvény.
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 mimi_bacsi #6962 üzenetére
Ha nem jön össze, küldd el a fájlt, földim.
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 mimi_bacsi #6962 üzenetére
=ha(hossz(b2)>6;"";fkeres(.....))
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 mimi_bacsi #6964 üzenetére
Nézd meg a privátot!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kalasz
tag
Üdvözlet mindenkinek!
Az office topikból irányítottak át ide. A kérdésem a következő lenne: miként lehet megoldani (fügvénnyel vagy makróval) azt, hogy ha pl.: az "A1" cella értéke változik, akkor a változás dátuma bekerüljön a "B1" cellába?
Válaszokat előre is köszönöm .
Üdv kalaszA tapasztalat jó iskola, csak a tandíj magas.
-
Delila_1
Topikgazda
A laphoz kell rendelned a rövid kis makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Cells(2) = Date
End SubLaphoz rendelés: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapot üres lapra másold be.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Hali!
A másik topic-ban írt válaszod alapján, akkor ezek szerint, még nem tudod, hogy egy makrót, hogyan is kell létrehozni. Sebaj, elég egyszerű.
1. Nyisd meg az excel-t, lesz egy üres munkafüzeted ugyebár
2. Munka1 -lapon ALT+F11
3. Bal oldalt duplakatt Munka1 (Munka1)-en
4. Egyik lenyílóból Worksheet, másikból Change
5. Másold be a kódot, amit én vagy amit Delila_1 adott
Mindez képbenDelila_1
Én irányítottam ide kalasz barátunkat [link].Fire.
[ 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)
-
kalasz
tag
válasz Delila_1 #6971 üzenetére
A bővítmények be vannak jelölve és mégsem történik semmi. Viszont most már egy üres munkalap is csak fél perc után jelenik meg, valami vírusellenőrzés indul el. Ezt kilehet kapcsolni?
A dátum nem akar aktualizálódni.[ Szerkesztve ]
A tapasztalat jó iskola, csak a tandíj magas.
-
Delila_1
Topikgazda
Az eredeti kérdésedben az A1 cellába beírt érték hatására jelenjen meg a dátum a B1-ben, a képen a D oszlopba írsz, és az E-be várod a dátumot. Nem mindegy!
Erre itt van a makró.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then Cells(Target.Row, 5) = Date
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.
-
tag
Sziasztok,
az e heti bugyuta kérdésem: adott egy táblázat, amiből minden negyedik sor adatai lennének nekem szükségesek egy másik táblázathoz adatként. Hogy tudnám azt megcsinálni, hogy csak ezeket jelöljem ki? Igazából ami megoldást eddig találtam az a köztes sorok elrejtése, és akkor a kért adatok pont egymás alatt lesznek olyan formátumban, ahogy a másik táblázatba kell, tehát egymás alatt. Csak ez a sorkijelölgetéses módszer nagyon durvának tűnik, mivel vagy 300 sornyi adatra van szükségem, és minden számomra szükséges sor között van 3 "felesleges" sor.
Remélem érthető voltam, és hogy valamely fórumguru tud is segíteni a megoldásban, előre is köszönöm.
-Houston van egy kis problémánk. - Aham, és akarsz beszélni róla?
-
Delila_1
Topikgazda
Egy új oszlopban számozd be a sorokat 1-től 4-ig (az első 4-et "gyalog", ezt lemásolod, utána a 8-at kijelölve végig másolod az oszlopban). Szűrsz a 4-es értékre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tag
Ok, hülye ötlet volt, mert így még ha csak azt mondom, hogy az értékeket illessze be, akkor is beilleszti a rejtett sorok adatait is.
Akkor a kérdés a következő: hogy tudom egy adott táblázat minden 4. sorából egy cellát úgy kijelölni, hogy ne tartson örökké 300-at jelölgetni, és hogy a másik táblázatban ezek az adatok sorkihagyás nélkül szerepelhessenek?
-Houston van egy kis problémánk. - Aham, és akarsz beszélni róla?
-
Delila_1
Topikgazda
Bekapcsolod az Adatok/Szűrő/Autoszűrőt.
A címsorban legördülőket, kis nyilakat kapsz. Ahova beírtad az 1-4 értékeket, a legördülőből kiválasztod a 4-est.Vagy egy másik lapon összegyűjtöd minden 4. sorodat. Az A1-be 1, A2-be 4 jön, ezt a kettőt együtt kijelölve lemásolod, ameddig kell. B1 képlete: =INDIREKT("Munka1!A"&A1) – ha a teljes táblázatod a Munka1 lapon van. A B1 képletét lemásolod, és ez a Munka1 lap A oszlopának minden 4. sorát adja majd.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Oly
senior tag
Sziasztok!
Adott egy XLS amit felrakok egy hálózati helyre.
Ehhez a file-hoz mindenki hozzáfér (Read/Write).Azt szeretném elérni, hogy a táblázatot csak jelszóval tudják megnyitni, de aki így is megnyitja az csak read-only-ban.
Van erre lehetőség?SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
Az előzőt sikerült megoldanom. Egyszerű jelszavazással.
Viszont az nbk által feltett kérdés válasza engem is érdeklene. kraftxld válasza nem volt valami lényegre törő.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
Hali!
Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
List_All_Environ_info
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End FunctionFire.
[ 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)
-
ALbeeeee
csendes tag
Sziasztok,
lenne ötletetek egy adott cellában, hogyan tudom megszámoltatni bizonyos karakterek számát? A lényeg az lenne, hogy adott cellákban nevek és beosztások vannak felsorolva, vesszővel ( , ) elválasztva és a nevek számát szeretném visszanyerni. Ez a logika alapján 1 név egy vessző, és ezért gondoltam arra, hogy talán ez lenne a legegyszerűbb megoldás a számszerűsítésre. A kérdés már csak a hogyan! Valakinek ötlete esetleg?Köszönöm szépen!
Üdv,
ALbee:)
-
perfag
aktív tag
válasz Fire/SOUL/CD #6989 üzenetére
Szerintem kellene egy xlVeryHidden lap amire a munkafüzet Open eseménye beírná a dátumot, időt és a UserName-t.
-
szilvi11
csendes tag
Sziasztok,
Van egy kis problémám a lapvédelemmel. Zároltam azokat a cellákat, amiket nem szeretném, ha megbolygatnának, és megkapta a lap a védelmet. A gondom az, hogy a zárolt cellák között vannak olyanok, amelyek más fájlokból kapják az értéküket, és ha a lapon van védelem, akkor nem tudok csatolást frissíteni vagy váltani. Adatfrissítés miatt a csatolásváltás lehetőségét meg kellene adnom a felhasználónak, de nem szeretném, ha a képletet átírnák, így oda meg kell a védelem. Tudna valaki erre valamilyen megoldást?
Előre is köszönöm -
Delila_1
Topikgazda
válasz ALbeeeee #6990 üzenetére
Szerintem 1-gyel több név van a cellában, mint vessző.
Józsi, Béla, Ancsa, Lujza -> 3 vessző, 4 név. Ha mégis azonos a nevek és a vesszők száma, a Vesszo=v+1 sorból töröld ki a +1-et.Írtam egy függvényt rá.
Function Vesszo(Cella As String) As Integer
Dim i As Integer, v As Integer
For i = 1 To Len(Cella)
If Mid(Cella, i, 1) = "," Then v = v + 1
Next
Vesszo = v + 1
End FunctionEzt bemásolod a fájlod VB szerkesztőjébe.
Alkalmazása: =Vesszo(A1) [ha a nevet tartalmazó cellád az A1]
Ugyanúgy másolható, mint a többi függvény.[ 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.
-
perfag
aktív tag
válasz ALbeeeee #6990 üzenetére
Chip Pearson szerint:
"The following formula can be used to count the number of times that the character or string of characters in cell B1 occurs in the string in cell A1. For example, if A1 contains the string abcXdXeXf, and cell B1 contains the character X, the formula will return 3, since there are 3 'X' characters in A1. This formula does not distinguish between upper and lower case.
=IF(LEN(B1)=0,0,(LEN(A1)-LEN(SUBSTITUTE(A1,B1,"")))/LEN(B1))"Ez magyar Excelben:
=HA(HOSSZ(B1)=0;0;(HOSSZ(A1)-HOSSZ(HELYETTE(A1;B1;"")))/HOSSZ(B1))
Azzal, hogy nálam a 2007-es igenis különbséget tett x és X között. Bár ez mellékes, úgyis a vesszőket akarod számolni.[ Szerkesztve ]
-
ALbeeeee
csendes tag
Hello,
ez lett a jó!
LEN = megszámoljuk a karakterek számát
LEN(SUBSTITUTE) = MEGSZÁMOLJUK A CSERÉLT KARAKTEREK SZÁMÁT
kivonjuk egymásból a két eredményt és meg is van!Köszi!
________
Kedves Delila_1,
annyi vessző van amennyi név.( név, beosztás ) > az adatok adatbázisból jönnek
KÖSZÖNÖM A MAKRÓT!
_________
Nagyon kedvesek vagytok! A dolog megoldva, sikerült automatizálnom, amit akartam!
További szép napot nektek!
Üdv,
ALbee:)
-
mmarcimm
csendes tag
Sziasztok,
Egy olyan problémával fordulok hozzátok, hogy adott egy adatbázis ami sorbe van rendezve de duplikációkat illetve akár többször is tartalmaz egy féle dolgot. Egy oszlop alapján egy makróval le kéne ellenőrizni, hogy van e az adatbázisban duplikáció ha igen akkor egy másik oszlop értékeit szummáznia kéne, ezt a felsőbbikben tárolnia utána az alsóbbikat törölnie. Ennek kéne végigfutni a teljes adatbázison. Ha tudnátok ebben nekem segíteni nagyon hálás lennék.
Xtrem
-
Delila_1
Topikgazda
válasz mmarcimm #6996 üzenetére
A rendezett adatoknál egyszerű a dolgod.
Nem írtad, melyik oszlopokban vannak az adataid. Vegyük, hogy a rendezett oszlopod az A, és A2-ben kezdődnek a címsor miatt az értékek.
Felveszel egy új oszlopot, mondjuk az M-et. Az M2-be írj 1-et, az M3 cella képlete: =ha(A3=A2;0;1)
Ezt lemásolod az utolsó sorig, és egy SZUMHA képletben a tartomány az M oszlop lesz, a kritérium 1, az összeg_tartomány pedig az összegeket tartalmazó oszlop.[ 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 mmarcimm #6996 üzenetére
Azt hiszem, rájöttem, mire gondolsz.
Tehát C1-be 1, alá a képlet, amit a megjegyzésbe írtam. A D oszlop képlete a szerkesztőlécen látszik.
Utána a C oszlopban 0 értékeket tartalmazó sorokat autoszűrővel kigyűjtheted, és törölheted.[ 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.
-
scott_free
senior tag
excelben hogyan lehet soronként megismételni egy műveletet anélkül, hogy minden egyes sorba be kellene írni a képletet?
pl.
C3=A3*B3
C4=A4*B4
C5=A5*B5és így tovább.
Új hozzászólás Aktív témák
- Medence topik
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen TV-t vegyek?
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Házimozi belépő szinten
- Anglia - élmények, tapasztalatok
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- World of Tanks - MMO
- nVidia tulajok OFF topikja
- További aktív témák...
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- 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
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen