-
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
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia Sztanozs!
Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
Sheet1.ChartObjects("Diagram 8").ActivatePedig a Diagram 8 a veve a rajzterületnek.
A hiba pedig: Object requiredSub KimDiagSzín()
'
' KimDiagSzín Makró
Sheet1.ChartObjects("Diagram 8").Activate
Dim val()
val = ActiveChart.SeriesCollection(1).Values
Dim ix
For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
If val(ix) > 60 Then
ActiveChart.SeriesCollection(1).Points(ix).Select
With Selection.Format.Fill
.Solid
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End If
Next
End Sub[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
MaciLaci68
csendes tag
válasz sztanozs #15220 üzenetére
Köszi. De ez egy PRN fájlt készít. Nekem TXT kellene.
Érdekes hogy ha a PRN fájlt átnevezem TXT-re, akkor megnézhető és eltűnnek az idézőjelek, de a sorokat kettétördeli valszeg azért mert a prn csak 240 karakterig tud cellából olvasni, az én szövegem pedig 400 felett van. -
sztanozs
veterán
válasz sztanozs #15230 üzenetére
Nem tudtam a PRN-en kívül kézzel sem olyan módba menteni, hogy ne rakjon köré macskakörmöt...
De makróval mondjuk meg tudod csinálni, fájl manipulációs parancsokkal.
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
válasz sztanozs #15212 üzenetére
Szia. A makró amit írtál csak egy adathoz tartozó oszlopot ír át pirosra ha 60 nál nagyobb és az érték változásakor, ha esetleg 60 alá esnem nem lesz újra zöld. Vagy mindegyik pontra meg kell ezt csinálni? Ha igen hogy kell egymásba fűzni hogy értelmes legyen a makró?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
MaciLaci68
csendes tag
válasz sztanozs #15230 üzenetére
Köszi a próbálkozást. Nem jöttem rá eddig mikor tesz körmöt és mikor nem. Hossztól függ vagy szóköztől, vagy kutyafülétől nem tudom. De mindegy is mert nekem csak olyan jó hosszú szöveg kellene.
A fájl manipulációs megoldásod gondolom nem Exceles ugye?
Hát akkor ennyi. Marad a jó öreg CtrlC+ CtrlV. -
ancarian
csendes tag
válasz sztanozs #15240 üzenetére
2003-as excelem van. Valahogy eddig úgy voltam, h egyszerűbb kezelni. Közben meg rengeteget felejtettem
A második kérdés teljesen homály nekem is.Az egyik oszlopban a "sportol-e?" kérdésre vannak a válaszok. A másik oszlop lényegében több oszlop Itt különféle ételek fogyasztási gyakoriságai vannak feltüntetve 1-5 között. De ugye minden étel külön oszlop. Gondolom a kritérium az igen vagy a nem. A kérdés az, hogy melyik diagramnak tudnék megadni kritériumot? -
sztanozs
veterán
válasz sztanozs #15282 üzenetére
És kipróbáltam: 2010-ben is megy, de macro-enabled workbookba kell tenni és akkor már lehet, hogy saját makrót értelmesebb is írni.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Attas
aktív tag
válasz sztanozs #15293 üzenetére
Köszönöm a választ. De ez is jó? Mert időközben ezt ötöltem ki.
Range("Elvárt").Select
On Errors GoTo Hiba
Sheets("Ütemidő műveletenként (2)").Select
Hiba:
UserForm1.ShowVagy ennek lassabb a futása? Vagy van hátránya?
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Mauzes
őstag
válasz sztanozs #15294 üzenetére
Nem, egy Excel workbook-ból egy új workbook-ba. Egy ideig szaroztam vele, aztán manuálisan beállítottam a szélességeket. Ezután egy tök új fülre ctrl+v-vel beillesztve már alapból átmásolta az oszlopszélességet.
Úgyhogy én nem tudom, mi volt a baja először, illetve hogy legközelebb működni fog-e.
-
Attas
aktív tag
válasz sztanozs #15297 üzenetére
Köszönöm a választ!
Még egy kérdés. Publikus változót szeretnék beállítani. Miért nem működik ez?
Public WSU As Worksheet
Set WSU = Sheets("Ütemidő műveletenként (2)")A modul tetejére írtam be (minden modul tetejére ahol előfordul a lap meghívása. De futtatáskor a Set-et besárgítja.
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
-
Attas
aktív tag
válasz sztanozs #15300 üzenetére
És a makrókba vagy a modulok tetejére nem kell írnom semmit?
(mindíg rá kell ébredjek, hogy meg kell tanulnom még egy nyelvet...informatikául) Vannak részek amit értek..[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
Attas
aktív tag
válasz sztanozs #15305 üzenetére
Már kezdem kapirgálni. Sikerült egy másik munkalap nevével megcsinálnom. Az a gondom, hogy ezt az egészet, egy már kész projektben akarom módosítani. (nem gondolkodtam előre, meg hát az első kísérletem az excel programozás területén, és nem is ment volna a fórum nélkül nagyon sok minden) Szóval ennek "Sheets("Diagram adatok") sikerült Publikus változót adnom (WSD). Majd a kereső szolgáltatásban a Replace funkcióval kicseréltem minden Sheets("Diagram adatok") erre WSD. Wáá..és működött. De ezzel már nem "Sheets("Ütemidő műveletenként (2)")" mert vannak olyan makrók amik így néznek ki:
Selection.PasteSpecial Paste:=xlPasteValues
Application.Goto Reference:="egy"
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Add Key _
:=Range("C10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort
.SetRange Range("C10:C70007")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
És ebben is sajna kicseréli ezt:
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ütemidő műveletenként (2)").Sort.SortFields.Add Key _
Erre:
ActiveWorkbook.WorkWSU.Sort.SortFields.Clear
ActiveWorkbook.WorkWSU.Sort.SortFields.Add Key _
És így már nem működik a makró. Gondolom a WorkWSU értemezhetetlen.)"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
-
-
csferke
senior tag
-
D5
aktív tag
válasz sztanozs #15954 üzenetére
Sheets("Alap").Range("G9").Copy
bevétel = Sheets("Munka2").Range("E4")Range(bevétel).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseA Debugger a "Range(bevétel).Select" résznél írja a hibát.
Nem értem, hogy miért. -
BenJoe80
senior tag
válasz sztanozs #18051 üzenetére
Egy kicsit bővebben tudnál segíteni? Mi az a "countif", hogy néz ki?
Eddig sorba rendezéssel szűrtem ki a dolgokat, de mint említettem volt 1800 szó körül eléggé fárasztó.
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
BenJoe80
senior tag
válasz sztanozs #18053 üzenetére
Ööö beírtam, amit írtál ill. szerintem írtál, de valami nem kóser, mert azt írja ki, hogy hibás a képlet.
Az oszlop B ezért a következőt írtam be:
=SZUMHA(B : B; G2) - ezt most kénytelen volt szóközzel írni, mert amúgy "smiley" lesz belőle!
Megjelent a "Beírt képlet hibás" tábla, <OK>, majd a függvény parancsra kattintva elvesztem. Kritériumnak és összegtartománynak mit adjak meg?
[ Szerkesztve ]
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
BenJoe80
senior tag
válasz sztanozs #18055 üzenetére
Na szóval... köszönöm a segítséget... bár, kellett egy kis segítség...
Belinkelem, ha esetleg valaki másnak is kellene:
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
amaps
csendes tag
válasz sztanozs #18109 üzenetére
Szia!
Mindenképpen kíváncsi lennék a javaslatodra!
Most volt időm alaposan megnézni lappy megoldását, és sajnos Ő is fix értékekkel dolgozott a forrás megadásánál, ami az én esetemben nem járható, mivel a tétellistám több, mint 300 különféle termékből állLégy szíves, írd meg az elképzelésedet!
Köszi,
amaps -
amaps
csendes tag
válasz sztanozs #18109 üzenetére
Gondolkodtam azon, amit mondtál, hogy két szinten túl már makró kell a függvények helyett.
Az biztos, hogy én makrót nem tudok írni, ezért lehet, hogy feladom a tervemet, és inkább megállnék az első két tétel automatikus kiválasztási lehetőségénél.(pl. ha gyümölcs, akkor az alma, meggy és szilva lista jelenjen meg).
A harmadik oszlopot beáldoznám, és lenne helyette mondjuk egy szabad szöveges mező.Üdv,
amaps -
amaps
csendes tag
válasz sztanozs #18115 üzenetére
Szia!
Köszi szépen a megoldást!
Már nézem egy ideje, de még nem sikerült rájönnöm, hogyan csináltad
Ami nem is lenne gond, de a Fajta kitöltése nem jó abban az esetben, ha a Termék1-nél díszfa került kiválasztásra, és gondoltam egy merészet, hogy megpróbálom kijavítaniKöszi mégegyszer
amaps -
A_ScHuLcZ
addikt
válasz sztanozs #18121 üzenetére
Csak makróval? Sosem használtam még olyat, írni meg pláne nem írtam, nagyon keveset használok excelt. Sok mindent tudok infóból, de az office alkalmazások nem tartoznak ezek közé, alig használom őket.
Nem csak összegzésnél lenne rá szükség, hanem a bevitelnél is. Tehát szépen beviszem az adatokat egy oszlopba, és lent összegzem, de bevitelnél is pp:mm és összegzésnél is pp:mm formátumra lenne szükség, mivel a forrásomban is így vannak feltüntetve. Tehát ha pl be kell vinnem 74 perc 13 mp-et, akkor ne kelljen számolgatnom, hogy az 1:14:13, mert abba rövid úton bele fogok zavarodni, és nem kevés plusz munka. 2010-ban egy ilyen funkciót igazán elhelyezhetett volna az MS az excelben
"I'd tell you a joke about UDP, but you probably wouldn't get it."
-
amaps
csendes tag
válasz sztanozs #18118 üzenetére
Szia!
Köszi még egyszer a fáradtságodat!
Ma különben egész nap azon küzdöttem, hogyan tudnám átrakni a képleteidet a saját táblázatomba. Mondanom sem kell, hogy nem ment
Csak kérdezem, hogy azért, mert levédted, vagy maga a megoldás ragaszkodik ennyire az általad gyártott sheethez?
Egyébként egyetlen dolgot szerettem volna módosítani rajta, méghozzá azt, hogy a rendezett lista ne csak kb. 14 sorra vonatkozzon, mert vannak olyan tételek, ahol nyolcvannál is több altétel van. De persze ez sem sikerült
Tehát csak az a kérdésem lényege, hogy levédted a képleteket, vagy én vagyok rettentő béna?Köszi,
amaps -
sztanozs
veterán
válasz sztanozs #18234 üzenetére
Helyesen (C3:C1000 oszlopra):
=HA(($D$1-OFFSET(C3,INDEX(COUNTA(C3:C1000),1,1),0))<(A3-20);"oké";"NEM")[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...