15. juli 2004 - 10:33Der er
10 kommentarer og 1 løsning
søg på et tal i en række
Hej Jeg har en række med tal i et regneark (ark1). Jeg vil fra en formular løbe denne række igennem og markere en celle som matcher et søgekriterie. Jeg har lavet det sådan at jeg med en FOR løkke løber gennem de 100 første celler i rækken. Det der egentlig er min spørgsmål er hvordan jeg i stedet, kun løber gennem de celler i rækken hvor der er indtastet tal. Dvs erstatter 100 men et count eller en betingelse. Kan i følge min??? Morten
Jeg har engang sakset denne beskrivelse fra et spørgsmål her, håber det hjælper dig videre:
Marker kolonne A. Under ->Formater ->Betinget formatering vælger du ->Formlen er, og skriver i linien ved siden af =A1=$B$1 Herefter vælger du ->Formater og her kan du så lege med farver under fanebladet mønstre. Det er vigtigt at du husker $-tegnene til dit sammenligningsfelt ellers virker det ikke. I celle B1 indtaster du den værdi du vil finde.
hmm, den løsning jeg leder efter skal kunne bruges fra koden i VB jeg ønsker ikke at interagere med regnearket. Ikke helt sikker på at det er det du svarer på. Tak for forsøget alligevel
Jeg har et ark "ark1" hvori der er een række (row10) med tal. under en knap bruger jeg koden, For counter = 1 to 100 If worksheets("ark1").cells(10,counter).value = intx then ' intx søgeværdien 'kør procedure end if next counter
Slut = Range("IV10").End(xlToLeft).Column For counter = 1 To Slut If Worksheets("ark1").Cells(10, counter).Value = intx Then ' intx søgeværdien 'kør procedure End If Next counter
Slut = Worksheets("ark1").Range("IV10").End(xlToLeft).Column For counter = 1 To Slut If Worksheets("ark1").Cells(10, counter).Value = intx Then ' intx søgeværdien 'kør procedure End If Next counter
jeg løste den ved at sige counter = 1 while Worksheets("ark1").Cells(10, counter).Value <> "" 'kør procedure counter = counter +1 wend Dette virker fint, men jeg vil gerne give point til kabbak hvis du lige kort forklarer hvad IV10 og og End(xltoleft) gør.
Slut = Range("IV10").End(xlToLeft).Column Vælge sidste celle i række 10, og går tilbege til den sidste der er noget i.
Den du bruger nu, kræver at der er noget i alle celler efter hinanden, hvis der er en tom imellem, kommer de ikke med dem på den anden side af den tomme.
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.
Ny bruger
Nybegynder
Opret
Preview
