Curso de Excel Avanzado con Macros
Curso de Excel Avanzado con Macros

Introducción a Macros y VBA

1

Macros y Visual Basic en Excel Avanzado

2

Uso de Macros en Excel con Visual Basic

3

Creación de Diagramas de Flujo para Solución de Problemas

4

Variables y Tipos de Datos en Visual Basic

5

Funciones y Subrutinas en Visual Basic

6

Automatización de Tareas con Macros en Excel

Quiz: Introducción a Macros y VBA

Funciones y subrutinas

7

Sintaxis de Funciones y Subrutinas en Visual Basic

8

Creación de Funciones en Visual Basic para Excel

9

Creación de Subrutinas en Visual Basic para Excel

10

Uso de MessageBox en Visual Basic para Mostrar Resultados

11

Input Box en Visual Basic: Solicitar Datos al Usuario

12

Uso de Select Case en Visual Basic para Condicionales

13

Condicionales IF-THEN en Visual Basic: Funciones y Ejercicios Prácticos

14

Ciclos For Next en Visual Basic para Excel: Fibonacci Automático

15

Ciclos Do-While en Visual Basic: Suma de Dados hasta 100

Quiz: Funciones y subrutinas

Resumen y conclusión

16

Automatización en Excel con Visual Basic y Macros

No tienes acceso a esta clase

¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera

Si ya tienes una cuenta,

Curso de Excel Avanzado con Macros

Curso de Excel Avanzado con Macros

Ana Parente Dodero

Ana Parente Dodero

Condicionales IF-THEN en Visual Basic: Funciones y Ejercicios Prácticos

13/17
Recursos

¿Qué es la instrucción if-then y cómo se utiliza?

La instrucción IF-THEN es una herramienta fundamental en la programación que permite ejecutar acciones específicas si se cumple una determinada condición. En esencia, se estructura como: "si ocurre esto, entonces haz aquello". Esta instrucción es clave para implementar condicionales y tomar decisiones en función de los datos disponibles, permitiendo mayor control y flexibilidad en los programas.

En Visual Basic, por ejemplo, puedes emplear IF-THEN para decidir si el valor de un dado es par o impar. Esto se hace utilizando funciones y variables que determinan el valor y, posteriormente, evalúan la condición para ejecutar la acción correspondiente.

¿Cómo crear una función para un dado en Visual Basic?

La creación de una función en Visual Basic requiere definir claramente los pasos y decisiones que deseas implementar. Aquí te brindamos una guía para programar una función que simule el lanzamiento de un dado y determine su resultado como par o impar.

  1. Definir la función y las variables:

    • Crea una función llamada "dado" que no requiere argumentos ya que los lanzamientos de un dado son aleatorios.
    • Define la variable para almacenar el valor del dado, por ejemplo, usa vd como dim vd as integer.

  2. Generar el valor aleatorio:

    • Visual Basic tiene una función random para obtener un número aleatorio entre 0 y 1.
    • Ajusta este valor multiplicándolo por 6 y sumando 1 para que resulte en un número entero entre 1 y 6: int(random * 6 + 1).

  3. Implementar la condición IF-THEN:

    • Utiliza IF-THEN para comprobar si el valor del dado es par. Por ejemplo, comprueba si vd es igual a 2, 4 o 6 para considerarlo par: if vd = 2 or vd = 4 or vd = 6 then dado = "par".
    • Usa else para otros valores y considera que el dado es impar: else dado = "impar".

  4. Probar y visualizar el resultado:

    • Prueba la función en el entorno de desarrollo para verificar su correcto funcionamiento.
    • Usa un message box para mostrar el valor del dado.

¿Cómo optimizar las condiciones con else if?

El uso de else if optimiza el código al detener la evaluación una vez que una condición se cumple, lo cual es crucial en programas complejos o con grandes volúmenes de datos.

  • Reducir evaluación innecesaria:

    • Al usar solo if, cada condición se evalúa independientemente, lo que puede ser ineficiente. Else if asegura que no se sigan evaluando las condiciones una vez que se encuentra la correcta.

  • Estructurar cuidadosamente las condiciones:

    • Asegúrate de que las condiciones estén bien definidas para maximizar la eficiencia y claridad del código.

  • Buenas prácticas:

    • Indentar las acciones dentro de las estructuras condicionales para mejorar la legibilidad y mantenimiento.

¿Cómo poner en práctica lo aprendido?

Refuerza tu comprensión repitiendo este ejercicio con otro conjunto de reglas. Por ejemplo, puedes usar cartas de un mazo para determinar si son de color rojo o negro. Expande tu programa para incluir detalles como el palo (corazones, diamantes, tréboles, picas) y experimenta creando complejidades adicionales en el código. ¡Este enfoque aprender-haciendo ofrecerá una práctica valiosa y te hará más competente en el uso de IF-THEN y en la programación en general!

Aportes 141

Preguntas 7

Ordenar por:

¿Quieres ver más aportes, preguntas y respuestas de la comunidad?

Tomas Pucutay

Tomas Pucutay

hace 3 años

Btw, Si se sienten más cómodos usando las funciones que ya conocían en excel, pueden usarlo mediante la siguiente sintaxis:

Application.WorksheetFunction.<excel_function>

Ejemplo para obtener un valor entre 1 y 6

.
Consideraciones:

  1. Si usan las fórmulas de excel, estas deben estar escritas en su forma oficial en inglés, los argumentos que usa son los mismos
  2. VBA a diferencia de otros lenguajes, no es case sensitive, la declaración de la variable marca la pauta. Ejm. Si declaras Dim aLeAtOrIo as integer y en otra línea usas aleatorio = Application.Worksheet…, verás que al cambiar de línea automáticamente “aleatorio” se cambia por “aLeAtOrIo”
  3. Una práctica común en la mayoría de lenguajes para debuggear es el print statement (o las impresiones intermedias). En el caso de VBA puedes usar Debug.Print <variable> para ver que está ejecutando e ir revisando cada vez que necesitas hacerlo.
Milo Brayan Sánchez Gil

Milo Brayan Sánchez Gil

hace 2 años
Public Function cartas() As String

	Dim NumCar As Integer
	Dim ColCar As Integer
	Dim TipCar As Integer
	Dim RNumCar As String
	Dim RColCar As String
	Dim RTipCar As String
	Dim a

	NumCar = Int((Rnd * 13) + 1)
	ColCar = Int((Rnd * 2) + 1)
	TipCar = Int((Rnd * 4) + 1)

	If NumCar = 1 Then
    	RNumCar = "As"
    ElseIf NumCar = 2 Then
        RNumCar = "2"
    ElseIf NumCar = 3 Then
        RNumCar = "3"
    ElseIf NumCar = 4 Then
        RNumCar = "4"
    ElseIf NumCar = 5 Then
        RNumCar = "5"
    ElseIf NumCar = 6 Then
        RNumCar = "6"
    ElseIf NumCar = 7 Then
        RNumCar = "7"
    ElseIf NumCar = 8 Then
        RNumCar = "8"
    ElseIf NumCar = 9 Then
        RNumCar = "9"
    ElseIf NumCar = 10 Then
        RNumCar = "10"
    ElseIf NumCar = 11 Then
        RNumCar = "Jota"
    ElseIf NumCar = 12 Then
        RNumCar = "Reina"
    ElseIf NumCar = 13 Then
        RNumCar = "Rey"
    End If

    If ColCar = 1 Then
        RColCar = "Negro"
    ElseIf ColCar = 2 Then
        RColCar = "Rojo"
    End If

    If TipCar = 1 Then
        RTipCar = "Tréboles"
    ElseIf TipCar = 2 Then
        RTipCar = "Diamantes"
    ElseIf TipCar = 3 Then
        RTipCar = "Corazones"
    ElseIf TipCar = 4 Then
        RTipCar = "Picas"
    End If
    cartas = RNumCar & " de " & RTipCar & " " & RColCar

    a = MsgBox(cartas)

	End Function

Así programé una función que te da una de las 52 cartas de la baraja clásica de poker al azar 😃

Roger Christian Cansaya Olazabal

Roger Christian Cansaya Olazabal

hace 3 años

Mas practico

Public Function dado() As String

    Dim VD As Integer
    Dim a
    VD = Int((Rnd * 6) + 1)
    If (VD Mod 2) = 0 Then
        dado = "Par"
    Else: dado = "Impar"
    End If
    
    a = MsgBox(VD)
    
End Function
Herney Sanchez Zuleta

Herney Sanchez Zuleta

hace 2 años

Les comparto el reto de generar una carta de baraja inglesa de manera aleatoria.

' Carta Aleatoria
Public Function cartas() As String

    Dim C As Integer
    Dim CU As Integer
    Dim CUs As String
    
    Dim pinta As String
    Dim cartastring As String
    
    C = Int((52 * Rnd) + 1)
    
    ' Definir rangos que le pertenecen a cada pinta
    If C >= 1 And C <= 13 Then
        pinta = "Picas"
        ElseIf C >= 14 And C <= 26 Then
        pinta = "Corazones"
        ElseIf C >= 27 And C <= 39 Then
        pinta = "Treboles"
        Else: pinta = "Diamantes"
    End If
    
    ' Convertir los corazones, treboles y diamantes a números entre el 1 y el 13
    If C >= 1 And C <= 13 Then
        CU = C - 0
        ElseIf C >= 14 And C <= 26 Then
            CU = C - 13
        ElseIf C >= 27 And C <= 39 Then
            CU = C - 26
        ElseIf C >= 40 And C <= 52 Then
            CU = C - 39
        End If
        
        CUs = CU
        
    ' Nombrar las cartas 1, 11, 12 y 13 como A, J, Q, K respectivamente
    If CUs = "1" Then
        cartastring = "A"
        ElseIf CUs = "11" Then
            cartastring = "J"
        ElseIf CUs = "12" Then
            cartastring = "Q"
        ElseIf CUs = "13" Then
            cartastring = "K"
        Else: cartastring = CUs
    End If
    
cartas = "La carta generada aleatoriamente es " + cartastring + " de " + pinta
            
End Function
Cristian Duvan Laverde Quiroga

Cristian Duvan Laverde Quiroga

hace 2 años

Casi que no lo logro

Ernesto García Silva

Ernesto García Silva

hace 2 años

Aplicando if , funcion en VBA y en la hoja Aleatorio entre y una tabla al cual le di el nombre de figuras del WIN+[.]
aplique tambien formato condicional para el color de la celda en la tabla. Se puede hacer diversidad depende del Usuario.
Sintaxis y Aplicacion de la Funcion en Hoja:

Luis Miguel Acosta Gutierrez

Luis Miguel Acosta Gutierrez

hace 2 años

Esto lo generó una IA, comparto el resultado:

Sub ChooseCard()
’ Declare variables
Dim suits(1 To 4) As String
Dim numbers(1 To 13) As String
Dim suit As String
Dim number As String
Dim card As String

’ Initialize arrays of suits and numbers
suits(1) = "Spades"
suits(2) = "Hearts"
suits(3) = "Clubs"
suits(4) = “Diamonds”

numbers(1) = "Ace"
numbers(2) = "Two"
numbers(3) = "Three"
numbers(4) = "Four"
numbers(5) = "Five"
numbers(6) = "Six"
numbers(7) = "Seven"
numbers(8) = "Eight"
numbers(9) = "Nine"
numbers(10) = "Ten"
numbers(11) = "Jack"
numbers(12) = "Queen"
numbers(13) = “King”

’ Choose a random suit and number
suit = suits(Int((4 - 1 + 1) * Rnd + 1))
number = numbers(Int((13 - 1 + 1) * Rnd + 1))

’ Construct the card name
card = number & " of " & suit

’ Determine whether the card is red or black
If suit = “Hearts” Or suit = “Diamonds” Then
MsgBox card & " is a red card."
Else
MsgBox card & " is a black card."
End If
End Sub

Isaac Bustillo

Isaac Bustillo

hace 2 años

Hola, adjunto código del reto.

Resultados

Juan Manuel Betancur Mesa

Juan Manuel Betancur Mesa

hace 2 años

Con Debug.Print y la variable podemos imprimir el valor de la variable

Public Function dado() As String
    Dim VD As Integer
    
    VD = Int((Rnd * 6) + 1)
    
    If VD Mod 2 = 0 Then
        dado = "par"
    Else
    dado = "Impar"
    End If
    Debug.Print VD
End Function
Santiago Correa

Santiago Correa

hace 2 años

Comparto funcion para mostrar una carta aleatoriamente.

Franklin Paredes Trejo

Franklin Paredes Trejo

