|
USANDO INFORMACIÓN CON UN TEXTBOX
Se puede buscar información con un Textbox programándolo de la siguiente forma:
Dibuje una Etiqueta, un Textbox y un Botón
de Comando y agregue el siguiente Código:
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Si te fijas incluí en la programación del Botón Buscar Ahoraque buscara lo que en el Textbox1 a la hora de Presionarse.
Este proceso viene en el Archivo Completo Macro2
TRABAJANDO CON EL ASISTENTE
El asistente es el personaje de Office que se activa para ayudarnos y una de las ventajas es que podemos Manipularlo, por ejemplo se le puede dar animación, Moverse, Hacer Preguntas, Etc.
A continuación se muestran algunos códigos del Asistente:
Este código permite hacer visible el ayudante o sea mostrarlo. Si deseas ocultarlo solo cambia la opción True por False.
Assistant.Visible = True
Este código permite Mover el Asistente a un nuevo lugar, solo cambia los valores numéricos y cambiara de posición.
Assistant.Move 430, 230
Este código permite activar un efecto de animación, cuando escribas el signo Igual después de Assistant.Animation = aparecerá un menú con diferentes efectos de animación
Assistant.Animation = msoAnimationListensToComputer
Este ejemplo permite crear un Nuevo Asistente para poderlo manipular con una pregunta y que tu contestes. La variable t guardara el valor de la respuesta, si el valor es -3 significa que es Si y por lo tanto borrara el renglón.
With Assistant.NewBalloon
.Text = "Deseas Borrar este Registro"
.Button = msoButtonSetYesNo
.Heading = "Advertencia"
t = .Show
End With
Ift = -3 Then
Assistant.Animation = msoAnimationEmptyTrash
Selection.EntireRow.Delete
End If
Este ejemplo viene en el archivo Macro2
Si deseas que siga saliendo esta guía solo escríbeme pidiendo que sigan saliendo ejemplos.
|
|
|
|
|
tutorial realizado por el Profesor Ramón Mendoza Ochoa
|
|