MACROS EXCEL

¿QUE ES UN MACRO?

Es una serie de instrucciones que se almacenan para que se puedan ejecutar de manera secuencial mediante una sola llamada u orden de ejecución. esta compuesto por una serie por unas instrucciones mas sencillas. Esto permite la automatización de tareas repetitivas. Ademas es un procesadores de texto, bases de datos, hojas de cálculo, que también se obtienen secuencia de acciones dentro de la aplicación que el usuario activa pulsando una combinación específica de teclas.



USO DE COLORES EN EXCEL CON MACROS.
Para obtener un macro que contenga colores necesitamos saber el "código o la enumeración respectivas para la obtención de dichos colores" aquí nos muestran la enumeración de cada color.

MACRO DE CONTEO

Lo primero es personalizar el formato de la celda donde vamos a insertar el tiempo de la reunión. Para ello, damos clic derecho sobre la celda A2 y abrimos la ventana de Formato de celda:

En la pestaña Número seleccionamos la categoría Personalizada y en el espacio de Tipo agregamos el siguiente texto: h:mm:ss

Damos aceptar y ahora coloquemos un tiempo de 5 segundos de prueba:

Ahora debemos crear la macro, para ello aplicamos la combinación de teclas Alt + F11 para abrir el editor de visual Basic. En el panel de explorador de proyectos ubicamos el libro de trabajo e insertamos un Módulo:

Damos doble clic en el Módulo desde el explorador de proyectos y pegamos el siguiente código:

Sub ProgramaCuentaRegresiva()

Dim CuentaRegresiva As Date

CuentaRegresiva = Now + TimeValue("00:00:01")

Application.OnTime CuentaRegresiva, "ProgramaCuenta"

End Sub

Sub ProgramaCuenta()

Dim Cuenta As Range

Set Cuenta = [A2]

Cuenta.Value = Cuenta.Value - TimeSerial(0, 0, 1)

If Cuenta <= 0 Then

MsgBox "Terminó el Conteo", vbExclamation, "Cuenta Regresiva"

Exit Sub

End If

Call ProgramaCuentaRegresiva

End Sub

Ahora volvemos a la hoja Excel, insertamos un cuadro y asignamos la macro ProgramaCuenta (Clic derecho sobre el cuadro y seleccionamos Asignar Macro):

Ya está listo, ahora solo queda dar clic y al finalizar el conteo aparece el siguiente mensaje:

MACRO DE CICLO

Ejemplos del ciclo For...Next

El siguiente ciclo se repite 10 veces:

Sub Ciclos()

Dim i As Integer

    For i = 1 To 10

        Cells(i, 1).Value = i

    Next i

    

End Sub

Tabla resultante después de ejecutar la macro anterior:

---

Macro para calcular la raíz cuadrada, el cuadrado y el cubo de los 10 primeros números enteros

El siguiente ciclo se repite 10 veces:

Sub Ciclos2()

Dim i As Integer

    For i = 1 To 10

        Cells(i, 1).Value = i

        Cells(i, 2).Value = i ^ (1 / 2)

        Cells(i, 3).Value = i ^ 2

        Cells(i, 4).Value = i ^ 3

    Next i

    

End Sub

Tabla resultante después de ejecutar la macro:

---

La siguiente macro identifica y escribe el nombre de las hojas de trabajo del libro activo

• Utiliza el objeto Sheets.Count (número de hojas del libro activo) para determinar el número de veces que se ejecutará el ciclo
• Utiliza el objeto Sheets(i).Name para identificar el nombre de la iésima página del libro

Sub nombreHojasTrabajo()

Dim i As Long

Dim nHojas As Long

Dim nombreHoja As String

    

    nHojas = Sheets.Count  'número de hojas de trabajo en el libro activo

   

    For i = 1 To nHojas

        nombreHoja = Sheets(i).Name 'nombre de la hoja de trabajo

        Debug.Print nombreHoja    'escribe el nombre de la hoja en la ventana del depurador

    Next i

    

End Sub

---

Cambiar el incremento en el ciclo

La siguiente macro cambia de color el fondo de las filas pares de las primeras 4 columnas.

El número de veces que se repite depende de el número de filas que tenga el rango de datos.

Sub Ciclos4()

Dim i As Integer

Dim UltimaFila As Long

    'Detecta la última fila del rango de datos en la hoja activa

    UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row

    'El siguiente ciclo cambia de color el fondo de las filas pares

    'de las primeras 4 columnas

    

    For i = 2 To UltimaFila Step 2 'incremento de dos en dos 2, 4, 6, ...)

        Cells(i, 1).Resize(1, 4).Interior.ColorIndex = 36

    Next i

    

End Sub

---

Tabla de trabajo original

Tabla resultante después de ejecutar la macro anterior.

---

Sub Ciclos5()

'Escribe el texto "Mayor que cero" a la derecha

'de la columna de trabajo

'

Dim UltimaFila As Integer

Dim ColumnaTrabajo

Dim i As Integer

    ColumnaTrabajo = 3

    'Detecta la última fila del rango de datos en la hoja activa

    UltimaFila = Cells(Rows.Count, ColumnaTrabajo).End(xlUp).Row

    

    For i = 1 To UltimaFila

    

        If Cells(i, ColumnaTrabajo).Value > 0 Then

            Cells(i, ColumnaTrabajo + 1).Value = "Mayor que cero"

        End If

        

    Next i

    

End Sub

Tabla de trabajo original:

Después de ejecutar la macro:

---

Ciclos dentro de ciclos

La siguiente macro utiliza ciclos anidados para para crear una tabla de multiplicar

• la variable i controla el número de la fila
• la variable j controla el número de la columna

Sub Ciclos()

Dim i As Integer

Dim j As Integer

    For i = 1 To 10  'control de filas

        For j = 1 To 5 'control de columnas

            Cells(i, j).Value = i * j   'en la intersección de la fila y se columna se efectúa la multiplicación

        Next j

    Next i

    

End Sub

Tabla resultante de multiplicar después de ejecutar la macro:

ARTE GOTICO
Arte gótico es la denominación del estilo artístico que se desarrolló en Europa occidental durante los últimos siglos de la Edad Media, desde mediados del siglo XII hasta la implantación del Renacimiento (siglo XV para Italia), y bien entrado el siglo XVI en los lugares donde el Gótico pervivió más tiempo. Se trata de un amplio periodo artístico, que surge en el norte de Francia y se expande por todo Occidente. Según los países y las regiones se desarrolla en momentos cronológicos diversos, ofreciendo en su amplio desarrollo diferenciaciones profundas: más puro en Francia (siendo bien distinto el de París y el de Provenza), más horizontal y cercano a la tradición clásica en Italia (aunque al norte se acoge uno de los ejemplos más paradigmáticos, como la catedral de Milán), con peculiaridades locales en Flandes, Alemania, Inglaterra y España.

ARTE MODERNO

Arte moderno es un término propio de distintos ámbitos del mundo del arte (la historiografía del arte, la estética y teoría del arte y el mercado de arte), que pretende diferenciar una parte de la producción artística, que se identificaría con un determinado concepto de modernidad por oposición al denominado arte académico. Este representaría la tradición; mientras que el arte moderno representaría la experimentación.

Las expresiones "arte moderno" y "arte contemporáneo" se utilizan muy a menudo de forma totalmente intercambiable, incluso en la bibliografía especializada³ y el entorno institucional (museos y universidades);⁴mientras que en otras ocasiones, en los mismos ámbitos, se utilizan en oposición, reservando para el "arte moderno" un periodo indefinido, que puede ir desde distintos momentos del siglo XIX hasta distintos momentos del siglo XX.

aprenderemos de excel

ARTE ABSTRACTO

Abstraccionismo es un concepto general, opuesto al concepto de arte figurativo, que remite a lo más esencial del arte, reducido a sus aspectos cromáticos, formales y estructurales. La abstracción acentúa las formas, abstrayéndolas, alejándolas de la imitación o reproducción fiel o verosímil de lo natural; rechaza cualquier forma de copia de cualquier modelo exterior a la conciencia del artista.

Piet Mondrian fue evolucionando su lenguaje abstracto, de líneas horizontales y verticales con rectángulos de color, entre 1915 y 1919, el neoplasticismo fue la estética que Mondrian, Theo van Doesburg y otros del grupo De Stijl pretendían reformar el medio del futuro. En Italia el futurismo, mezclado con la influencia Bauhaus, guio el camino hacia un arte abstracto con una paleta de color distintivamente cálida como en las obras de Manlio Rho y Mario Radice.