Settings

[RoVo1211]

Ik probeer al een tijdje een soort Settings-macro op te zetten waardoor ik bijvoorbeeld alle kleurcodes hoef te onthouden.

Ik was begonnen met:

'AEX
'    Public Const strAEXkleurcode = RGB(255, 192, 0)
'    Public Const strAEXkleurcodeInput = RGB()
'    Public Const strAEXNaam As String = Sheets(1).[B3]
'    Public Const sngAEXhuidig As Single = Sheets(1).[D3]
'    Public Const dtAEXtijd As Date = Sheets(1).[E3]
'    Public Const sngAEXOpening As Single = Sheets(1).[M5]
'    Public Const sngAEXDoel As Single = Sheets(1).[M9]
'    Public Const sngAEXDoelProc As Single = Sheets(1).[M10]
'    Public Const dtAEXTijdAanpDoel As Date = Sheets(1).[M11]
    
'Fonds 1
'    Public Const strFonds1Kleurcode = RGB(191, 149, 223)
'    Public Const strFonds1KleurcodeInput = RGB()
'    Public Const strFonds1Naam As String = Sheets(1).[B5]
'    Public Const sngFonds1Huidig As Single = Sheets(1).[D5]
'    Public Const dtFonds1Tijd As Date = Sheets(1).[E5]
'    Public Const sngFonds1Opening As Single = Sheets(1).[O5]
'    Public Const sngFonds1Doel As Single = Sheets(1).[O9]
'    Public Const sngFonds1DoelProc As Single = Sheets(1).[O10]
'    Public Const dtFonds1TijdAanpDoel As Date = Sheets(1).[O11]
'    Public Const curFonds1Aankoopwaarde As Currency = Sheets(1).[O14]
'    Public Const curFonds1Verk1proc As Single = Sheets(1).[O14] * 1.01
'    Public Const sngFonds1WinstXproc As Single = Sheets(1).[O43]
'    Public Const curFonds1VerkXproc As Currency = Sheets(1).[O14] * (1 + Sheets(1).[O43])
'    Public Const curFonds1Verlies50eur As Currency = Sheets(1).[O46]

'Fonds 2
'    Public Const strFonds2Kleurcode = RGB(244, 176, 132)
'    Public Const strFonds2KleurcodeInput = RGB(244, 208, 164)
'    Public Const strFonds2Naam As String = Sheets(1).[B7]
'    Public Const sngFonds2Huidig As Single = Sheets(1).[D7]
'    Public Const dtFonds2ijd As Date = Sheets(1).[E7]
'    Public Const curFonds2Opening As Currency = Sheets(1).[Q5]
'    Public Const curFonds2Doel As Currency = Sheets(1).[Q9]
'    Public Const sngFonds2DoelProc As Single = Sheets(1).[Q10]
'    Public Const dtFonds2TijdAanpDoel As Date = Sheets(1).[Q11]
'    Public Const curFonds2Aankoopwaarde As Currency = Sheets(1).[Q14]
'    Public Const curFonds2Verk1proc As Single = Sheets(1).[Q14] * 1.01
'    Public Const sngFonds2WinstXproc As Single = Sheets(1).[Q43]
'    Public Const curFonds2VerkXproc As Currency = Sheets(1).[Q14] * (1 + Sheets(1).[Q43])
'    Public Const curFonds2Verlies50eur As Currency = Sheets(1).[Q46]

'Fonds 3
'    Public Const strFonds3Kleurcode = RGB(142, 169, 219)
'    Public Const strFonds3KleurcodeInput = RGB()
'    Public Const strFonds3Naam As String = Sheets(1).[B9]
'    Public Const sngFonds3Huidig As Single = Sheets(1).[D9]
'    Public Const dtFonds3Tijd As Date = Sheets(1).[E9]
'    Public Const curFonds3Opening As Currency = Sheets(1).[SO5]
'    Public Const curFonds3Doel As Currency = Sheets(1).[S9]
'    Public Const sngFonds3DoelProc As Single = Sheets(1).[S10]
'    Public Const dtFonds3TijdAanpDoel As Date = Sheets(1).[S11]
'    Public Const curFonds3Aankoopwaarde As Currency = Sheets(1).[S14]
'    Public Const curFonds3Verk1proc As Single = Sheets(1).[S14] * 1.01
'    Public Const sngFonds3WinstXproc As Single = Sheets(1).[S43]
'    Public Const curFonds3VerkXproc As Currency = Sheets(1).[S14] * (1 + Sheets(1).[S43])
'    Public Const curFonds3Verlies50eur As Currency = Sheets(1).[S46]

'Winst/Verlies
'    Public Const MinderDanMin5proc =
'    Public Const TussenMin5_Min1proc =
'    Public Const TussenMin1_MinHalfProc =
'    Public Const TussenMinHalf_0proc = RGB(255, 224, 224)
'    Public Const Ongeveer0proc = RGB(0, 128, 255)
'    Public Const Tussen0_HalfProc = RGB(224, 255, 224)
'    Public Const TussenHalf_1proc = RGB(192, 255, 192)
'    Public Const Tussen1_5proc = RGB(0, 192, 0)
'    Public Const MeerDan5proc = RGB(0, 128, 0)

'Verkoopadviezen
'    Public Const NietVerkopenInterior = RGB(255, 128, 128)
'    Public Const NietVerkopenFontColor = RGB(255, 255, 255)
'    Public Const KleinVerliesInterior =
'    Public Const KleinVerliesFontColor = RGB(0, 192, 0)
'    Public Const MogelijkVerkopenInterior = RGB (255, 192, 0)
'    Public Const MogelijkVerkopenFontcolor = RGB(255, 192, 0)
'    Public Const VerkopenInterior = RGB(0, 192, 0)
'    Public Const VerkopenFontColor = vbYellow

Ik heb echter geen idee hoe ik verder moet gaan.
Is het überhaupt mogelijk om kleurcodes in een variabele op te slaan en zo ja, met welk type? Ik heb het geprobeerd met string, maar dat werkte niet.

 

[edmoor]

Kleurcodes zijn van het type Long.
Geef A1 een kleur en kijk dan in het VBA Direct venster wat de waarde is met:

?[A1].Interior.Color

 

[AHulpje]

Public AEXkleurcode As Long

Sub Initialiseer()
    AEXkleurcode = RGB(255, 192, 0)
End Sub

Sub test()
    Range("A1").Interior.Color = AEXkleurcode
End Sub

 

[snb]

Sheets(1).[B3] is geen constante.

 

[RoVo1211]

Hartelijk dank, Ahulpje.
Ik ben ook blij dat ik de RGB-kleurcodes kan gebruiken en niet zo edmoor had gesuggereerd dat ik de kleurcodes moest gaan omrekenen naar numerieke waarden.

@edmoor Toch bedankt, maar de methode van Ahulpje is makkelijker.

 

[RoVo1211]

Sheets(1).[B3] is geen constante.

Ik was al bezig om deze om te zetten naar

public rngAEXNaam as range

sub Initialiseer()
set lngAEXNaam =sheets(1).[B3]
end sub

etcetera