Sector, orientado a las planillas de cálculos.
Excel, aplicaciones para todos, es un grupo de facebook con muchisimas app con macros totalmente libres y gratis.
Son de codigo abierto, se pueden usar y/o reformar a sus nesecidades.
Link www.facebook.com/groups/Excel.Aplicaciones.Para.Todos/
No se pueden publicar directamente en la web, ya que son app muy elaboradas, y con macros, y las mismas tienen un costo para publicarlas en esta web, y como ya saben, esta web es sin fines de lucro, asi que por tal motivo, todas las aplicaciones excel creadas por mi, estaran en ese grupo...
Leer más: https://stricker-ruben-dario.webnode.es/planillas-de-calculos/
Ejemplos de Macros
Ciclos dentro de Otros Ciclos
Código Macro
'Este código agrega ciclos dentro de otros ciclos...
'Ciclos dentro de ciclos
Sub Ciclos_Dentro_Ciclos()
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 5
...
———
Cierra Archivo Excel
Código Macro
'Este código cierra el archivo excel sin guardarlo...
Sub Cerrar_Archivo()
Workbooks.Close
End Sub
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea...
———
Colocar una Forma en una Posición Específica (shape)
Código Macro
'Este código es para colocar una forma en una posición específica (shape) ...
'Coloca la forma en la parte superior izquierda de la celda A1
Sub Posicion_Formas()
ActiveSheet.Shapes(1).Top = ActiveSheet.Range("A1").Top
...
———
Color de Fondo
Código Macro
'Este código cambia el color de fondo de toda la hoja...
Sub Color_Fondo()
If Cells.Interior.Color = vbBlack Then
Cells.Interior.Color = vbWhite
Else
Cells.Interior.Color = vbBlack
End If
End...
———
Color de Fondo 2
Código Macro
'Este código cambia el color de fondo de las celdas seleccionadas...
Sub Color_Fondo2()
If Selection.Interior.Color = vbBlack Then
Selection.Interior.Color = vbWhite
Else
Selection.Interior.Color =...
———
Color del Texto
Código Macro
'Este código cambia el color del texto de toda la hoja...
Sub Color_Texto()
If Cells.Font.Color = vbBlack Then
Cells.Font.Color = vbRed
Else
Cells.Font.Color = vbBlack
End If
End...
———
Color del Texto 2
Código Macro
'Este código cambia el color del texto de las celdas seleccionadas...
Sub Color_Texto2()
If Selection.Font.Color = vbBlack Then
Selection.Font.Color = vbRed
Else
Selection.Font.Color = vbBlack
End...
———
Contar Celdas con Datos
Código Macro
'Este código cuenta el número de celdas que contienen datos en un rango dado de celdas seleccionadas...
Sub Contar_Celdas_con_Datos()
Dim n As Integer
n = Application.WorksheetFunction.CountA(Selection)
MsgBox n & " celdas...
———
Contar Celdas en Blanco
Código Macro
'Este código cuenta el número de celdas en blanco en un rango dado de celdas seleccionadas...
Sub Contar_Celdas_Blanco()
Dim n As Integer
n = Application.WorksheetFunction.CountBlank(Selection)
MsgBox n & " celdas en blanco",...
———
Contar Columnas
Código Macro
'Este código cuenta el número de columnas de una selección...
Sub Contar_Columnas()
Dim Columnas As Double
Columnas = Selection.Columns.Count
MsgBox Columnas & " Columnas seleccionadas.", vbInformation, "Informacion:"
End...
