-
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
-
senior tag
Végül kb megoldottam magam egy vba makró modullal:
Sub Szines_kereso()
Dim ws As Worksheet
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
Dim cellaszin As Long
' Munkalap inicializálása
Set ws = ThisWorkbook.Sheets("Munkalap")
Do
xVrt = Application.InputBox(prompt:="Keresés: (Kilépéshez hagyja üresen és kattintson az OK-ra) ", Title:="Keresőablak találati színezéssel")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="A keresett érték nem található", Title:="Keresőablak találati színezéssel"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
cellaszin = xRg.Interior.ColorIndex
xRg.Interior.ColorIndex = 8
ws.Rows(xRg.Row).Select ' Ha találtunk valamit, ugorjunk a megtalált cella sorához
xRsp = MsgBox(prompt:="Akarja törölni a talált cella színezését?", Title:="Keresőablak találati színezéssel", Buttons:=vbQuestion + vbOKCancel)
If xRsp = vbOK Then xRg.Interior.ColorIndex = cellaszin 'cella háttérszín visszaállítása
End If
End If
Loop Until xVrt = "" ' Do ciklus záróeleme
End Sub
Új hozzászólás Aktív témák
- Publikálta a Microsoft az MS-DOS 4.0 forráskódját
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Renault, Dacia topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Autós topik
- Kerékpárosok, bringások ide!
- Egyre közelebb a Poco F6 startja
- Milyen CPU léghűtést vegyek?
- Mibe tegyem a megtakarításaimat?
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!