Een enkele waarde aaneen array meegeven

[Plotinus]

Ik heb een array met een paar honderd waarden. Vraag is of ik die allemaal in één keer de waarde 'True' (initialiseren) mee kan geven. Nu doe ik dat via For ...Next, maar dat komt zo lullig over. Kan dit niet slimmer?

For i = 11 To 210
        Aandachtspunt(i) = True
    Next i

 

[Bram65]

Misschien kun je hier wat mee

https://stackoverflow.com/questions/10704764/vba-better-way-to-set-all-values-in-array-to-same-thing

 

[JEC.]

Er is niets mis met die methode. Het is wel mogelijk zonder loop maar zou toch voor je huidige methode gaan.
De output is hier overigens Tekst.

Sub jec()
 Dim ar
 ar = Array("a", "b", "c")
 With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "(.+?)(\^|$)"
   ar = Split(Trim(.Replace(Join(ar, "^"), "True ")))
 End With
End Sub

of

Sub jecc()
 Dim ar
 ar = Array("ab", "de", "gh")
 ar = Split(Trim(Replace(Space(UBound(ar) + 1), " ", "True ")))
End Sub

of daadwerkelijk met Booleans (array wordt hier twee dimensionaal met base 1)

Sub jeccc()
dim ar
ar = Array("ab", "de", "gh")
ar = Evaluate("row(1:" & UBound(ar) + 1 & ")>0")
End Sub

 

[snb]

Sub M_snb()
   sn = [transpose(row(1:200)=row(1:200))]
End Sub

 

[JEC.]

Dynamisch

Sub jeccc()
Dim ar
ar = Array("ab", "de", "gh")
ar = Evaluate("transpose(row(1:" & UBound(ar) + 1 & ")>0)")
End Sub

 

[snb]

Ook dynamisch

Sub M_snb()
   [A1] = 300
   sn = [transpose(isnontext(offset(B1,0,0,A1)))]
End Sub

 

[JEC.]

Grootte van de array zou op basis van de bestaande array bepaald moeten worden als ik het zo lees

 

[snb]

Dan toch ?

Sub M_snb()
   [A1] = ubound(sn)
   sn = [transpose(isnontext(offset(B1,0,0,A1)))]
End Sub

 

[Plotinus]

Bedankt voor de reacties. Het een en ander te proberen - en te studeren - zie ik. Ik ben benieuwd wat bij hele grote daadsets het snelste werkt.

 

[snb]

Mij ontgaat vooralsnog de zin, het praktische nut.
Kun je dat toelichten ?

 

[Plotinus]

Ik ben altijd op zoek naar een zo kort mogelijke codering snp. In dit geval leek me dit gemakkelijker kunnen dan een for-nex-loop. Die overigens bedoeld is als nulsituatie, of vertrekpunt. Door veranderingen in de array (true->False) worden er bepaalde acties uitgevoerd.

 

[snb]

Dat zou ik geen toelichting durven noemen.