-
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
-
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)
-
#38866
lappy
őstag
pero19910606
#38865
lappy
őstag
válasz
pero19910606
#38865
üzenetére
a pivot táblához rendelj egy frissít gombot és a probléma megoldva
-
lappy
őstag
-
#38762
lappy
őstag
molnarbalazs
#38761
lappy
őstag
válasz
molnarbalazs
#38761
üzenetére
Javítva!
-
-
#38298
lappy
őstag
Kristof_94
#38296
lappy
őstag
válasz
Kristof_94
#38296
üzenetére
Szia!
Vagy ezt a fgv tudod használni PROPER- Tnév (csak ilyenkor kell még egy kis művelet mellé- azaz segédoszlop és áthelyezés)
vagy macroval tudod ezt megoldaniSub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub
itt viszont nem kell tab -
#38218
lappy
őstag
dellfanboy
#38217
lappy
őstag
válasz
dellfanboy
#38217
üzenetére
a gugli segít ebben (csak pár szót kell beírni)
-
#38115
lappy
őstag
scott_free
#38111
lappy
őstag
válasz
scott_free
#38111
üzenetére
Fel lehet törni, vannak rá szoftverek
-
-
#37998
lappy
őstag
dellfanboy
#37997
lappy
őstag
válasz
dellfanboy
#37997
üzenetére
=ROUND(IF(AH1="BS",VLOOKUP(Z1,FX!A:MV,VLOOKUP(L1,'FX columns'!A: F,4,0),0),VLOOKUP(Z1,FX!A:MV,VLOOKUP(L1,'FX columns'!A: F,6,0),0)),5)
3 részből áll a ha fgv. két részeVLOOKUP(Z1,FX!A:MV,VLOOKUP(L1,'FX columns'!A: F,6,0),0))VLOOKUP(Z1,FX!A:MV,VLOOKUP(L1,'FX columns'!A: F,4,0),0)
és a kerekítés
az első fkeres- hamis ág
L1 -et keresi meg a tartományban majd ezen értéket használja fel az előtte lévő fkeres is
a második fkeres- igaz ág
hasonló a működése mint az elsőnek
kerekítés
vlamilyen érték kijön vagy az igaz vagy a hamis és kerekíti 5-el -
#37988
lappy
őstag
martin921231
#37986
lappy
őstag
válasz
martin921231
#37986
üzenetére
Dim DownTime As Date
Sub SetTimer()
DownTime = Now + TimeValue("01:00:00")
Application.OnTime EarliestTime:=DownTime, _
Procedure = "ShutDown", Schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, _
Procedure:="ShutDown", Schedule:=False
End Sub
Sub ShutDown()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.Close
End With
End Subilletve
Private Sub Workbook_Open()
Call SetTimer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopTimer
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call StopTimer
Call SetTimer
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Call StopTimer
Call SetTimer
End Sub -
-
#37934
lappy
őstag
Peterhappy
#37933
lappy
őstag
válasz
Peterhappy
#37933
üzenetére
Pivot tábla? nem jó
-
lappy
őstag
Szia!
"ahol vagy számok vannak vagy 0" miért a 0 nem szám?!
Amúgy a lehetőségek:
az egyik hogy szűrést teszel az oszlopokra- szűrés "0" kivéve- másol- beilleszt
vagy
egy ha függvénnyel vizsgálod hogy a g értékét és újra szűrés kell majd
vagy
közvetlen szűrés és megadod neki hogy hova tegye az eredményt -
#37763
lappy
őstag
valyogvisko
#37762
lappy
őstag
válasz
valyogvisko
#37762
üzenetére
Ezt nem is fogod függvénnyel megoldani csak makróval lehet!!!
-
#37728
lappy
őstag
the radish
#37725
lappy
őstag
válasz
the radish
#37725
üzenetére
-
lappy
őstag
szintén ha fgv elég hozzá
a B2 cellába a
=HA(D2="igen";A2*(B1/100);A2)kód megy
a C2-be meg A2-B2
persze a C2 így mindig fog vmi értéket mutatni, de ezt ki lehet küszöbölni egy másik ha fgv.el
illetve a B2 cellá nem nézi hogy mi van D2 akkor ha az nem IGEN ha nem üres vagy más, de szintén egy ha fgv továbbírással ez is megoldható -
lappy
őstag
válasz
csoki46
#37557
üzenetére
Sub SaveNumberedFile()
Static count As Integer
Dim filestr As String
filestr = "C:\Users\Me\Documents\Code\TestWkbk"
ThisWorkbook.Activate 'Activate whichever workbook you need
If count = 0 Then
ActiveWorkbook.SaveAs (filestr & ".xls")
ElseIf count > 0 And Dir(filestr & "v" & count - 1 & ".xls") = "" Then
ActiveWorkbook.SaveAs (filestr & "v" & count & ".xls")
End If
count = count + 1
End Subannyi a baj vele hogy csak akkor számolja a változót ha meg van nyitva, bezárás esetén újra indul.
Célszerű valahova lementeni a füzeten belül ezt az értéket és minden megnyitásánál beolvasni. -
#37300
lappy
őstag
dellfanboy
#37299
lappy
őstag
válasz
dellfanboy
#37299
üzenetére
Tömbképlettel lehetne megpróbálni
-
#37147
lappy
őstag
toth_janika
#37145
lappy
őstag
válasz
toth_janika
#37145
üzenetére
egy segédoszlopban megnézed hogy melyik dátumnak kell ott lennie a szabályod szerint
ki is kell íratnod a megírt ha függvénnyel melyik legyen
ezután ezt az oszlopod kijelölöd és érték másolása majd beillesztés a megfelelő helyre és törölheted a segédoszlopot
Új hozzászólás Aktív témák
Fferi50- Crimson Desert
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Fejhallgató erősítő és DAC topik
- Milyen hagyományos (nem okos-) telefont vegyek?
- Kompakt vízhűtés
- LCD, plazma és projektoros TV-k hibái
- Apple MacBook
- Kuponkunyeráló
- Autóápolás, karbantartás, fényezés
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft és egyéb dobozos retro szoftverek
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- HIBÁTLAN iPhone 12 Pro 128GB Gold-1 ÉV GARANCIA - Kártyafüggetlen, MS4441, 100% Akksi
- Logitech Mx mechanical master series magyar keyboardlabor gmail.com
- Sony ULT FIELD 1 bluetooth hangszoró
- 146 - 147 - 167 - 168 - 169 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4090
- LG 27GP850P-B - 27" NANO IPS - 2560x1440 - 180Hz 1ms - NVIDIA G-Sync - AMD FreeSync - HDR 400
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest