-
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
-
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 -
Delila_1
veterán
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".
-
Delila_1
veterán
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 -
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. -
#5692
Fire/SOUL/CD
félisten
Delila_1
#5691
-
#5691
Delila_1
veterán
Fire/SOUL/CD
#5690
Delila_1
veterán
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. -
#5690
Fire/SOUL/CD
félisten
Delila_1
#5689
-
#5689
Delila_1
veterán
Fire/SOUL/CD
#5687
Delila_1
veterán
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. -
Delila_1
veterán
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 Sub -
#5687
Fire/SOUL/CD
félisten
Delila_1
#5685
-
Delila_1
veterán
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. -
Delila_1
veterán
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ó.
-
-
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? -
Delila_1
veterán
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 -
#5680
ffxgabor
csendes tag
Fire/SOUL/CD
#5642
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! -
#5675
Fire/SOUL/CD
félisten
FneCsilla
#5674
-
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
veterán
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. -
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
veterán
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) -
#5658
Fire/SOUL/CD
félisten
Narancs
#5656
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...
![;]](//cdn.rios.hu/dl/s/v1.gif)
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.
-
#5657
Fire/SOUL/CD
félisten
doxa
#5655
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.
-
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,
Narancs -
#5655
doxa
tag
Fire/SOUL/CD
#5654
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?
-
#5654
Fire/SOUL/CD
félisten
doxa
#5653
-
-
Delila_1
veterán
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? -
doxa
tag
fennakadok egy ilyenen:
kaptam egy excel táblát ami minden félét kiszámolna nekem (nem vagyok otthon sajna otthon benne...), de amikor megnyitom ez fogad:
megnyitja és ez fogad:
biztos láma kérdés, de mivel van a baj?
segítséget előre is köszönömszerk: win7-en (home premium) office 2007: ezem van (ha számít)
-
Delila_1
veterán
Szívesen.
Makró törlése:
Eszközök/Makró/Visual Basic Editor, vagy ehelyett Alt+F11. Bal oldalon megtalálod a füzeted nevét, alatta (a + jel kinyitása után) a lapokat, alattuk a Module1-et.
Arra kattintva jobb oldalon megjelenik a Sub-bal kezdődő makró.
Ha az egyéni makró-munkafüzetbe rögzítetted, akkor a Personal.xls alatt keresd.
A Module1-en jobb klikk, Remove Module1. Rákérdez, hogy akarod-e máshova menteni, nemet válaszolj. -
#5642
Fire/SOUL/CD
félisten
mizu_
#5633
Hali!
Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
Amint látod, az alábbi makró egy CommandButton-hoz tartozik.Private Sub CommandButton1_Click()
'A hálózati Excel fájl útvonala és neve
Dim MyNetworkExcelFilename As String
MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"
'Ennek az Excel fájlnak a neve, ami futtatja a makrót
Dim MyCurrentExcelFilename
MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)
'Forrás munkafüzet
Dim MySourceWorkbook As Workbook
'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
Dim MySourceSheet As String
MySourceSheet = "Munka1"
'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
Dim MyDestinationSheet As String
MyDestinationSheet = "Adatok"
'Megnyitjuk az állományt
Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)
'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
'hogy egy új munkalapot hozunk létre a munkafüzet végén
Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)
'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
'semmilyen kérdés bezáráskor(például a módosítások mentése)
MySourceWorkbook.Close False
'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
ActiveSheet.Name = MyDestinationSheet
End SubA példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)
Ha valami nem lenne tiszta, akkor írj.
Fire.
-
Jumbo
tag
-
Delila_1
veterán
Egy kis makrót kell hozzá rögzítened.
1. Állj a cellára, aminek a formátumát akarod másolni.
2. Ctrl+c (másolás)
3. Állj a cellára, ahova másolni akarod a formátumot.
4. Makrórögzítés indítása. Itt megadod a nevet és a billentyűparancsot a Ctrl+ mellé, a helyéhez az "Egyéni makró-munkafüzetben" nevűt választod, hogy minden füzetben érvényes legyen, OK.
5. Az aktuális cellán jobb klikk, Irányított beillesztés, Formátumot.
6. Makrórögzítés vége.Egyébként van ehhez egy ecset formájú ikon, alapban kint van az eszköztáron, csak ahhoz nincs bill.kombináció.
-
#5637
Zolee11
senior tag
Fire/SOUL/CD
#5636
Zolee11
senior tag
válasz
Fire/SOUL/CD
#5636
üzenetére
Szia.
Tökéletes, nagyon szépen köszönöm!
-
#5636
Fire/SOUL/CD
félisten
Zolee11
#5634
válasz
Zolee11
#5634
üzenetére
Hali!
"Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet."
Ha gondot okoz, akkor leírom ezt is, szóval az előző HSZ-omnál maradva, csináld végig, majd ezután tedd ezt:
1. B oszlop kijelöl(katt a B oszlopazonosítón), jobb egér, Másolás
2. A oszlop kijelöl, jobb egér, Irányított beillesztés, ÉRTÉKET bejelöl, OK
3. Újra jobb katt az A oszlopon, Cellaformázás, Pénznem, OK
4. B oszlop kijelöl, jobb egér, TörlésFire.
-
#5635
Fire/SOUL/CD
félisten
Zolee11
#5634
válasz
Zolee11
#5634
üzenetére
Hali!
A példa kedvéért az A oszlopban vannak az adatok A1-től kezdődően, akkor B1 cellába másold be az alábbi kódot, majd másold le a szükséges tartományba.
Ez a módszer automatikusan számformátummá konvertálja az értékeket, függetlenül, hogy az előtte szám avagy szöveg formátumú volt-e.=HA(JOBB(A1;1)="-";("-"&BAL(A1;HOSSZ(A1)-1))*1;A1*1)
Természetesen ez csak akkor működik hibamentesen, ha a negatív értékek "negatív jelre" végződnek ill. csak 1 darab negatív jel található a cellában.
Fire.
-
Zolee11
senior tag
Sziasztok.
Hogyan tudok egy ilyen általános formátumú karakterláncot: 55- Számmá alakítani, de úgy, hogy ez a mínuszjel a végén azt jelenti, hogy mínusz 55. Odáig eljutottam, hogy a mínusz jelet leveszem és pénznemmé formázom tehát 55,00 lesz, csak nekem -55,00 kellene. Rengeteg számról van szó, így macerás lenne átírni az összeset, így viszont nem tudok velük dolgozni. Valahol csak van erre megoldás, ha már a számot szöveggé meg mindenné lehet alakítani, akkor nehogy már mínusszá ne lehessen.
Természetesen képletet nem akarok ráhúzni (legalábbis ne képlet legyen a cellában, ha nem muszáj), és új cellákat se akarok létrehozni, hanem ezekben a cellákban lecserélni, mínusz számmá, amit fel is ismer és képetekben használhatom a számot ill. pénznemet.
Előre is köszönöm. -
#5627
Fire/SOUL/CD
félisten
jobbi
#5625
Hali!
Bocs, csak nagyon rossz valamiért a netem, a forráskódot már nem tudtam beilleszteni...
Munkafüzet1
Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False Then
ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = True
Call Timer_ON
End If
End SubModule1
Public Idozites As Double
Sub Timer_ON()
Idozites = Now + TimeSerial(0, 0, 5)
Application.OnTime Idozites, "Tooltip_OFF", , True
End Sub
Sub Tooltip_OFF()
ActiveSheet.DrawingObjects("Téglalap feliratnak 1").Visible = False
End SubFire.
-
#5626
Fire/SOUL/CD
félisten
jobbi
#5625
Hali!
Egy checkbox, meg egy tooltip: [Screen]
Szükséges kód a képen: [VBA Macro]DrawingObjects("VALAMI"): itt adod meg az objektum nevét
dozites = Now + TimeSerial(0, 0, 5): itt pedig, hogy hány másodpercig legyen látható(jelen esetben 5 másodperc múlva fog eltűnni a tooltip)Fire.
-
Delila_1
veterán
-
mikoljan
tag
Sziasztok,
A segítségeteket kérném szépen az alábbiakban.
Négy excel adatbázisom van több ezer sorral. Bizonyos sorok sárga színnel vannak kihúzva. Ezeket a sorokat szeretném valamilyen formában megjelölni.
Utána olvastam, hogy ezt csak makróval lehet megoldani. Például amit Delila_1 írt első makró nekem tökéletes lenne, csak ki kellene terjeszteni az egész munkafüzet egy részére, mondjuk A1:A30000-ig és, ha a feltétel "igaz", akkor a 40. oszlopban jelenjen meg valamilyen eredmény soronként. (színes, színtelen).Nagyon megköszönöm a segítséget, ha valaki tud nekem ebben segíteni!
-
-
Delila_1
veterán
-
polar
tag
válasz
Delila_1
#5613
üzenetére
Mellékelnék némi képanyagot, mert nem teljesen érthető szerintem amit leírtam
1.jpg: Ezen van az X legjobb érték summája
2.jpg: ezen az összes érték (nem egy summa oszlopból származik, hanem az összes, értéket tartalmazó oszlop külön van felvéve, hogy külön látszódjanak)
3.jpg: Itt látható az 1.jpg-n látható diagram adatforrása. Mivel itt csak egy értéket raktam be(vagyis csak a summa oszlopot), ezért nem tudok módosítani az adatsoron.Egyébként a 2.jpg-n látható diagramon megy az adatsor módosítása, de itt is csak az értékek sorrendjét változtatja egy oszlopon belül. Nekem pedig az kellene, hogy az oszlopok sorrendje legyen csökkenő.
-
#5610
Fire/SOUL/CD
félisten
Ribi
#5602
Hali!
1. hozz létre egy digitális tanúsítványt
START/Microsoft Office/Microsoft Office eszközök/Digitális tanúsítvány VBA projektekhez
2. add hozzá a VBA project-hez
ALT+F11/Tools/Digital Signatures/Kiválasztás (a korábban létrehozottat kiválaszt) OK
3. Adatvédelmi központban (itt már jártál párszor)
Összes makró letiltása, a digitálisan aláírtak kivételével
4. makróbarát dokumentumként kell menteni természtesenEnnyi. Ez természetesen csak egyszerűbb védelem, ha neten megosztott, bizalmas adatokat tartalmazó, stb, stb dokumentumokhoz, megfelelő jogkörrel bíró cégnél kell/lehet igényelni, digitális azonosítót. Arra viszont jó, hogy csak azok nyíljanak meg és futtassanak automatikusan makrót, amely dokumentumnak ismered a készítőjét például.
Fire.
-
polar
tag
válasz
Delila_1
#5605
üzenetére
Ez remek, köszi szépen.
Akkor be is dobnám a következő kérdésemet
Az előző struktúráról van szó ismét. Van egy summa oszlopom, ahol minden érték szerepel és van egy, ahol csak a legjobb X. Szeretnék diagramot készíteni mindegyik oszlopból, de azt akarom, hogy mindegyik diagram csökkenő sorrendben jelenítse meg az értékeket. Ezt nekem csak úgy sikerült kiviteleznem, hogy a táblázatban szereplő adatok szerint teszi be a diagram oszlopait. Vagyis egyszerre csak az egyik jelent meg csökkenő sorrendben.
Van erre valami mód, hogy ne kelljen 2 sheeten tárolni ugyan azokat az adatokat, csak más sort-olással?Köszönöm!
-
#5604
polar
tag
Fehér Mancs
#5603
polar
tag
válasz
Fehér Mancs
#5603
üzenetére
Köszi, de ez sajnos nem oldja meg teljesen a problémámat.
Sorokat kellene summáznom, ráadásul ott sem minden oszlopot. Vagyis:
C4, E4, G4, I4, K4 mezőkből kellene összesummáznom a 3 legnagyobb értéket.
De mégjobb lenne, ha azt meg lehetne csinálni(a későbbi, egyszerűbb bővíthetőség érdekében), hogy a C4, E4, G4, I4, K4(és a későbbiekben még jópár következő mező) 2 legkisebb értékű mezője kivételével summázzon.Köszi előre is!
-
#5603
Fehér Mancs
tag
polar
#5601
Fehér Mancs
tag
=SUMPRODUCT(LARGE(A1:A100;ROW(A1:A10)))
, ahol A1 -> A100 -ig az adatok vannak, a ROW(A1:A10) pedig azt mondja meg, hogy a hányadik legnagyobbakat szummázza. Jelen esetben ez 1-10-ig, vagyis a top 10 legnagyobb összegeződik. Annyi, hogy amennyiben a 10. legnagyobb érték többször is szerepel, akkor azt többször veszi bele.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
hajrá microsoft...
))
Új hozzászólás Aktív témák
Fferi50- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Assassin's Creed Shadows Collector's Edition PC
- Árváltozás + játék DVD: Splinter Cell Blacklist the 5th Freedom Edition
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Apple iPhone 12 Pro 128 GB Arany 1 év Garancia Beszámítás Házhozszállítás
- Xbox Series kontrollerek 1 hó garancia, számlával!
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA -Kártyafüggetlen, MS3844, 100% Akkumulátor
- BESZÁMÍTÁS! Intel Core i7 8700K 6 mag 12 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő