Vistas a la página totales

lunes, 25 de agosto de 2014

PARA LAS QUE LES CONVENGA

PARA LAS QUE LES CONVENGA


Private Sub CommandButton1_Click()
Hoja1.Select
Range("A:A").Select

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate





ActiveCell.Offset(0, 1).Select
TextBox2.Value = ActiveCell.Value


ActiveCell.Offset(0, 1).Select
TextBox3.Value = ActiveCell.Value


ActiveCell.Offset(0, 1).Select
TextBox4.Value = ActiveCell.Value


ActiveCell.Offset(0, 1).Select
TextBox5.Value = ActiveCell.Value





End Sub

miércoles, 30 de julio de 2014

NUEVO COMANDO PARA BUSQUEDA Y TRADUCTOR DE IMAGENES

Private Sub CommandButton1_Click()
Hoja1.Select
Range("A:A").Select
'estos comandos me encuentran la palabra en la columna A
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
'ESTE COMANDO ME CORRE UNA COLUMNA A LA DERECHA DE LA CELDA ACTIVA
ActiveCell.Offset(0, 1).Select
TextBox2.Value = ActiveCell.Value
On Error GoTo salida
Foto = TextBox1.Value
Image1.Picture = LoadPicture("C:\ESTUDIANTES\10a\ANIMALES\" & TextBox1.Value & ".jpg")
Exit Sub
salida:
MsgBox "No se encuentra el animal"
End Sub

lunes, 28 de julio de 2014

PARA FORMULARIO DE CONSULTA VBA EXCEL

Private Sub ComboBox1_Change()
If Sheets.Application <> "HOJA3" Then
Sheets("HOJA3").Select
End If
Range("A:A").Select
Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

jueves, 24 de julio de 2014

CUADRO MEDIDAS DE VOLUMEN - DIBUJARLO EN EL CUADERNO

Medidas de Volumen

PARA IMAGEN

Private Sub CommandButton1_Click()
On Error GoTo salida
foto = TextBox1.Value
Image1.Picture = LoadPicture("D:\FRUTAS\" & TextBox1.Value & ".jpg") 'CON ESTE COMANDO SE MUESTRA LA IMAGEN CORRESPONDIENTE AL TEXTBOX 1 DE LA CARPETA FRUTAS EN EL CUADRO IMAGEN1
Exit Sub
salida:
MsgBox "ha ocurrido algún error, revise el nombre de la FRUTA"
End Sub

miércoles, 9 de julio de 2014

CURSO SEXTO , DESEMPEÑOS TEMAS Y SUBTEMAS TERCER PERIODO

DESEMPEÑOS TEMAS Y SUBTEMAS TERCER PERIODO INFORMATICA


DOCENTE: CESAR DARIO VARGAS GONZALEZ
ÁREA: TECNOLOGIA E INFORMATICA
ASIGNATURA: INFORMATICA
GRADO: SEXTO
PERIODO ESCOLAR: TERCERO
COMPETENCIA: Formar mujeres líderes, calificadas y competentes en gestión contable y financiera, tecnología e informática; para que desde su trabajo cumpla una misión evangelizadora que contribuya a la construcción de una sociedad digna.
DESEMPEÑO: Utiliza funciones y accesorios de diseño en Microsoft Excel,  implementando su trabajo con responsabilidad e interés.


TEMAS Y SUBTEMAS:

Cambio de estructura
·  Alto de fila
·  Autoajustar
·  Ancho de columna
·  Autoajustar a la selección
·  Ancho estándar de columna
·  Ocultar hojas
·  Mostrar hojas ocultas
·  Cambiar el color de las etiquetas de las hojas
·  Insertar fila en una hoja

Informática: Excel básico: Formato de celdas.
·     Fuente
·     Alineación
·     Bordes
·     Rellenos
·     Números