-
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
-
Delila_1
Topikgazda
válasz Melorin #17529 üzenetére
Összeállítasz egy kis segédtáblát. Első oszlopba a tartományok alsó értéke (31, 41, 51), melléjük a számnak megfelelő minősítő szöveg (közepes, jó, kitűnő) kerüljön. Legyen ez a tartomány a példában a J20:K22.
Az E24 képlete =FKERES(I20;J20:K23;2;1)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 atillaahun #17532 üzenetére
Az első kérdésre:
Az A oszlopban vannak a nevek.
B1 ->
=HA(BAL(A1;2)="dr";JOBB(A1;HOSSZ(A1)-4);HA(BAL(A1;4)="prof";JOBB(A1;HOSSZ(A1)-6);A1))C1 ->
=HA(BAL(A1;2)="dr";B1&" dr.";HA(BAL(A1;4)="prof";B1&" prof.";B1))A másodikat próbáld meg a Szövegből oszlopok funkcióval megoldani, ahol határolójelnek a szóközt adod meg. Nem lesz tökéletes, mert pl. az utca neve több szóból is állhat.
[ 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.
-
Delila_1
Topikgazda
2 napja nem kapok értesítést az új hozzászólásokról.
Ti sem, vagy az én készülékemben van a hiba?
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 Melorin #17572 üzenetére
F1 szövege "Kezdő dátum", F2-é "Utolsó dátum"
A két dátumot a G1-be és G2-be írd be.B2 -> =$G$1
B3 -> =B2+1 ezt lemásolod, ameddig kell. A B oszlop formátuma nnnn
C2 -> =HÉT.NAPJA(B2;2) másold
D2 -> =HA(B2=$G$1;$F$1;HA(B2=$G$2;$F$2;""))Úgy látom, a B oszlop feltételes formátumát tudod, a D-é =VAGY(D2=$F$1;D2=$F$2)
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 Melorin #17579 üzenetére
Egyszerűbben is lehet. Mivel a B oszlopban teljes dátum van, csak a formázás miatt látszik a nap elnevezése, az A1 lehet =B1, a formátummal pedig a hónap nevét jeleníted 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.
-
Delila_1
Topikgazda
válasz Melorin #17583 üzenetére
A helyedben az A oszlopra adnék egy feltételes formázást.
=HÓNAP(A2)=HÓNAP(A1)
a karakter színe legyen azonos a háttér színével.Még jobb, ha eleve azonos a karakter színe a háttérével, a képlet pedig
=hónap(a2)>hónap(a1)
Itt látható színt adsz a karakternek, és egy felső szegélyt a cellának.[ 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.
-
Delila_1
Topikgazda
válasz Melorin #17583 üzenetére
A napok formázásában a B oszlophoz adnék egy új feltételt az ünnepnapokra.
A füzetben valahol felsorolnám az évben előforduló ünnepek dátumait, és Ünnepek névvel látnám el a tartományt.
A feltétel képlete =HOL.VAN(B1;Ünnepek;0)
Ez lesz a 3. feltétel.A hét.napja oszlopra sincs szükség.
a felt. formázás képletei
1. =HÉT.NAPJA(B1;2)=6
2. =HÉT.NAPJA(B1;2)=7[ 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.
-
Delila_1
Topikgazda
válasz bteebi #17592 üzenetére
Makróval:
Sub Szamma()
Dim ter As Range, CV As Object
Set ter = Application.InputBox("Jelöld ki a számmá alakítandó területet!" _
, "Terület bekérése", Type:=8)
For Each CV In ter
CV = CV * 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 m.zmrzlina #17595 üzenetére
Nem biztos, de valószínűleg így kell megadnod a területet:
Range(Selection)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 dellfanboy #17605 üzenetére
A státuszsorban látszik a B6 cella képlete.
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 Salex1 #17606 üzenetére
cells(1,3).copy
range("A5").select
selection.pastespecial paste:=xlvalueEz a 3 sor a C3 cella értékét illeszti be az A5 cellába.
A selection.pastespecial paste:=xlpasteformats a formátumot másolja,
a selection.pastespecial paste:=xlformulas pedig a képletet.cells(1,3).copy cells(5,1) mindent másol.
Szerk.: elkéstem.
[ 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.
-
Delila_1
Topikgazda
válasz dellfanboy #17610 üzenetére
A függvényben idézőjelek között adtad meg a számításokat, ezért szövegként kezeli.
Változtass az általam küldött minta B1:B4 tartomány értékein, és meglátod, változik az eredmény is.
A B3 (fix kezelés) értékét is osztom a hónapok számával.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 alfa20 #17611 üzenetére
2. kérdés
Sub Keplet()
Dim usor%
usor% = Range("F2").End(xlDown).Row
Range("G2:G" & usor%).FormulaR1C1 = "=RC[1]/RC[-1]"
Range("G:G").Select: Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Range("H2:H" & usor%).FormulaR1C1 = "=RC[-2]*RC[-1]"
'********************************************
Range("H:H").Select: Selection.Copy
Selection.PasteSpecial Paste:=xlValues
'********************************************
Application.CutCopyMode = False
End SubA csillagos sorok közötti rész nem kell, ha a H oszlop képleteit nem kell felülírni az értékeivel.
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 Melorin #17618 üzenetére
Így add meg a feltételt:
=ÉS($A1>DÁTUM(2013;3;2);$A1<DÁTUM(2013;4;3))Az A helyett $A-t írj, mert a következő oszlopban már a B oszlopban figyeli a feltételt, ha nem rögzíted a $ jellel az oszlopot.
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 kekkec #17620 üzenetére
A színskálával tudtommal csak a kijelölt tartományon belüli számszaki helyzetük szerint lehet formázni a cellákat, a tartományon kívül eső cellák értékei szerint nem.
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 dellfanboy #17621 üzenetére
Szivi.
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 kekkec #17631 üzenetére
Az a baj, hogy a feltételesen formázott cella színeinek a lekérdezése nem a látható szín kódját adja, hanem a formázás előttit.
Ha pl. a tartomány háttere eredetileg piros, hiába lesz a feltételes formázással halványsárga, lekérdezéskor 3-as colorindexet, vagy RGB 255-öt kapsz.
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 kekkec #17631 üzenetére
Mit szólsz ehhez? Csak összedobtam, rendes értékeket kell kitalálni a határoknak, és az RGB elemeinek.
A lap Change eseményéhez kötheted.Sub mnmn()
usor% = Range("A1").End(xlDown).Row
atlag = Application.WorksheetFunction.Average(Range("A1:A" & usor%))
hatar1 = atlag * (1 + 0.1)
hatar2 = atlag * (1 + 0.3)
hatar3 = atlag * (1 - 0.5)
hatar4 = atlag * (1 - 0.7)
hatar5 = atlag * (1 - 0.8)
For sor% = 1 To usor%
Select Case Cells(sor%, 1)
Case Is < hatar5
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(0, 0, 250)
Case hatar5 To hatar4
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(255, 0, 0)
Case hatar4 To hatar3
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(120, 120, 0)
Case hatar3 To hatar2
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(100, 200, 80)
Case hatar2 To hatar1
Range(Cells(sor%, 1), Cells(sor%, 10)).Interior.Color = RGB(200, 120, 60)
End Select
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 Delila_1 #17635 üzenetére
Reggel rohantam, most egy kicsit módosítottam a makrón. A színek kikavarásához normális értékeket kell írni, hogy jól mutassanak.
Sub mnmn()
usor% = Range("A1").End(xlDown).Row
maxx = Application.WorksheetFunction.Max(Range("A1:A" & usor%))
hatar1 = maxx * 0.2
hatar2 = maxx * 0.4
hatar3 = maxx * 0.6
hatar4 = maxx * 0.8
For sor% = 1 To usor%
szam = Cells(sor%, 1)
If szam < hatar1 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(0, 0, 255)
If szam >= hatar1 And szam < hatar2 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 50, 100)
If szam >= hatar2 And szam < hatar3 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(80, 20, 180)
If szam >= hatar3 And szam < hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 200, 150)
If szam >= hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(255, 0, 0)
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 kekkec #17631 üzenetére
Lehet, hogy már nem jössz vissza ide, de feltöltöttem egy fájlt, ami előállítja a csatolt képed szerinti színeket, mikor a lapon változnak az A oszlopban a számok.
Ímé.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
Ennek csak a címe öröknaptár, de igazából nem az. Megadod egy cellában a kezdő dátumot, azzal indul az A oszlop napja.
Van viszont egy másik, ami tényleg az, de tegnap hiába tettem fel bármit a Data.hu-ra, nem engedte letölteni. Elküldjem a címedre?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
-
Delila_1
Topikgazda
válasz elmouse #17657 üzenetére
A makró a C1 cellába beírja a képletet, ami a mindenkori utolsó 50 tétel átlagát számolja ki.
Sub utolso_50()
Dim ucso%
ucso% = Range("A" & Rows.Count).End(xlUp).Row
Cells(1, "C") = "=AVERAGE(A" & ucso% - 49 & ":A" & ucso% & ")"
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 kekkec #17665 üzenetére
Ha rögtön a mostani képet adod meg, nem kellett volna duplán dolgozni. Igaz, az elmélet kitalálása volt a nehezebb dolog.
A színkódokat ismét a 2. lapra kell tenni, mint előzőleg, az A1:C10 tartományba. Ezeket az értékeket kedved, és ízlésed szerint módosíthatod.
Az új, laphoz rendelt makró:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 28 And Target.Row > 2 And Target.Row Mod 2 = 1 Then
maxx = Application.WorksheetFunction.Max(Range("B" & Target.Row & ":N" & Target.Row))
R = Application.Transpose(Sheets(2).Range("A1:A10"))
G = Application.Transpose(Sheets(2).Range("B1:B10"))
B = Application.Transpose(Sheets(2).Range("C1:C10"))
hatar1 = maxx * 0.1
hatar2 = maxx * 0.2
hatar3 = maxx * 0.3
hatar4 = maxx * 0.4
hatar5 = maxx * 0.5
hatar6 = maxx * 0.6
hatar7 = maxx * 0.7
hatar8 = maxx * 0.8
hatar9 = maxx * 0.9
For oszlop = 2 To 14
On Error Resume Next
szam% = Cells(Target.Row, oszlop)
Set ter = Range(Cells(Target.Row - 1, oszlop), Cells(Target.Row, oszlop))
Select Case szam%
Case Is <= hatar1
ter.Interior.Color = RGB(R(1), G(1), B(1))
Case hatar1 To hatar2
ter.Interior.Color = RGB(R(2), G(2), B(2))
Case hatar2 To hatar3
ter.Interior.Color = RGB(R(3), G(3), B(3))
Case hatar3 To hatar4
ter.Interior.Color = RGB(R(4), G(4), B(4))
Case hatar4 To hatar5
ter.Interior.Color = RGB(R(5), G(5), B(5))
Case hatar5 To hatar6
ter.Interior.Color = RGB(R(6), G(6), B(6))
Case hatar6 To hatar7
ter.Interior.Color = RGB(R(7), G(7), B(7))
Case hatar7 To hatar8
ter.Interior.Color = RGB(R(8), G(8), B(8))
Case hatar8 To hatar9
ter.Interior.Color = RGB(R(9), G(9), B(9))
Case Is > hatar9
ter.Interior.Color = RGB(R(10), G(10), B(10))
End Select
Next
End If
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 Gandalf80 #17666 üzenetére
NE VOND össze a cellákat az A oszlopban, és minden sorba írd be a dátumot, akkor már erre az oszlopra is hivatkozhatsz a szumhatöbb függvénnyel.
Ha zavar a sok dátum, az elsőn kívül mindegyiket a háttér színével írd.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
-
Delila_1
Topikgazda
válasz m.zmrzlina #17678 üzenetére
Makróban
dim utvonal$
utvonal$=range("A1"), ahol az A1 -> C:\almappa\al_almappa\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 m.zmrzlina #17681 üzenetére
Ez is egy módszer.
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
Az a baj, hogy a tortadiagram csak 1 oszlop adatait tudja ábrázolni, ezért itt nem célszerű ez a forma.
Próbáld ki úgy, hogy kijelölöd mindkét oszlopot, beszúrod a tortát. Az adatokat módosítod az első oszlopban – ennek megfelelően változik a diagram. Módosítod a 2. oszlopot – a diagram marad az előző formában.
Ha mégis ragaszkodsz a tortához, 2 külön diagramot tegyél egymás fölé. A felsőnél a diagram terület legyen átlátszó, az egyes adatpontok pedig áttetszőek. Nem lesz jól követhető.
Szerintem jobb, ha az egyik oszlop adatait oszlopra-, a másikat vonalra formázod.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
Ehhez kellene tudni, mit kell összefűzni az Y oszlopban. Az is kellene, hogy az X oszlop melyik sorában kezdődnek az adataid, és hogy folyamatosan vannak-e. Vaktában nem lehet makrót írni.
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 alfa20 #17719 üzenetére
=HA(HIBÁS(SZÖVEG.TALÁL("T";G8));"HAMIS";"IGAZ")
Ennek alapján már össze tudod hozni a több karakterre történő keresést. Jó hosszú képlet lesz belőle.
=HA(NEM(HIBÁS(SZÖVEG.KERES("T";A1)));1;HA(NEM(HIBÁS(SZÖVEG.KERES("A";A1)));2;HA(NEM(HIBÁS(SZÖVEG.KERES("P";A1)));3;HA(NEM(HIBÁS(SZÖVEG.KERES("M";A1)));4;HA(NEM(HIBÁS(SZÖVEG.KERES("B";A1)));0;"")))))
[ 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.
Új hozzászólás Aktív témák
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Kínai, és egyéb olcsó órák topikja
- Külföldi rendelések: boltok, fizetés, postázás
- Gran Turismo
- Politika
- Bittorrent topik
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Suzuki topik
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs