Hirdetés
-
GAMEPOD.hu
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 Declare #31884 üzenetére
Szia!
Közben megszületett az új verzió:
Sub FormatText2()
Dim i As Double, mycell As Range, myfind As Range, elso As String
Set myfind = Range("H:H").Find(what:="w", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not myfind Is Nothing Then
elso = myfind.Address
Do While True
Set mycell = Range("H:H").Find(what:="p", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious, after:=myfind)
If Not mycell Is Nothing Then
i = myfind.Row
With Range("A" & i & ":H" & i)
.Font.Name = "Calibri"
.Font.FontStyle = "Italic"
.Font.Underline = xlUnderlineStyleSingle
End With
Range("E" & i).Value = Range("A" & i).Value & " " & Range("D" & i).Value
Range("E" & i).HorizontalAlignment = xlRight
Range("A" & i & ":D" & i).ClearContents
Range("F" & i).Formula = "=Sum(" & Range("F" & i - 1).Address & ":" & Range("F" & mycell.Row).Address & ")"
End If
Set myfind = Range("H:H").Find(what:="w", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=myfind)
If myfind.Address = elso Then Exit Do
Loop
End If
End SubEnnek az az előnye, hogy nem kell végigpörgetni az összes cellát, hogy megtaláld a w betűket, ezt rá kell bízni az Excelre - azért találták ki.
Feltétlenül fontos, hogy az első csoportösszesítés kezdetéhez is tegyél egy p betűt.Üdv.
Új hozzászólás Aktív témák
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Gondoskodik róla az EU, hogy az Apple felnyissa a rendszereit
- A Xiaomi 14T-k már töltő nélkül érkezhetnek
- Motorolaj és szűrő topik
- Amazon Fire TV stick/box
- Spórolós topik
- Viccrovat
- Ukrajnai háború
- Politika
- Autós topik
- További aktív témák...
- AMD Bundle-Avatar: Frontiers of Pandora, Starfield, Lies of P, Company of Heroes 3 - válassz kettőt!
- Eladó Steam kulcsok kedvező áron!
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- AKCIÓ! - STEAM kulcsok / Aragami, Transformers, Oddworld, stb. - 2024.08.08.
- Vírusirtó, Antivirus, VPN kulcsok
- The Chronicles of Riddick (PC Guru) / Soldier of Fortune 1 (papírtokos) 600Ft/db
- Warhammer 40,000: Space Marine 2, Unknown 9: Awakening promo kód AMD Ryzenhez, érvényes 2024.11.02
- Stem Uplay Kulcsok, ami nincs a listába kérdezz!
- Aktivált játékok tokjai, lemezei (a legtöbb fullos, kézikönyvvel) eladóak!
- Játékkulcsok a legjobb áron: Steam
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen