CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

JZA Nybegynder

31. august 2012 - 10:08 Der er 5 kommentarer og
1 løsning

Sammenlign celler

Hej Eksperter

Jeg har 3 Ranges med ens antal celler.
Range1("A1:D4")
Range2("A6:D9")
Range3("A11:D14")

Jeg ønsker at sammenholde cellerne i de 3 ranges således at A1, A6 og A11 resultere i "Yes" hvis ingen af dem er over værdien 500 og "No" hvis en eller flere af dem er over 500.
Tilsvarende skal alle øvrige ens placerede celler i de 3 ranges sammenholdes og returnere værdier "Yes" eller "No"
Resultatet kunne placeres i Range4("A16:D19")

Er der nogen der har en god ide til hvordan det kan løses?

Synes godt om

store-morten Ekspert

31. august 2012 - 14:29 #1

Måske en formel:

A16: =HVIS(MAKS(A1>500;A6>500;A11>500)=0;"Yes";"No") fyld ud til D og derefter ned til 19

Synes godt om

JZA Nybegynder

31. august 2012 - 16:13 #2

Jeg har ikke mulighed for at bruge en formel, da jeg skal have udbygget programmeringen til at farve felterne hhv. grønne eller røde i de tre ranges. Yes eller No er blot et delresultat.

Ellers tak for det hurtige svar.

Synes godt om

store-morten Ekspert

31. august 2012 - 17:20 #3

Måske:

Sub test_Yes_No()
For Each c In Range("A1:D4").Cells
If c.Offset(0, 0).Value > 500 Or _
c.Offset(5, 0).Value > 500 Or _
c.Offset(10, 0).Value > 500 Then
c.Offset(15, 0) = "No"
Else: c.Offset(15, 0) = "Yes"
End If
Next
End Sub

Sub test_farve()
For Each c In Range("A1:D4").Cells
If c.Offset(0, 0).Value > 500 Or _
c.Offset(5, 0).Value > 500 Or _
c.Offset(10, 0).Value > 500 Then
c.Offset(0, 0).Interior.ColorIndex = 3 'Rød
c.Offset(5, 0).Interior.ColorIndex = 3 'Rød
c.Offset(10, 0).Interior.ColorIndex = 3 'Rød
Else:
c.Offset(0, 0).Interior.ColorIndex = 10 'Grøn
c.Offset(5, 0).Interior.ColorIndex = 10 'Grøn
c.Offset(10, 0).Interior.ColorIndex = 10 'Grøn
End If
Next
End Sub

Synes godt om

JZA Nybegynder

03. september 2012 - 08:38 #4

Det var lige hvad jeg havde brug for.
Tak for hjælpen.

Synes godt om

JZA Nybegynder

03. september 2012 - 08:39 #5

Skal du skrive et svar til mig for at jeg kan give dig point?

Synes godt om

store-morten Ekspert

03. september 2012 - 10:51 #6

Jep.. du får et 'Svar'
Og velbekomme

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS