Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 166 vistas

    Codigo Visual Basic For Application

    Cargado por

    Iovoglioeve Cimi
    Este documento describe el lenguaje de programación Visual Basic for Applications (VBA) que se usa para crear macros y aplicaciones en Microsoft Excel. Explica conceptos como módulos, subrutinas, formularios de usuario, validaciones de datos y más para automatizar tareas y personalizar Excel.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd

    Codigo Visual Basic For Application

    Cargado por

    Iovoglioeve Cimi
    166 vistas36 páginas
    Este documento describe el lenguaje de programación Visual Basic for Applications (VBA) que se usa para crear macros y aplicaciones en Microsoft Excel. Explica conceptos como módulos, subrutinas, formularios de usuario, validaciones de datos y más para automatizar tareas y personalizar Excel.

    Título original

    Codigo Visual Basic for Application

    Derechos de autor

    © Attribution Non-Commercial (BY-NC)

    Formatos disponibles

    PPTX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento describe el lenguaje de programación Visual Basic for Applications (VBA) que se usa para crear macros y aplicaciones en Microsoft Excel. Explica conceptos como módulos, subrutinas, formularios de usuario, validaciones de datos y más para automatizar tareas y personalizar Excel.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd
    Descargar como pptx, pdf o txt
    166 vistas36 páginas

    Codigo Visual Basic For Application

    Cargado por

    Iovoglioeve Cimi
    Este documento describe el lenguaje de programación Visual Basic for Applications (VBA) que se usa para crear macros y aplicaciones en Microsoft Excel. Explica conceptos como módulos, subrutinas, formularios de usuario, validaciones de datos y más para automatizar tareas y personalizar Excel.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd
    Descargar como pptx, pdf o txt
    Está en la página 1de 36

    CODIGO VISUAL BASIC FOR APPLICATION

    Lenguaje de programacin para aplicaciones en Excel

    Lenguaje de programacin
    Un lenguaje de programacin es un idioma artificial diseado para expresar computaciones que pueden ser llevadas a cabo por mquinas como las computadoras. Pueden usarse para crear programas que controlen el comportamiento fsico y lgico de una mquina.

    Entrar Alt + F11 Programador/ visual basic.

    Barra de proyecto u objetos

    Barra de Propiedades

    Mdulos
    Los mdulos contienen el cdigo visual de cada una de las macros creadas por los usuarios.

    Sub guardar()
    Range("E4,E6,E8").Select Range("E8").Activate Selection.Copy Sheets("Hoja2").Select Application.Goto Reference:="R1048576C3" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=True Sheets("Hoja1").Select Range("E4").Select Application.CutCopyMode = False

    End Sub

    Sub borrar() Range("E4").Select Selection.ClearContents Range("E6").Select Selection.ClearContents Range("E8").Select Selection.ClearContents Range("E4").Select End Sub

    Macro que pregunta si se desea guardar datos


    Sub SalirAplic() caja = MsgBox("Desea guardar datos", vbQuestion + vbYesNo, "Ultima pregunta) If caja = vbyes then Else Codigo End if

    Cdigo para evitar guardar en blanco


    If range(e4).value = "" Then MsgBox "Falta digitar informacion", vbCritical + vbOKOnly, "Incompleto" Else

    Para localizar la ltima celda de una lista


    Sub Final() While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Select Wend End Sub

    Macro que cierra Excel


    Sub Auto_Close() Application.Quit End Sub

    Evitar los movimientos de pantalla mientras se ejecuta una macro


    Al principio de la macro escribe despues del sub. Application.ScreenUpdating = False y al final antes del end sub Application.ScreenUpdating = True

    Abrir un libro existente:


    Sub AbrirLibro() Workbooks.Open ("C:\Mis documentos\Ejemplo.xls") End Sub

    Codigo de caja de pregunta


    caja = MsgBox("desea realizar este ingreso", vbQuestion + vbYesNo, "R.I.B") If caja = vbYes Then Codigo Else Codigo End if

    Userform
    Herramienta que permite crear un formulario. Insertar/ userform Para previsualizar un formulario presionamos la tecla F5.

    Cdigo para agregar datos a un combobox


    Doble clic en un espacio en blanco del formulario.
    OBJETO
    USERFORM

    PROCEDIMIENTO
    ACTIVATE

    ComboBox1.AddItem "CANINO"

    Copiar datos de formulario a una hoja de excel


    Sheets("Hoja3").Select Application.Goto Reference:="R1048576C3" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Value = TextBox1

    Cdigo Para borrar un textbox


    Textbox1.text = Combobox1.text = CheckBox1.Value = False

    Cdigo para mostrar un formulario

    Nombre_del_formulario.show

    Codigo para formulario de entrada


    Application.ScreenUpdating = False If (TextBox1.Text = "camaratulua") Or (TextBox1.Text = "CAMARATULUA") And (TextBox2.Value = "2244030") Then Sheets("inicio_web").Visible = True Unload Me Else ActiveWorkbook.Close False End If Application.ScreenUpdating = True

    Ejecutar aplicaciones al abrir excel


    Private Sub Workbook_Open() UserForm6.Show End Sub

    Sheets("DATOS").Select Application.Goto Reference:="R1048576C3" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Value = TextBox1

    Deshabilitar el botn de cerrar en formulario


    If CloseMode = 0 Then MsgBox "POR FAVOR USE EL BOTON SALIR QUE ESTA EN EL FORMULARIO", vbInformation, "BOTON NO DISPONIBLE" Cancel = 1 CloseMode = 1 Else End If

    Codigo para activar un buscarv


    Set rango = Worksheets(BD").Range(B4:P65536") answer = Application.WorksheetFunction.VLookup(Val(TextBox2), rango, 2, 0) TextBox2.Value = answer

    Set r = Worksheets("BD").Range("b4:p65536") Set myRange = r answer = Application.WorksheetFunction.VLookup(Val(TextBox2), myRange, 12, 0) If answer = "si" Then CheckBox1.Value = True Else CheckBox2.Value = true End If

    Cdigo que comprueba si un textbox esta vacio


    If (TextBox4.Value = Empty) Then MsgBox "DEBE ESPECIFICAR UN VALOR NUMERICO EN EL CAMPO NUMERO", vbOKOnly + vbInformation, "AUSENCIA DE VALOR" Else

    Codigo para guardar en formato numero un textbox


    val(TextBox27)

    Codigo para guardar en formato fecha un textbox


    Format(TextBox27, "dd-mmm-yyyy")

    ListBox1.List = Array("One", "Two", "Three", "Four") ComboBox1.List = Array("Red, "Yellow", "Blue")

    Cdigo para ocultar la ventana de Excel


    Application.Visible = False

    Codigo para llamar un formulario


    UserForm3.Show

    Cdigo para evitar guardar en blanco


    If TextBox2.Text = "" Or TextBox1.Text = "" Then MsgBox "Falta digitar informacion", vbCritical + vbOKOnly, "Incompleto" Else

    Codigo para comprobar si una cedula existe.


    Sheets("BD").Select Range("b2").Value = Val(TextBox2) If Range("b2").Text = Range("c2").Text Then MsgBox "Esta cedula ya existe", vbCritical + vbOKOnly, "System Plus" Else

    Evitar guardar celda en blanco

    If Range("e3").Value = Empty Then MsgBox "Falta digitar cedula", vbCritical + vbOKOnly, Incomple Else

    Evitar datos Principales duplicados


    If Range("e2").Text = Range("e3").Text Then MsgBox "Esta cedula ya existe", vbCritical + vbOKOnly, Informacin"

    If Range("e2").Text = Range("e3").Text Then

    MsgBox "Esta cedula ya existe", vbCritical + vbOKOnly, "FELICAN" Else caja = MsgBox("Desea Guardar estos datos", vbQuestion + vbYesNo, "EXCEL") If caja = vbYes Then

    También podría gustarte