-
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
-
poffsoft
addikt
válasz Delila_1 #12813 üzenetére
Ez nem pont az a megoldás
Ha telepítenie is kell az analysis toolpack-ot, nem biztos hogy megy a melóhelyen
Programozásügyileg?Perpill egy olyan képletet (képlettömböt) használok, ami 1-től 31-ig hozzáadja az adott hónap 1. napjához a számokat(ami a cella saját oszlopszáma), és megvizsgálja, hogy megváltozott-e a hónapszám . Ez a munkám még makrómentes
Csak lassan megtelik az egész lapom, és még nem készült el a beosztás
(mert most egy 23-dik variációt kell megpróbálni elkészítenem, amolyan kártyanaptár- formátumra)p.s.: a Köszi lemaradt...
[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
válasz Delila_1 #12826 üzenetére
A feltételes formázásokkal kapcsolatban van most "kis" gondom:
Szóval, ha egy cellából a feltételes formázások által kialakított végleges formátumot szeretném kinyerni, arra van-e valami megoldás?
(kitöltőszín, mintázat, karakter típus, formátum, karakter szín ami perpill. kellene)[ Szerkesztve ]
-
luckyboi82
tag
válasz Delila_1 #12830 üzenetére
Ezt nem vágom. A hiperlink szövegét hogy tudnám kicserélni,amikor az nem jelenik meg, csak ha a hiperlink szerkesztését nézem,egyesével.? Ez a gondom,hogy keresni se keresi ezt a szöveget,nemhogy cserélni tudnám. A forrás minden cellánál más és más, nem egy adott xls hivatkozott cellája. Így egyesével megy csak.
-
VásRló
tag
válasz Delila_1 #12831 üzenetére
Na igen, rájöttem, hogy a munkalaphoz kellene rendelni.
Így már megy, kösz.De fura, miért kell ehhez a most függvény?
Ami a problémám, hogy több oszlop van, aminek az adatai kellenének, egymás alatti sorok celláiban.
Tehát pl kell 5 egymás melletti oszlop adata, és 5 egymás alatti sorba kellene. Ezt vajon meg lehet csinálni? -
poffsoft
addikt
válasz Delila_1 #12835 üzenetére
Köszi, megoldottam:
találtam egy kész algoritmus-sorozatot:
'This user defined function will return the colour index of the cell reference which is passed as the first argument.
'The number returned will always be between 1 and 52 since this corresponds to the location on the colour palette.
'Once the user defined function has been entered into a code module in the corresponding VBA Project you can use it in your extra column.
'If the cell does not contain any conditional formatting then 0 is returned.
'http://www.bettersolutions.com/excel/EPX299/LI041931911.htmEgy picit átalakítottam, hogy ha nincsen feltételes formázása, akkor az .interior.colorindex-el tér vissza
Most éppen egy combobox elhelyezésével szenvedek a worksheeten, userform nélkül...
Ezzel kapcsolatosan egy kérdésem a jövőre viszont volna:
Ha egy olyan kiválasztás kellene nekem, ahol csakis egy évszámot lehet bevitelként megadni (amelyik évre a besoztás készül), azt hogyan elegáns megoldani? Naptár, combobox, vagy valamilyen legördülő lista?
esetleg van ilyen kész modul ? (évszám bevitel)?[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Delila_1 #12840 üzenetére
Luckyboi82
A
CV.Address = Application.WorksheetFunction.Substitute(h.Address, "Z:\", "C:\")
sor helyett
CV.Address = Application.WorksheetFunction.Substitute(CV.Address, "Z:\", "C:\")
sort írj. A ciklusváltozót az egyik helyen nem írtam át a próbánál, elnézést!
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öccer
nagyúr
válasz Delila_1 #12854 üzenetére
Köszi, a HIBÁS függvényt nem ismertem. Minden nap tanul az ember
Egyébként közben a DARABTELI-vel megoldottam én is, csak be kellett tenni +1 oszlopot. Így legalább azt is kiírja a tábla, hogy elvileg mennyi eredmény cellának kell lennie a végén.
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #12856 üzenetére
No, már csak egy olyan problémába futottam, hogy nem tudtam minden sorban a lista elejéről keresni, mert akkor mindig ugyan azt (az első) találatot adta. Ezt végül áthidaltam azzal, hogy amikor egy kód elsőként szerepel a listában, akkor az összes utána lévő eset bekerül a mellette lévő sorban, majd amikor másodjára, akkor az első eset nincs benne, amikor harmadjára, akkor az első kettő stbstb...
Erre van valami, nem makrós megoldás? Azaz, hogy az első x találatot az fkeres ne vagye figyelembe?
Köszi,
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #12860 üzenetére
T3-ba akkor kerülne be adat, ha 4 egyforma Kód lenne. Technikailag úgy oldottam meg, hogy a T3-ba kerülő képletek ugyan azok, mint a T2-be kerülő, csak a keresési tartományt 1 sorral lenteből indítottam, így a saját sorát nem veszi figyelmbe, csak az alatta lévő tartományba keres. Elég csúnya megoldás, de működik.
Ismételten rá kellett jönöm, hogy meg kellene tanulnom makrózni... Azzal kb 10 sorban megoldható lett volna az egész.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
poffsoft
addikt
válasz Delila_1 #12863 üzenetére
private sub egészen pontosan.
Feltételes formázással a mozgó ünnepeket (konkrétan csak a húsvét kell, mivel a pünkösd meg pont 49 nappal később jön)????
Hogyan?
Más: A combobox-nál azt hogyan oldják meg, hogy minden egyes karakter-leütésnél csak akkor fogadja el, ha van annak megfelelő a listában? Legalábbis emlékeim szerint a netes űrlapok általában mintha így működnének...
Vagyis , ha a 2000 után a 2211 a következő elem, akkor a "2" után (amire a 2000 kijelölődik) már csak "0"-t vagy "2"-t fogad el a bevitel (és "2"-re máris a 2211 jelölődik ki, sit)?
[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
válasz Delila_1 #12865 üzenetére
szép képlet.
A feltételes formázást még értem is
Viszont most pont azon dolgozom a makrókkal, hogy a feltételes formázásból fix formázást csináljak(, és excel 2003-am van (2010-ben viszonylag egyszerű)).És lenne egy kérdésem is megint: a range property-knél honnan lehet tudni, hogy melyik csak olvasható, és melyik írható-olvasható? Ill. ha van egy formats típusú objektumom, amit egy range-ből kiolvasok, azt van-e egyszerű mód egy másik cellába beírni?
Vagy marad a tételenkénti, .font, .interior, .border, .pattern tételenkénti kiolvasása-beírása?
Továbbá, a feltételes formázások (és csak a feltételes fromázások ) törlésére van-e valami egyszerű metódus, tekintve, hogy a .formatconditions.delete sajnos a fix formázást is törli?Húsvéthoz viszont a Gauss képletet használtam.
[ Szerkesztve ]
[ Szerkesztve ]
-
Cufter
tag
válasz Delila_1 #12872 üzenetére
Köszi, kiindulásnak nem rossz.
Két fontos és egy kényelmi változtatás kellene még:1: A cella képlettel számított értékeket tartalmaz, így ezeket kellene átvigye, ne a hivatkozást.
2: Egymás alá helyett egymás mellé kellene tegye a másolandó cellákat, de egymás alatti sorba minden új rögzítésnél.
Kényelmi: Kijelölés helyett fix cellákat kellen másoljon.Köszi
-
Cufter
tag
válasz Delila_1 #12874 üzenetére
Közben sikerült ennyit összeszedni:
Sub masol()
Sheets("Számolás").Range("F29").Copy
Sheets("Cégek").Activate
Range("a65536").End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Sheets("Számolás").Activate
Range("a1").Select
End SubEz már a fix cellákat és az értékeket másolja, így az megoldva.
Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat. -
exceltanulo
csendes tag
válasz Delila_1 #12870 üzenetére
Szia Delila_1! Megcsináltam az alapján amit belinkeltél és működik (részben). Lehetséges, hogy csak akkor hozza be a link az adatot, ha meg van nyitva az a fájl is ahonnan az adat származik? Mert nálam ez a helyzet. Ha nincs megnyitva hibát ír, ha megnyitom jön az adat. Köszönöm!
-
poffsoft
addikt
válasz Delila_1 #12868 üzenetére
Akkor nem tudom, mit csináltam rosszul.
A formátum másolásra pedig rosszul kérdeztem rá azt hiszem:
A formatconditions(2). properties-t szeretném egy másik cellának (vagy ugyanannak) a fix formátumaként beállítani
vagyis pl a range("A1").formatconditions(2).font/pattern/border/color -t kellene a range("A'").font/pattern/border/color -ba másolni. Egyszerűen, nem az összes elemet felsorolgatva (mert most csak ezt az utat találtam meg)[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
válasz Delila_1 #12877 üzenetére
Szerintem a 'Számolás'!F2:F9 range-t akarja a "Cégek" következő üres sorába transzponálni, így a kódod picit változik:
Sub masol()
Sheets.("Számol").Range("F1:F9").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
' szerintem a használt oszlopok száma nem kell...
Cells(usor + 1, 1).Activate
Selection.PasteSpecial Paste:=xlValues , Transpose:=True
End SubHa jól értettem....
Mondjuk az a range("A65536").end().offset()-et nem egészen értem...
Vagyis értem, de bonyolultnak tűnik.[ Szerkesztve ]
[ Szerkesztve ]
-
félisten
-
félisten
válasz Delila_1 #12886 üzenetére
Á, ne is mond. Elmúlt héten napi 16 órában szórtunk össze gépeket, állva el tudtam volna aludni a zuhany alatt, nem hogy PH!-ra benézzek.
Ahogy meg olvasom a hsz-okat, bírod a gyűrődést egyedül is a topikban.
Ment priv.
[ 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)
-
Zenebohoc
tag
válasz Delila_1 #12927 üzenetére
Szia!
Nagyon szépen köszönöm gyors válaszod és segítséged.
A Tartalomjegyzéket létrehozó rutin problémamentesen működik.
Az elrejtő esetében csak a a fájlhoz tudtam a rutint rendelni (Excel 2003).
Annak egy lapjához nem.
Bemásoltam rutinodat.
A tanácsot Rem mögé rejtettem
Sub Megjelenit()
Rem A következő makrót a Tartalomjegyzék laphoz rendeld, ez figyeli a G1 cella változását.
Futtatáskor ebbe a sorba kér egy End Sub-t
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then Rejt Target.Value
End Sub
Persze a 3. rutint is bemásoltamIsmét hála és köszönet.
Nincs szebb, mint mikor az alázat csendje zenére lázad....(LGT)
-
bazsi83vp
senior tag
válasz Delila_1 #12967 üzenetére
max kapok rá egy egyest - remélem a tanár nem lesz ilyen.... köszi
és azt nem lehet, hogy rögzítem a generált értékeket (képlettel) valahogy és mellé rendezem a számokat? Mert oké, mellé beillesztem - csak a rögzítés lehet-e? Bár ezek szerint nem igazán.
[ Szerkesztve ]
-
VGYke
addikt
válasz Delila_1 #12962 üzenetére
Nagyon köszönöm! Bár, azon túl hogy beállítjuk a területet, fogalmam sincs mit csinál ez: Cells(ActiveSheet.UsedRange.Rows.Count, _ ActiveSheet.UsedRange.Columns.Count), kérlek szépen írd le nekem, sajnos ismereteimet autodidakta módon szerzem be.
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
WGW
csendes tag
válasz Delila_1 #12980 üzenetére
Sajnos bonyolultabb...
Mindig más és más szűrési feladatot kell elvégezni. Az egyik munkalapon kellene pl. legördülő választéklistákból beállítani a szempontokat és majd eszerint kellene, hogy önállóan létrehozza az adott munkalapon a szűrést.
(Plusz ugye új beállításoknál felül kell írnia az előző szűrést is maradéktalanul.) -
VGYke
addikt
válasz Delila_1 #12973 üzenetére
Ismét köszönöm!
Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
Sub Kitolt()
Lap = "Lekérdezés"
smax = Sheets(Lap).UsedRange.Rows.Count
For L = 1 To smax - 1
Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
szla = Sheets(Lap).Cells(L, 2)
b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
Cells(L + 1, 2) = b
'......hasonló 8. oszlopig
Next L
End Sub
Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
poffsoft
addikt
válasz Delila_1 #13011 üzenetére
Megoldottam a magyar képletek angolra konvertálását.
Nem elegáns, de működik :
(a feltételes formázás passziválását is lassan megoldom)Public Function ToI(ByVal SStr As String) As String
'
' Formula To International Makró
' By poffsoft
' 2012.02.26.
'
ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").FormulaLocal = SStr
ToI = ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").Formula
End Function1 darab "nemzetközi makrólap" beszúrása kell a munkafüzetbe, annak egyetlen celláját használjuk...
SStr pedig a :
ActiveWorkbook.Sheets(SourceSheetIndex).Range(SourceCell.Address).Formulamegj.: Amíg az Excel4IntlMacroSheets(1) - re a nevével hivatkoztam, valamint amíg az ActiveWorkbook -ot nem szúrtam elé, nem működött
Viszont a mai kérdésem:Hogyan lehet azt figyelni, hogy az aktív cellában szerkesztették a megjegyzést?
Konkrétan azt kellene csinálni, hogy ha szerkeszti valaki a megjegyzést, a megjegyzés utolsó sorát kellene az aktuális dátumra cserélni ami elvileg igy néz ki:
"Modified: 2012.02.27."[ Szerkesztve ]
[ Szerkesztve ]
-
attiati
veterán
Új hozzászólás Aktív témák
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- World of Warcraft Shadowlands Collectors edition EU EN
- Vírusirtó, Antivirus VPN kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest