kleurcode als variabele toe kunnen passen in macro (tabelstijl)

Status
Niet open voor verdere reacties.
J

Jolte

Gebruiker
Lid geworden
10 jul 2009
Berichten
22
Ik wil graag dat de kleurcode 6299648 als variabele toegepast wordt in onderstaande macro.
Hoe definieer ik de kleurcode? en hoe verwerk ik dat in onderstaande macro?

sub Test()
ActiveWorkbook.DefaultTableStyle = "Test"
With ActiveWorkbook.TableStyles("Test").TableStyleElements( _
xlWholeTable).Borders(xlEdgeTop)
.Color = 6299648
.TintAndShade = 0
.Weight = xlThin
.LineStyle = xlNone
End With
End sub
 
kies 1 van de 3 manieren om je kleur te bepalen en daarna wordt die voor je color gebruikt
Code: 
Sub Test()
   kleur = Sheets("blad1").Range("A1").Value
   kleur = 6299648
   kleur = RGB(155, 155, 155)

   ActiveWorkbook.DefaultTableStyle = "Test"
   With ActiveWorkbook.TableStyles("Test").TableStyleElements( _
        xlWholeTable).Borders(xlEdgeTop)
      .Color = kleur
      .TintAndShade = 0
      .Weight = xlThin
      .LineStyle = xlNone
   End With
End Sub
 
bedankt! dit kan ik volgen en toepassen.

maar hoe definieer ik de variabele 'kleur'?

ik krijg namelijk een foutmelding omdat bovenstaande niet heeft plaatsgevonden
 
Je kan 'Otion explicit' weghalen of er een apostrof voor zetten.

Declareren:

Je kan alles als Long declareren of als Variant.
Alhoewel de eerste aangeeft dat het een Double is.

Dim Kleur
Dim Kleur as Variant (hetzelfde als Dim Kleur).
Dim Kleur as long
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan