Archief - Excel: VBE vraagje

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
A

AsEeL

Legacy Member
Graag wat hulp gewild met volgende vraagje.

maak je kolom breedtev 2 en rijhoogte 12
Maak nu een speelbord van 8 op 8 vakjes die je afwisselend laat inkleuren in
wit rood wit rood.

Hoe kan ik dit zo snel mogelijk programeren in de vbe editor
Ik heb momenteel dit maar dat is niet echt binnen het speel bord :D

------------------------------
Private Sub CommandButton1_Click()
Range("dambord").Select

herhaal:
teller = 0
Do Until teller = 8
teller = teller + 1
ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate
ActiveCell.Interior.Color = vbRed
Loop

Do Until teller2 = 8
teller2 = teller2 + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=-15).Activate
GoTo herhaal
Loop


End Sub
je krijgt een ganse rij vakjes maar diagonaal en niet binnen de 8 X 8 ruimte :S
N

NightScream

Legacy Member
VBE? VBA bedoelde?

waarom gebruikt ge geen for lus?
dan moete zelf die variabele niet verhogen

ten 2de: waarom werken met goto? das "vieze" code :)

ik zal is nekeer zien of'k er wat mee kan prullen he:)
in vba zen'k ni zo sterk, maar in vb wel:)
A

AsEeL

Legacy Member
NightScream zei:
VBE? VBA bedoelde?

waarom gebruikt ge geen for lus?
dan moete zelf die variabele niet verhogen

ten 2de: waarom werken met goto? das "vieze" code :)

ik zal is nekeer zien of'k er wat mee kan prullen he:)
in vba zen'k ni zo sterk, maar in vb wel:)
Klik om te vergroten...

Wel omdat ik nog geen krak ben in dit vraag ik het dan ook :D
Ik hoop echt dat ge mij verder kunt helpen :niceone:
N

NightScream

Legacy Member
voila
dit heb ik snel in elkaar gesmeten

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim ChangeColor As Boolean

For i = 1 To 8
For j = 1 To 8
Blad1.Cells(i, j).Select
If ChangeColor = False Then
ActiveCell.Interior.Color = vbRed
ChangeColor = True
Else
ActiveCell.Interior.Color = vbWhite
ChangeColor = False
End If
Next j
If ChangeColor = False Then
ChangeColor = True
Else
ChangeColor = False
End If
Next i
End Sub

ik zie dat da forum diene opmaak wegdoet, 'k zal het proberen te mailen ofzo
btw: sorry dat het zo lang duurde maar 'k moest eerst nog uitzoeken hoe ge een knopke in vba in excel kunt toevoegen :D
A

AsEeL

Legacy Member
Private Sub CommandButton1_Click()
For Each varcel In Range("dambord")
varcel.Interior.Color = vbRed
Next varcel
End Sub

Met dit codeke kan ik het 8 X 8 vak volledig opvullen in rood maar het moet afwisselen in rood, wit
N

NightScream

Legacy Member
als ge variabelen gebruikt, declareer die dan ;)
anders gaat hij die interpreteren als een variabele van het type variant (neemt het meeste geheugen in beslag)

zo hebben ze mij toch wijsgemaakt :D
A

AsEeL

Legacy Member
Mja mij ook maar ik zie het gewoon niet :(
We hebben dit allemaal gezien maar ik zie het gewoon niet...
Die structuur zou ik nooit opkomen. Op school krijgen we zo 12 oefeningen van een iets groter kaliber + acces vba oefeningen die we op 4 uur moeten oplossen. Dat is voor mij zogoed als onmogelijk. Het feit dat gij mij da hier op 10 minuutjes geeft maakt me alleen nog maar depresiever :cry:
N

NightScream

Legacy Member
ge moet u ni slecht voelen.
ik programmeer in Visual basic voor mijn plezier + ik heb al wel bijna 2 jaar ervaring.

als ge wilt zien wa'k al allemaal in elkaar heb geknutselt
http://www.nightscreamsoft.be

dat zijn niet al mijn programmakes da'k al gemaakt heb ze maar de rest wil'k nog ni online zetten ;)

en voor die structuur, gewoon effe logisch nadenken. begrijpt ge de code? anders wil'k wel een pogin doen om ze uit te leggen ze:D
A

AsEeL

Legacy Member
ja de code snap ik wel ergens maar ik kom gewoon nooit tot de opbouw ervan
N

NightScream

Legacy Member
als ge nog is problemen hebt. dan moete maar is ne pm sturen ofzo.
'k kan ni beloven da'k u kan helpen (hiermee bedoel ik "tijd hebben")
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan