Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

  • Jornzor
  • Registratie: December 2008
  • Laatst online: 31-08 08:59
Beste Tweakers,

Ik moet voor een opdracht voor school een soort scriptje maken dat automatisch uitrekend en het script moet er zo uit zien als dit:

Afbeeldingslocatie: http://img25.imageshack.us/img25/3667/scriptp.jpg

Het scriptje word gemaakt in Microsoft Visual Basic en de uitkomst kom in excel.

en dit was de uitkomst van dit script hierboven:

Afbeeldingslocatie: http://img25.imageshack.us/img25/9673/uitkomstscript.jpg


En het eind resultaat moet er zo uitzien als dit:

Afbeeldingslocatie: http://img25.imageshack.us/img25/9710/uitkomst.jpg

Dus wie kan mij erme helpen?? Ik heb al flink op google lopen zoeken maar kon er niks over vinden verder.. en geprobeert in de les maar dat ook zonder succes.

Groetjes!

[ Voor 16% gewijzigd door Jornzor op 18-06-2009 11:48 ]

AMD Ryzen 3900X, ASUS X570 ROG TRIX, 32GB Corsair RGB 3200MHZ, AMD RX6800XT 16GB, 1,5 TB M2 SSD, NZXT Kraken X62, NZXT H510 Elite Black, Corsair RM750x PSU


Verwijderd

for i = 1 to 10
j = 1 + (i MOD 2)
Cells (i,,j) = i


p.s. (i MOD 2) is misschien MOD(i,2)

[ Voor 27% gewijzigd door Verwijderd op 18-06-2009 13:44 ]


  • Jornzor
  • Registratie: December 2008
  • Laatst online: 31-08 08:59
Nu krijg ik dit:

Sub t() Hier staat een geel randje omheen???
Dim i As Integer
Cells(1, 1) = 1
Cells(2, 2) = 2
For i = 1 To 10
j = 1 + MOD(i,2) Deze staat rood ge acceert ook als ik (i MOD2) Probeerl
Cells(i, j) = i

Next i

Wat doe ik fout?
End Sub

AMD Ryzen 3900X, ASUS X570 ROG TRIX, 32GB Corsair RGB 3200MHZ, AMD RX6800XT 16GB, 1,5 TB M2 SSD, NZXT Kraken X62, NZXT H510 Elite Black, Corsair RM750x PSU