CONVERSOR DE TIPO MURCIÉLAGO

09/02/2005 - 18:57 por JOSÉ MANUEL DÁVILA CERRATO | Informe spam

Quisiera saber si existe alguna utilidad o alguna macro para convertir
rápidamente números según una clave de tipo murciélago.

Para aquellos que no sepan que es una clave tipo MURCIELAGO, se trata de una
forma de codificación muy sencilla y usada por mucha gente desde hace creo
que siglos, se trata de marcar unos números pero utilizando letras, así para
indicar 1987 se indicaría MGAL, consiste en sustituir la M por el 1 , la U
por el 2, la R por el 3 . la O por el 0. Evidentemente se trata de
buscar otras palabras (la clave) que contengan 10 letras y ninguna repetida
(p.e. PERFUMISTA).

Lo que quiero saber es si alguien tiene una utilidad para poder trabajar en
una hoja de cálculo con este tipo de datos codificados, y que sea algo de
ida y vuelta, tanto desde datos numéricos a codificados como al contrario.
Mucho ya sería que sólo se mostraran mediante algún tipo de máscara, pero
que realmente el dato fuera numérico, y así se permitiera realizar
operaciones con los datos.

Gracias anticipadas.
José Manuel Dávila Cerrato.

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

10/02/2005 - 07:42 | Informe spam

hola, José Manuel !

... utilidad o... macro para convertir rapidamente numeros segun una clave [...]

hace poco hubo una consulta 'similar' [que por cierto... se quedo 'trunca'/sin 'feed-back'] :(
la transcribo a ver si hay 'respuesta' a las preguntas ;)

saludos,
hector.
=hola, 'condorito' !

que... letras... tengan un valor fijo...
ejem: se ve e imprime "P" pero se puede aplicar formulas al valor 8
otras tendran otros valores trabajar con cifras pero q se vean solo las letras

1.- ¿cuales serian la literales que van a 'sustituir' a los numerales?
-> del 0 al 9 [o... del 1 al 9 MAS el 0, como lo quieras ver]
2.- ¿cual es el rango que se vera 'afectado' por este 'cambio de numeracion'?
-> supongo que no querras 'hacerlo en general' [para toda la hoja y/o el libro] <\°|°/>
3.- ¿quieres que se consideren decimales? [y... ¿cuantas?]
4.- ¿quieres que TAMBIEN 'la entrada de numeros' sea por sus literales?

'necesito' el 'set' ->completo<- de letras que sustituiran a los diez numerales [seg. pregunta 1]
mismos que [preferentemente o 'por obligacion/necesidad'] ->seran FIJOS<-
seria totalmente contraproducente 'estar cambiando de parecer' en cuanto a que letra 'vale' x_numero <= OJO

Responder a este mensaje

#2 JOSÉ MANUEL DÁVILA CERRATO

10/02/2005 - 10:56 | Informe spam

Si, es eso lo que quisiera hacer, pero claro, sería conveniente que la clave
se pudiera cambiar.

Por lo que me dices el hilo quedó cortado, quizá ahora se aportes ideas
interesantes sobre como hacerlo.

Gracias.

José Manuel Dávila Cerrato

"Héctor Miguel" escribió en el mensaje
news:

hola, José Manuel !

... utilidad o... macro para convertir rapidamente numeros segun una
clave [...]

hace poco hubo una consulta 'similar' [que por cierto... se quedo
'trunca'/sin 'feed-back'] :(
la transcribo a ver si hay 'respuesta' a las preguntas ;)

saludos,
hector.
=> hola, 'condorito' !

que... letras... tengan un valor fijo...
ejem: se ve e imprime "P" pero se puede aplicar formulas al valor 8
otras tendran otros valores trabajar con cifras pero q se vean solo las
letras

1.- ¿cuales serian la literales que van a 'sustituir' a los numerales?
-> del 0 al 9 [o... del 1 al 9 MAS el 0, como lo quieras ver]
2.- ¿cual es el rango que se vera 'afectado' por este 'cambio de
numeracion'?
-> supongo que no querras 'hacerlo en general' [para toda la hoja y/o
el libro] <\°|°/>
3.- ¿quieres que se consideren decimales? [y... ¿cuantas?]
4.- ¿quieres que TAMBIEN 'la entrada de numeros' sea por sus literales?

'necesito' el 'set' ->completo<- de letras que sustituiran a los diez
numerales [seg. pregunta 1]
mismos que [preferentemente o 'por obligacion/necesidad'] ->seran FIJOS<-
seria totalmente contraproducente 'estar cambiando de parecer' en cuanto a
que letra 'vale' x_numero <= OJO

Responder a este mensaje

#3 TAMARIZ

10/02/2005 - 18:24 | Informe spam

La macro anterior tiene un error , la buena es esta.

Sub macro1()
Dim A(10) As String
CLAVE = Range("A1").Value
VALOR = Range("A2").Value
If Len(CLAVE) <> 10 Then GoTo 10
For X = 1 To 10
A(X) = Mid(CLAVE, X, 1)
Next X
For X = 1 To 10
For Y = X + 1 To 10
If A(X) = A(Y) Then GoTo 10
Next Y
Next X
VAL1 = Len(VALOR)
For X = 1 To VAL1
j = Mid(VALOR, X, 1)
If j = 0 Then j = 10
Z = Z & A(j)
Next X
Range("A3").Value = Z
GoTo 20
10 Range("A3").Value = "Se necesita una cadena de 10
letras no repetidas para el correcto funcionamiento de la
formula"
20 End Sub

Pues de manera sencilla y rapida se me ocurre esto , aunq
se puede hacer de muchas maneras.
Coloca la cadena de letras clave en la celda A1 , el
número a convertir en la A2 y te devolverá el resultado

la A3.
Lleva un corrector de errores muy simple , solo controla

la cadena clave tenga las 10 letras requeridas y q

ninguna

sea repetida , pero no controla q en le valor introducido
sean numeros etc... asi q si le metes cosas raras petara.
Al igual que como macro ,con ligeros cambios la puedes
crear como funcion del estilo =CODIF(CLAVE,VALOR)

Espero sea esto lo que buscabas y te sirva de ayuda

Sub macro1()
Dim A(10) As String
CLAVE = Range("A1").Value
VALOR = Range("A2").Value
If Len(CLAVE) <> 10 Then GoTo 10
For X = 1 To 10
A(X) = Mid(CLAVE, X, 1)
Next X
For X = 1 To 10
For Y = X + 1 To 10
If A(X) = A(Y) Then GoTo 10
Next Y
Next X
VAL1 = Len(VALOR)
For X = 1 To VAL1
Z = Z & A(Mid(VALOR, X, 1))
Next X
Range("A3").Value = Z
GoTo 20
10 Range("A3").Value = "Se necesita una cadena de 10
letras no repetidas para el correcto funcionamiento de la
formula"
20 End Sub

Quisiera saber si existe alguna utilidad o alguna macro

para convertir

rápidamente números según una clave de tipo murciélago.

Para aquellos que no sepan que es una clave tipo

MURCIELAGO, se trata de una

forma de codificación muy sencilla y usada por mucha

gente desde hace creo

que siglos, se trata de marcar unos números pero

utilizando letras, así para

indicar 1987 se indicaría MGAL, consiste en sustituir

M por el 1 , la U

por el 2, la R por el 3 . la O por el 0.

Evidentemente se trata de

buscar otras palabras (la clave) que contengan 10 letras

y ninguna repetida

(p.e. PERFUMISTA).

Lo que quiero saber es si alguien tiene una utilidad

para

poder trabajar en

una hoja de cálculo con este tipo de datos codificados,

y que sea algo de

ida y vuelta, tanto desde datos numéricos a codificados

como al contrario.

Mucho ya sería que sólo se mostraran mediante algún tipo

de máscara, pero

que realmente el dato fuera numérico, y así se

permitiera

realizar

operaciones con los datos.

Gracias anticipadas.
José Manuel Dávila Cerrato.

.

.

Responder a este mensaje

#4 Héctor Miguel

10/02/2005 - 18:49 | Informe spam

hola, chicos !

TAMARIZ escribio en el mensaje...
La macro anterior tiene un error , la buena es esta [...]

[creo que 'solo'...] hace falta un 'detalle': Jose Manuel comenta que... 'le gustaria...'

'... que realmente el dato fuera numerico, y asi se permitiera realizar operaciones con los datos ...'

[entonces...] ¿como 'operas' ->numericamente<- con 'el dato' del resultado en 'A3'?

¿comentas?
saludos,
hector.

Responder a este mensaje

#5 TAMARIZ

10/02/2005 - 19:16 | Informe spam

Creandolo como formula y otra para el proceso inverso , es
decir creamos de igual manera una formula que dandole la
clave y las cadena de letras codificadas nos devuelva los
numeros originales , con ellos podemos operarlos como
queramos y los vuelva a codificar .
Imaginemos q tenemos 3 cadenas codificadas en A3, A4 y A5
y queremos q sume el valor y nos lo devuelva codificado en
A6 seria algo estilo , =CODIF(CLAVE,DECODIF(CLAVE,A3)+
DECODIF(CLAVE,A4)+ DECODIF(CLAVE,A5))
Donde CODIF es la version formula de la macro que escribí
antes y DECODIF la funcion inversa (siguiendo el mismo
funcionamiento de la macro anterior podeis generar
facilmente una formula que convierta la cadena codificada
al numero original).

Ahora estoy recojiendo para marcharme del curro , mañana
intentaré poner la resolucion completa si tengo un rato
libre.

Un saludo