Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Re: Alternativa a SUSTITUIR() 30 veces.

27/12/2005 - 01:09 por javier99 | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :