- Synology NAS
- Microsoft Excel topic
- Milyen program, ami...?
- Csinált valamit a Nokia: megváltoznak a telefonhívások
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- DIGI kábel TV
- AutoCAD
- Netflix
- Nem szavazza meg Musk 56 milliárd dolláros csomagját a norvég állami vagyonalap
-
IT café
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
-
m.zmrzlina
senior tag
A következő elrendezést és Excel2007-et feltételezve a következő lehet egy megoldás:
A:B tartomány lefelé folytatódik.
És a makró:
Sub minmax()
Dim min As Single
Dim max As Single
Dim tipus As String
Dim i As Integer
For i = 1 To Range("A1048576").End(xlUp).Row
Cells(i, 1).Select
tipus = ActiveCell.Value
min = ActiveCell.Offset(0, 1).Value
min = ActiveCell.Offset(0, 1).Value
If Application.WorksheetFunction.CountIf(Range("D:D"), tipus) = 0 Then
Do While ActiveCell.Value <> ""
If ActiveCell.Value = tipus Then
If ActiveCell.Offset(0, 1).Value <= min Then
min = ActiveCell.Offset(0, 1).Value
If ActiveCell.Offset(0, 1).Value >= max Then
max = ActiveCell.Offset(0, 1).Value
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Cells(Range("D1048576").End(xlUp).Row + 1, 4).Value = tipus
Cells(Range("E1048576").End(xlUp).Row + 1, 5).Value = min
Cells(Range("F1048576").End(xlUp).Row + 1, 6).Value = max
End If
Next
End Sub
Új hozzászólás Aktív témák
- Dragon Age: The Veilguard címmel jön a sorozat régóta készülő új része
- Azonnali fáradt gőzös kérdések órája
- Synology NAS
- Xbox Series X|S
- Microsoft Excel topic
- A Samsung elkezdte árulni új Micro LED tévéit
- Autós topik
- sziku69: Fűzzük össze a szavakat :)
- Milyen program, ami...?
- Óra topik
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Eladó Steam kulcsok kedvező áron!
- Steam kulcsok - UTALÁS/REVOLUT
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen