mehrer CheckBox's nacheinander abarbeiten

07/10/2009 - 17:17 von Tate | Report spam
Hallo,
ich habe eine Mappe in der sollen verschiedenen Feder (Zellen) und
CheckBoxes ausgefüllt werden, also, ein Formular.
Arbeitsblatt wird geschützt, dann mit TAB alle Eigabefelder
navigieren.
Nur die CheckBoxes werden nicht auf diese weise navigiert.
Dann habe ich eine kleine Funktion (Feldfolge) erstellt.
Darunter für CheckBox1 :
ActiveSheet.CheckBox1.Activate
ActiveSheet.CheckBox1.ForeColor = 255

Nun sollte es irgendwie für beliebige CheckBox funktinieren, weis aber
nicht wie.
Es geht mir um CheckBox aktivieren, Farbe àndern, damit es für
Anwender transparent wird.
Danach bei Event _KeyDown die Textfarbe zurücksetzen.

Danke für jeden Typ im Voraus
Tate
 

Lesen sie die antworten

#1 Andreas Killer
07/10/2009 - 19:16 | Warnen spam
Tate schrieb:

Nun sollte es irgendwie für beliebige CheckBox funktinieren, weis aber
nicht wie.
Es geht mir um CheckBox aktivieren, Farbe àndern, damit es für
Anwender transparent wird.
Danach bei Event _KeyDown die Textfarbe zurücksetzen.


Naja, ich versteht zur Hàlfte nur Bahnhof und wieso bei KeyDown die
Farbe zurückgesetzt werden soll... hàààÎ??? Im allgemeinen klickt
jeder User auf eine Checkbox. .-)

Ich würde die Farbe bei Got-/LostFocus àndern.

Andreas.

Private SaveColor As Long

Private Sub SetCheckBoxColor(C As Object)
SaveColor = C.ForeColor
C.ForeColor = 255
End Sub

Private Sub RestoreCheckBoxColor(C As Object)
C.ForeColor = SaveColor
End Sub

Private Sub CheckBox1_GotFocus()
SetCheckBoxColor CheckBox1
End Sub

Private Sub CheckBox1_LostFocus()
RestoreCheckBoxColor CheckBox1
End Sub

Ähnliche fragen