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

Control


Loka_2012

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
Länk till kommentar
Dela på andra webbplatser

Ove Söderlund

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
Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...