Loka_2012 Postad 30 september, 2014 Share Postad 30 september, 2014 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 More sharing options...
Monshi Postad 30 september, 2014 Share Postad 30 september, 2014 Vad är arIndex? Vad är srArray? Deklarera alla variabler! Länk till kommentar Dela på andra webbplatser More sharing options...
Ove Söderlund Postad 30 september, 2014 Share Postad 30 september, 2014 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 More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.