hace 2 meses
Asignación de la profesora: ![](https://static.platzi.com/media/user_upload/image-667896e8-f7fe-4be0-9d2f-c3bcbe4666ae.jpg)
Maria Camila Rodriguez Moreno

Maria Camila Rodriguez Moreno

hace un mes
La sintaxis básica de la instrucción `If-Then` en VBA es la siguiente: ```vba If condición Then ' Código a ejecutar si la condición es verdadera End If ``` Por ejemplo: ```vba If valor = 10 Then MsgBox "El valor es diez" End If ``` Además, puedes usar `ElseIf` y `Else` para manejar múltiples condiciones: ```vba If condición1 Then ' Código para condición1 ElseIf condición2 Then ' Código para condición2 Else ' Código si ninguna condición se cumple End If ``` Este enfoque es útil para tomar decisiones en tu programación.
diana carolina moya romero

diana carolina moya romero

hace 12 días
Después de 2 días intentándolo, preguntándole a IA el porqué de cada estructura, y corrigiendo errores, lo logré para el juego favorito de mi sobrina, uno: Public Function cartas() As String 'vamos a declarar las variables Dim NumCar As Integer Dim ColCar As Integer Dim RNumCar As String Dim RColCar As String Dim a 'vamos a generar valores aleatorios NumCar = Int((Rnd \* 13) + 1) ColCar = Int((Rnd \* 4) + 1) 'vamos a convertir valores numéricos a texto If NumCar = 0 Then RNumCar = "cero" ElseIf NumCar = 1 Then RNumCar = "1" ElseIf NumCar = 2 Then RNumCar = "2" ElseIf NumCar = 3 Then RNumCar = "3" ElseIf NumCar = 4 Then RNumCar = "4" ElseIf NumCar = 5 Then RNumCar = "5" ElseIf NumCar = 6 Then RNumCar = "6" ElseIf NumCar = 7 Then RNumCar = "7" ElseIf NumCar = 8 Then RNumCar = "8" ElseIf NumCar = 9 Then RNumCar = "9" ElseIf NumCar = 10 Then RNumCar = "devolver" ElseIf NumCar = 11 Then RNumCar = "comedos" ElseIf NumCar = 12 Then RNumCar = "comecuatro" ElseIf NumCar = 13 Then RNumCar = "cambiocolor" End If If ColCar = 1 Then RColCar = "azul" ElseIf ColCar = 2 Then RColCar = "amarillo" ElseIf ColCar = 3 Then RColCar = "rojo" ElseIf ColCar = 4 Then RColCar = "verde" End If 'vamos a formar resultados y a retornar cartas = RNumCar & RColCar 'vamos a mostrar resultados y finalizar a = MsgBox(cartas) End Function
Daniel Alexander Ortiz Muñoz

Daniel Alexander Ortiz Muñoz

hace 2 meses
```ts Dim NumCar As Integer Dim ColCar As Integer Dim TipCar As Integer Dim RNumCar As String Dim RColCar As String Dim RTipCar As String Dim cartas As String ' Uso de la función Randomize para inicializar la generación de números aleatorios. Randomize NumCar = Int((Rnd * 13) + 1) ' Número entre 1 y 13. ColCar = Int((Rnd * 2) + 1) ' Número entre 1 y 2. TipCar = Int((Rnd * 4) + 1) ' Número entre 1 y 4. ' Uso de Select Case en lugar de If/ElseIf para simplificar y optimizar el código. Select Case NumCar Case 1: RNumCar = "As" Case 11: RNumCar = "Jota" Case 12: RNumCar = "Reina" Case 13: RNumCar = "Rey" Case Else: RNumCar = CStr(NumCar) ' Convertir el número a cadena para valores entre 2 y 10. End Select Select Case ColCar Case 1: RColCar = "Negro" Case 2: RColCar = "Rojo" End Select Select Case TipCar Case 1: RTipCar = "Tréboles" Case 2: RTipCar = "Diamantes" Case 3: RTipCar = "Corazones" Case 4: RTipCar = "Picas" End Select ' Concatenar las cadenas para crear la descripción de la carta. cartas = RNumCar & " de " & RTipCar & " " & RColCar ' Mostrar el resultado en un cuadro de mensaje. MsgBox(cartas) ```MsgBox(cartas)
Guillermo Moreno Lopez

Guillermo Moreno Lopez

hace 2 años

Una forma de crear esta funcion es utilizando el operador de modulo Mod en VBA. Lo que hace este operador es obtener el resto de la division entre dos numeros. En este caso si le pasamos un numero como parametro a la funcion dado(), lo dividimos entre dos y el resultado nos da cero, eso signidifica que el numero es par, sino, nos regresara impar. De esta forma si utilizamos este mismo algoritmo para listas de numeros mas grandes no tendremos que escribir cada caso que tengamos.

Public Function dado(number As Integer) As String
    Dim a
    If number Mod 2 = 0 Then
            dado = "Par"
        ElseIf number Mod 2 = 1 Then
            dado = "Impar"
    End If
    a = MsgBox(number)
End Function••••ˇˇˇˇ
Gonzalo Daniel Cayunao Erices

Gonzalo Daniel Cayunao Erices

hace 2 años

Lo terminé haciendo con select case para no usar tanto código, pero igual utilicé una parte de con If - Then. Usé el naipe español.

Public Function baraja() As String

    Dim palo As Integer
    Dim num_carta As Integer
    Dim carta As String
    Dim palo_carta As String
    
    palo = Int((Rnd * 4) + 1)
    num_carta = Int((Rnd * 10) + 1)

    If palo = 1 Then
            palo_carta = "Oros"
        ElseIf palo = 2 Then
            palo_carta = "Copas"
        ElseIf palo = 3 Then
            palo_carta = "Espadas"
        Else: palo_carta = "Bastos"
    End If
    
    Select Case palo_carta
        Case "Oros"
            Select Case num_carta
                Case 1, 2, 3, 4, 5, 6, 7
                    carta = num_carta & " de " & palo_carta
                Case 8, 9, 10
                    num_carta = num_carta + 2
                    carta = num_carta & " de " & palo_carta
            End Select
        Case "Copas"
            Select Case num_carta
                Case 1, 2, 3, 4, 5, 6, 7
                    carta = num_carta & " de " & palo_carta
                Case 8, 9, 10
                    num_carta = num_carta + 2
                    carta = num_carta & " de " & palo_carta
            End Select
        Case "Copas"
            Select Case num_carta
                Case 1, 2, 3, 4, 5, 6, 7
                    carta = num_carta & " de " & palo_carta
                Case 8, 9, 10
                    num_carta = num_carta + 2
                    carta = num_carta & " de " & palo_carta
            End Select
        Case Else
            Select Case num_carta
                Case 1, 2, 3, 4, 5, 6, 7
                    carta = num_carta & " de " & palo_carta
                Case 8, 9, 10
                    num_carta = num_carta + 2
                    carta = num_carta & " de " & palo_carta
            End Select
    End Select
                    
    a = MsgBox(carta)
End Function
Andres Rodriguez

Andres Rodriguez

hace 3 años

Maravillosas estas clases, me traen lindos recuerdos !
Gracias

Jonathan Higueros Garrido

Jonathan Higueros Garrido

hace 3 años
Gabriel López

Gabriel López

hace 2 años

Comparto solución para la selección de cartas aleatorias ♥♣♦♠

kevin cordoba

kevin cordoba

hace 2 años
Brahiam Rojas

Brahiam Rojas

hace 2 años
m1gu3l1n

m1gu3l1n

hace 3 años

Mi solucion respecto a las carta seria de esta manera

Eh realizado uno con subrutina donde lo que hará que si la celda A1 es mayor a cero se pintara de verde si es menor a cero se pintara de rojo

Diego Díaz

Diego Díaz

hace 16 horas
Aquí les adjunto el código que yo utilice, la verdad me apoye bastante de los mismos aportes de aquí de la clase, lo cual me sirvió bastante para comprender aun mas. Espero y puedan entenderlo, trate de hacerlo lo fácil de leer para aquellos que se les complico un poco ![](https://static.platzi.com/media/user_upload/upload-409c0511-d343-46db-b24e-78d9656a4594.png)![](https://static.platzi.com/media/user_upload/upload-ef9b893e-8241-4d82-8a53-be98d1ff8d99.png)
Maria Camila Rodriguez Moreno

Maria Camila Rodriguez Moreno

hace un mes
Select Case es una estructura de control en VBA que permite evaluar una expresión y ejecutar bloques de código basados en el resultado de esa evaluación. Es útil para manejar múltiples condiciones de manera más organizada que usando múltiples instrucciones If. En el contexto de la clase, se utiliza para determinar si la suma de tres números es negativa, cero o positiva, permitiendo ejecutar instrucciones específicas para cada caso. Este enfoque mejora la legibilidad y el mantenimiento del código. La sintaxis básica de `Select Case` en VBA es la siguiente: ```js Select Case expresión Case valor1 ' Instrucciones si la expresión es igual a valor1 Case valor2 ' Instrucciones si la expresión es igual a valor2 Case Else ' Instrucciones si no coincide con ningún valor anterior End Select ``` `Select Case` permite evaluar una variable contra múltiples condiciones, facilitando la lectura y organización del código. Es útil cuando hay muchos posibles valores para considerar, ofreciendo una alternativa más clara que múltiples `If-Then`. Saludos, Maria CRM
Edison Aviles

Edison Aviles

hace 2 meses
```js Option Explicit ' Declaración de variables globales Private Type Carta Valor As String Palo As String End Type Private Mazo() As Carta Private CartasRestantes As Integer ' Inicializar y crear el mazo de cartas Public Sub CrearMazo() Dim i As Integer, j As Integer Dim Valores As Variant Dim Palos As Variant Dim palo As Variant Dim valor As Variant ' Definir los valores y palos Valores = Array("A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K") Palos = Array("Picas", "Corazones", "Diamantes", "Tréboles") ' Redimensionar el array del mazo ReDim Mazo(1 To 52) CartasRestantes = 52 ' Crear todas las cartas i = 1 For Each palo In Palos For Each valor In Valores Mazo(i).Valor = valor Mazo(i).Palo = palo i = i + 1 Next valor Next palo ' Mostrar mensaje de confirmación MsgBox "Mazo creado con éxito!", vbInformation End Sub ' Barajar el mazo Public Sub BarajarMazo() Dim i As Integer Dim j As Integer Dim TempCarta As Carta ' Algoritmo Fisher-Yates para barajar For i = UBound(Mazo) To 2 Step -1 j = Int((i * Rnd) + 1) ' Intercambiar cartas TempCarta = Mazo(i) Mazo(i) = Mazo(j) Mazo(j) = TempCarta Next i CartasRestantes = 52 MsgBox "Mazo barajado!", vbInformation End Sub ' Repartir una carta Public Function RepartirCarta() As String If CartasRestantes <= 0 Then RepartirCarta = "No quedan cartas en el mazo" Exit Function End If RepartirCarta = Mazo(CartasRestantes).Valor & " de " & Mazo(CartasRestantes).Palo CartasRestantes = CartasRestantes - 1 End Function ' Mostrar una carta al azar Public Sub MostrarCartaAleatoria() If CartasRestantes <= 0 Then MsgBox "No quedan cartas en el mazo", vbExclamation Exit Sub End If Randomize ' Inicializar el generador de números aleatorios Dim indiceAleatorio As Integer indiceAleatorio = Int((CartasRestantes * Rnd) + 1) ' Mostrar la carta seleccionada MsgBox "Tu carta es: " & Mazo(indiceAleatorio).Valor & " de " & Mazo(indiceAleatorio).Palo, vbInformation End Sub ' Mostrar el mazo en la hoja de Excel Public Sub MostrarMazoEnHoja() Dim ws As Worksheet Dim i As Integer ' Crear nueva hoja o usar la activa Set ws = ActiveSheet ws.Cells.Clear ' Títulos ws.Cells(1, 1) = "Número" ws.Cells(1, 2) = "Carta" ' Mostrar cada carta For i = 1 To 52 ws.Cells(i + 1, 1) = i ws.Cells(i + 1, 2) = Mazo(i).Valor & Mazo(i).Palo Next i ' Formatear ws.Columns("A:B").AutoFit ws.Range("A1:B1").Font.Bold = True End Sub ' Ejemplo de uso Public Sub EjemploUso() Call CrearMazo Call BarajarMazo ' Repartir 5 cartas de ejemplo Dim i As Integer Range("D1").Value = "Cartas Repartidas:" For i = 1 To 5 Range("D" & (i + 1)).Value = RepartirCarta() Next i Call MostrarMazoEnHoja End Sub ```Option Explicit *' Declaración de variables globales*Private Type Carta    Valor As String    Palo As StringEnd Type Private Mazo() As CartaPrivate CartasRestantes As Integer *' Inicializar y crear el mazo de cartas*Public Sub CrearMazo()    Dim i As Integer, j As Integer    Dim Valores As Variant    Dim Palos As Variant    Dim palo As Variant    Dim valor As Variant        *' Definir los valores y palos*    Valores = Array("A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K")    Palos = Array("Picas", "Corazones", "Diamantes", "Tréboles")        *' Redimensionar el array del mazo*    ReDim Mazo(1 To 52)    CartasRestantes = 52        *' Crear todas las cartas*    i = 1    For Each palo In Palos        For Each valor In Valores            Mazo(i).Valor = valor            Mazo(i).Palo = palo            i = i + 1        Next valor    Next palo        *' Mostrar mensaje de confirmación*    MsgBox "Mazo creado con éxito!", vbInformationEnd Sub *' Barajar el mazo*Public Sub BarajarMazo()    Dim i As Integer    Dim j As Integer    Dim TempCarta As Carta        *' Algoritmo Fisher-Yates para barajar*    For i = UBound(Mazo) To 2 Step -1        j = Int((i \* Rnd) + 1)        *' Intercambiar cartas*        TempCarta = Mazo(i)        Mazo(i) = Mazo(j)        Mazo(j) = TempCarta    Next i        CartasRestantes = 52    MsgBox "Mazo barajado!", vbInformationEnd Sub *' Repartir una carta*Public Function RepartirCarta() As String    If CartasRestantes <= 0 Then        RepartirCarta = "No quedan cartas en el mazo"        Exit Function    End If        RepartirCarta = Mazo(CartasRestantes).Valor & " de " & Mazo(CartasRestantes).Palo    CartasRestantes = CartasRestantes - 1End Function *' Mostrar una carta al azar*Public Sub MostrarCartaAleatoria()    If CartasRestantes <= 0 Then        MsgBox "No quedan cartas en el mazo", vbExclamation        Exit Sub    End If        Randomize *' Inicializar el generador de números aleatorios*    Dim indiceAleatorio As Integer    indiceAleatorio = Int((CartasRestantes \* Rnd) + 1)        *' Mostrar la carta seleccionada*    MsgBox "Tu carta es: " & Mazo(indiceAleatorio).Valor & " de " & Mazo(indiceAleatorio).Palo, vbInformationEnd Sub *' Mostrar el mazo en la hoja de Excel*Public Sub MostrarMazoEnHoja()    Dim ws As Worksheet    Dim i As Integer        *' Crear nueva hoja o usar la activa*    Set ws = ActiveSheet    ws.Cells.Clear        *' Títulos*    ws.Cells(1, 1) = "Número"    ws.Cells(1, 2) = "Carta"        *' Mostrar cada carta*    For i = 1 To 52        ws.Cells(i + 1, 1) = i        ws.Cells(i + 1, 2) = Mazo(i).Valor & Mazo(i).Palo    Next i        *' Formatear*    ws.Columns("A:B").AutoFit    ws.Range("A1:B1").Font.Bold = TrueEnd Sub *' Ejemplo de uso*Public Sub EjemploUso()    Call CrearMazo    Call BarajarMazo        *' Repartir 5 cartas de ejemplo*    Dim i As Integer    Range("D1").Value = "Cartas Repartidas:"    For i = 1 To 5        Range("D" & (i + 1)).Value = RepartirCarta()    Next i        Call MostrarMazoEnHojaEnd Sub
Luis Francisco Alvarez Gomez

Luis Francisco Alvarez Gomez

hace 2 meses
Aqui esta mi aporte tomando el codigo de la profe: Public Function dado() As String Dim VD As Integer Dim A As Integer Dim resultado As String VD = Int((Rnd \* 6) + 1) If VD Mod 2 = 0 Then resultado = "Par" ElseIf VD = 4 Then resultado = "Par" ElseIf VD = 6 Then resultado = "Par" Else: resultado = "Impar" End If A = MsgBox("El número es " & VD & " y es " & resultado) dado = resultado End Function
Andrea Mercedes Torres Avendaño

Andrea Mercedes Torres Avendaño

hace 2 meses
Buen día Comparto resultados de mi ejercicio: ![](https://static.platzi.com/media/user_upload/image-f49811b8-ab46-4661-a6db-b2d8d61590cd.jpg) ![](https://static.platzi.com/media/user_upload/image-4fd280c0-0c43-4e5b-b386-38b74954cee2.jpg) ![](https://static.platzi.com/media/user_upload/image-e8708f58-87db-47d9-866b-5614f9314459.jpg) ![](https://static.platzi.com/media/user_upload/image-42bb758b-d4ee-41ce-99fe-36d2d6481a34.jpg) Feliz día
Camilo Hernando Lozano Estupiñan

Camilo Hernando Lozano Estupiñan

hace 3 meses
![](https://static.platzi.com/media/user_upload/image-85e06033-5669-4daf-ba54-a219afa32018.jpg)
Carlos Antonio Lucumí Moreno

Carlos Antonio Lucumí Moreno

hace 3 meses
Ejercicio cartas de Póker ![](https://static.platzi.com/media/user_upload/image-04191754-bdfb-4059-8697-573f33adbf07.jpg)![](https://static.platzi.com/media/user_upload/image-d24fffdb-2fa5-4503-b9c8-5820977f583f.jpg)
Rafael Antonio Mendoza Fragozo

Rafael Antonio Mendoza Fragozo

hace 3 meses
![](https://static.platzi.com/media/user_upload/image-2f1ec3b9-e3be-41e8-9693-0d26e1568468.jpg) ![](https://static.platzi.com/media/user_upload/image-7fe4371a-b8da-4023-bb91-80492f79d432.jpg) ![](https://static.platzi.com/media/user_upload/image-21c221ed-b47b-4589-9a84-c16bbd46331a.jpg)
Víctor L. Rojas Estrada

Víctor L. Rojas Estrada

hace 4 meses
Public Function dado() As String Dim VD As Integer VD = Int((Rnd \* 6) + 1) If VD Mod 2 = 0 Then dado = "Par" MsgBox (VD & " es " & dado) Else dado = "Impar" MsgBox (VD & " es " & dado) End If End Function
Juan Uriel Torres

Juan Uriel Torres

hace 5 meses
What do you think? I Could do it with less text ```js Public Function dice() As String Dim VD As Integer Dim dif As Double Dim a As String VD = Int(Rnd * 6 + 1) dif = (VD / 2) - Int(VD / 2) If dif <= 0 Then dice = "Pair" Else: dice = "odd" End If a = MsgBox(VD) End Function ```Public Function dice() As String Dim VD As Integer Dim dif As Double Dim a As String VD = Int(Rnd \* 6 + 1) dif = (VD / 2) - Int(VD / 2) If dif <= 0 Then dice = "Pair" Else: dice = "odd" End If a = MsgBox(VD) End Function
Alvaro Huaiquilef

Alvaro Huaiquilef

hace 6 meses
```txt Public Function cartas() As String Dim color As String Dim numCarta As Integer Dim figuraCarta As String Dim pinta As String Dim mensaje As String color = InputBox("Elige un color de cartas: ") Select Case color Case Is = "rojo" color = "rojo" Case Is = "azul" color = "azul" Case Else color = "Color no válido, por favor elige entre los colores azul y rojo" End Select numCarta = Int(Rnd * 13) + 1 If numCarta = 1 Then figuraCarta = "As" ElseIf numCarta = 11 Then figuraCarta = "J" ElseIf numCarta = 12 Then figuraCarta = "Q" ElseIf numCarta = 13 Or 15 Then figuraCarta = "K" Else: figuraCarta = 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 End If pintaCartas = Int(Rnd * 4) + 1 If pintaCartas = 1 Then pinta = "Diamantes" ElseIf pintaCartas = 2 Then pinta = "Picas" ElseIf pintaCartas = 3 Then pinta = "Corazones" Else: pinta = "Trébol" End If mensaje = MsgBox("Elegiste la carta de color " & color & ", te salió " & figuraCarta & " de " & pinta) End Function ```
Dante Silva Calderón

Dante Silva Calderón

hace 8 meses
```js Public Function carta() As String Dim CT As Integer Dim Color As Integer Dim Simbolo As Integer Dim a CT = Int((Rnd * 6) + 1) Color = Int((Rnd * 2) + 1) Simbolo = Int((Rnd * 2) + 1) If CT = 1 And Color = 1 And Simbolo = 1 Then carta = "1, rojo, corazon" ElseIf CT = 2 And Color = 1 And Simbolo = 1 Then carta = "2, rojo, corazon" ElseIf CT = 3 And Color = 1 And Simbolo = 1 Then carta = "3, rojo, corazon" ElseIf CT = 4 And Color = 1 And Simbolo = 1 Then carta = "4, rojo, corazon" ElseIf CT = 5 And Color = 1 And Simbolo = 1 Then carta = "5, rojo, corazon" ElseIf CT = 6 And Color = 1 And Simbolo = 1 Then carta = "6, rojo, corazon" ElseIf CT = 7 And Color = 1 And Simbolo = 1 Then carta = "7, rojo, corazon" ElseIf CT = 8 And Color = 1 And Simbolo = 1 Then carta = "8, rojo, corazon" ElseIf CT = 9 And Color = 1 And Simbolo = 1 Then carta = "9, rojo, corazon" ElseIf CT = 10 And Color = 1 And Simbolo = 1 Then carta = "10, rojo, corazon" ElseIf CT = 11 And Color = 1 And Simbolo = 1 Then carta = "J, rojo, corazon" ElseIf CT = 12 And Color = 1 And Simbolo = 1 Then carta = "Q, rojo, corazon" ElseIf CT = 13 And Color = 1 And Simbolo = 1 Then carta = "K, rojo, corazon" '---------------' ElseIf CT = 1 And Color = 1 And Simbolo = 2 Then carta = "1, rojo, rombo" ElseIf CT = 2 And Color = 1 And Simbolo = 2 Then carta = "2, rojo, rombo" ElseIf CT = 3 And Color = 1 And Simbolo = 2 Then carta = "3, rojo, rombo" ElseIf CT = 4 And Color = 1 And Simbolo = 2 Then carta = "4, rojo, rombo" ElseIf CT = 5 And Color = 1 And Simbolo = 2 Then carta = "5, rojo, rombo" ElseIf CT = 6 And Color = 1 And Simbolo = 2 Then carta = "6, rojo, rombo" ElseIf CT = 7 And Color = 1 And Simbolo = 2 Then carta = "7, rojo, rombo" ElseIf CT = 8 And Color = 1 And Simbolo = 2 Then carta = "8, rojo, rombo" ElseIf CT = 9 And Color = 1 And Simbolo = 2 Then carta = "9, rojo, rombo" ElseIf CT = 10 And Color = 1 And Simbolo = 2 Then carta = "10, rojo, rombo" ElseIf CT = 11 And Color = 1 And Simbolo = 2 Then carta = "J, rojo, rombo" ElseIf CT = 12 And Color = 1 And Simbolo = 2 Then carta = "Q, rojo, rombo" ElseIf CT = 13 And Color = 1 And Simbolo = 2 Then carta = "K, rojo, rombo" '---------------' ElseIf CT = 1 And Color = 2 And Simbolo = 1 Then carta = "1, negro, pika" ElseIf CT = 2 And Color = 2 And Simbolo = 1 Then carta = "2, negro, pika" ElseIf CT = 3 And Color = 2 And Simbolo = 1 Then carta = "3, negro, pika" ElseIf CT = 4 And Color = 2 And Simbolo = 1 Then carta = "4, negro, pika" ElseIf CT = 5 And Color = 2 And Simbolo = 1 Then carta = "5, negro, pika" ElseIf CT = 6 And Color = 2 And Simbolo = 1 Then carta = "6, negro, pika" ElseIf CT = 7 And Color = 2 And Simbolo = 1 Then carta = "7, negro, pika" ElseIf CT = 8 And Color = 2 And Simbolo = 1 Then carta = "8, negro, pika" ElseIf CT = 9 And Color = 2 And Simbolo = 1 Then carta = "9, negro, pika" ElseIf CT = 10 And Color = 2 And Simbolo = 1 Then carta = "10, negro, pika" ElseIf CT = 11 And Color = 2 And Simbolo = 1 Then carta = "J, negro, pika" ElseIf CT = 12 And Color = 2 And Simbolo = 1 Then carta = "Q, negro, pika" ElseIf CT = 13 And Color = 2 And Simbolo = 1 Then carta = "K, negro, pika" '---------------' ElseIf CT = 1 And Color = 2 And Simbolo = 2 Then carta = "1, negro, trebol" ElseIf CT = 2 And Color = 2 And Simbolo = 2 Then carta = "2, negro, trebol" ElseIf CT = 3 And Color = 2 And Simbolo = 2 Then carta = "3, negro, trebol" ElseIf CT = 4 And Color = 2 And Simbolo = 2 Then carta = "4, negro, trebol" ElseIf CT = 5 And Color = 2 And Simbolo = 2 Then carta = "5, negro, trebol" ElseIf CT = 6 And Color = 2 And Simbolo = 2 Then carta = "6, negro, trebol" ElseIf CT = 7 And Color = 2 And Simbolo = 2 Then carta = "7, negro, trebol" ElseIf CT = 8 And Color = 2 And Simbolo = 2 Then carta = "8, negro, trebol" ElseIf CT = 9 And Color = 2 And Simbolo = 2 Then carta = "9, negro, trebol" ElseIf CT = 10 And Color = 2 And Simbolo = 2 Then carta = "10, negro, trebol" ElseIf CT = 11 And Color = 2 And Simbolo = 2 Then carta = "J, negro, trebol" ElseIf CT = 12 And Color = 2 And Simbolo = 2 Then carta = "Q, negro, trebol" ElseIf CT = 13 And Color = 2 And Simbolo = 2 Then carta = "K, negro, trebol" End If a = MsgBox(CT) + MsgBox(Color) + MsgBox(Simbolo) End Function ```Public Function carta() As String Dim CT As Integer Dim Color As Integer Dim Simbolo As Integer Dim a CT = Int((Rnd \* 6) + 1) Color = Int((Rnd \* 2) + 1) Simbolo = Int((Rnd \* 2) + 1) If CT = 1 And Color = 1 And Simbolo = 1 Then carta = "1, rojo, corazon" ElseIf CT = 2 And Color = 1 And Simbolo = 1 Then carta = "2, rojo, corazon" ElseIf CT = 3 And Color = 1 And Simbolo = 1 Then carta = "3, rojo, corazon" ElseIf CT = 4 And Color = 1 And Simbolo = 1 Then carta = "4, rojo, corazon" ElseIf CT = 5 And Color = 1 And Simbolo = 1 Then carta = "5, rojo, corazon" ElseIf CT = 6 And Color = 1 And Simbolo = 1 Then carta = "6, rojo, corazon" ElseIf CT = 7 And Color = 1 And Simbolo = 1 Then carta = "7, rojo, corazon" ElseIf CT = 8 And Color = 1 And Simbolo = 1 Then carta = "8, rojo, corazon" ElseIf CT = 9 And Color = 1 And Simbolo = 1 Then carta = "9, rojo, corazon" ElseIf CT = 10 And Color = 1 And Simbolo = 1 Then carta = "10, rojo, corazon" ElseIf CT = 11 And Color = 1 And Simbolo = 1 Then carta = "J, rojo, corazon" ElseIf CT = 12 And Color = 1 And Simbolo = 1 Then carta = "Q, rojo, corazon" ElseIf CT = 13 And Color = 1 And Simbolo = 1 Then carta = "K, rojo, corazon" '---------------' ElseIf CT = 1 And Color = 1 And Simbolo = 2 Then carta = "1, rojo, rombo" ElseIf CT = 2 And Color = 1 And Simbolo = 2 Then carta = "2, rojo, rombo" ElseIf CT = 3 And Color = 1 And Simbolo = 2 Then carta = "3, rojo, rombo" ElseIf CT = 4 And Color = 1 And Simbolo = 2 Then carta = "4, rojo, rombo" ElseIf CT = 5 And Color = 1 And Simbolo = 2 Then carta = "5, rojo, rombo" ElseIf CT = 6 And Color = 1 And Simbolo = 2 Then carta = "6, rojo, rombo" ElseIf CT = 7 And Color = 1 And Simbolo = 2 Then carta = "7, rojo, rombo" ElseIf CT = 8 And Color = 1 And Simbolo = 2 Then carta = "8, rojo, rombo" ElseIf CT = 9 And Color = 1 And Simbolo = 2 Then carta = "9, rojo, rombo" ElseIf CT = 10 And Color = 1 And Simbolo = 2 Then carta = "10, rojo, rombo" ElseIf CT = 11 And Color = 1 And Simbolo = 2 Then carta = "J, rojo, rombo" ElseIf CT = 12 And Color = 1 And Simbolo = 2 Then carta = "Q, rojo, rombo" ElseIf CT = 13 And Color = 1 And Simbolo = 2 Then carta = "K, rojo, rombo" '---------------' ElseIf CT = 1 And Color = 2 And Simbolo = 1 Then carta = "1, negro, pika" ElseIf CT = 2 And Color = 2 And Simbolo = 1 Then carta = "2, negro, pika" ElseIf CT = 3 And Color = 2 And Simbolo = 1 Then carta = "3, negro, pika" ElseIf CT = 4 And Color = 2 And Simbolo = 1 Then carta = "4, negro, pika" ElseIf CT = 5 And Color = 2 And Simbolo = 1 Then carta = "5, negro, pika" ElseIf CT = 6 And Color = 2 And Simbolo = 1 Then carta = "6, negro, pika" ElseIf CT = 7 And Color = 2 And Simbolo = 1 Then carta = "7, negro, pika" ElseIf CT = 8 And Color = 2 And Simbolo = 1 Then carta = "8, negro, pika" ElseIf CT = 9 And Color = 2 And Simbolo = 1 Then carta = "9, negro, pika" ElseIf CT = 10 And Color = 2 And Simbolo = 1 Then carta = "10, negro, pika" ElseIf CT = 11 And Color = 2 And Simbolo = 1 Then carta = "J, negro, pika" ElseIf CT = 12 And Color = 2 And Simbolo = 1 Then carta = "Q, negro, pika" ElseIf CT = 13 And Color = 2 And Simbolo = 1 Then carta = "K, negro, pika" '---------------' ElseIf CT = 1 And Color = 2 And Simbolo = 2 Then carta = "1, negro, trebol" ElseIf CT = 2 And Color = 2 And Simbolo = 2 Then carta = "2, negro, trebol" ElseIf CT = 3 And Color = 2 And Simbolo = 2 Then carta = "3, negro, trebol" ElseIf CT = 4 And Color = 2 And Simbolo = 2 Then carta = "4, negro, trebol" ElseIf CT = 5 And Color = 2 And Simbolo = 2 Then carta = "5, negro, trebol" ElseIf CT = 6 And Color = 2 And Simbolo = 2 Then carta = "6, negro, trebol" ElseIf CT = 7 And Color = 2 And Simbolo = 2 Then carta = "7, negro, trebol" ElseIf CT = 8 And Color = 2 And Simbolo = 2 Then carta = "8, negro, trebol" ElseIf CT = 9 And Color = 2 And Simbolo = 2 Then carta = "9, negro, trebol" ElseIf CT = 10 And Color = 2 And Simbolo = 2 Then carta = "10, negro, trebol" ElseIf CT = 11 And Color = 2 And Simbolo = 2 Then carta = "J, negro, trebol" ElseIf CT = 12 And Color = 2 And Simbolo = 2 Then carta = "Q, negro, trebol" ElseIf CT = 13 And Color = 2 And Simbolo = 2 Then carta = "K, negro, trebol" End If a = MsgBox(CT) + MsgBox(Color) + MsgBox(Simbolo) End Function
Lazaro Rogel

Lazaro Rogel

hace 8 meses
Bueno, yo primero entendí que era la baraja española y lo hice de esa forma y después lo hice para la baraja americana. Para baraja americana ```js Public Function cart_poker() As String Dim NCart As Integer Dim MCart As Integer Dim NumC As String Dim MazoC As String Dim ColorC As String Dim a NCart = Int((Rnd * 13) + 1) MCart = Int((Rnd * 4) + 1) If NCart = 1 Then NumC = "As" ElseIf NCart = 11 Then NumC = "Jota" ElseIf NCart = 12 Then NumC = "Reina" ElseIf NCart = 13 Then NumC = "Rey" Else: NumC = NCart End If If MCart = 1 Then MazoC = "Diamantes" ColorC = "Rojo" ElseIf MCart = 2 Then MazoC = "Picas" ColorC = "Negro" ElseIf MCart = 3 Then MazoC = "Corazones" ColorC = "Rojo" Else: MazoC = "Trébol" ColorC = "Negro" End If a = MsgBox("La carta es " & NumC & " de " & MazoC & " de color " & ColorC, , "Cartas de Poker") End Function ```Y para la española este es el código ```js Public Function cartas_espa() As String Dim NumCar As Integer Dim MazoCar As Integer Dim Carta As String Dim Mazo As String Dim a NumCar = Int((Rnd * 10) + 1) If NumCar > 7 Then NumCar = NumCar + 2 End If If NumCar = 1 Then Carta = "As" ElseIf NumCar = 10 Then Carta = "Sota" ElseIf NumCar = 11 Then Carta = "Caballo" ElseIf NumCar = 12 Then Carta = "Rey" Else: Carta = NumCar End If MazoCar = Int((Rnd * 4) + 1) If MazoCar = 1 Then Mazo = "Oros" ElseIf MazoCar = 2 Then Mazo = "Copas" ElseIf MazoCar = 3 Then Mazo = "Espadas" Else: Mazo = "Bastos" End If a = MsgBox("La carta es " & Carta & " de " & Mazo, , "Cartas") End Function ```
Minor Pereira

Minor Pereira

hace 9 meses
![](https://static.platzi.com/media/user_upload/image-2402887b-457f-4bd4-af1e-2bcecd4ee620.jpg)
Jonathan Iván Gordillo León

Jonathan Iván Gordillo León

hace 9 meses
```js Function Cartas() As String Dim Num As Integer Dim sim As Integer Dim col As Integer Dim qNum As String Dim qsim As String Dim qcol As String Num = Int((Rnd * 13) + 1) sim = Int((Rnd * 4) + 1) col = Int((Rnd * 2) + 1) If Num = 1 Then qNum = "As" ElseIf Num = 11 Then qNum = "Jota" ElseIf Num = 12 Then qNum = "Reina" ElseIf Num = 13 Then qNum = "Rey" Else: qNum = Num End If If sim = 1 Then qsim = "Corazones" ElseIf sim = 2 Then qsim = "Tréboles" ElseIf sim = 3 Then qsim = "Picas" Else: qsim = "Diamantes" End If If col = 1 Then qcol = "Rojas" Else: qcol = "Negras" End If Cartas = MsgBox("Tu carta es el: " & qNum & " " & qcol & " de " & qsim) End Function ```Function Cartas() As String Dim Num As Integer Dim sim As Integer Dim col As Integer Dim qNum As String Dim qsim As String Dim qcol As String Num = Int((Rnd \* 13) + 1) sim = Int((Rnd \* 4) + 1) col = Int((Rnd \* 2) + 1) If Num = 1 Then qNum = "As" ElseIf Num = 11 Then qNum = "Jota" ElseIf Num = 12 Then qNum = "Reina" ElseIf Num = 13 Then qNum = "Rey" Else: qNum = Num End If If sim = 1 Then qsim = "Corazones" ElseIf sim = 2 Then qsim = "Tréboles" ElseIf sim = 3 Then qsim = "Picas" Else: qsim = "Diamantes" End If If col = 1 Then qcol = "Rojas" Else: qcol = "Negras" End If Cartas = MsgBox("Tu carta es el: " & qNum & " " & qcol & " de " & qsim) End Function
Yorvi Antonio Reyes Cedeño

Yorvi Antonio Reyes Cedeño

hace 9 meses
Un ejemplo de como quedaría haciendo un deck de cartas, se puede mejorar agregando condiciones para indicar que cuando numero = 1 sea un As, o 11, 12 y 13 que sean J, Q y K respectivamente![](https://static.platzi.com/media/user_upload/image-2184319f-b57a-426b-8687-4582c63b7d27.jpg)
Rogelio Pavel Hernandez Ibañez

Rogelio Pavel Hernandez Ibañez

hace 9 meses
Realice el ejercicio de las cartas, pero utilice la Baraja Española que son menos cartas, pero eso no significa que sea menos complejo. ![](https://static.platzi.com/media/user_upload/If%20Then%201-2bc88999-a00f-4a5f-90a1-bc7c313b79b3.jpg) ![](https://static.platzi.com/media/user_upload/If%20Then%202-5c114e6d-686f-401e-96e4-c23032bb1f18.jpg) ![](https://static.platzi.com/media/user_upload/If%20Then%203-efcbba3a-8f77-4ea2-867a-4c9a5e836cbd.jpg) ![](https://static.platzi.com/media/user_upload/If%20Then%20Resultado-73cf5f58-a60e-484c-9711-42d342111c29.jpg)
Leidy Johanna Rojas Marin

Leidy Johanna Rojas Marin

hace 10 meses
Prueba de condicionales y números aleatorios: * Definiendo el color y pinta de una baraja de cartas ![](https://static.platzi.com/media/user_upload/Ejercicio5_If-Then-05862547-7972-4718-9e0e-6ea3fc0651a2.jpg)
Marco Antonio Valdez Cornejo

Marco Antonio Valdez Cornejo

hace 10 meses
Me plantee un caso donde las posibilidades fueran mas extensas que 6 escenarios, con la intención de describir como par/impar un resultado entre muchos. ![](https://static.platzi.com/media/user_upload/Screenshot_1-065542e1-38ff-4ce5-bf6f-43b47f3ec818.jpg)
Leonardo Acosta Castro

Leonardo Acosta Castro

hace 10 meses
![](https://static.platzi.com/media/user_upload/IF%20-%20THEN2-38e6bb9e-6985-4265-86b8-ad4bfcaaa318.jpg) ![](https://static.platzi.com/media/user_upload/IF%20-%20THEN-ae16f923-8a7c-4113-a523-b56affddb496.jpg) Listos
Santiago Muñoz

Santiago Muñoz

hace un año
![](https://static.platzi.com/media/user_upload/image-1360d171-7722-42b3-ae27-1903055eda23.jpg)![](https://static.platzi.com/media/user_upload/image-edb3f461-3e75-4b53-83be-ffb8e880579f.jpg)
Diana María Palencia Díaz

Diana María Palencia Díaz

hace un año
![](https://static.platzi.com/media/user_upload/image-7bba8cf9-5d00-4628-95e4-d9bdb93367ed.jpg) ![](https://static.platzi.com/media/user_upload/image-64e64dc5-bca2-4148-99d3-e8479f4dea31.jpg) Este fue mi resultado de la prueba
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Num As Integer Dim Tp As Integer Dim x Num = (Rnd \* 12) + 1 Tp = (Rnd \* 3) + 1 If Tp = 1 Then TCard = "picas" ElseIf Tp = 2 Then TCard = "trebol" ElseIf Tp = 3 Then TCard = "corazones" Else: TCard = "diamantes" End If If Tp = "1" Then ccard = "negro" ElseIf Tp = "2" Then ccard = "negro" ElseIf Tp = "3" Then ccard = "Rojo" Else: Tp = "4" ccard = "Rojo" End If Card = ccard & " " & Num & " de " & TCard x = MsgBox(Card) End Function
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Num As Integer Dim Tp As Integer Dim x Num = (Rnd \* 12) + 1 Tp = (Rnd \* 3) + 1 If Tp = 1 Then TCard = "picas" ElseIf Tp = 2 Then TCard = "trebol" ElseIf Tp = 3 Then TCard = "corazones" Else: TCard = "diamantes" End If If Tp = "1" Then colcard = "negro" ElseIf Tp = "2" Then colcard = "negro" ElseIf Tp = "3" Then colcard = "Rojo" Else: Tp = "4" colcard = "Rojo" End If Card = Num & " de " & TCard & " color " & colcard x = MsgBox(Card) End Function
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Num As Integer Dim Tp As Integer Dim x Num = (Rnd \* 12) + 1 Tp = (Rnd \* 3) + 1 If Tp = 1 Then TCard = "picas" ElseIf Tp = 2 Then TCard = "trebol" ElseIf Tp = 3 Then TCard = "corazones" Else: TCard = "diamantes" End If If Tp = "1" Then colcard = "negro" ElseIf Tp = "2" Then colcard = "negro" ElseIf Tp = "3" Then colcard = "Rojo" Else: Tp = "4" colcard = "Rojo" End If x = MsgBox(Num & " de " & TCard & " color " & colcard) End Function
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Rvalor As Integer Dim x Rvalor = (Rnd \* 23) + 1 If Rvalor <= 12 Then Card = "corazones roja" Else: Card = "picas negras" End If x = MsgBox(Rvalor) End Function
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Rvalor As Integer Dim x Rvalor = (Rnd \* 12) + 1 Or (Rnd \* 23) + 1 If Rvalor <= 12 Then Card = "corazones roja" Else: Card = "picas negras" End If x = MsgBox(Rvalor) End Function
Wilmar javier leon ramos

Wilmar javier leon ramos

hace un año
Public Function Card() As String Dim Rvalor As Integer Dim x Rvalor = (Rnd \* 2) + 1 If Rvalor = 1 Then Card = "roja" Else: Card = "negras" End If x = MsgBox(Rvalor) End Function
Libardo Adolfo Niño Moreno

Libardo Adolfo Niño Moreno

hace un año
![](https://static.platzi.com/media/user_upload/image-ccc99906-ac89-447a-9166-ccbe695cf78b.jpg)
Libardo Adolfo Niño Moreno

Libardo Adolfo Niño Moreno

hace un año
![](https://static.platzi.com/media/user_upload/image-14323852-ae96-4351-8294-faa6e09b05ac.jpg)
HELVERT TORRES

HELVERT TORRES

hace un año
Buenas tardes. Este es mi código para la carta seleccionada de poker:```js Public Function poker() As String Dim a Dim carta As String Dim palo As String Dim palo_num As Integer Dim color As String carta = Int((Rnd * 13) + 1) Select Case carta Case Is = 1 carta = "A" Case Is = 11 carta = "J" Case Is = 12 carta = "Q" Case Is = 13 carta = "K" End Select palo_num = Int((Rnd * 4) + 1) Select Case palo_num Case Is = 1 palo = "Corazones" Case Is = 2 palo = "Picas" Case Is = 3 palo = "Diamantes" Case Is = 4 palo = "Trebol" End Select If palo = "Corazones" Then color = "Rojo" ElseIf palo = "Diamantes" Then color = "Rojo" Else: color = "Negro" End If a = MsgBox("La carta elegida es: " & carta & " " & "de " & palo & " " & color, , "Carta Lanzada") End Function ```Public Function poker() As String Dim a Dim carta As String Dim palo As String Dim palo\_num As Integer Dim color As String carta = Int((Rnd \* 13) + 1) Select Case carta Case Is = 1 carta = "A" Case Is = 11 carta = "J" Case Is = 12 carta = "Q" Case Is = 13 carta = "K" End Select palo\_num = Int((Rnd \* 4) + 1) Select Case palo\_num Case Is = 1 palo = "Corazones" Case Is = 2 palo = "Picas" Case Is = 3 palo = "Diamantes" Case Is = 4 palo = "Trebol" End Select If palo = "Corazones" Then color = "Rojo" ElseIf palo = "Diamantes" Then color = "Rojo" Else: color = "Negro" End If a = MsgBox("La carta elegida es: " & carta & " " & "de " & palo & " " & color, , "Carta Lanzada") End Function
HELVERT TORRES

HELVERT TORRES

hace un año
Buenas tardes
Lina Ospina

Lina Ospina

hace un año
Amazing!![](https://static.platzi.com/media/user_upload/image-3a273200-a182-4606-9ed3-0f3349094568.jpg)![](https://static.platzi.com/media/user_upload/image-8e18f1c8-d86d-41dd-9636-0b50d00c209a.jpg)![](https://static.platzi.com/media/user_upload/image-5b8b697e-5931-452f-83be-08fe3436df42.jpg)
Erick Escobar

Erick Escobar

hace un año
En VBA tambien tenemos el operador módulo lo que permite acortar un poco más el código. ```txt Public Function dado() As String Dim VD As Integer Dim a VD = Application.WorksheetFunction.RandBetween(1, 6) If VD Mod 2 = 0 Then dado = "par" Else: dado = "impar" End If a = MsgBox(VD) End Function ```
Erick Escobar

Erick Escobar

hace un año
Me pregunto si se pueden guardar funciones nativas de excel en variables y luego como se llamaria a esas variables.
Juan José Higuita Echavarría

Juan José Higuita Echavarría

hace un año
Resolviendo el reto: ![](https://static.platzi.com/media/user_upload/image-bfe20a70-5272-47a7-833f-859965335be7.jpg)
Milton Jairo Morales de los Ríos

Milton Jairo Morales de los Ríos

hace un año
Public Function cartas() As String Dim cart As Integer Dim b cart = (Rnd \* 15) + 1 If cart = 3 Then cartas = "multiplo de 3" ElseIf cart = 6 Then cartas = "multiplo de 3" ElseIf cart = 9 Then cartas = "multiplo de 3" ElseIf cart = 12 Then cartas = "multiplo de 3" ElseIf cart = 15 Then cartas = "multiplo de 3" Else: cartas = "no es multiplo" End If b = MsgBox(cart) End Function
Milton Jairo Morales de los Ríos

Milton Jairo Morales de los Ríos

hace un año
Public Function dado() As String Dim vd As Integer Dim a vd = (Rnd \* 6) + 1 If vd = 2 Then dado = "par" ElseIf vd = 4 Then dado = "par" ElseIf vd = 6 Then dado = "par" Else: dado = "impar2" End If a = MsgBox(vd) End Function Public Function cartas() As String Dim cart As Integer Dim b cart = (Rnd \* 15) + 1 If cart = 3 Then cartas = "multiplo de 3" ElseIf cart = 6 Then cartas = "multiplo de 3" ElseIf cart = 9 Then cartas = "multiplo de 3" ElseIf cart = 12 Then cartas = "multiplo de 3" ElseIf cart = 15 Then cartas = "multiplo de 3" Else: cartas = "no es multiplo" End If b = MsgBox(cart) End Function
Alejo Lemos

Alejo Lemos

hace un año
Una forma más simple de hacerlo es utilizando la función Módulo.```js Public Function dado() As String Dim VD As Integer Dim a VD = Int(Rnd * 6 + 1) If VD Mod 2 = 0 Then dado = "Par" Else: dado = "Impar" End If a = MsgBox(VD) End Function ```
Alejo Lemos

Alejo Lemos

hace un año
Una forma más simple de hacerlo es utilizando la función Módulo. ```js Public Function dado() As String Dim VD As Integer Dim a VD = Int(Rnd * 6 + 1) If VD Mod 2 = 0 Then dado = "Par" Else: dado = "Impar" End If a = MsgBox(VD) End Function ```Public Function dado() As String Dim VD As Integer Dim a VD = Int(Rnd \* 6 + 1) If VD Mod 2 = 0 Then dado = "Par" Else: dado = "Impar" End If a = MsgBox(VD) End Function
Eduardo Ortiz Romero

Eduardo Ortiz Romero

hace un año
`Public Function dado() As String` ` Dim VD As Integer` ` VD = Int(Rnd * 6 + 1)` ` Dim residuo As Integer` ` ` ` residuo = VD Mod 2` ` ` ` If residuo = 0 Then` ` dado = VD & " Es par"` ` Else` ` dado = VD & " Es impar"` ` End If` ` ` `End Function`
Julián Gutiérrez

Julián Gutiérrez

hace un año
Se hubiese podido optimizar usando Select Case, creería.
Jose Angel Esquivel Cisneros

Jose Angel Esquivel Cisneros

hace un año
```txt Public Function dado() As String Dim a Dim VD As Integer VD = Int((Rnd * 6) + 1) a = VD Mod 2 If a = 0 Then dado = "Par," & VD Else: dado = "Impar," & VD End If End Function ```Public Function dado() As String Dim a Dim VD As Integer VD = Int((Rnd \* 6) + 1) a = VD Mod 2 If a = 0 Then dado = "Par," & VD Else: dado = "Impar," & VD End If End Function
Rosmer Edgar Minchola Gutierrez

Rosmer Edgar Minchola Gutierrez

hace un año
```txt Sub getCard() 'Definición de variables Dim i As Integer Dim j As Integer Dim varColors As Variant Dim varSuit As Variant Dim varCards As Variant 'Generación de arrays varSuit = Array(Cells(3, 1).Value, Cells(4, 1).Value, Cells(5, 1).Value, Cells(6, 1).Value) varCards = Array("A", 2, 3, 4, 5, 6, 7, 8, 9, 10, "J", "Q", "K") varColors = Array(1, 10, 3, 5) i = Int(Rnd() * 4) j = Int(Rnd() * 13) Cells(1, 1).Value = varCards(j) & varSuit(i) Cells(1, 1).Font.ColorIndex = varColors(i) End Sub ```
Rosmer Edgar Minchola Gutierrez

Rosmer Edgar Minchola Gutierrez

hace un año
Estaba haciendo el reto de las cartas con condicionales **in then**, sin embargo se me complicó y lo hice usando aleatorios combinado con arrays. En la celda A1 mediante un boton, se genera una carta aleatoria. `Sub getCard()` ` Dim i As Integer` ` Dim j As Integer` ` Dim card As String` ` Dim varColors As Variant` ` Dim varSuit As Variant` ` Dim varCards As Variant` ` ` ` varSuit = Array(Cells(3, 1).Value, Cells(4, 1).Value, Cells(5, 1).Value, Cells(6, 1).Value)` ` varCards = Array("A", 2, 3, 4, 5, 6, 7, 8, 9, 10, "J", "Q", "K")` ` varColors = Array(1, 10, 3, 5)` ` ` ` i = Int(Rnd() * 4)` ` j = Int(Rnd() * 13)` ` Cells(1, 1).Value = varCards(j) & varSuit(i)` ` ` ` Cells(1, 1).Font.ColorIndex = varColors(i)` ` Cells(1, 1).Font.TintAndShade = 0` `End Sub` Usando condicionales también quedó igual, pero al final fui simplificando... ![](file:///C:/Users/rminchola/Pictures/Screenshots/cards1.png)![](https://static.platzi.com/media/user_upload/cards1-ed8012d7-dfc7-48f7-86ed-eacaaf0214ae.jpg) ![](file:///C:/Users/rminchola/Pictures/Screenshots/cards2.png)![](https://static.platzi.com/media/user_upload/cards2-f860515e-f87c-4cae-bc19-b59a3d58b943.jpg)
Adonay Alfaro

Adonay Alfaro

hace un año
![](https://static.platzi.com/media/user_upload/image-529aaf10-b00d-4ef5-be50-d05e5f4dd5b9.jpg)
Juan Carlos Cantuña cacarin

Juan Carlos Cantuña cacarin

hace 2 años

Mi ejercicio de IF THEM

Juan Felipe Vásquez Uribe

Juan Felipe Vásquez Uribe

hace 2 años

Les comparto mi ejemplo

Public Function Cartas() As String

    Dim valor_palo As Integer
    Dim valor_naipe As Integer
    Dim palo As String
    Dim msg
    
    valor_palo = Int((Rnd * 4) + 1)
    
    If valor_palo = 1 Then
        palo = "Corazones"
        
        ElseIf valor_palo = 2 Then
            palo = "Diamantes"
        
        ElseIf valor_palo = 3 Then
            palo = "Trebol"
        
        Else
            palo = "Picas"
    
    End If
    
    valor_naipe = Int((Rnd * 13) + 1)
    
    If valor_naipe = 1 Then
        naipe = "As"
        
        ElseIf valor_naipe = 11 Then
            naipe = "J"
        
        ElseIf valor_naipe = 12 Then
            naipe = "Q"
        
        ElseIf valor_naipe = 13 Then
            naipe = "K"
            
        Else
            naipe = valor_naipe
        
    End If
    
    msg = MsgBox(naipe & " de " & palo, , "Baraja Inglesa")
    
End Function
Manuel de Jesus Rivas Coronel

Manuel de Jesus Rivas Coronel

hace 2 años
```js Public Function dado1() As String Dim VD As Integer Dim a VD = Int((Rnd * 6) + 1) If (VD Mod 2) = 0 Then dado1 = "Par" Else: dado1 = "Impar" End If a = MsgBox(VD) End Function ```Public Function dado1() As String Dim VD As Integer Dim a VD = Int((Rnd \* 6) + 1) If (VD Mod 2) = 0 Then dado1 = "Par" Else: dado1 = "Impar" End If a = MsgBox(VD) End Function
Edwin García

Edwin García

hace 2 años

Public Function cards() As String
Dim card
Dim color
Dim number
Dim cardnum
Dim a
number = Int((Rnd * 13) + 1)
card = Int((Rnd * 4) + 1)
If card = 1 Then
color = "Corazones"
ElseIf card = 2 Then
color = "Pica"
ElseIf card = 3 Then
color = "Diamantes"
Else:
color = "Treboles"
End If

If number >= 1 And number <= 10 Then
    cardnum = number
ElseIf number = 11 Then
    cardnum = "J"
ElseIf nuber = 12 Then
    cardnum = "Q"
Else:
    cardnum = "K"
End If
 a = MsgBox("Tu carta es " & cardnum & " de " & color)

End Function

Pablo Alejandro Figueroa

Pablo Alejandro Figueroa

hace 2 años

Muy buena clase…!

Pablo Alejandro Figueroa

Pablo Alejandro Figueroa

hace 2 años
Pablo Alejandro Figueroa

Pablo Alejandro Figueroa

hace 2 años
Maria Angélica Castañeda Urrego

Maria Angélica Castañeda Urrego

hace 2 años

Adjunto mi aporte

ZeroRoy

Ahí va la baraja:

'If - then practice

Public Function Deck() As String

    Dim symbol As Integer
    Dim number As Integer
    Dim symboldraw As String
    Dim numberdraw As String
        
    
    symbol = Int(Rnd() * 4 + 1)
    number = Int(Rnd() * 13 + 1)
    
    If symbol = 1 Then
        symboldraw = "Spades"
    ElseIf symbol = 2 Then
        symboldraw = "Hearts"
    ElseIf symbol = 3 Then
        symboldraw = "Diamonds"
    Else
        symboldraw = "Clubs"
    End If
    
    If number = 11 Then
        numberdraw = "Jack"
    ElseIf number = 12 Then
        numberdraw = "Queen"
    ElseIf number = 13 Then
        numberdraw = "King"
    ElseIf number = 1 Then
        numberdraw = "Ace"
    Else
        numberdraw = number
    End If
        
    Deck = "You draw the card " & numberdraw & " of " & symboldraw & "."
    
End Function
ZeroRoy
'If - then

Public Function DADO() As String

    Dim tiro As Integer
    tiro = Int((Rnd() * 6) + 1)
        
    If tiro Mod 2 = 0 Then
        DADO = "Es par: " & tiro
    Else
        DADO = "Es impar: " & tiro
    End If
    
End Function
Laura Rodriguez Treviño

Laura Rodriguez Treviño

hace 2 años
CESAR PEREZ

CESAR PEREZ

hace 2 años

Public Function carta() As String

Dim car As Integer
Dim a
    
car = Int((Rnd * 2))
If car = 0 Then
        cartas = "ROJO"
    Else: cartas = "NEGRO"
End If
        
a = MsgBox(cartas)

End Function

Irmin Corona 🐯

Irmin Corona 🐯

hace 2 años
Public Function dado() As String
    Dim VD As Integer

    ' This ensures the random number generator is seeded differently each time
    Randomize

    VD = Int(Rnd * 6) + 1

    ' Instead of multiple ElseIf conditions, use the Mod operator to determine even or odd
    If VD Mod 2 = 0 Then
        dado = "par"
    Else
        dado = "impar"
    End If

    ' Display the result in a message box
    MsgBox "El número generado es: " & VD & " y es " & dado

End Function
Jose Martin Sainpere Vegas

Jose Martin Sainpere Vegas

hace 2 años

El condicional “If-Then” en Excel es una poderosa herramienta para automatizar tareas. Permite establecer condiciones y acciones a seguir en macros, mejorando la eficiencia al procesar datos, resaltar celdas y más, según si se cumple una condición específica.

Jeinfferson Bernal G

Jeinfferson Bernal G

hace 2 años

Utiliza una funcion creada dentro de otra funcion

Tenemos la funcion IP la cual determina si un numero es par o impar

Ahora creamos la funcion dado3 la cual utiliza la funcion IP para determinar si la cara es par o impar

El resultado es el siguiente

Eduardo Rueda Alvarez

Eduardo Rueda Alvarez

hace 2 años

Saludos comunidad,

  • Les comparto una alternativa haciendo uso de la función MOD, esto nos permite reducir un poco el código:

  • En este ejemplo, la función MOD calcula el remanente de la división entre el valor de “VD” y 2.

  • Si el remanente es igual a 0, podemos decir que la división entre VD y 2 es exacta por lo que es correcto asumir que el valor es par.

  • En caso de que exista un remanente (a<>0), podemos decir que el valor es impar.

'ejemplo uso condiciones "if" "then"

Private Function dado() As String

    Dim VD As Integer
    VD = Int((Rnd * 6) + 1)
    
    Dim a As Integer
    a = VD Mod 2
    
    Dim b
    
    If a = 0 Then
        b = MsgBox("El valor del dado es: " & VD & " y el valor es par")
    ElseIf a <> 0 Then
        MsgBox ("El valor del dado es: " & VD & " y el valor es impar")
    End If
    
End Function
Carlos Servin

Carlos Servin

hace 2 años

Dejo mi respuesta al reto

Public Function Poker()
    Dim palo As String
    Dim Numero As Variant
    Numero = Int((13 * Rnd) + 1)
    palo = CStr(Int((4 * Rnd) + 1))

    Select Case palo
        Case "1"
            palo = "picas"
        Case "2"
            palo = "corazones"
        Case "3"
            palo = "diamantes"
        Case "4"
            palo = "tréboles"
    End Select
    
    If Numero = 1 Then
        Numero = "As"
    ElseIf Numero = 11 Then
        Numero = "J"
    ElseIf Numero = 12 Then
        Numero = "Q"
    ElseIf Numero = 13 Then
        Numero = "K"
    End If
    
    MsgBox Numero & " " & palo
 
End Function
Matías Daniel Napoli

Matías Daniel Napoli

hace 2 años
Juan Manuel Rodriguez Correa

Juan Manuel Rodriguez Correa

hace 2 años

Codigo que selecciona la carta aleateoriamente

Public Function carta() As String

Dim VC As Integer
Dim TP As Integer
Dim cartastring As String
Dim Palo As String

Dim a

Dim Resultado As Integer

'definimos el numero de la carta
VC = Int(Rnd * 13 + 1)
    ' Nombrar las cartas 1, 11, 12 y 13 como A, J, Q, K respectivamente
If VC = 1 Then
    cartastring = "A"
    ElseIf VC = "11" Then
        cartastring = "J"
    ElseIf VC = "12" Then
        cartastring = "Q"
    ElseIf VC = "13" Then
        cartastring = "K"
    Else: cartastring = VC
End If

'definimos el palo de la carta
TP = Int(Rnd * 4 + 1)
    Select Case TP
    Case Is = 1
        Palo = "Corazon"
    Case Is = 2
        Palo = "Diamante"
    Case Is = 3
        Palo = "Espada"
    Case Is = 4
        Palo = "Flor"
End Select
  
a = MsgBox("La carta seleccionada es " + cartastring + " de " + Palo)

End Function

GEORGE ROJAS

GEORGE ROJAS

hace 2 años

‘carta aleatoria’
‘1: as, 2: j, 3: q, 4: K’

Public Function carta() As String
Dim palo As Integer
Dim color As Integer
Dim cartacolor As String
Dim cartapalo As String
Dim a

color = Int(Rnd * 2) + 1
palo = Int(Rnd * 4) + 1

If color = 1 Then
    cartacolor = "rojo"
ElseIf color = 2 Then
    cartacolor = "negra"
End If

If palo = 1 Then
    cartapalo = "As"
ElseIf palo = 2 Then
    cartapalo = "Jota"
ElseIf palo = 3 Then
    cartapalo = "Reina"
Else
    cartapalo = "Rey"
End If

a = MsgBox("La carta seleccionada es: " & cartacolor & " " & cartapalo)

End Function

Hugo Andrés Cabrera Lagos

Hugo Andrés Cabrera Lagos

hace 2 años

Genial

Nicolás Morales Samaniego

Nicolás Morales Samaniego

hace 2 años


Julio Fonseca

Julio Fonseca

hace 2 años
Nicolas Leonardo Anicama Espinoza

Nicolas Leonardo Anicama Espinoza

hace 2 años


Tenía duda con el redondeo de Integer pero en VB tanto 0.1 como 0.9 lo redondea a 0

Maria Paoli

Maria Paoli

hace 2 años

Hola, hice el ejemplo del dado visto en clase con el operador Residuo, para evitar usar el Elseif cuando el rango de numeros es mas grande. Me dio el mismo resultado y no tengo que escribir todos los casos de Para ya que la compu lo hace solo.

Stuard Ore

Stuard Ore

hace 2 años
Juan Sebastian Ñungo Sanchez

Juan Sebastian Ñungo Sanchez

hace 2 años

Hola a todos,
Escribí unas líneas que te muestran un palo entre corazones, picas, diamantes y tréboles al azar. Es algo muy básico.

MARIA JOSE MARTINEZ CAMARGO

MARIA JOSE MARTINEZ CAMARGO

hace 2 años

Ejercicio de la clase

hugo enrique Alburqueque Guaylupo

hugo enrique Alburqueque Guaylupo

hace 2 años
Juan Esteban Bolívar Ferrer

Juan Esteban Bolívar Ferrer

hace 2 años

Ejercicio dados:

Juan Esteban Bolívar Ferrer

Juan Esteban Bolívar Ferrer

hace 2 años

Ejercicio dados

German Andres Perez

German Andres Perez

hace 2 años

Hola compañeros!

Les comparto 4 maneras de llegar al resultado que nos indica la profesora.

La primera es la mas Rudimentaria. Con los clásicos IF

Public Function dado() As String

    Dim Resultado_de_dado As Integer
    Resultado_de_dado = Int(Rnd * 6) + 1
    
    If Resultado_de_dado = 2 Then
            dado = "El resultado es " & Resultado_de_dado & ". Y es Par."
        ElseIf Resultado_de_dado = 4 Then
            dado = "El resultado es " & Resultado_de_dado & ". Y es Par."
        ElseIf Resultado_de_dado = 6 Then
            dado = "El resultado es " & Resultado_de_dado & ". Y es Par."
        Else:
        
            dado = "El resultado es " & Resultado_de_dado & ". Y es impar."
        End If

            
End Function

`Esta es Otra versión pero ahora aplicando agregando OR

Public Function dadoConOR() As String
    Dim Resultado_de_dado As Integer
    Resultado_de_dado = Int(Rnd * 6) + 1
    If Resultado_de_dado = 2 Or Resultado_de_dado = 4 Or Resultado_de_dado = 6 Then
            dadoConOR = "El resultado es " & Resultado_de_dado & ". Y es Par."
        Else:
            dadoConOR = "El resultado es " & Resultado_de_dado & ". Y es impar."
				End if
				Deebug.if
End Function

'Version con MOD (Para saber si es par o Impar sin tener que calcularlo)

Public Function dadoConMOD() As String

    Dim Resultado_de_dado As Integer
    Resultado_de_dado = Int(Rnd * 6) + 1
    
    If Resultado_de_dado Mod 2 = 0 Then
        dadoConMOD = "El resultado es " & Resultado_de_dado & ". Y es Par."
    Else
        dadoConMOD = "El resultado es " & Resultado_de_dado & ". Y es impar."
    End If
    
    Debug.Print
End Function

Y la ultima con MOD pero tambien usando la funcion ya existente.

Public Function dadoConMODyF() As String

    Dim Resultado_de_dado As Integer
    Resultado_de_dado = Application.WorksheetFunction.RandBetween(1, 6)
    
    If Resultado_de_dado Mod 2 = 0 Then
        dadoConMODyF = "El resultado es " & Resultado_de_dado & ". Y es Par."
    Else
        dadoConMODyF = "El resultado es " & Resultado_de_dado & ". Y es impar."
    End If
    
    Debug.Print
End Function