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

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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida