Just nu i M3-nätverket
Gå till innehåll
Loka_2012

Control

Rekommendera Poster

Vad är fel på VBA controlen ?

 

hittar inte metodn eller datamedlemmen

 

Det blir en gul pil som pekar på sub raden...

Sub ax()
 For arIndex = 1 To 6
            srArray(arIndex) = Me.Controls("CheckBox" & arIndex).Value
        Next
End Sub

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Följande kod kan fungera:

Du bör kontrollera att kryssrutorna har "rätt" namn i formuläret, annars så lär det ge körfel i koden.

Option Explicit

Sub ax()

Dim arIndex As Integer
Dim srArray()
Dim nm As String
Dim c As Control
    
    For arIndex = 1 To 6
' Strängen nm förutsätter att kryssrute-kontrollerna heter CheckBox1, CheckBox2 osv i UserForm.
        nm = "CheckBox" & arIndex
        Set c = Controls(nm)
        srArray(arIndex) = c.Value
    Next

End Sub

 

 

Vad är fel på VBA controlen ?

 

hittar inte metodn eller datamedlemmen

 

Det blir en gul pil som pekar på sub raden...

Sub ax()
 For arIndex = 1 To 6
            srArray(arIndex) = Me.Controls("CheckBox" & arIndex).Value
        Next
End Sub

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...