-
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
-
Swen_N
csendes tag
Sziasztok
Van arra lehetőség az excelben, hogy az oldalsávokon (nem tudom így hívják e őket, vertikálisan a számok, horizontálisan betűk ) megjelenő színezés - ami jelzi hogy a kurzor épp hol jár (melyik cellán) - kiterjesztve megjelenjen az egész soron és oszlopon azaz, egy nagy kereszt látszódjon de közbe persze a cellákba írt szöveg olvasható legyen? Remélem érthető voltam
Köszi a választ!
üdv
Swen
-
iwu
addikt
válasz m.zmrzlina #8751 üzenetére
hogy mik vannak
de sajna mindent üresnek látok.ajándék ló nem látja a fától a szódás a lovát...
-
m.zmrzlina
senior tag
Biztosan van rá egyszerűbb megoldás is, nekem ezt sikerült kiötleni. Akkor használható ha a munkalap celláinak eredetileg nincsenek olyan háttérszinei amelyeket nem szeretnél törölni.
Úgy működik, hogy a cellába aminek a sorát és oszlopát ki szeretnéd emelni nyomsz egy dulpakattintást.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim sor As Long, oszlop As Long
'aktív cella azonosítók
sor = ActiveCell.Row
oszlop = ActiveCell.Column
Application.ScreenUpdating = False
'korábbi háttérszín törlése
Cells.Select
Selection.Interior.Pattern = xlNone
'aktív cellába vissza
Cells(sor, oszlop).Select
'aktív cella sorának háttérszíne
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 20
'aktív cellába vissza
Cells(sor, oszlop).Select
'aktív cella oszlopának háttérszíne
ActiveCell.EntireColumn.Select
Selection.Interior.ColorIndex = 20
'aktív cellába vissza
Cells(sor, oszlop).Select
Application.ScreenUpdating = True
End Sub -
Delila_1
Topikgazda
Itt egy másik megoldás, nem én követtem el, csak átvettem. A laphoz kell rendelni (lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra kell bemásolni. A cellára lépve megkapod a "célkereszt"-et.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
With .EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 36
End With
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.
-
félisten
válasz Delila_1 #8750 üzenetére
Hirtelen felindulásból eddig jutottam, ami még nem megfelelő, remélem nem kell teljesen más módszerhez folyamodni: A maradék golyók még nem kóserek...
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 #8757 üzenetére
Mik azok a maradék golyók (amik nem kóserek)?
Függvényekkel sikerült megoldani?
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 #8758 üzenetére
Az nem kóser, hogy a szoroban nem használt golyói nem látszódnak...Pl az előbbi képen amit linkeltem a nulla az nem ugy kell hogy kinézzen, hanem felülről lefelé
teli
üres
üres
teli
teli
teli
teliSzóval mint amikor lenullázod a szoroban-t....
Igen, sima függvényekkel dolgoztam(meg még nekiugrom majd)
Te írtad, hogy nem lehet makrózni... Azzal sec-perc kész lenne...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 #8759 üzenetére
Igaz, látod nem vettem észre a nullát.
Kevesebb számjeggyel is próbáld ki! A kisiskolások, akik most tanulják, max. 5 számjeggyel küzdenek 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.
-
félisten
válasz Delila_1 #8760 üzenetére
elküldhetem a munkafüzetet, tesztelésre?
(Sajnos a feltételes formázás miatt csak 2007/2010-ben használható)Még nem küldöm, mert még találtam egy "apró" bugot...
[ 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 #8763 üzenetére
Mi az, hogy elküldheted-e? Sőt!
Nem a tesztelés miatt, hanem kíváncsi vagyok a megoldásodra.
Van 2007-em.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 #8760 üzenetére
Na végre megoldottam mindent, elméletileg minden oké. Már kóserok a golyók
Írj(akár privebe és küldöm ha érdekel a munkafüzet)Szerk
Elküldve.[ 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 #8765 üzenetére
Akár ki is teheted közszemlére.
Közben megcsináltam hozzá a makrókat, amik új szám beírásakor törlik az előző, felhasználó által beírt adatokat, a pöttyös rész elrejtését, no meg az ellenőrzést, ahol már megmutatja az alsó táblázatot.
A pöttyök maradtam, makró nélkül.
[ 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 #8766 üzenetére
Hát egyszerűbben oldottad meg mint Én, mivel segédcellákat is használsz(amit makróval elrejtesz), illetve a 10 számjegyig feltölteni nullával, ez szuper ötlet volt, kár hogy nem jutott eszembe, lényegesen leegyszerűsödtek volna az én képleteim is...
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)
-
Zomb€€
őstag
Sziasztok!
Egy makrós guru segítségére lenne szükségem:
Van egy alapfolyamatunk, amit 60x meg kéne ismételni, viszont 2-2 értéket mindig meg kell növelni fix értékkel.
Konkrétan így néz ki az alapfolyamat:
Range("D48").Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-40]C[-1]"
Range("D49").Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-41]C"
A félkövéren szedett értékeket kell mindig növelni. Meg lehet ezt oldani Visualban?[ Szerkesztve ]
"Egyszer fent...egyszer fent!"
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #8769 üzenetére
Egyik este 2 órán át szenvedtem vele, de csak éjszaka jutott eszembe, hogy szöveggé konvertáljam a bevitt számot (akkor már nem keltem fel megírni).
Kitettem, hátha érdekel valakit. Itt található meg. Azóta módosítottam egy kicsit rajta.
Elküldtem annak, aki kérte, de még nem méltatott válaszra. Nem is tudom, miért strapálom magam, vele már máskor is jártam így, most utoljára.
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 #8771 üzenetére
Gondolom az Én megoldásom egy kicsit "elborultnak" találod nem?
Hát igen, sajnos vannak egy páran, akik néha eltűnnek egy jó időre, egy szó nélkül, és ha előtte az ember rászánt a saját idejéből (néha nem is kevés időt), akkor legalább annyi elvárható lenne, hogy legalább megírja, hogy "ok minden rendben, köszi. Most egy időre eltűnök..." vagy valami...
Zomb€€
i = 48
j = 40
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-" & j & "]C[-1]"
Range("D" & i + 1).Select
ActiveCell.FormulaR1C1 = "='Alap tábla'!R[-" & j + 1 & "]C"Értelem szerűen egy ciklusba teszed, aztán növelgeted az I és J változót (gondolom kettővel)
[ 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
Alternatív megoldás FIRE megoldásával szemben:
Sub valami()
Dim sor As Integer
i = 40
For sor = 48 To 168 Step 2
Cells(sor, 4) = "='Alap tábla'!C" & sor - i
Cells(sor + 1, 4) = "='Alap tábla'!D" & sor - i
i = i + 1
Next
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 #8772 üzenetére
Az elborultra: én is ilyen összetett függvényekkel kezdtem, míg meg nem világosodtam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zomb€€
őstag
válasz Fire/SOUL/CD #8772 üzenetére
Köszönöm szépen!
Elkezdtem én is kutatgatni, a ciklusig eljutottam, de a másolandó paraméternél teljesen elakadtam, az "&" jelre nem gondoltamDelila_1 N Köszi neked is!
"Egyszer fent...egyszer fent!"
-
biker
nagyúr
válasz Delila_1 #8768 üzenetére
szia
érvényes, de a freemail tegnap semmit se továbbított nekem, még a privik értesítőit sem.
De este megnézem mégegyszer, ha nem találom, max elkérem mégegyszer
Köszi addig is
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
biker
nagyúr
válasz Delila_1 #8777 üzenetére
a freemailnek nem kellene naponta egyszer leállnia hosszú félórákra,ami miatt a rendszerem leválasztja a fiókot, hogy ne várakoztassa a többi 10 fiókot.
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
-conrad-
addikt
Sziasztok,
nagyon egyszerű kérdésem van, de nem találom a megoldást :
meg lehet azt oldani, hogy a cellában lévő szöveg ne nyúljon túl a cellán akkor sem, ha a mögötte lévő üres? A sortörés nem jó, inkább tűnjön el a nem látható rész, mintha lenne a mögötte lévő cellában valami.
Köszi -
biker
nagyúr
válasz Delila_1 #8777 üzenetére
Hehe, megvan a hiba
"Te voltál" a ludas.
Pont olyan volt a levél, mint a többi vírus/spam
"Szia, megvan a file, csatoltam" és a file Úgy vágtam a kukába, mint a pinty, csak most néztem vissza, hogy jéé, ez ismerős filenév
Tudod, ilyenből jön heti 5-10 db, és már rutin volt
No, de megvan, kösziElektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
biker
nagyúr
válasz Delila_1 #8781 üzenetére
szia!
és ugye jól emlékszem, hogy a cikkszám szöveg vs szám formátum miatt nem működött az utolsó lépésben a képek kigyűjtése?
mert most ott nekem a href vs n/a sorok vannak, és mintha ez lett volna a megoldás annoElektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
zsotesz81
senior tag
Hali!
Van egy érdekes problémám ami nem tudom miért van.
Szóval van egy cellám amiben az alábbi képlet van:
AD2320=IF(((($W2320<>"")*OR($W2320<>0))*AND(LEFT(B2320;5)=LEFT(B2382;5))*AND(F2320=F2382));(X2320-Y2320-Y2382)/W2320;"")
Ha ezt lemásolom egy sorral lejjebb akkor ez lesz belőle:
AD2321=IF(((($W2321<>"")*OR($W2321<>0))*AND(LEFT(B2321;5)=LEFT(B2384;5))*AND(F2321=F2384));(X2321-Y2321-Y2384)/W2321;"")
Amit nem értek, hogy a 2382-ből egy sorral lentebb miért 2384 lesz?
Ami még érdekesebb ha még egyszer lemásolom a képletet akkor meg jó lesz.
Valami ötlet?[ Szerkesztve ]
-
dwelablack
tag
Sziasztok,
azt szeretném megtudni, lehet-e olyat csinálni excelben, hogy felső indexbe szám, és az hivatkozzon lábjegyzetben magyarázatra. (persze kézzel össze lehet hekkelni, de van-e erre valamiféle beépített megoldás?)
Azért gondolom, hogy van a beépített megoldás, mert ECDL-re készülő kollega kérdezte tőlem is.
Köszi,
Üdv,
Gy.nem a részvétel a győzelem, hanem a fontos.
-
perfag
aktív tag
válasz dwelablack #8789 üzenetére
Tartok tőle, hogy a kolléga nem megy át az ECDL vizsgán. Mi az, hogy lábjegyzet az Excelben? Hova kerül? Wordben van értelme, Excelben nincs!
"persze kézzel össze lehet hekkelni" - no, erre azért kíváncsi lennék! Mondjuk egy számhoz benyomorítunk egy felső indexet és máris kivettük a cellát a számításból
Az Excel celláiba beszúrt megjegyzések (Excel 2007) Lap elrendezése>Oldalbeállítás jobb alsó sarka, párbeszédpanelt megnyitó kis ikon>Lap fül>Jegyzetek lenyíló>Lap végén.
Ettől nyomtatásban a megjegyzések úgy jelennek meg, mint a Word lábjegyzetei. De attól még nem azok.[ Szerkesztve ]
-
Delila_1
Topikgazda
Össze lehet "hekkelni". A számformátumban a tényleges szám után idézőjelek között megadunk egy felső kitevős számot, ami több betűkészletben megtalálható, a Programok-> Kellékek-> Rendszereszközök-> Karaktertáblát kell használni.
Szerk.:
Az Excelben élőlábnak hívják a Word lábjegyzetét.[ 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 Delila_1 #8791 üzenetére
Ezzel nem tudok egyetérteni. Az élőlábat élőlábnak hívják, a lábjegyzet az meg lábjegyzet. Az élőfej/láb valami ami minden oldalon ismétlődik, a lábjegyzet viszont a tartalmat kiegészítő megjegyzés, oldalfüggő.
A hekkelésről: Rendben, talán nem nyomja el a számolást, de ha egy cellába benyomorítunk valamit attól az még nem lesz lábjegyzet, csak úgy néz ki. Nem tartozik hozzá csatolt információ - akkor meg mi értelme? -
Azura
csendes tag
Sziasztok!
Tudnátok segíteni, hogy az alábbi kódban hol van a hiba?
Van egy táblázat, ahol az A oszlop tartalmazza a neveket, a B azt, hogy hány éves az illető, a C pedig hogy hányast kapott egy dolgozatra.
Amit szeretnék, hogy a J oszlopba listázza ki azoknak a nevét, akik a legrosszabb eredményt érték el, és rendezze a neveket névsorba.
Meg is csinálja, csak végtelenre fut, és nem tudom, hogy hol a hiba.
Előre is kösziAzura
Sub sorbarendez()
Columns(10) = Empty
Dim min As Integer
Dim v As Integer
Dim w As Integer
Dim j As Integer
Dim i As Integer
min = Cells(1, 3)
v = 1
i = 0
j = 1
Do While Cells(v, 1) <> ""
v = v + 1
Loop
v = v - 1
For i = 1 To v
If Cells(i, 3) < min Then min = Cells(i, 3)
Next
For i = 1 To v
Do While Cells(j, 10) <> ""
j = j + 1
Loop
If Cells(i, 3) = min Then Cells(j, 10) = Cells(i, 1)
Next
w = 1
Do
w = w + 1
Loop Until Cells(w, 10) = ""
w = w - 2
Do
For i = 1 To w
If Cells(i + 1, 10) < Cells(i, 10) Then
a = Cells(i, 10)
Cells(i, 10) = Cells(i + 1, 10)
Cells(i + 1, 10) = a
End If
Next
Loop Until Cells(i + 1, 10) > Cells(i, 10)
End Sub[ Szerkesztve ]
-
Delila_1
Topikgazda
Ezt makró nélkül is el lehet intézni.
Az A:C oszlopok értékei adottak. Érdemes az A oszlopot csökkenő sorrendbe rendezni.
Címsort feltételezve a
[I]D2 képlete[/I] [B]=C2+SOR()*0,00001[/B]. Ezzel különbséget teszünk az azonos osztályzatok sora között.
A [I]J2 képlete[/I] [B]=INDIREKT("A" & HOL.VAN(L2;D:D;0))[/B],
A [I]K2-be[/I] [B]=INT(L2)[/B],
Az [I]L2-be[/I] [B]=KICSI(D:D;SOR()-1)[/B] képlet kerül.Egyébként az A oszlop alsó sorát egyszerűbben is kikeresheted:
v = Range("A1").End(xlDown).Row
Ez a sor azt a folyamatot teszi át VB-be, mikor az A1 cellán állva Ctrl+le nyilat nyomsz, és a v változóban eltárolja az aktuális sor számát.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 #8795 üzenetére
Tegnap nem néztem meg a hozzászólás küllemét. Mivel a teljes hsz-t konvertálatlannak jelöltem be, furcsa, és olvashatatlan összhatása lett. Megpróbálom világosabbá tenni.
Ezt makró nélkül is el lehet intézni.
Az A:C oszlopok értékei adottak. Érdemes az A oszlopot csökkenő sorrendbe rendezni.
Címsort feltételezve a
D2 képlete =C2+SOR()*0,00001. Ezzel különbséget teszünk az azonos osztályzatok sora között.
A J2 képlete =INDIREKT("A" & HOL.VAN(L2;D:D;0)),
a K2-be =INT(L2),
a L2-be =KICSI(D:D;SOR()-1) képlet kerül.Egyébként az A oszlop alsó sorát egyszerűbben is kikeresheted:
v = Range("A1").End(xlDown).Row
Ez a sor azt a folyamatot teszi át VB-be, mikor az A1 cellán állva Ctrl+le nyilat nyomsz, és a v változóban eltárolja az aktuális sor számát.[ 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.
-
Sickboy25
addikt
Sziasztok
Lenne egy képlet:
=HA(D42>16;D44);HA(16>D42>12;E44);F44
DE hibát jelez. Mi a rossz benne? Erre a feltételre kellene: A >= 16 ; 16>B>=12;C < 8
Köszi a segítséget...
"Az élet olyan, mint az ásás. Néha hátráltat egy- két gyökér, de annak jól odab*szol ásóval, azt’ haladsz tovább!"X360 gamertag: sickboyhun
-
félisten
válasz Sickboy25 #8797 üzenetére
Nem biztos, hogy jól értem, de talán erre gondolsz
=HA(D42>16;D44;HA(ÉS(D42<=16;D42>=12);E44;F44))
Magyarul:
Ha D42 nagyobb 16-nál, akkor D44
Ha D42 12 vagy nagyobb, de 16 vagy annál kisebb, akkor E44
Ha D42 12-nél kisebb, akkor meg F44[ 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)
-
Sickboy25
addikt
válasz Fire/SOUL/CD #8798 üzenetére
Köszönöm, szuper lett!!
"Az élet olyan, mint az ásás. Néha hátráltat egy- két gyökér, de annak jól odab*szol ásóval, azt’ haladsz tovább!"X360 gamertag: sickboyhun
-
Swen_N
csendes tag
Sziasztok
Az megoldható feltételes formázással, hogy:
egy sor háttérszíne az abban a sorban lévő egyik cella feltételes formázásától függjön?konkrétan:
D7 színe piros ha D7 (dátum) értéke kisebb mint B3 (dátum)
ilyenkor azt akarom hogy az egész 7-es sor piros hátterű legyen mondjuk az E oszlopig.
az egyes cellák tartalma a sorban változó (dátum(D), szöveg(A,B,C), szám(E))Köszi
Swen
Új hozzászólás Aktív témák
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz