Cargar un complemento Excel al abrir

Cargar un complemento Excel para un único libro

Abra un libro ...guárdelo como .xlsm (libro habilitado para macros)

Presione Alt + F11 para ver el Editor de VBA.

Haga doble clic en el objeto "Thisworkbook" en el Explorador de proyectos.

Coloque las siguientes macros en la ventana de código:

Ubique el evento Workbook_BeforeClose y coloque el siguiente código…para que el add-in se desinstale cuando cierras Excel.

Private Sub Workbook_BeforeClose ()

    AddIns ("NombreDeTuAddin"). Installed = False

End Sub

Ahora ubica el evento Workbook_Open y coloque el siguiente código…para que el add-in se instale al abrir el libro.

Private Sub Workbook_Open ()

    AddIns (NombreDeTuAddin"). Installed = True

End Sub

.

Cierre el Editor de VBA.

Guarde su libro xlsm (libro habilitado para macros)

Excel VBA: Rangos en Excel

'Mediante las siguientes instrucciones podrá manipular y seleccionar rangos en Excel

Sub rangos_excel_vba()

'seleccionar celdas

'celda a1 o 1,1

'A1 con la direccion de la celda
Range("A1").Select

'A1..haciendo referencia a la posicion fila,columna
Cells(1, 1).Select

'Seleccionar columna entera
Range("A:A").Select

Range("A4:A10,D10,F5:F16").Select
Range("A4:A10,D10,F5:F16").Interior.ColorIndex = 9

'columna discontinua
Range("A:A, D:M").Select

'fila entera
Range("5:5").Select

'filas discontinuas
Range("1:1, 3:10").Select


End Sub

Excel VBA: Operaciones con el objeto Application Excel

'Mediante las siguientes instrucciones podras operar con el objeto aplicación de Excel

'El nombre del usuario de Excel
?Application.UserName
Jesus


'La ruta de Excel
?Application.Path
D:\AppData_temporal\Win7\Office2016_64\Office16


'Procesar un string con evaluate
?Application.Evaluate("55+88")


'Contar los Addins instalados
?Application.AddIns.Count
 4


'Contar los ComAddins instalados
?Application.COMAddIns.Count
 12


'Verificar el tipo de calculo ..manual o auto,etc
?Application.Calculation
-4105


'verificar la actualizacion de pantalla
?Application.ScreenUpdating
Verdadero


'la ruta por defecto de las plantillas
?Application.TemplatesPath
C:\Users\Jesus\AppData\Roaming\Microsoft\Plantillas\


'la ruta por defecto de complementos
?Application.UserLibraryPath
C:\Users\Jesus\AppData\Roaming\Microsoft\Complementos\


'nombre de la aplicacion
?Application.Name
Microsoft Excel


'Separador de rutas como C:\...D:\,etc
?Application.PathSeparator
\

'La version de Excel ...en este caso Excel 2016
?Application.Version
16.0

'El sistema operativo---y si es de 32 o 64 bits
?Application.OperatingSystem
Windows (64-bit) NT 6.01