Border plaatsen onder laatste value van een teller.

Status
Niet open voor verdere reacties.
R

Royzilla

Gebruiker
Lid geworden
10 apr 2014
Berichten
187
Goedemiddag,

ik heb een klein vraagje en na een aantal pogingen van een with instellen en andere elementen geprobeerd te hebben wil ik toch graag wat hulp hebben.

Ik heb 20 getallen. Deze staan in een Forloop. Ik wil een border plaatsen onder het laatste getal van de loop omdat daaronder het totaal aantal gezakte wordt berekend. Kan iemand mij helpen?

Code: 
Private Sub CommandButton1_Click()

    Dim score As Integer
    Dim namen As String
    Dim i, teller As Integer
    
    For i = 1 To 20
        
        If CELLS(i, 2).Value > 50 Then
            teller = teller + 1
            CELLS(i, 2).Font.ColorIndex = 5
        Else
            CELLS(i, 2).Font.ColorIndex = 3
        End If
        
    Next i
    
    CELLS(21, 2).Value = teller
    CELLS(21, 2).Font.Bold = True
    CELLS(22, 2).Value = 20 - teller
    CELLS(22, 2).Font.Bold = True


End Sub
 
zoiets?

Code: 
with cells(20,2).Borders(xlEdgeBottom)
   .weight = 2
   .linestyle = xlContinuous
end with
 
Helemaal top!

Ik heb nu ook gedaan dat cell 20,1 ook de border heeft, maar kan dat met een stukje code in eenkeer of moet je gewoon 2 keer de with methode gebruiken?

nogmaals bedankt!
 
Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.
 
Code: 
with range(cells(20,1),cells(20,2)).Borders(xlEdgeBottom)
   .weight = 2
   .linestyle = xlContinuous
end with
 
Code: 
with cells(20,1).Resize(,2).Borders(xlEdgeBottom)
   .weight = 2
   .linestyle = xlContinuous
end with
 
Heel erg bedankt! mijn vraag is opgelost :)!

En sorry voor het plaatsen op het verkeerde onderwerp:)!

THANKS!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan