Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Producto de dígitos

Excel - Producto de dígitos

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de wernser412
Val: 26
Ha aumentado su posición en 88 puestos en Excel (en relación al último mes)
Gráfica de Excel

Producto de dígitos

Publicado por wernser412 (25 intervenciones) el 26/05/2022 23:29:33
Hola.

Tengo en una celda = 154542

Quisiera que sé múltiple los dígitos: 1 × 5 × 4 × 5 × 4 × 2 =800

Sí, es posible en VBA.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Abraham Valencia
Val: 313
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Producto de dígitos

Publicado por Abraham Valencia (125 intervenciones) el 27/05/2022 05:22:50
Hola, te dejo una UDF. Asumo que no quieres que se multipliquen los ceros, que no tienes decimales y que solo hay números en esas celdas. Igual, ya con esa base no deberías tener dilemas en adaptar para otras cosas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function multiplicando(Celda As Range) As Long
 
Dim nLargo%, x%
Dim miResultado&
Dim nDato As Byte
 
nLargo = Len(Celda)
miResultado = 1
 
For x = 1 To nLargo
 
    nDato = Mid(Celda, x, 1)
    If nDato <> 0 Then
        miResultado = miResultado * Val(nDato)
    End If
 
Next x
 
multiplicando = miResultado
 
End Function

Saludos

Abraham Valencia
https://abrahamexcel.blogspot.com/
Lima, Perú
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar