Frage : Ein Unterseeboot auf Überprüfung und Uncheck laufen lassen

Excel2010

When Checkbox ist überprüft ich wünschen das erste Teil laufen. wenn ungeprüft ich das zweite Teil laufen wünsche….ist dieses, das mit einer Checkboxsteuerung möglich ist? Bitte help.
 
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 VorCommandButton1_Click ()
 Wenn Wert = dann ausrichten
    Strecke („C3“). Auserwählt
    ActiveCell.ClearFormats
    ActiveCell.NumberFormat = „M/D/YYYY“

  Sonst
    Strecke („C3“). Auserwählt
    Selection.FormatConditions.Add Art: =xlCellValue, Operator: =xlBetween, _
        Formula1: = " =TODAY () „, Formula2: = " =TODAY () +15“
    Selection.FormatConditions (Selection.FormatConditions.Count) .SetFirstPriority
    Mit Selection.FormatConditions (1).Font
        . Farbe = -16777024
        .TintAndShade = 0
    Ende mit
    Mit Selection.FormatConditions (1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
    Ende mit
    Selection.FormatConditions (1).StopIfTrue = falsch

 Beenden wenn
Unterseeboot beenden

Antwort : Ein Unterseeboot auf Überprüfung und Uncheck laufen lassen

Ihren Test zum Code unten ändern und er sollte arbeiten (Sie müssen CheckBox1 zu ändern, was Namen die Steuerung hat.

Wenn CheckBox1.Value = dann ausrichten
Weitere Lösungen  
 
programming4us programming4us