Jajajajajajajaj, a que me gano un corazoncito!!!
Public Sub prueba2()
Sheets("Hoja2").Select
Cells(1, 1) = "Al pie de la letra"
Range(Cells(2, 1), Cells(5, 1)) = "Un"
Range("B2:B5") = "Mensaje"
Range("C2:C5") = "Interesante"
Introducción a Macros y VBA
¿Qué es VBA y qué son las macros?
Espacio de VBA
Diagrama de flujo
Variables y tipos de datos
Funciones y subrutinas
Grabar y correr macros
Quiz: Introducción a Macros y VBA
Funciones y subrutinas
Sintaxis de funciones y subrutinas
Crear una función
Crear una subrutina
Message Box
Input Box
Select Case
If - Then
Ciclos For - Next
Ciclos Do While - Loop
Quiz: Funciones y subrutinas
Resumen y conclusión
Resumen y conclusión
No tienes acceso a esta clase
¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera
Aportes 167
Preguntas 6
Jajajajajajajaj, a que me gano un corazoncito!!!
Public Sub prueba2()
Sheets("Hoja2").Select
Cells(1, 1) = "Al pie de la letra"
Range(Cells(2, 1), Cells(5, 1)) = "Un"
Range("B2:B5") = "Mensaje"
Range("C2:C5") = "Interesante"
Aqui dejo mi resultado y el codigo
Public Sub prueba2()
Sheets("Sheet3").Select
Cells(1, 1) = "Hello Friend"
Cells(2, 2) = "This is a sample"
Cells(3, 3) = "about the proper usage"
Cells(4, 4) = "of VBA"
Range("A5:J5").Value = "See you in space, cowboy"
Range("A1:J5").Interior.Color = RGB(0, 0, 0)
Range("A1:J5").Font.Color = RGB(255, 255, 255)
Range("A1:J5").HorizontalAlignment = xlCenter
Range("A1:J5").Replace "", "*"
End Sub
Comparto mi Reto:
.
Eh realizado lo siguiente una operación junto a un mensaje.
Public Sub prueba3()
Sheets("Hoja3").Select
Cells(1, 2) = 5
Cells(2, 2) = 6
Cells(3, 1) = "Resultado"
Cells(3, 2).Formula = "=b1+b2"
Sheets("Hoja3").Range("B3").Style = "percent"
End Sub
Me mostraría de esta manera:
Espero un corazoncito de los Colombianos
Sheets("hoja1").Select
Cells(1, 1) = "oh gloria inmarcesible"
Cells(2, 1) = "oh jubilo inmortal"
Cells(3, 1) = "en surcos de dolores"
Cells(4, 1) = "el bien germina alla"
Range("E1:G2").Interior.Color = RGB(255, 255, 0)
Range("E3:G3").Interior.Color = RGB(0, 0, 255)
Range("E4:G4").Interior.Color = RGB(255, 0, 0)
Sheets("hoja2").Select
Cells(2, 2) = 3 * 2
Cells(2, 3) = 5 * 5
Cells(2, 4).Formula = "=b2 + c2"
MsgBox "Viva Colombia, se ha terminado de ejecutar la macro"
Public Sub prueba3()
Sheets(“Hoja1”).Select
Range(Cells(4, 4), Cells(7, 7)) = "Aquí te voy San Pedro!"
Cells(1, 1) = 23 * 35
End Sub
Hola, buen día!
Comparto mi ejercicio
De igual manera encontré esta URL con información que de pronto puede servir para más adelante.
Feliz día!
En Excel, una subrutina es un procedimiento sin resultado inmediato, a diferencia de una función. Esta subrutina se aplica directamente en la hoja de Excel. Los comentarios en el entorno de Visual Basic ofrecen orientación en el código sin alterar su funcionamiento. Puede crearse una subrutina pública o privada en un módulo, utilizando “Public Sub” para definir su inicio y asignarle un nombre. Las celdas se referencian mediante “Cells(fila, columna)”, numerando filas y columnas, donde “A” es 1, “B” es 2, etc. Mediante “Range(celdaInicial, celdaFinal)”, se pueden llenar rangos con información, incluso especificando letras y números para columnas y filas. La subrutina se ejecuta desde Visual Basic o el libro directamente, a través del botón “play” o F5. También es viable trabajar en hojas diferentes utilizando “Sheets(“nombre”).Select” para indicar dónde se aplicará la subrutina.
En VBA, Cells
es una propiedad de los objetos de la hoja de cálculo que te permite acceder y manipular celdas específicas en Excel. La sintaxis básica de Cells
es la siguiente:
Cells(Fila, Columna)
Donde:
Fila
es el número de fila de la celda que deseas acceder.Columna
es el número de columna de la celda que deseas acceder.Puedes utilizar valores numéricos para especificar la fila y la columna, o puedes usar referencias de celda en forma de letras para las columnas (por ejemplo, “A” para la columna A, “B” para la columna B, etc.).
Por ejemplo, para acceder a la celda en la primera fila y la segunda columna, puedes utilizar la siguiente línea de código:
Cells(1, 2)
Además, también puedes utilizar la propiedad Cells
junto con otras propiedades y métodos para referenciar rangos de celdas más extensos. Por ejemplo, puedes especificar un rango de celdas utilizando Cells
de la siguiente manera:
Range(Cells(FilaInicial, ColumnaInicial), Cells(FilaFinal, ColumnaFinal))
Donde:
FilaInicial
y ColumnaInicial
representan la primera celda del rango.FilaFinal
y ColumnaFinal
representan la última celda del rango.Por ejemplo, para seleccionar un rango de celdas desde la celda A1 hasta la celda B3, puedes utilizar el siguiente código:
Range(Cells(1, 1), Cells(3, 2))
Esta es una forma útil de trabajar con múltiples celdas a la vez y realizar operaciones en un rango específico de la hoja de cálculo.
Mi primera subrutina creada por mí
'vamos hacer otra subrutina
Public Sub prueba3()
Cells(5, 5) = "Hoy.."
Cells(6, 5) = "La vida me acaba de cambiar porque aprendí hacer funciones y subrutinas"
Range("E7:F8") = ":D"
End Sub
El más creativo jajaja
[](
Comparto mi tarea
Todavía sé que falta mucho pero ya estoy sintiendo que puedo crear cosas muy interesantes cuando expliquen como tomar los datos y agregarlos a una tabla .
Ejemplo de cálculo de impuestos.
Intenté realizar lo que sería un formato para registrar datos
Comparto el reto de esta clase:
Mi prueba :
Mi ejercicio
Creación de la subrutina:
Resultado:
Public Sub prueba2() 'Prueba de subrutina, las subrutinas no necesitan parametros, ya que haran un ajuste directo en el archivo de excel
Sheets("Test_Macros").Select 'Para seleccionar la hoja donde quiero que se ejecute la macro
Cells(1, 1) = "Hola Luis Jaramillo" 'Cells sirve para referenciar una celda dentro de la hoja de excel y se usa como sifuera coordenadas.
Range(Cells(2, 1), Cells(5, 1)) = "Prueba de rango" ' Este comando sirve para hacer rangos en la hoja de excel.
Range("A9:A20") = "Prueba de rango 2 con letras" 'Rango con letras
End Sub
Comparto mi ejercicio, interesante clase
Buen día,
adjunto mi aporte
Public Sub EnhancedPrueba()
' Reference the worksheet
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sheet2")
' Ask the user for input
Dim userInput As String
userInput = InputBox("Please enter a greeting to display:", "Enter Greeting")
' Check if the user provided input or clicked cancel
If userInput <> "" Then
ws.Cells(1, 1).Value = userInput
Else
ws.Cells(1, 1).Value = "Hola Mundo"
End If
' Color the cell background and change font color
ws.Cells(1, 1).Interior.Color = RGB(255, 217, 102) ' Light yellow
ws.Cells(1, 1).Font.Color = RGB(0, 112, 192) ' Dark blue
ws.Cells(1, 1).Font.Size = 14
ws.Cells(1, 1).Font.Bold = True
' Adding text to multiple cells and formatting them
ws.Range(ws.Cells(2, 2), ws.Cells(3, 3)).Value = "Platzi es lo mejor"
ws.Range(ws.Cells(2, 2), ws.Cells(3, 3)).Font.Italic = True
ws.Range(ws.Cells(2, 2), ws.Cells(3, 3)).Borders.LineStyle = xlContinuous
' Performing a simple calculation and placing the result in multiple cells
ws.Range("A3:A5").Formula = "=2*3"
' Auto-fit the columns to content width
ws.Columns("A:B").AutoFit
End Sub
Excelente herramienta
Comparto mi ejercicio
Superpoderosa herramienta! Magistral Clase!
Hola, esta es la actividad que hice de subrutinas
Public Sub InsertarDatos()
Sheets(“Hoja2”).Select
Cells(1, 1) = "Hola Mundo"
Cells(1, 1).Font.Bold = True
Range(Cells(3, 1), Cells(3, 2)).Merge
Range(Cells(3, 1), Cells(3, 2)) = "Este es un ejercicio interesante"
Range(“A5:C5”).Merge
Range(“A5:C5”) = “Este es un ejercicio interesante x2”
End Sub
Al hacer que dentro de una subrutina se ejecuta una operación aritmética no hace que la subrutina nos arroje un resultado? lo cual contradice su definición que una subrutina no arroja un resultado
Que genial esta el curso.
😃
'we're going to do a subrutine'
Public Sub prueba2()
Sheets("prove").Select
Cells(1, 1) = "Hello world"
Range(Cells(2, 2), Cells(2, 10)) = "You can do it"
Range(Cells(3, 3), Cells(10, 3)) = "just do it"
Range(Cells(4, 4), Cells(5, 5)) = "do it"
Range("F3:F5") = "excel works it"
Range("F10:F12") = 8 * 5
Sheets("Hoja1").Select
Range("A1:R27") = 1
End Sub
Estos son mis resultados, esta genial
Buenas tardes
Les comparto mi codigo:
Public Sub prueba4()
Sheets(“Hoja3”).Select
Range(“a1”) = "Item"
Range(“a2”) = "PN"
Range(“a3”) = "shipped"
Range(“a4”) = "balance"
Range(“a5”) = "date"
Range(“a8”) = "Item"
Range(“b8”) = "PN"
Range(“c8”) = "shipped"
Range(“d8”) = "balance"
Range(“e8”) = “date”
End Sub
Mi sub rutina
Excel es lo mejor
Esto se pone interesante cada vez mas.
Veamos si ven la Referencia en mi Práctica. 👀
¿Quieres ver más aportes, preguntas y respuestas de la comunidad?