Avatar billede qln Juniormester
01. februar 2006 - 18:13 Der er 3 kommentarer og
1 løsning

If-sætning

Jeg har lavet nedenstående løkke, der farver en celle rød, hvis en andens celle indhold er "Bullet Orange 600 dpi".
Hvad skal jeg skrive, hvis jeg gerne vil farve cellen rød ligegyldigt, hvad der står i den anden celle?

Sub ErstatTomme3()
i = 1
Do
        Set curCell = ActiveSheet.Cells(i, 4)
        If (curCell.Value = "Bullet Orange 600 dpi") Then
            ActiveSheet.Cells(i, 2).Select
            With Selection.Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            End With
End If
i = i + 1
Loop Until i > 1000
Avatar billede excelent Ekspert
01. februar 2006 - 18:48 #1
ændre = til <>

Sub ErstatTomme3()
i = 1
Do

        Set curCell = ActiveSheet.Cells(i, 4)
        If (curCell.Value <> "Bullet Orange 600 dpi") Then
            ActiveSheet.Cells(i, 2).Select
            With Selection.Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            End With
End If
i = i + 1
Loop Until i > 1000
Avatar billede excelent Ekspert
01. februar 2006 - 18:55 #2
eller remark de 2 linier *

Sub ErstatTomme3()
i = 1
Do

        Set curCell = ActiveSheet.Cells(i, 4)
*'        If (curCell.Value <> "Bullet Orange 600 dpi") Then
            ActiveSheet.Cells(i, 2).Select
            With Selection.Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            End With
*'End If
i = i + 1
Loop Until i > 1000
Avatar billede qln Juniormester
02. februar 2006 - 09:38 #3
Super
send et svar
Avatar billede excelent Ekspert
02. februar 2006 - 15:51 #4
ok
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Banedanmark

ERTMS Test Manager

Rambøll Management Consulting

Senior AI Engineer

Rambøll Management Consulting

Senior Software Engineer

KMD A/S

Projektleder