Vraag : Stel Sub op Controle en Uncheck in werking

Checkbox/>
When van Excel 2010
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Private SubCommandButton1_Click ()
 Als Waarde = Waar toen
    Waaier („C3“). Selecteer
    ActiveCell.ClearFormats
    ActiveCell.NumberFormat = „M/D/YYYY“

  Anders
    Waaier („C3“). Selecteer
    Selection.FormatConditions.Add typ: =xlCellValue, Exploitant: =xlBetween, _
        Formula1: = " =TODAY () „, Formula2: = " =TODAY () +15“
    Selection.FormatConditions (Selection.FormatConditions.Count) .SetFirstPriority
    Met Selection.FormatConditions (1). Doopvont
        . Kleur = -16777024
        .TintAndShade = 0
    Eind met
    Met Selection.FormatConditions (1). Binnenlands
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
    Eind met
    Selection.FormatConditions (1) .StopIfTrue = Vals

 Eind als
Sub van het eind

Antwoord : Stel Sub op Controle en Uncheck in werking

Verander uw test eronder in de code en het zou moeten werken (u zult CheckBox1 in de naam moeten veranderen de controle heeft.

Als CheckBox1.Value = Waar toen
Andere oplossingen  
 
programming4us programming4us