27. september 2006 - 14:30Der er
21 kommentarer og 1 løsning
Loop i Excel
ved ikke om dette er det rigtige sted, men det er jo VB.
Jeg har på mit excel ark, range A1:A20 markede af.
jeg præver at køre denne kode:
Range("A5:A20").Select Sheets("Ark1").Select
Dim indexCounter As Integer Dim columCounter As Integer
For indexCounter = 1 To 5 For columCounter = 1 To 1
Worksheets("Sheet1").Cells(indexCounter, columCounter).Value = "s" 'fejl her
Next columCounter Next indexCounter
jeg får en out of range ... og kan bare ikke forstå det. det er næsten et eksempel taget ud af MS egen hjælp... som bare ikke virke... noget så simpel.
jeg har i mit range, nogle celler med "x" og nogle uden... jeg skal løbe min liste igemmen, og sætte en baggrundsfarve i de celler hvor der er et "x" i.
hvordan kan dette gøres?
//Dennis
Ps. har siddet med det i 2 timer nu ... og jeg kan forstår folk, som ikke kan li microsoft :S
jeg har koden i en knap, som ligger på det ark, hvor koden skal køre. og jeg har koden, fra MS hjælp :) har lige prøvet therichman eksempel, og det virker heller ikke ... samme fejl :)
hvis det skal køre automatisk, så indsæt denne kode i arkets kodemodul højreklik på arkfanen, vælg Vis programkode indsæt følgende kode i vinduet til højre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub If Target.Cells = "x" Then Target.Interior.ColorIndex = 3 If Target.Cells <> "x" Then Target.Interior.ColorIndex = xlNone End Sub
da det bare er at farvelægge de celler ved siden af target :)
Synes godt om
Ny brugerNybegynder
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.