Jak uzyskać dostęp do pola wyboru z VBA w programie Excel 2007

Question

Po dodaniu pola wyboru, w jaki sposób uzyskać dostęp do wartości z VBA?

• W programie Excel 2007 na Wstążce Developer
• Insert, kontrolki formularzy, Checkbox
• Przemianowany pole wyboru, aby chkMyCheck
• Dodany Makro do opcji, to teraz mam Module1 z chkMyCheck_Clicked

Wszystkie poniższe zawiodą:

Sheets("Sheet1").chkMyCheck.Checked 
Sheets("Sheet1").chkMyCheck.Value 
Sheets("Sheet1").Shapes("chkMyCheck").Checked 
Sheets("Sheet1").Shapes("chkMyCheck").Value 
Sheet1.chkMyCheck.Checked 
Sheet1.chkMyCheck.Value 

Arkusz1.Kształtów ("chkMyCheck") pojawia się, aby znaleźć obiekt, ale nie ujawnia żadnych właściwości, które wyglądają na prawdopodobne, aby zwrócić sprawdzony stan.

Answer 1

Zdobione

If Sheet1.Shapes("chkMyCheck").ControlFormat.Value = xlOn Then 
..... 

Answer 2

jeden sposób:

Dim oCheck As Object 
Set oCheck = Sheet1.CheckBoxes("chkMyCheck") 
MsgBox (oCheck.Value = xlOn) 

Edit: oto inny sposób - może to jeden będzie pracować dla Ciebie ...

Sub Tester2() 
    Dim sh As Shape 
    For Each sh In Sheet1.Shapes 
     If sh.Type = msoFormControl Then 
      If sh.FormControlType = xlCheckBox Then 
       Debug.Print sh.Name & "=" & sh.ControlFormat.Value 
      End If 
     End If 
    Next sh 
End Sub 

Answer 3

Dla kompletności jeśli używasz pola wyboru ActiveX zamiast zwykłego pola wyboru, składnia to

If Sheet1.Shapes("chkMyCheck").OLEFormat.Object.Object.Value Then 
... 

znaleźć za pomocą okna mieszkańców i zmienny zestaw do kształtu -

Dim shp as Shape 
Set shp = Sheet1.Shapes("chkMyCheck") 
Stop