- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- Honor Magic5 Pro - kamerák bűvöletében
- Honor Magic6 Pro - kör közepén számok
- OnePlus One - Kína már itt One
- Android szakmai topik
- Bemutatkozott a Poco X7 és X7 Pro
- Honor Play - játék az árakkal
- A sógorokhoz érkezik a kompakt Vivo X200 FE
- Magisk
-
Mobilarena
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
-
#9204
Delila_1
veterán
Fire/SOUL/CD
#9203
Delila_1
veterán
válasz
Fire/SOUL/CD
#9203
üzenetére
Az M2-be L2-től L16-ig tölt, az 15 cella, M2-be L17-től L31-ig, szintén 15 db.
A maradék néhány cella miatt osztom 14-gyel. -
#9201
Delila_1
veterán
Mesike8114
#9200
Delila_1
veterán
válasz
Mesike8114
#9200
üzenetére
Azért nézd meg a for kezdetű sort, mert a /16-tal nem viszi végig.
-
#9197
Delila_1
veterán
Fire/SOUL/CD
#9195
Delila_1
veterán
válasz
Fire/SOUL/CD
#9195
üzenetére
Egyforma hibát követtünk el
A for-next ciklust nem 2000/16-ig, hanem 2000/14-ig kell vinni.
-
#9193
Delila_1
veterán
Mesike8114
#9191
Delila_1
veterán
válasz
Mesike8114
#9191
üzenetére
Nem lehet, nem tud ennyi karaktert értelmezni egy 2003-as cella.
A próbához 2-3 jegyű számokat írtam az L oszlopba (ami az M oszlopban szövegként jelenik meg az összefűzések miatt), és az utolsó karaktereket már lehagyta a végéről.
Próbálj az állandó ( OR 'azonosító' = ) szöveg helyett valami rövidebbet kreálni.
-
#9190
Delila_1
veterán
Mesike8114
#9186
Delila_1
veterán
válasz
Mesike8114
#9186
üzenetére
Egy makró megoldja képletek nélkül. Nem túl szép, mert a futás idején az AX oszlopba íratok egy-egy értéket, amit a makró végén töröltetek.
Biztosan meg lehet oldani enélkül is.
Sub osszefuz()
Dim sor As Integer, sor_1 As Integer
Dim sz As String, sz_1 As String
sz = " OR 'azonosító'= "
For sor = 2 To Int(2001 / 16)
If sor = 2 Then
Cells(sor, 50) = 2
Else
Cells(sor, 50) = Cells(sor - 1, 50) + 15
End If
sz_1 = ""
For sor_1 = Cells(sor, 50) To Cells(sor, 50) + 14
sz_1 = sz_1 & Cells(sor_1, 12) & sz
Next
Cells(sor, 13) = Left(sz_1, Len(sz_1) - 18)
Next
Columns("AX:AX").Delete
End Sub -
#9171
Delila_1
veterán
copperhead
#9170
Delila_1
veterán
válasz
copperhead
#9170
üzenetére
Nincs mit.
-
#9166
Delila_1
veterán
copperhead
#9165
Delila_1
veterán
válasz
copperhead
#9165
üzenetére
Add meg a 2 első sornak a színt, és a formátumfestő ecsettel másold le a többi sorra.
-
Delila_1
veterán
válasz
Delila_1
#9140
üzenetére
Tettem bele egy hibaelhárítást arra az esetre, ha a Munka2 lap valamelyik sorában olyan érték szerepelne, ami a Munka1 lap azonos sorában nem fordul elő:
=HA(HIBÁS(HOL.VAN(A1;Munka1!$A1:$F1;0));"";HA(INDIREKT("Munka1!"&KARAKTER(HOL.VAN(A1;Munka1!$A1:$F1;0)+65)&SOR())="x";"x";""))
-
Delila_1
veterán
válasz
Z-Tom-ee
#9133
üzenetére
A Munka1 lap első sora
alma üres banán x citrom xA Munka2 lap A1; C1; és E1 cellája
alma; banán; citromMunka2!B1
=HA(INDIREKT("Munka1!"&KARAKTER(HOL.VAN(A1;Munka1!$A1:$F1;0)+65)&SOR())="x";"x";"")Ezt másold a D1 és F1 cellába, majd le mindegyik oszlopban addig, ameddig a sorok megkívánják.
-
#9105
Delila_1
veterán
scott_free
#9095
Delila_1
veterán
válasz
scott_free
#9095
üzenetére
Sajnos az Excelben (tudtommal) nincs rá mód, csak a Word-ben.
Eszközök > Beállítások > Mentés > TrueType betűtípusok beágyazása
-
#9104
Delila_1
veterán
Fire/SOUL/CD
#9096
Delila_1
veterán
válasz
Fire/SOUL/CD
#9096
üzenetére
Köszönöm a bizalmat, de hosszas fejtörés után is csak segédtáblával tudtam megoldani.
Az A oszlopba viszi fel a felhasználó a hetek sorszámát, mellette jelennek meg a hozzá tartozó dátumok a B:G tartományban.
Az L oszlopba vittem fel az év napjait, melléjük az M oszlopba került a weeknum függvény.
Az M oszlop képlete látszik a szerkesztő sorban. Ahhoz, hogy ez a függvény megjelenjen a többi függvény között, az Eszközök - Bővítménykezelőben be kell kapcsolni az Analysis ToolPak nevű bővítményt.
A B3 képlete:
=INDIREKT("L"&HOL.VAN($A3;$M:$M;0))A C3 képlete:
C]=HA(INDIREKT("M"&HOL.VAN($A3;$M:$M;0))=INDIREKT("M"&HOL.VAN($A3;$M:$M;0)+C$1);OFSZET(INDIREKT("L"&HOL.VAN($A3;$M:$M;0));C$1;0);"")Ez utóbbit (ami csak 8 cm hosszú) másolni kell G3-ig, majd a B3:G3 képleteket le, ameddig szükséges.
Az első sor elrejthető.
-
Delila_1
veterán
Az adataidnál speciális szűrővel gyűjtsd ki a képzési helyszíneket, csak az egyedi rekordokat. Legyen ez mondjuk a G oszlop. Mellé, a H oszlopba adj egy számot, az általad meghatározott területeknek azonosat, pl. a Budapest 1: Budapest 11-ig címeknek a száma legyen 1, a következő intervallumé legyen 2.
A képzési terület oszlop mellé tegyél be egy oszlopot, ami az fkeres függvénnyel minden sorba beírja az előbb adott számokat.
Jöhet a körlevél. A 3/6 lépésben a Körlevél címzettjei opcióban a Címzettlista szerkesztésénél kiválasztod az fkeres függvényt tartalmazó oszlopot, Speciális, ott megadod a terület számát. Ha itt 1-est adsz meg, az összes Bp. 1-11 területhez azonos szövegű körlevelet kapsz az egyesítés után.
Jöhet a másik szövegű egyesítés a kettes helyszínhez. (A fenti képen az az eset látható, amikor azonos szövegű levelet akarsz írni az egyes, és kettes helyszínhez.)
Nem vagyok biztos benne, hogy jól értettem a feladatot.
-
Delila_1
veterán
-
#9065
Delila_1
veterán
Fire/SOUL/CD
#9064
Delila_1
veterán
válasz
Fire/SOUL/CD
#9064
üzenetére
Ezt most elsőre nem értem, és csak később lesz időm agyalni rajta.
-
#9063
Delila_1
veterán
Fire/SOUL/CD
#9062
Delila_1
veterán
válasz
Fire/SOUL/CD
#9062
üzenetére
Kivitelezhető, kész van, csak még nem kaptam választ.
Sub Oktat()
Sheets("alapadat").Select
usor = Range("A1").End(xlDown).Row
sor_1 = 2
For sor = 2 To usor
For oszlop = 2 To 4
If Cells(sor, oszlop) > "" Then
Cells(sor, 1).Copy Sheets("DATA").Cells(sor_1, 3)
nev = Cells(sor, oszlop)
veznev = Left(Cells(sor, oszlop), Application.WorksheetFunction.Search(" ", Cells(sor, oszlop)) - 1)
kernev = Right(Cells(sor, oszlop), Len(Cells(sor, oszlop)) - Application.WorksheetFunction.Search(" ", Cells(sor, oszlop)))
Sheets("Data").Cells(sor_1, 1) = veznev
Sheets("Data").Cells(sor_1, 2) = kernev
sor_1 = sor_1 + 1
End If
Next
Next
Cells(1).Select
End Sub -
#9061
Delila_1
veterán
Fire/SOUL/CD
#9060
Delila_1
veterán
válasz
Fire/SOUL/CD
#9060
üzenetére
Sebaj, volt a nekem küldöttben.
-
#9051
Delila_1
veterán
Fire/SOUL/CD
#9050
Delila_1
veterán
válasz
Fire/SOUL/CD
#9050
üzenetére
-
#9047
Delila_1
veterán
Fire/SOUL/CD
#9045
Delila_1
veterán
válasz
Fire/SOUL/CD
#9045
üzenetére
Geryson nem beszélt másik fájlról, és mivel járt nálam a füzete, tudom, hogy 1 füzeten belül 2 lap között használja az fkeres-t.
Eszerint marad az irányított beillesztés.
-
#9043
Delila_1
veterán
Fire/SOUL/CD
#9042
Delila_1
veterán
válasz
Fire/SOUL/CD
#9042
üzenetére
Nem üres, az egyik lapról írattam be fkeres-sel értékeket a másik lapra.
-
Delila_1
veterán
válasz
Geryson
#9016
üzenetére
Érdemes bevinni egy harmadik szabályt is, mert másképp a kitöltetlen területek pirosak lesznek ott, ahol a formátumot megadtad.
A harmadik képlete, ahol NE adj meg formátumot
=NEM(SZÁM(A1))Közben befutott az új válaszod, amiből kiderült, hogy magyar Exceled van, és 2007-es előtti verzió.
-
Delila_1
veterán
válasz
Geryson
#9016
üzenetére
Kijelölöd a formázandó területet, ezek közül a kijelölés első cellája lesz az aktív.
Feltételes formázás -> Új szabály -> A formázandó cellák kijelölése képlettel.
Az "Értékek formázása, ha a képlet igaz" rovatba beírod, egyenlőségjellel kezdve
=A1<2,5. Az A1 helyett az aktív cella címét add meg. Megadod a piros hátteret. OK.Feltételes formázás -> Szabályok kezelése -> Új szabály -> A formázandó cellák kijelölése képlettel. Az "Értékek formázása, ha a képlet igaz" rovatba beírod =ÉS(A1>=2,5;A1<=3). Megadod a sárga hátteret. OK.
Ha angol Exceled van, a pontosvesszők helyére vesszőt írj, az ÉS helyett AND-et.
Ha a Területi beállításoknál a tizedes elválasztó pont, akkor a képletekben is azt írj a tizedes vesszők helyett. -
Delila_1
veterán
válasz
bozsozso
#9011
üzenetére
Vigyázat! A számolás a megjelenítési formátumtól függetlenül a teljes számmal számol, nemcsak a látható részével. Előfordulhat, hogy az így formázott számok összege látszólag hamis eredményt ad.
Pl. a
364665 és
155723 összege
520388A látványuk
365 és
156, az összegük
520, ami látszólag hamis érték. -
Delila_1
veterán
válasz
DopeBob
#8997
üzenetére
Mintának itt van egy olyan eseménykezelő makró.
A keresendő értéket a C oszlopban adod meg, ennek a sorában az A oszlopba beírja az fkeres függvényt, ami a D:E tartomány 2. oszlopában talált értéket adja vissza.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.DisplayAlerts = False
Cells(Target.Row, 1) = "=VLOOKUP(C" & Target.Row & ",D:E,2,0)"
Application.DisplayAlerts = True
End If
End SubA képletben a C helyére a hosszú útvonalat add meg, ahogy Fire írta.
-
Delila_1
veterán
válasz
Geryson
#8980
üzenetére
Csatolok egy képet – igaz, 2003-as verzióban – az irányított szűrőről.
Nálam a J2 képlete: =SZORZATÖSSZEG((A2:A15=H2)*(B2:B15=I2);C2:C15), a 2007-es verzióban ehelyett a SZUMHATÖBB függvénnyel megoldható a több feltétel együttes alkalmazása.
A H:I oszlop akkor jön létre, mikor leOKéztad az Irányított szűrés ablakot.
A cellák színezése a feltételes formázással megoldható.
-
#8971
Delila_1
veterán
TazLeacher
#8970
Delila_1
veterán
válasz
TazLeacher
#8970
üzenetére
Szívesen.
-
#8969
Delila_1
veterán
TazLeacher
#8966
Delila_1
veterán
válasz
TazLeacher
#8966
üzenetére
Még annyit, hogy a darabszámhoz is a B oszlop tartalmát kell figyeltetni.
=DARABTELI(B1:B27;IGAZ)
Az átlagot számoló végeleges képlet:
=SZUMHA(B1:B27;IGAZ;A1:A27)/DARABTELI(B1:B27;IGAZ) -
#8968
Delila_1
veterán
TazLeacher
#8966
Delila_1
veterán
válasz
TazLeacher
#8966
üzenetére
Tehát az A1:A27 tartományban vannak pozitív, negatív, és 0 értékek, valamint #ZÉRÓOSZTÓ tartalmú cellák.
A B1 képlete: =SZÁM(A1), ezt lemásolod B27-ig. Eredménye IGAZ, vagy HAMIS.
Az összegző képlet: =SZUMHA(B1:B27;IGAZ;A1:A27)Perfag, ez nekem #ZÉRÓOSZTÓ eredményt ad.
-
#8964
Delila_1
veterán
TazLeacher
#8959
Delila_1
veterán
válasz
TazLeacher
#8959
üzenetére
A =SZORZATÖSSZEG((E3:E31<>"")*E3:E31)/DARAB2(E3:E31) megoldja a problémádat.
Keress rá, volt már itt szó a szorzatösszeg függvényről.
A Perfag által említett szumhatöbb függvény a 2007-es verzióban született, az előbbiekben még nem található meg. -
#8938
Delila_1
veterán
m.zmrzlina
#8933
Delila_1
veterán
válasz
m.zmrzlina
#8933
üzenetére
A feltételes formázásnál elegendő az
=ÉS($B9=C$8;C9<>"") képlet a =$C$9:$H$15 területre megadva.A feltételes formázásnál az = jel már eleve képviseli a HA függvényt, ezért utána már azonnal következik a feltétel(ek) megadása.
-
#8929
Delila_1
veterán
JamesHolden
#8928
Delila_1
veterán
válasz
JamesHolden
#8928
üzenetére
Szívesen.
Jó lenne, ha egy egyszerűbb megoldás is befutna.
Addig is érdemes lenne makrórögzítéssel eltárolni a folyamatot, mivel valószínűleg többször kell így átalakítanod az adataidat.
-
#8927
Delila_1
veterán
JamesHolden
#8926
Delila_1
veterán
válasz
JamesHolden
#8926
üzenetére
Kicsit rafinált lesz, lehet, hogy kapsz egyszerűbb megoldást.
A C és D oszlop általános-, az E pedig dátum formátumú legyen.
C2 -> =SZÖVEG(B2;"szöveg")
D2 -> =JOBB(C2;4)&KÖZÉP(C2;3;4)&BAL(C2;2)
E2 -> =DÁTUMÉRTÉK(D2)A képleteket lemásolod, majd az E oszlopot irányítottan, értékként beilleszted az eredeti B oszlop helyére. Ezután a B oszlop formátumát dátumra módosítod. A C:E oszlopok képleteit törölheted.
-
-
-
#8858
Delila_1
veterán
Alfonzka77
#8857
Delila_1
veterán
válasz
Alfonzka77
#8857
üzenetére
Ímé:
Sub Átlag()
Dim sor As Integer, oszlop As Integer
Dim k_sor As Integer, összeg As Double
Dim usor As Integer, uoszlop As Integer
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
sor = 1: k_sor = 1
For oszlop = 1 To uoszlop
Do While sor <= usor
összeg = Cells(sor, oszlop) + Cells(sor + 1, oszlop) + Cells(sor + 2, oszlop)
Cells(k_sor, oszlop + 10) = összeg / 3
k_sor = k_sor + 1: sor = sor + 3
Loop
k_sor = 1: sor = 1
Next
End Sub -
#8856
Delila_1
veterán
Alfonzka77
#8855
Delila_1
veterán
válasz
Alfonzka77
#8855
üzenetére
Nemsokára írok rá makrót, csak most van egy kis más dolgom.
-
#8854
Delila_1
veterán
Alfonzka77
#8853
Delila_1
veterán
válasz
Alfonzka77
#8853
üzenetére
Akkor nem kell makró.
K1-be: =ÁTLAG(A1:A3)
A K2 és K3 üresen marad.
A K1
3 tartományt együtt kijelölöd, és lemásolod az utolsó sorodig.Ezután kijelölöd a K1 cellától a K oszlop utolsó képletéig a tartományt, és jobbra másolod addig, ameddig kell.
-
#8852
Delila_1
veterán
Alfonzka77
#8851
Delila_1
veterán
válasz
Alfonzka77
#8851
üzenetére
Így gondoltad? Persze az ÁTLAG képleteket nem kézzel, hanem makró segítségével lehetne bevinni.
-
Delila_1
veterán
válasz
Lackukac
#8846
üzenetére
Két makró lehetővé teszi, hogy az A oszlopot bővítve, vagy szűkítve minden külön gombnyomás nélkül létrejöjjön a B oszlopban a szűrt listád.
Az elsőt a laphoz kell rendelned: lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben (ahova most bejutottál) a jobb oldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Range("J1") = Range("A65000").End(xlUp).Row
Columns("B:B") = ""
Lista_Szűrő
Application.EnableEvents = True
End If
End SubA szerkesztőben maradva bal oldalon kattints a füzeted nevére. Insert menü, Module. Kapsz bal oldalon egy Module1 nevű modult, ehhez másold be jobb oldalra a második makrót.
A J1 cellába írja be a makró az A oszlop mindenkori utolsó sorát, és felhasználja a szűrésnél.
Sub Lista_Szűrő()
ActiveWorkbook.Names.Add Name:="Lista", RefersToR1C1:= _
"=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)"
Range("Lista").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D1:D2"), CopyToRange:=Range("B1"), Unique:=False
End SubAz "=OFFSET(Munka1!R1C1,0,0,Munka1!R1C10,1)" sorban a félkövérrel írt munkalap nevet írd át a saját lapod nevére.
-
Delila_1
veterán
válasz
Lackukac
#8843
üzenetére
Irányított szűrővel villámgyorsan megcsinálhatod a mellékelt kép szerint.
Beírod a D1-be az A oszlop címét (ez szükséges hozzá), D2-ben a feltételt (>0).
Kijelölöd az A oszlopban a tartományt, Adatok - Szűrő - Irányított.
A megjelenő párbeszéd ablakot a kép szerint kitöltöd, OK után azonnal kitölti a B oszlopot.
-
#8840
Delila_1
veterán
Vizes Tomi
#8839
Delila_1
veterán
válasz
Vizes Tomi
#8839
üzenetére
Makróval könnyedén megoldható, de ahhoz tudni kell a füzetek, lapok nevét, és a lapok felépítését.
Írd meg, melyik oszlopban mi található, minek a hatására (sor, oszlop) mi változzon (itt is sor, oszlop).
Az lenne a legjobb megoldás, ha kitennéd elérhető helyre a füzeteket, akár hamis adatokkal, és pontosan megjelölnéd bennük a feladatot. -
#8832
Delila_1
veterán
Vizes Tomi
#8831
Delila_1
veterán
válasz
Vizes Tomi
#8831
üzenetére
A 8800-as kérdésig olvass vissza, feltételes formázással kapcsolatos válaszokat, megoldásokat találsz.
-
Delila_1
veterán
válasz
snowden
#8822
üzenetére
Nem egészen világos nekem a kérdés. Ha azt akarod elérni, hogy ha az 1,9-ben az érték 1, akkor az 1,3 cella értéke szerepeljen az 1,10-ben, ha nem 1 az érték, akkor az 1,9 legyen az 1,10-ben?
Ha igen,
If Cells(1, 9) = 1 Then
Cells(1, 10) = Cells(1, 3)
Else
Cells(1, 10) = Cells(1, 9)
End If -
Delila_1
veterán
Az X, vagy x beírása az első sorba hozza működésbe a makrót.
Lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutsz, jobb oldalra másold be a makrót. Az Interior.ColorIndex = 3 -nál a 3 (piros) helyett megadhatsz más számmal más színt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And UCase(Target.Value) = "X" Then _
Columns(Target.Column).Interior.ColorIndex = 3
If Target.Row = 1 And UCase(Target.Value) = "" Then _
Columns(Target.Column).Interior.ColorIndex = xlNone
End Sub -
Delila_1
veterán
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. -
Delila_1
veterán
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. -
Delila_1
veterán
Ö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. -
#8774
Delila_1
veterán
Fire/SOUL/CD
#8772
Delila_1
veterán
válasz
Fire/SOUL/CD
#8772
üzenetére
Az elborultra: én is ilyen összetett függvényekkel kezdtem, míg meg nem világosodtam.
-
-
#8771
Delila_1
veterán
Fire/SOUL/CD
#8769
Delila_1
veterán
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.
-
#8766
Delila_1
veterán
Fire/SOUL/CD
#8765
Delila_1
veterán
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.
-
#8764
Delila_1
veterán
Fire/SOUL/CD
#8763
Delila_1
veterán
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. -
#8760
Delila_1
veterán
Fire/SOUL/CD
#8759
Delila_1
veterán
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.
-
#8758
Delila_1
veterán
Fire/SOUL/CD
#8757
Delila_1
veterán
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?
-
Delila_1
veterán
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 Sub -
Delila_1
veterán
Nagy itt a csend, írok egy feladatot.
Az egyik iskolában szorobánnal tanulnak számolni a nebulók. Itt látható a leírása.
Meg kell oldani az otthoni gyakorlást, mégpedig Excelben.
A lurkó beírja a számot az E1-be, bejelöli az A5:J11 tartományban a görgők helyét. Az alsó táblázatban (A15:J21) kell megjelennie a helyes kirakás képének.
Csakis függvényekkel történhet az alsó tábla kirakása, makróval esetleg ennek az elrejtése, felfedése.A felső tábla kitöltését ne nézzétek, nem érvényes.
Csak este érek rá megnézni a nagy halom megfejtést.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
3 tartományt együtt kijelölöd, és lemásolod az utolsó sorodig.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- A fociról könnyedén, egy baráti társaságban
- Drón topik
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Bestbuy játékok
- Futás, futópályák
- Autós topik
- Genshin Impact (PC, PS4, Android, iOS)
- SSD kibeszélő
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- sziku69: Szólánc.
- További aktív témák...
- ÁRGARANCIA! Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060Ti 8GB GAMER PC termékbeszámítással
- Apple iPhone 13 128GB / Kártyafüggetlen 1ÉV GARANCIÁVAL
- Csere-Beszámítás! RTX Számítógép játékra! I7 6700 / RTX 2060 6GB / 32GB DDR4 / 250SSD+500HDD
- Samsung Galaxy S6 Lite (2022) , 4/64 GB ,Wi-fi
- Microsoft Surface Pro 7 - Újszerű, dobozban, gyári töltővel, billentyűzettel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged