Blinkende felter i excel 97

Jeg tror ikke det kan lade sig gøre, at få feltet til at blinke, men med betinget formatering kan du få lagt en bestemt baggrundsfarve, få sat en ramme om o.s.v. Kan det mon ikke bruges?

jeg ved ikke, om du kan få den til at blinke, men du kan lave en betinget formattering, så cellen skifter farve, hvis værdien bliver negativ

Her er en lidt blinkende løsning i celle C6 *S*

Indsæt følgende kode i kodemodulet til ark1:
Sub Worksheet_Calculate()
    Application.OnTime Now + TimeValue("00.00.01"), "Rød"
    Application.OnTime Now + TimeValue("00.00.02"), "Blå"
    Application.OnTime Now + TimeValue("00.00.03"), "Rød"
    Application.OnTime Now + TimeValue("00.00.04"), "Blå"
    Application.OnTime Now + TimeValue("00.00.05"), "Rød"
    Application.OnTime Now + TimeValue("00.00.06"), "Blå"
    Application.OnTime Now + TimeValue("00.00.07"), "Rød"
    Application.OnTime Now + TimeValue("00.00.08"), "Blå"
End Sub

og indsæt så følgende kode i et almindeligt modul:

Sub Rød()
    Range("C6").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="0"
    Selection.FormatConditions(1).Font.ColorIndex = 3
End Sub

Sub Blå()
    Range("C6").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="0"
    Selection.FormatConditions(1).Font.ColorIndex = 5
End Sub

Nu blinker den 8 gange, hver gang den rener summen ud. Det er måske i den smarteste løsning, men den virker *S*

Denne kode kommer op med en beskedboks, hvis celle B5 (resultatcellen) bliver negativ. Så skal brugeren ihvertfald bekræfte at han M/K er klar over det.

Der beregnes på resultatcellen hver gang celle B1 eller B2 ændres.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
    Set rCell = Range("B1:B2")
    If Not Intersect(Target, rCell) Is Nothing Then
        If Range("B5").Value < 0 Then
            MsgBox "OBS: Celle B5 er negativ"
        End If
    End If
Set rCell = Nothing
End Sub

Koden lægges ind ved at højreklikke på fanebladet til det ark, hvor beregningerne ligger og så vælge "Vis kode" og derefter klippe/klistre koden dertil.

Spørgsmålet er besvaret tidligere

http://www.eksperten.dk/spm/83456

Hilsen

Lars

Bruno, fik du ikke løst dit problem?

Hej jan
Nej det kan ikke få det til at virke... Når jeg højreklikker på arket skal jeg da sætte koden ind et tilfældigt sted eller hvad?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Når koden er lagt ind skal ændringen så gemmes for at blive aktiv eller skal jeg bare lukke visual basic ned?

Skal koden lægges ind nøjagtig som det eksempel du har lavet eller skal der rettes i den?

Jeg er total nybegynder når det gælder visual basic...

MVH bruno

Når du højreklikker på arket og vælger vis kode, skal du bare kopiere koden ind oven i, hvor der i forvejen står noget med Private Sub Worksheet_Change ..... og derefter kan du bare lukke Visual Basic vinduet ned.

Koden kan bruges direkte som den står, hvis:
B1 = celle til indtastning af beløb
B2 = celle til indtastning af beløb
B3 = B1 + B2
B4 = fast beløb, som skal trækkes fra
B5 = B3 - B4

Hvis B5 så bliver negativ ved ændring af B1 og B2, vil der komme en beskedboks op på skærmen.

Hvis du stadig ikke kan få det til at virke, kan jeg sende dig et eksempel.

janvogt@esenet.dk