Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
UDF Suma de valores en negrita, UDF Suma de valores en negrita

UDF Suma de valores en negrita

| 2 comentarios

En las casas de apuestas deportivas existen diversas maneras de ganar, apostando diferentes partidos de futbol, lo que detallaré a continuación es un ejemplo de un juego de apuestas con los montos aplicables, dependiendo del resultado final del partido.

En la columna B son los equipos que juegan de local, en la columna F son los equipos que juegan de visita. Las columnas centrales C, D y E son los montos aplicables a los resultados del partido; por ejemplo:

En la fila 4 se encuentra el partido entre los equipos Alianza Lima y Universitario con los siguientes montos a apostar; si gana el local (L) se paga S/. 2.4, si empatan (E) S/. 3 y si gana la visita (V) S/. 2.4.

Mis pronósticos los he sombreado en negritas, para lo cual mi fórmula suma los pronósticos que me resultarán una ganancia (F13) si acierto el total de partidos.

Por tanto la función que se creará para realizar este cálculo será la siguiente:

Apuestas

apuest 300x166, UDF Suma de valores en negrita

Public Function sumabold(Rng As Range)

Dim celda As Object

Application.Volatile

For Each celda In Rng

If celda.Font.Bold = True Then

sumabold = sumabold + celda.Value

End If

Next

sumabold = sumabold

End Function

2 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.