Vraag : De Positie van het karakter in een koord die VBA gebruiken

Ik heb een koord in VBA: (000101101) enz. Ik wil een functie die me de koordplaatsen van zal vertellen (1). Het bovengenoemde voorbeeld zou het 6 4 3 1 verstrekken.  Het klinkt eenvoudig.  Ive probeerde Instr () en een aantal others.

Antwoord : De Positie van het karakter in een koord die VBA gebruiken

De posities van de functie (hoogtepunt als Koord, tofind als Koord) als Koord
    Schemerige I als Geheel, j als Geheel
    plaatst = ""
    j = (volledige) Len
    Voor I = 1 aan (volledige) Len
        Als Medio (hoogtepunt, I, 1) = tofind dan = posities & CStr (1 + j - I) & „„plaatst
    Volgende I
De Functie van het eind

Sub test ()
    Schemerig s als Koord
    s = posities („000101101“, „1“)
    MsgBox s
Sub van het eind