............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Ir abajo

Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Deivid el Miér Feb 20, 2008 12:52 pm

Hola que tal. En primer lugar me presento. Mi nombre es Deivid y estoy encantado de entrar en este foro del Sr Galileo.
Bueno mi pregunta es un poco compleja!! Necesito que dados unos checkbox y segun la hora del sistema, estos checkbox desaparezcan de mi hoja y vuelvan a aparecer segun otra hora del sistema. Por ej, Cuando lleguen las 14h (del sistema) desaparezcan los checkbox y cuando sean las 22h, vuelvan a aparecer. Una salvedad... y aquí viene el reto. No se puede utilizar una macro para hacer desaparecer y aparecer los chekbox....

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por GalileoGali el Miér Feb 20, 2008 7:06 pm

Sin macros desconozco solucion, quedo al aguardo de alguna.
Ahora bien si se aceptan Macros.
1) Supongo un Checkbox1 en Hoja 1
2) La actualización para hacerlo sencillo la ato al evento apertura del Libro
(habria casos ciertamente mas complejos de actualizacion, via OnTime o Timer

Código:

Private Sub Workbook_Open()
Dim tope1 As Double, tope2 As Double, vigente As Double

tope1 = 22 / 24
tope2 = 14 / 24
vigente = Now - Date

With Hoja1.CheckBox1
    If vigente >= tope1 Or vigente < tope2 Then
    .Visible = True
    Else
    .Visible = False
    End If
End With
End Sub


DESCARGA DE ARCHIVO


Última edición por GalileoGali el Mar Abr 15, 2008 7:25 pm, editado 2 veces

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Deivid el Jue Feb 21, 2008 2:21 am

Que significan estos comandos via On Time o Timer Galileo?Por ej,.?
Se agradece la macro.

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por GalileoGali el Jue Feb 21, 2008 6:02 pm

Ver adjunto donde corre esta macro:
Código:
Sub CARGARTINTAS()
Static TEMPO As Integer 'simplemente para mostrar los avances de ALERTA1,2,3,4,5,,,,,N
Static TOPE As Double  'GUARDA la definicion de tiempo para relanzar la macro.


If [A1] = "ON" Then  ' SI change encuentra "ON",  carga "OnTime"
TOPE = Now + TimeValue("00:00:15")    ' 15 seg desde ahora

Application.OnTime TOPE, "Hoja1.CARGARTINTAS"  ' Setea Ontime para ordenar la macro al TOPE
Else    'si OFF descarga ONTIME

On Error Resume Next      'Recurso ante el error (bug) que producía OnTime, acudi a este recurso que SI funciona.
Application.OnTime EarliestTime:=TOPE, Procedure:="Hoja1.CARGARTINTAS", Schedule:=False
On Error GoTo 0
Exit Sub
End If
Range("C5") = "ALERTA " & TEMPO + 1
TEMPO = TEMPO + 1

End Sub
Código:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
If Target.Value = "ON" Then Hoja1.CARGARTINTAS

End Sub

Colocar en Modulo de Hoja1, en A1 validacion tipo lista "ON", "OFF", COMBINAR CELDAS EN "C5:I6"

DESCARGA ARCHIVO

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.