- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
-
IT café
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
Meg lehet még próbálnod az adatvédelmi központ beállításainak módosítását, bár a 2. üzenet "olvashatatlan tartalom"-ra utal.
Office gomb, Az Excel beállításai, Adatvédelmi központ, Adatvédelmi központ beállításai, Megbízható helyek, Új hely hozzáadása. Az elérési úthoz megadod a fájlod útvonalát, ami lehetőleg ne az alapértelmezett Documents and Settings mappa legyen.
Az xls kiterjesztésből látom, hogy a fájl régebbi verzióban készült. Az a verzió már nincs meg a gépeden? A régebbi verzióban fut most?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!
Régebbi Excel-be készült a fájl( pl Excel 5). Először próbálkozz ezzel:
Excel indít, nyisd meg ezt a fájlt(lényegtelen hogy olvassa be)
Excel gomb, excel beállításai gomb, bal oldalt Források, Diagnosztikánál VIZSGÁLATFire.
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)
-
doxa
tag
válasz Fire/SOUL/CD #5654 üzenetére
a diagnosztika sem segített, viszont itt van a megoldás: ezzel működik a két dll kell a megadott helyre
nem vagyok nagy hozzáértő: a fájlt már megnyitja működik is minden de egy ilyen üzenetem még van:
ezzel kell törödnöm?
[ Szerkesztve ]
-
Narancs
őstag
Sziasztok!
Van ez a feladatom, nem boldogulok:Create an another column on the worksheet "Results", which contains the ID number of students (like last time in the "Failed") who failed. This time somebody failed, if her/his total is under 50%, or she/he has a test for which she/he didn't obtaine more than 3 points! To solve the exercise you may have to use the AND function! Explore the AND function, the excel can help you a lot - e.g.: definition!
ÉS függvénnyel eddig jutottam:=ÉS(H4>=50%;D4>3;E4>3;F4>3)
Így aki megbukott kiírja, hogy HAMIS, de nem ezt kéne kiírnia, hanem egy másik oszlopban felsorova lévő ID számát...
Ezt hogy lehetne összehozni?Előre is köszi,
NarancsBeauty is pain
-
félisten
Hali!
Igen, a vbacv10.dll és vbacv10d.dll kellett gondolom. (addig nem akartam javasolni, hátha a vizsgálat talált volna valamit)
Ez az ablak csak arról tájékoztat, hogy mostantól hogy fog működni a makró írás/szerkesztés(régi verziókban más volt, a szöveg elég egyértelmű). Az viszoint kérdéses lehet, hogy valóban látni fogsz-e mindent a kódból rendesen. Remélhetőleg igen.
Ha nem, akkor ez a megoldás van amiről tudok: [link]
Sok sikert.
Fire.
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)
-
félisten
válasz Narancs #5656 üzenetére
Hali!
Egy kis kép jó lett volna, hogy hol vannak és milyen adatok. Amúgy a feladat nem azt mondja, hogy KIZÁRÓLAG az ÉS függvényt használhatod...
tehát 50% ALATT (<50) vagy TÖBB MINT 3 pont nem elért (<=3) esetén kell az ID. (Az ÉS csak akkor igaz, ha az összes feltétel igaz(jelen estben 2 darab feltétel van)
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)
-
Delila_1
Topikgazda
válasz Narancs #5660 üzenetére
Valószínű, hogy az oszlopod elemei bár számnak látszanak, szöveg formátumúak.
Írj be akárhova egy 1-est, másold Ctrl+c-vel
Jelöld ki a hibás adatokat, jobb klikk, Irányított beillesztés, Szorzás.
Ezzel az összes adatodat felszoroztad 1-gyel, de ami fontosabb, számokká alakítottad.
(A beírt 1-esre már nincs szükség)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
őstag
Kíváncsi vagyok megfejti-e valaki a problémámat
A háttérben való fájlmegnyitást akarom kombinálni hyperlink megnyitásával, ami egy változó cellában van rögzítve. Előbbi teljesen jól megy, és az így megnyílt fájlból akarok infókat kiolvasni, majd bezárni a linkben tárolt excel táblát.Noh ötletek?
-
Delila_1
Topikgazda
válasz Narancs #5662 üzenetére
Csakis pozitív – 0-nál nagyobb – értékek mértani középértékét számolhatod. A nullát tartalmazó cellát ki kell hagynod a függvény argumentumából.
Ha pl. az A1:A10 tartomány mértani közepére vagy kiváncsi, ahol az A3 értéke 0, akkor a függvény
=mértani.közép(A1:A2;A4:A10) legyen.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
Shell ("rundll32.exe shimgvw.dll, ImageView_Fullscreen " & Kép),
ahol a Kép változó egy cellahivatkozás. A cella a megnyitandó kép útvonalát, nevét és kiterjesztését tartalmazza. A kép a Windows kép- és faxmegjelenítő segítségével nyílik meg.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
válasz Delila_1 #5566 üzenetére
Szia Delila_1,
az általad leírtaknak megfelelően meg tudtam oldani maradéktalanul a problémát. A kommentek megjeleítését az adott cellára való kattintáshoz kötöttem az elrejtését pedig egy "X" alakzathoz (az összes elrejtését). Jól működik, kis helyet foglal és nem zavaró.
Nagyon hálás vagyok a tanácsokért! Köszönöm!
Üdv,
ALbeeeee:)
-
Delila_1
Topikgazda
válasz ALbeeeee #5670 üzenetére
Szia!
Jól vissza kellett lapozni az eredeti kérdésedhez, míg kiderült, mit is köszöntél meg.
Fő, hogy végül sikerült a kedved szerinti megoldást összehoznod.
Nagyon szívesen.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
FneCsilla
csendes tag
Sziasztok! Az excel 2003-ban hogyan tudok munkanapokat számolni? a 2007-esben már van networkdays függvény.
-
félisten
válasz FneCsilla #5674 üzenetére
hali!
2003-as Excel-ben is ismert a NETWORKDAYS függvény, csak be kell kapcsolni az Analysis ToolPak-ot. (Eszközök menü/Bővítménykezelő)
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)
-
lúzer
veterán
Üdv!
vicces kérdés de cella háttere lehet kép?
mint a kitöltés?MO. RIP. - az utolsó kapcsolja le a villanyt.
-
ffxgabor
csendes tag
válasz Fire/SOUL/CD #5642 üzenetére
Sziasztok!
Nekem hasonló dolgot kellene megvalósítanom mint mizu_-nak.
A megnyitott xls db munkalapjára (C10:V2000) kellene, hogy bemásolódjon a hálózaton található xls db munkalapjának (C10:V2000) tartalma.
Segítsetek please! -
Delila_1
Topikgazda
válasz ffxgabor #5680 üzenetére
Futtatás előtt add meg az útvonalat és a fájl nevét, kiterjesztését az idézőjelek között.
Sub Tartomany_masolas()
Dim UtvonalAndNev As String
Application.DisplayAlerts = False
UtvonalAndNev = "Ide jön az útvonal és a fájlnév kiterjesztéssel"
Workbooks.Open Filename:=UtvonalAndNev
Sheets("db").Select
Range("C10:V2000").Copy
ActiveWindow.Close False
Sheets("db").Select
Range("C10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True
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.
-
Pulsar
veterán
Sziasztok!
a következőt szeretném megoldani egyszerűbben.
van egy adathalmazom. össze kell számolni a q oszlopban az x-eket akkor ha a d-ben talál y-t, és a és az m-ben o-t.
én az így oldottam meg most, hogy leszűröm a megfelelő adatokra az oszlopokat, a létrejött tartalmat átmásolom egy data2 sheet-re, a data sheet-en egy counta függvénnyel összeszámolom, és az értéket lemásolom.
így:Sheets("IDE_MASOLD").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="y"
Selection.AutoFilter Field:=13, Criteria1:="o"
Selection.AutoFilter Field:=17, Criteria1:="x"
Columns("Q:Q").Select
Selection.Copy
Sheets("data2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Data").Select
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Range("A5").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A20").Select
Sheets("data2").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.ClearContentsez jól működik, csak nagyon lassú. ezt 25-ször kell megcsinálni, így sokáig fut.
esetleg valami egyszerűbb megoldása valakinek?[ Szerkesztve ]
-
Delila_1
Topikgazda
Makró nélkül, képletekkel:
R1-be (ha szabad ez az oszlop): =HA(ÉS(D1="y";M1="o";Q1="x");1;0)
R2-be: =HA(ÉS(D2="y";M2="o";Q2="x");MAX(R$11)+1;0)
Ez utóbbit másold végig az oszlopban.
Utoljára valahova: =MAX(R)Ezt akár meg is írhatod makró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.
-
Delila_1
Topikgazda
Makróval:
Sub Xek()
Dim sor, x
x = 0
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" And _
Cells(sor, 17) = "x" Then x = x + 1
Next
MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
End SubHova lett a szerkesztésből a kód? Van helyette a Programkód, de nem olyan jó.
[ 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 Delila_1 #5684 üzenetére
Az 5684-es hozzászólásba is belerondított a szerkesztés megváltoztatása.
Helyesen (a kettőspontok utáni szóközök nélkül), hátha így már nem íródik át:R1-be (ha szabad ez az oszlop): =HA(ÉS(D1="y";M1="o";Q1="x");1;0)
R2-be: =HA(ÉS(D2="y";M2="o";Q2="x");MAX(R$1: R1)+1;0)
Ez utóbbit másold végig az oszlopban.
Utoljára valahova: =MAX(R: R)
Ezt akár meg is írhatod makró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.
-
félisten
válasz Delila_1 #5685 üzenetére
Hali!
Nem lenne ezzel az új Programkóddal semmi baj, csak meg kellett volna hagyni a betűszínt szürkének, mert így beleolvad a HSZ-ba, hiába más a betűkészlet de így is "kissé" zavaró(legalább is szerintem).
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)
-
Delila_1
Topikgazda
Mivel 25 lap van, kicsit hozzáírtam az előző makróhoz. Ez akkor jó, ha csak az a 25 lap van a füzetben, amelyikeknél össze kell számolni az x-eket.
Sub Xek()
Dim sor, x, lap
x = 0
For lap = 1 To Worksheets.Count
Sheets(lap).Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" And _
Cells(sor, 17) = "x" Then x = x + 1
Next
MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
x = 0
Next lap
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 Fire/SOUL/CD #5687 üzenetére
Az is baj vele, hogy hosszabb sor esetén nem lehet görgetni.
A smileyk meg elrontják a kódot. Eddig a letiltásuk elmulasztása esetén a smiley fölé állva látszott a kódja.[ 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.
-
félisten
válasz Delila_1 #5689 üzenetére
Hali!
Nem értelek, sorry. Nálam
1. Lehet scrollozni vízszintesen
2. Nincsenek smiley-k a Programkód részben...
3. "Eddig a letiltásuk elmulasztása esetén a smiley fölé állva látszott a kódja."
Na ez meg a pár év alatt fel sem tűnt Nekem...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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #5690 üzenetére
1. Nem jelenik meg a görgető sáv.
2. A smiley-k nem a programkódnál, hanem a simán beírt képleteknél szerepelnek.
3. Nézz meg egy régebbi, smiley-s kódot.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
válasz Delila_1 #5691 üzenetére
Hali!
1. De igen, van scroll: [link]
2. Igen, ezt eddig is tudtam, ezért nem kell simán beírni képleteket...
3. Megnéztem, na ez is szép, hogy most tudok meg ilyen életbevágó információkat...Fire.
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)
-
Pulsar
veterán
válasz Delila_1 #5685 üzenetére
Szia!
Köszönöm, állatsák, működik, és még azt is értem, hogy miért Tényleg köszi
már csak két kérdésem lenne... vagyis már csak egy, mert megoldottam közbe az egyiket mire leírtam
hogy tudom nem message box-ba írni az infót, hanem egy megadott cellába?
szerk:
ja, a 25-ször dolgot úgy értettem, hogy a három érték közül valamelyik mindig változik.
és így nem 25 hanem 114 variációm van.[ Szerkesztve ]
-
Delila_1
Topikgazda
Nem egészen tiszta, mit akarsz 114-szer átrakni.
Átírtam úgy a makrót, hogy a Data lapon gyűjti össze az adatokat az A2-től kezdve. Az A oszlopba beírja a munkalap nevét, mellé a B-be a darabszámot.
A Data lap legyen a füzetben az első helyen.Nagy különbség! A lapokon a Q oszlopban szereplő x szöveg, míg a makróban lévő szám. Hogy ne zavarjon az azonos kinézet, az x változó nevét átírtam darab-ra, de csak azért, hogy ne zavarjon.
Sub Xek()
Dim sor, darab, lap, sor_data
darab = 0
sor_data = 2
For lap = 2 To Worksheets.Count
Sheets(lap).Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
And Cells(sor, 17) = "x" Then darab = darab + 1
Next
Sheets("Data").Cells(sor_data, 1) = Sheets(lap).Name
Sheets("Data").Cells(sor_data, 2) = darab
darab = 0
sor_data = sor_data + 1
Next lap
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.
-
Delila_1
Topikgazda
Egy kicsit átalakítottam arra az esetre, ha nincs szükséged a laponkénti összegzésre, és a Data lapon egy összegben akarod látni az A14 cellában az összes lap megfelelő sorainak számát.
Sub Xek_1()
Application.ScreenUpdating = False
Dim sor, darab, lap, sor_data
darab = 0
For lap = 2 To Worksheets.Count
Sheets(lap).Select
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
And Cells(sor, 17) = "x" Then darab = darab + 1
Next
Next lap
Sheets("Data").Cells(14, 1) = darab
Application.ScreenUpdating = True
End SubAz Application.ScreenUpdating = False sor leállítja a képernyő frissítését, az Application.ScreenUpdating = True pedig visszaállítja azt. Ezt azért tettem be, hogy ne zavarjon, hogy a program egyik lapról a másikra "ugrá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.
-
Pulsar
veterán
válasz Delila_1 #5699 üzenetére
Szia!
az Application.ScreenUpdating ismerem köszi
hát itt tartok, hátha így érthetőbb.Sub visual()
Sheets("IDE_MASOLD").Select
filteregy = Range("Data!C23").Text
Dim sor, x
Dim sor1, y
x = 0
y = 0
For sor = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor, 4) = filteregy And Cells(sor, 13) = " 1-10" And _
Cells(sor, 17) = "Visual Inspection - OOW" Then x = x + 1
Next
For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "21-30" And _
Cells(sor1, 17) = "Visual Inspection - OOW" Then y = y + 1
Next
Sheets("Data").Select
Cells(25, 2) = x
Cells(26, 2) = y
End SubSzóval a filteregy egy olyan érték, ami két féle lehet (most, majd a végén 5 lesz ) és egy cellából olvasom ki
a (sor,4) 5 + 1 különöböző állapotot vehet fel, és a (sor, 17) pedig 19 féle lehet
így jön ki a 114[ Szerkesztve ]
Új hozzászólás Aktív témák
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- További aktív témák...