Pytanie : Charakter Pozycja w sznurek using VBA

I mieć sznurek w VBA: (000101101) Etc. I chcieć funkcja który mówić the smyczkowy lokacja the ((1)). The zapewniać przykład ono zapewniać 6 4 3 1.  Ono brzmieć prosty.  Ive próbować Instr () i liczba others.

Odpowiedź : Charakter Pozycja w sznurek using VBA

Funkcja pozycja (pełny Jako Sznurek, tofind Sznurek) Sznurek
    Ćmić i Jako Integer, j Jako Integer
    pozycja = ""
    j = Len (folować)
    Dla i = (1) Len (folować)
        Jeżeli W połowie (, i, 1) = tofind Wtedy ustawiać = pozycja & CStr ((1) + j - i) & ""
    Następnie i
Końcówka Funkcja

Okręt podwodny test ()
    Ciemnawy s Sznurek
    s = pozycja ("000101101", "(1)")
    MsgBox s
Końcówka Okręt podwodny