Objeos
Objetos: InputBox, MsgBox
InputBox y MsgBox: Ingresar datos y tener resspuesta
Véalo
aquí
Sub Main()
Dim strNombre As String
Dim strApellido As String
Dim strMsg As String
strNombre = InputBox("Ingrese su nombre:", "Datos Personales")
strApellido = InputBox("Ingrese su nombre:", "Datos Personales")
strMsg = "Bienvenido " & strNombre & " " & strApellido
MsgBox strMsg
End Sub
Mensaje: estructura simple
Véalo
aquí
Sub mensaje()
MsgBox "Texto del mensaje", vbOKOnly + vbInformation, "Titulo del
Mensaje"
End Sub
Mensaje: con avisos de opciones
Véalo
aquí
Sub pregunta()
intRespuesta = MsgBox("Desea terminar el proceso?", vbYesNo +
vbQuestion, "MsgBox como función")
If intRespuesta = vbYes Then
MsgBox ("guarde previamente la planilla") ' Terminar el proceso
Else
MsgBox ("guarde la planilla y luego salga del sistema") '
Continuar con el proceso
End If
End Sub
Mensaje: Redondeo de valores dentro del mensaje
Véalo
aquí
Sub redondeado()
Dim Fraccion As Single
Fraccion = 3.8
MsgBox "El número redondeado es: " & CInt(Fraccion), vbOKOnly,
"Ejemplo"
End Sub
Botones: barra de herramientas
Véalo
aquí
Sub Herramientas()
Dim EnMenu As CommandBar
Dim miboton As CommandBarButton
Dim micontrol As CommandBarControl
'estas son para los botones de la barra de herramientas o Standard
Set EnMenu = Application.CommandBars("Standard")
For Each miboton In EnMenu.Controls
On Error Resume Next
'para conocer los números de cada botón
MsgBox miboton.Caption & " - " & miboton.ID 'esto es para saber el
número de control
'If miboton.ID = 3 Then miboton.Enabled = False 'inhabilita el
botón de Guardar
'volverla a True antes de cerrar el libro
Next
Set EnMenu = Nothing
'estas son para las opciones del menú Edición
Set EnMenu = Application.CommandBars("Edit")
For Each micontrol In EnMenu.Controls
On Error Resume Next
'para conocer los números de cada opción del menú
MsgBox micontrol.Caption & " - " & micontrol.ID 'esto es para
saber el número de control
'If micontrol.ID = 19 Then micontrol.Enabled = false 'inhabilita
la opción Copiar
'volverla a True antes de cerrar el libro
Next
Set EnMenu = Nothing
End Sub
|
