Red de conocimiento informático - Problemas con los teléfonos móviles - Cadenas VBA y reemplazo

Cadenas VBA y reemplazo

VBA

La adición y reemplazo de cadenas se puede completar así:

1 Puedes usar el siguiente código:

Sub

prueba()

Atenuar

A,

B

Como

cadena

A

=

"0010"

B

=

"1010"

C

=

FC(A,

B)

Fin

Sub

Función

FC(str1,

str2)

Como

Cadena

Si

Len(str1)

=

Len(str2)

Entonces

Para

i

=

1

A

Len(str1)

s2

=

Medio(str2,

i,

1)

Si

lt ; un

p>

href=

target="_blank"

class="baidu-highlight"gt;s1lt;/agt;

lt;

=

s2

Entonces

FC

=

FC

amp;

lt;a

href=target="_blank"

class=" baidu-highlight"gt; s1lt;/agt;

CELDAS(2,2)

3Sub

prueba()

Dim

sr$,

arr,

lt;p>

href=

target="_blank"

class="baidu-highlight"gt;sr1lt;/agt;$,

sr2$

sr

=

[ F65536].lt; a

href=

target="_blank"

class="baidu-highlight"gt; ;/agt; (3 ).Valor

arr

=

Dividir(sr,

"\")

Para

i

=

Para

UBound(arr)

Si

arr (i)

=

Entonces

arr (i)

=

10

sr2

=

lt;a

href=

target="_blank"

class="baidu-highlight"gt;Abslt;/agt;(arr(i)

-

[b65536].lt;a

href=

target="_blank"

class="b

Aidu-highlight"gt;Endlt;/agt;(3).Value)

if

sr2

=

10

Entonces

sr2

=

lt;a

href=

objetivo ="_blank"

class="baidu-highlight"gt;sr1lt;/agt;

=

lt;a

href=

target="_blank"

class="baidu-highlight"gt;sr1lt;/agt;

amp;

sr2

amp;

"

lt;a

href=target="_blank"

class="baidu-highlight"gt;Nextlt;/agt;

[F65536].lt;a

href=

target="_blank"

class="baidu-highlight"gt;Endlt;/agt;(3).Offset(1,

0)

=

lt;a

href=

target="_blank"

class="baidu-highlight"gt;Leftlt;/agt;(sr1,

Len(sr1)

-

1)

Fin

Sub