Cuestión : Posiciones de carácter en una secuencia usar VBA

Tengo una secuencia en VBA: (000101101) etc. Quiero una función que me diga las localizaciones de la secuencia del (1). El ejemplo antedicho proporcionaría 6 4 3 1.  Suena simple.  Ive intentó Instr () y un número de others. class= del

Respuesta : Posiciones de carácter en una secuencia usar VBA

Posiciones de la función (por completo como secuencia, tofind como secuencia) como secuencia
    Amortiguar i como número entero, j como número entero
    posiciones = ""
    j = Len (lleno)
    Para i = 1 a Len (lleno)
        Si es mediados de (por completo, i, 1) = tofind entonces coloca = las posiciones y CStr (1 + j - i) y ““
    Después i
Función del final

Prueba secundaria ()
    S dévil como secuencia
    s = posiciones (“000101101”, “1”)
    MsgBox s
Submarino del extremo