Lotus 123

Hej

Er det Lotus script du er ude efter ???
Det er jo ikke mange opl. du giver!!!

Hilsen Dan

Hej Dan

Ja jeg vil bare lave en knap som jeg kan koble en
macro på. Så jeg går ud fra at Lotus script er ok.

Hej

Jeg sidder desværre ikke ved en maskine der har Lotus 123 de næste par dage og så har jeg ferie i næste uge.
Hvis det stadig er aktuelt hvis du først får koden efter 26/2, så skriv lige en besked for det er ikke noget problem at lave!!

Hilsen Dan

Hej Dan

Ja tak - den 26/2 er bedre end slet ikke, så jeg hører gerne fra dig.

I Excel ville det være oplagt at anvende \"betinget formatering\", som formaterer, f.eks. baggrundsfarven, ud fra cellens værdi. Findes der ikke noget tilsvarende i Lotus?

Nej der er ikke \"betinget formatering\" i Lotus
Hilsen Dan

Hej

Her er koden:

Sub Click(Source As Buttoncontrol)
Dim omr As range
   
Set omr = CurrentDocument.Selection
Forall celler In omr.Cells
        tal$ = celler.Contents
    Select Case tal$
    Case \"1\"
    Celler.Background.BackColor.ColorName = \"red\"
    Case \"2\"
    celler.Background.BackColor.ColorName = \"blue\"
    Case \"3\"
    celler.Background.BackColor.ColorName = \"green\"
    End Select
End Forall
End Sub

Hilsen Dan

Hej Dan.

Jeg har kopieret koden ind i Lotus Script editoren, og har forsøgt at afvikle koden, men får følgende fejl:

A:A9: Click: 1: Wrong data type for argument Source in event handler CLICK.

Har jeg gjort noget galt eller hur?

/Preben

Hej

Det er fordi at Koden er kopieret fra en Knap, så du skal ikke bruge linien med Sub Click.....
Og End sub

Hilsen Dan

Det virker nu på celler hvor jeg indtaster 1,2 eller 3. -MEN

mine 1,2 og 3 er fundet ved hjælp af LOPSLAG, og på de celler virker funktionen ikke.

Er der logik i det?

Ja det er der

Det ville være rart hvis du gav ALLE oplysninger fra starten!!!

Du skal bruge CellValue i stedet for Contents i linien tal$= .......


Hilsen Dan

Tak - det virker