Optimieren von VBA zum Ändern der Form, Farbe auf klicken Sie auf in excel

So, nach der Einnahme einige Zeit Weg von diesem Ive begann mit den folgenden.
In diesem Beispiel habe ich 2 Formen (Quadrate)- "radio_1" und "radio_2". Ich habe auch eine Zelle, füllt mit einer Leistung ie "Radio 1 "ausgewählt". In Jeder Form habe ich die schriftart auf Wingdings und eine weiß-farbigen "tick" in jeder Form.

Habe ich auch erstellt separate Module - "radio" und "Stil" .Das radio-Modul enthält den code, der angibt, welche Form geklickt wurde und ruft dann die entsprechenden styling-makro (aktiv/inaktiv) aus der "style" - Modul.
Dies ist der code reduziert, hat den ursprünglichen code hatte ich oben stark und ist viel leichter zu manipulieren, aber Sie können denken, andere Wege zu machen diese noch mehr prägnante id Liebe zu sehen, es (immer noch lernen!)

Sub radio_btn_grp_1()

Dim wb As Workbook
Dim ws As Worksheet
Dim oShape1 As Shape

Set wb = ActiveWorkbook
Set ws = wb.Sheets("radio_btns")
Set oShape1 = ws.Shapes(CallingShapeName)

CallingShapeName = ws.Shapes(Application.Caller).Name

If CallingShapeName = "radio_1" Then
Call Active

ws.Range("radio_btn_val_1").Value = "Radio 1 Selected"

Dim arShapes1() As Variant
Dim objRange1 As Object
arShapes1 = Array("radio_2")
Set objRange1 = ws.Shapes.Range(arShapes1)

With objRange1
    .Line.ForeColor.RGB = RGB(0, 153, 153)
    .Fill.ForeColor.RGB = RGB(255, 255, 255)
    .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)

End With

Else

If CallingShapeName = "radio_2" Then

    Call Active

    ws.Range("radio_btn_val_1").Value = "Radio 2 selected"

    Dim arShapes2() As Variant
    Dim objRange2 As Object
    arShapes2 = Array("radio_1")
    Set objRange2 = ws.Shapes.Range(arShapes2)

    With objRange2
        .Line.ForeColor.RGB = RGB(0, 153, 153)
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)

    End With
End If
End If

End Sub

- Und das style-Modul, das ändert die Farben des ausgewählten bzw. nicht ausgewählten Form (aktiv/nicht aktiv):

Sub Active() ' Change colors of active checkbox to green (and add "tick")

Dim wb As Workbook
Dim ws As Worksheet
Dim oShape1 As Shape

Set wb = ActiveWorkbook
Set ws = wb.Sheets("radio_btns")
Set oShape1 = ws.Shapes(CallingShapeName)

CallingShapeName = ws.Shapes(Application.Caller).Name




    With oShape1
    .Line.ForeColor.RGB = RGB(0, 153, 153)
    .Fill.ForeColor.RGB = RGB(0, 153, 153)
    .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
    .TextFrame2.TextRange.Characters.Text = "ü"                             ' add tick - ensure font is windings
End With
End Sub

Sub Inactive()  ' Change colors of active checkbox to white (and remove "tick")

Dim wb As Workbook
Dim ws As Worksheet
Dim oShape1 As Shape

Set wb = ActiveWorkbook
Set ws = wb.Sheets("radio_btns")
Set oShape1 = ws.Shapes(CallingShapeName)

CallingShapeName = ws.Shapes(Application.Caller).Name
With oShape1
    .Line.ForeColor.RGB = RGB(175, 171, 171)
    .Fill.ForeColor.RGB = RGB(255, 255, 255)
    .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
    .TextFrame2.TextRange.Characters.Text = ""                                  ' clear tick
End With
End Sub

Dies funktioniert für mich und ich habe es angepasst zu replizieren, Checkboxen , Kippschalter, tabs, etc. Warum Sie Fragen können??? Ich finde das wesentlich flexiblere form einer design-Perspektive, AciveX-Steuerelemente. Manchmal Baue ich die Blätter, die ähnlich Aussehen und sich fühlen, websites und so habe ich die Möglichkeit eine ähnliche Funktionalität und design, ist erhältlich in aktuellen web-design.

Würde gerne hören, wenn diese weiter verbessert werden kann. Cheers

InformationsquelleAutor user1872463