Betinget formatering, Betingelser >4

Det kan nu g9odt klares med betinget formatering:

Marker B4 til B41. Indsæt følgende formel:
=OG(VENSTRE(C4;1)<>"+";VENSTRE(C4;1)<>"A";VENSTRE(C¤;1)<>"B";VENSTRE(C4;1)<>"C")

Genag for D4:D41. Ret til E4 i stedet for C4., og så fremdeles for de øvrige områder.

VBA - eksempel på 1 område:

Sub Testbetingelser()
    Set r1 = Range("C4:C41")
   
    For Each c In r1.Cells
        førstetegn = Left(c.Value, 1)
        If InStr("+ABC", førstetegn) = 0 Then
            adr = c.Address
            Range(adr).Offset(0, -1).Select
            ActiveCell.Font.Strikethrough = True
        End If
    Next
End Sub

Enig med Jkrons, min formel er bare

=IKKE(ELLER(VENSTRE(C4;1)="+";VENSTRE(C4;1)="A";VENSTRE(C4;1)="B";VENSTRE(C4;1)="C"))

OK, her har jeg fået et problem.
Jeg glemte at fortælle at området heller ikke må være tomt.

Jeg har selv sat det ind i jkron's og kabbak's formler, og de virker - for så vidt.
Men hvis man vender tilbage og ændrer en celle der giver overstreget font i nabocellen så den ikke skal give overstreget font, bliver det ikke ændret.
Supertekst, kan ikke få din VBA til at virke. Har sat den ind i et modul og kalder den med F8 - Sub-navn. Den formaterer alle celler i kolonne B der har indhold, uanset om der står noget i kolonne C eller ej og uanset hvad der står i kolonne C

supertekst, kan det tænkes at der også skal være en betingelse der angiver hvornår teksten i kolonne B skal ændres til ikke-overstreget?

-B-    -C-
b4    +xxx
b5    Axx
b6    Fxx <- overstreges
b7    Cxx
b8    Bxx
b9    Gxx <- overstreges
b10    Bxx
b11    Cxx

Testdata og resultatet efter kørsel

Hvad så hvis du f.eks. derefter ændrer B5 til Fxx og B6 til Axx og kører makroen igen?
Jeg tager på arbejde nu. Får måske tid til at kigge ind igen ved 8-tiden.

Sub Testbetingelser()
    Set r1 = Range("C4:C11")
   
    For Each c In r1.Cells
        førstetegn = Left(c.Value, 1)
        adr = c.Address
        Range(adr).Offset(0, -1).Select
       
        If InStr("+ABC", førstetegn) = 0 Or førstetegn = "" Or IsEmpty(førstetegn) = True Then
            ActiveCell.Font.Strikethrough = True
        Else
            ActiveCell.Font.Strikethrough = False
        End If
    Next
End Sub

Det ser interessant ud supertekst. Jeg er på arbejde og får ikke tid til at teste før i morgen.
Måske skulle den starte med at sætte formatet til normal font (uden overstregning) for området.
Arket bruges til at hente data fra et andet ark i formatet [t]:mm, lave dem om til tekstformat og afkorte dem.
Hvis din makro startede med at lave formatet til normal kunne jeg flette den ind i den makro der henter og indsætter data.

Endnu et bud:

Private Sub SætTilStandard()
    GennemLøb False
End Sub
Private Sub TestOverstregning()
    GennemLøb True
End Sub
Private Sub GennemLøb(opgave As Boolean)
    udfør "C4:C41", opgave
    udfør "E4:E41", opgave
    udfør "G4:G41", opgave
    udfør "I4:I41", opgave
    udfør "K4:K41", opgave
    udfør "M4:M41", opgave
    udfør "O4:O41", opgave
   
End Sub
Private Sub udfør(område, opgave)
Dim rr
    Application.ScreenUpdating = False
   
    Set rr = Range(område)
    For Each c In rr.Cells
        adr = c.Address
        Range(adr).Offset(0, -1).Select
       
        If opgave = False Then
            ActiveCell.NumberFormat = "General"
            ActiveCell.Font.Strikethrough = False
        Else
            førstetegn = Left(c.Value, 1)
            If InStr("+ABC", førstetegn) = 0 Or førstetegn = "" Or IsEmpty(førstetegn) = True Then
                ActiveCell.Font.Strikethrough = True
            Else
                ActiveCell.Font.Strikethrough = False
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Det blev lidt sent, men jeg testede alligevel.

Makroen kan ikke ses i makro-oversigten (alt+F8), er det fordi der er anvendt 'Private Sub...'?

Makroen renser for gennemstreget font, men sætter ikke gennemstreget font hvor den skal.

Sidste version er opbygget - således at du kan "flette den ind" - som du ønsker - men korrekt - når der står Private - kan ændres til Public.

Min udgave virker - måske skulle du sende en kopi af din fil:
pb@supertekst-it.dk

supertekst>
OK, sender.
Filen fylder 1,35 MB
Alle ark er beskyttet på grund af funktionalitet overfor brugere.
Der er ikke kodeord i beskyttelsen, og jeg har lavet en lille makro til at beskytte og en til at låse op (BeskytAlle - ÅbenAlle).
Er først hjemme ca. 23:30

Her er den makrokode jeg har modtaget fra supertekst:

Public Sub SætTilStandard()
    GennemLøb False
End Sub
Public Sub TestOverstregning()
    GennemLøb True
End Sub
Private Sub GennemLøb(opgave As Boolean)
    udfør "C4:C41", opgave
    udfør "E4:E41", opgave
    udfør "G4:G41", opgave
    udfør "I4:I41", opgave
    udfør "K4:K41", opgave
    udfør "M4:M41", opgave
    udfør "O4:O41", opgave
   
End Sub
Private Sub udfør(område, opgave)
Dim rr
    Application.ScreenUpdating = False
   
    Set rr = Range(område)
    For Each c In rr.Cells
        adr = c.Address
        Range(adr).Offset(0, -1).Select
       
        If opgave = False Then
            ActiveCell.NumberFormat = "General"
            ActiveCell.Font.Strikethrough = False
        Else
            førstetegn = Left(c.Value, 1)
            If InStr("+ABC", førstetegn) = 0 Or førstetegn = " " Or IsEmpty(førstetegn) = True Then
                ActiveCell.Font.Strikethrough = True
            Else
                ActiveCell.Font.Strikethrough = False
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub


Den virker efter hensigten.

Tak for indsatsen jkrons og kabbak.

Her er så et svar..