Jag ska skriva in en nolla i alla celler i en Grid. I och för sig inget problem om man skriver koden för en cell:

Grid1.Row = 0
Grid1.Col = 0
Grid1.Text = "0"

Det är bara det att Grid1 innehåller 12 columner och 39 rader alltså behövs det 468 likadana kodsnuttar som ovan vilket blir en himla massa kod. Går det att förkorta ner den koden. för alla 468 cellerna.

Är inte helt säker på att jag uppfattat det rätt, men kan det vara såhär?

Dim col as integer
Dim row as integer

for col = 0 to 11
for row = 0 to 38
Grid1.Row = row
Grid1.Col = col
Grid1.Text = "0"
next
next


/Johan

Ha Ha Johan var på hugg medan jag skrev detta.
<code>
Dim i As Long, j As Long
' 12 Kolumner 0 - 11
' 39 Rader 0 - 38
For j = 0 To 38
For i = 0 To 11
Grid1.Row = j
Grid1.Col = i
Grid1.Text = "0"
Next 'i
Next 'j
</code>

Bägge exemplen fungerade. Tack

Ok på de.
Trodde Col och Row var reseverade ord.