- One mobilszolgáltatások
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- VoLTE/VoWiFi
- Mobil flották
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel 8a - kis telefon kis késéssel
- Samsung Galaxy S25 - végre van kicsi!
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
-
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
-
Fferi50
Topikgazda
válasz
Reinhardt
#54084
üzenetére
Szia!
Vagyis Fire/SOUL/CD javaslata képletezve:
D17 képlete= DARABHA(MasterSheet!$I$2:$I$610;$C17)
angolul COUNTIF a függvény, régebbi magyar Excelben pedig DARABTELI és figyelni kell a paraméter elválasztóra (vessző vs. pontosvessző). A $ rögzíti a címet.
A képlet húzható lefelé, sőt a többi Tier listához is másolható.
Üdv. -
#54085
Fire/SOUL/CD
félisten
Reinhardt
#54084
válasz
Reinhardt
#54084
üzenetére
Ebből a képből indulunk ki
Szóval az ár az egy egyedi azonosító, azaz a C oszlopban nem szerepelhet többször, és egyúttal az ehhez tartozó (B oszlop) megnevezéseit is egyértelműen azonosítja.Ha ez így van, akkor nagyon egyszerű a dolog.
Maradva a képednél
B20 -> Standard Studio Gold
C20 -> 402 (az most lényegtelen milyen valuta, gondolom pénznem vagy szám mező)D20 -> meg kell számolni, hogy hányszor fordul elő a C20 a MASTER sheet ÁR oszlopában
D17-be kellene írni a képletet, amit D25-ig le lehet másolni. Nem tudom mi a MASTER sheet neve (legyen MASTER) meg azt sem, hogy melyik oszlopban vannak az árak (legyen ÁR), de a D17 képlete kb. így nézhet(ne) ki
=DARABHA(MASTERSHEET!ÁR_OSZLOP_TAROMÁNYA;D17) -
-
Mutt
senior tag
válasz
Reinhardt
#50969
üzenetére
Szia,
Lineáris interpolálással meg lehet becsülni a köztes értéket.
Lépések:
1. Hónap kezdőnapjánk meghatározása. Az E-oszlopban a képlet: =EOMONTH(D2;-1)+1
2. Meghatározni, hogy ez előző leolvasás és a hónap kezdőnapja között hány nap telt el.
Az F-oszlop képlete: =E2-D3-1
3. A C-oszlopban van a két leolvasás közötti fogyás, ha elosztjuk a két leolvasás között eltelt napok számával akkor tudjuk a napi átlag fogyasztást. Ezt megszorozzuk a 2-es lépésben kapott napokkal megkapjuk hogy hó elejéig mennyi fogyhatott. Végül hozzáadjuk ezt az előző hónapi értékhez.G-oszlopban a képlet: =B3+INT(C2/(D2-D3)*F2)Ha segédoszlopok nélkül kell, akkor pedig az egész egybegyúrva (és kicsit egszerűsítve):
=B3+INT(C2/(D2-D3)*(EOMONTH(D2;-1)-D3))üdv
-
Fferi50
Topikgazda
válasz
Reinhardt
#50969
üzenetére
Szia!
1. Karbantartót kirúgni, újat felvenni. Munkaköri leírásban rögzíteni, hogy minden hónap elsején köteles az órák állását leolvasni és rögzíteni.
2. Irodás Micikének munkakörébe iktatni, hogy minden hónap elsején köteles ellenőrizni a karbantartót, elmaradás esetén leolvasni az órák állását.
3. Okosórákat beszerelni amelyek automatikusan továbbítják az óraállást minden hónap elsején.
Komolyra fordítva: Jelen esetben csak interpolálni tudsz: ábrázolod az adatokat Excelben grafikonon, kérsz rá egy trendfüggvényt és az alapján számítasz becsült hó eleji adatokat.
Üdv. -
-
Fferi50
Topikgazda
-
-
lappy
őstag
válasz
Reinhardt
#38932
üzenetére
egy saját függvénnyel lehet csak
pl.:Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End FunctionA színes cellák számlálása : = ColorFunction (A, B: C, FALSE)
A színes cellák összegzése : = ColorFunction (A, B: C, TRUE)
-
-
Delila_1
veterán
válasz
Reinhardt
#33628
üzenetére
Rögzíts egy sort, amiben csak egy nyomtatást hajtasz végre. Ez azért kell, mert a rögzítés tartalmazza, hogy melyik nyomtatóra küldöd az anyagot.
Másold be egy modulba a lenti makrót.
Sub Nyomtat()
Dim napig, nap As Integer
napig = Application.WorksheetFunction.EoMonth(Date, 0)
napig = Day(napig)
For nap = 1 To napig
ActiveSheet.PageSetup.CenterHeader = "Date: " & nap & "/" & Month(Date) & "/" & Year(Date)
'ide jön a rögzített nyomtatási sor
Next
End SubA megjegyzésbe írt 'ide jön... helyére másold be a rögzített sorodat. Mentsd el a füzetet makróbarátként.
A lapról töröld ki a sort, ami most a dátumot tartalmazza, mert ezt a makró az élőfejbe írja majd be.
A makró az aktuális hónap minden napjára elkészíti a nyomtatást, a fejlécben a napi dátummal. -
-
Delila_1
veterán
válasz
Reinhardt
#33558
üzenetére
Egy cellába beírtam: 0:15, majd általánosra váltottam át a cellaformátumot.
Kaptam egy szép hosszú törtet, ezt: 0,0104166666666667. A képletben ezt használtam a kerekítéshez.E2 -> =MROUND(HA(D2>C2;D2-C2;24-C2+D2);0,0104166666666667)
F2 -> =E2-"8:00"
G2 -> =E2-"0:30"Az összegző képletek cellaformátuma [ó]:00 legyen.
-
Delila_1
veterán
válasz
Reinhardt
#31059
üzenetére
A 6 választható adatot a Z1:Z6 tartományba írtam.
A makrót a laphoz kell rendelned. Erről olvashatsz a Téma összefoglalóban.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
With Range(Target.Address)
.HorizontalAlignment = xlRight
.Font.ColorIndex = 10
.Offset(1) = Range("Z" & Int(Rnd() * 6) + 1)
.Offset(1).Font.ColorIndex = 5
.Offset(1).HorizontalAlignment = xlLeft
End With
Application.EnableEvents = True
End If
End SubAz A oszlopba beírt adat alá írja a véletlen kiválasztott értéket.
-
-
Delila_1
veterán
válasz
Reinhardt
#30035
üzenetére
Most is kipróbálhatod, ahogy én is tettem.
Felveszel egy mappát, ennek az útvonalát teszed be az utvonal változóba.
Teszel néhány képet bele, amiket elnevezel 001.jpg-től 015.jpg.ig
A lapon a sorokat olyan magasságúra állítod, amilyen magasak legyenek a képek.
Indítod a makrót.Szombaton a For sor=1 to 15 sorban a 15 helyett annyit írsz, ahány képed van.
-
Delila_1
veterán
válasz
Reinhardt
#30024
üzenetére
Feltételezem, hogy címsorod van, ezért a képeket a második sortól kezdve szúrom be. Ellenkező esetben a +1-eket töröld a makróból három helyen.
A képek magasságát a sorok magasságához igazítom, a képarányok megtartásával.A makróban 2 sort jelöltem csillagokkal. Az elsőnél a képek elérési útvonalát kell módosítanod, a másodiknál a kiterjesztést, ha nem jpg.
Sub Kepek()
Dim sor As Long, kepneve As String
Dim utvonal As String
utvonal = "D:\Képek\" '1.*******
For sor = 1 To 15
kepneve = Right("000" & sor, 3) & ".jpg" '2.*******
Range("A" & sor + 1).Select
ActiveSheet.Pictures.Insert(utvonal & kepneve).Select
Selection.ShapeRange.Top = Rows(sor + 1).Top
Selection.ShapeRange.Left = 0
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = Rows(sor + 1).Height
Next
End Sub -
#29276
m.zmrzlina
senior tag
Reinhardt
#29275
m.zmrzlina
senior tag
válasz
Reinhardt
#29275
üzenetére
Részlet a topik Téma összefoglalójából:
– Modulba írás: Alt+F11-re bejön a makró szerkesztő. Bal oldalon ki kell választani a füzetet, majd az Insert | Module menüpontokkal új modult kapunk, ami a bal oldalon látszik, és ki van jelölve. A jobb oldali nagy üres mezőbe kell bemásolni a fórumon kapott makrót. Visszalépve a füzetbe az Alt+F8 előhoz egy párbeszéd ablakot, itt tudjuk kiválasztani és indítani a makrót.
Az angol nyelv itt most nem számít.
-
#29274
m.zmrzlina
senior tag
Reinhardt
#29271
m.zmrzlina
senior tag
válasz
Reinhardt
#29271
üzenetére
Ez is valami hasonló, csak ez nem nyomtat, hanem létrehozza a munkalapot amit neked kell kinyomtatni.
Sub letrehoz()
k = 1
For i = 1 To 50
Sheets("Munka1").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
For j = 4 To 22 Step 2
Sheets(Sheets.Count).Range("G" & j).Value = k
k = k + 1
Next
Next
End Sub -
Delila_1
veterán
válasz
Reinhardt
#29271
üzenetére
Állítsd be a nyomtatási képen a fekvő lapot, és a margókat. Indíthatod a nyomtatást.
Sub Nyomtat()
Dim lap As Long, sor As Integer, valtozo As Integer
valtozo = 1
For lap = 1 To 50
For sor = 4 To 22 Step 2
Cells(sor, "G") = valtozo
valtozo = valtozo + 1
Next
Range("A1:K23").Select
Selection.PrintOut Copies:=1
Next
End Sub -
Delila_1
veterán
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- iKing.Hu - Apple iPhone 14 Plus - Yellow - Használt, karcmentes
- Eredeti DELL 240W töltők (LA240PM160)
- BESZÁMÍTÁS!Gigabyte B650M R7 7800X3D 64GB DDR5 1TB SSD RTX 3080Ti 12GB Corsair 4000D Airflow TG 750W
- REFURBISHED - HP USB-C Universal Dock G1 docking station (DisplayLink)
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest