Pergunta : Posições de caráter em uma corda using VBA

Eu tenho uma corda em VBA: (000101101) etc. Eu quero uma função que me diga as posições da corda do (1). O exemplo acima forneceria 6 4 3 1.  Soa simples.  Ive tentou Instr () e um número de others. class= do

Resposta : Posições de caráter em uma corda using VBA

Posições da função (completamente como a corda, o tofind como a corda) como a corda
    Escurecer i como o inteiro, j como o inteiro
    posições = ""
    j = Len (cheio)
    Para i = 1 a Len (cheio)
        Se meados de (completamente, i, 1) = o tofind posiciona então = as posições & o CStr (1 + j - i) & ““
    Em seguida i
Função do fim

Teste secundário ()
    S não ofuscante como a corda
    s = posições (“000101101”, “1”)
    MsgBox s
Submarino da extremidade