Excel Forum Per condividere esperienze su Microsoft Excel

apre foglio1 se l'ora è tra A e B, altrimenti apre Foglio2

  • Messaggi
  • OFFLINE
    elioeco
    Post: 94
    Registrato il: 01/06/2016
    Città: PISA
    Età: 64
    Utente Junior
    2003
    00 20/09/2022 15:59
    Salve a tutti,
    rieccomi per un nuovo piccolo (per Voi, per me che sono una schiappa è enorme!!!) problema.
    Nel codice VBA di un file ho posto questa condizione:

    Dim Fer_Fes As Boolean, Orario As Boolean
    If Time >= 7 / 24 And Time <= 20 / 24 Then (se la condizione è vera, apre il Foglio1, altrimenti apre il Foglio2).

    sono quindi legato ad orari, diciamo così, interi: dalle 07 alle 20 apre il Foglio1; dopo le 20, fino alle 07 del mattino, aprirà il Foglio2.

    La mia domanda è questa: come posso scrivere gli orari tenendo presente anche dei minuti?
    Una cosa del tipo:

    If Time >= 6,56 / 24 And Time <= 19,51 / 24 Then....

    che però scritta così pare che se ne freghi dei minuti (infatti è come se avessi scritto 6 / 24 e 19 / 24).

    Magari la soluzione è stupida e probabilmente io lo sono ancor di più.

    Mi rimetto alla Vostra pazienza.
    Grazie.
    Elio



    [Modificato da elioeco 20/09/2022 16:02]
    EcoBand
  • OFFLINE
    federico460
    Post: 2.686
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 21/09/2022 15:35
    ciao
    If Time >= TimeSerial(15, 31, 0) And Time <= TimeSerial(15, 35, 0) Then
    Sheets("foglio1").Select
    Else
    Sheets("foglio2").Select
    End If
  • OFFLINE
    elioeco
    Post: 94
    Registrato il: 01/06/2016
    Città: PISA
    Età: 64
    Utente Junior
    2003
    10 22/09/2022 15:07
    Grazie Federico!!!
    In realtà avevo visto questa funzione (TimeSerial) ma non sapevo come utilizzarla e se era possibile associarla alla funzione Time.
    Caso risolto.
    Siete fantastici e sempre pronti ad aiutare!!!
    Grazie ancora.
    Elio
    EcoBand
  • 15MediaObject5,0013 1