Re: Alternativa a SUSTITUIR() 30 veces.

27/12/2005 - 01:09 por javier99 | Informe spam

Gracias KL, me doy cuenta que lo estoy plantenado mal ya que es un poco absurdo intentar repetir una sustición de un caracter cuando ya lo tengo repetido varias veces. Intento hacer algo fundamentalmente con formulas sin utilzar casi programación, ya que eso se me dá bastante mal. Cambiaré un poco mi planteamiento, creo que lo podré hacer de otra manera un poco mas lógica. Cuando lo consiga se lo dejaré a quien lo quiera.

He estado viendo ese archivo del Sudoku y pienso que es muy bueno. Tiene que ser de alguien que sabe mucha programación.

También he mirado la función que me dejaste y algunas lineas del codigo en el módulo me salen en rojo. Y algún mensaje de Error de compilación: Se esperababa: separador de listas o

Concretamente éstas lineas:

Public Function MSUSTITUIR(txt As String‚ busc‚
sust As String) As Strin

txt = Replace(txt‚ i‚ sust

MSUSTITUIR = Replace(txt‚ busc‚ sust

Saludos.
javie

javier99

Ver este tema: http://www.softwaremix.net/viewtopic-468599.htm

Enviado desde http://www.softwaremix.net

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 KL

27/12/2005 - 13:41 | Informe spam

Hola javier99,

Intento hacer algo fundamentalmente con formulas sin utilzar casi programaci?n
He estado viendo ese archivo del Sudoku y pienso que es muy bueno.

El segundo ejemplo es el que probablemente interese mas ya que no usa VBA sini romulas.

Tiene que ser de alguien que sabe mucha programaci?n.

Si, Andy Pope es uno de los Microsoft MVPs de Excel.

Tambi?n he mirado la funci?n que me dejaste y algunas lineas del codigo en el m?dulo me salen en rojo. Y alg?n mensaje de Error de
compilaci?n: Se esperababa: separador de listas o )

Bastante curioso - las comas se convirtieron incorrectamente. Prueba esto:

'
Public Function MSUSTITUIR(txt As String, busc, _
sust As String) As String
On Error GoTo ManejoErr
For Each i In busc
txt = Replace(txt, i, sust)
Next i
MSUSTITUIR = txt
Exit Function
ManejoErr:
MSUSTITUIR = Replace(txt, busc, sust)
End Function
'

Por cierto, no dejes de mirar el mensaje de Hector Miguel en este hilo - a el si que le gusta este tipo de rompecabezas :-))

Saludos,
KL

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida