| | Post: 5.924 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
20/05/2020 10:22 | |
Ciao ho un problema con il formato data, questo è quello scritto nella cella
13/05/2020 00:30:39
ma vorrei vedere l'orario in questo modo
13/05/2020 00:30:30
cioè arrotondato alla mezzora
13/05/2020 00:31:00
anche se l'orario successivo sarebbe
13/05/2020 00:31:07
si può arrotondare l'orario a 30 minuti?
non ho mai bazzicato troppo con le ore
ma non vorrei inserire la data in una funzione del tipo
=ARROTONDA.MULTIPLO(B13498;"00:00:30")
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
|
20/05/2020 11:20 | |
>>>ma non vorrei inserire la data in una funzione del tipo
>>>=ARROTONDA.MULTIPLO(B13498;"00:00:30")
Premesso che dovrebbe essere =ARROTONDA.MULTIPLO(B13498;"00:30:00")
Formatto celle in DATA =14/3/12 13.30
Come la desideri?
Ps. Ho risposto in https://www.freeforumzone.com/d/11695032/Tavola-della-Verit%C3%A0/discussione.aspx, anche se forse non ho capito bene |
| | Post: 5.924 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
20/05/2020 12:00 | |
Ciao Si hai ragione il multiplo di 30 minuti non secondi come ho erroneamente riportato.
ma se trascino in basso mi riporta i minuti come si vede dall'immagine, vorrei che fosse o 00:00 oppure 00:30 cioè uno scarto di 30 minuti
Ciao By Sal
P.s. vado a dare un occhiata
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 2.319 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
20/05/2020 12:12 | |
ciao Sal
prova a vedere se in questo modo ti va bene
formato cella gg/mm/aaaa hh:mm
=ARROTONDA.MULTIPLO(ADESSO();30/1440)
nel tuo caso
=ARROTONDA.MULTIPLO(A1;30/1440)
19/05/2020 10:30 19/05/2020 10:30
19/05/2020 10:46 19/05/2020 11:00
19/05/2020 11:02 19/05/2020 11:00
19/05/2020 11:18 19/05/2020 11:30
19/05/2020 11:34 19/05/2020 11:30
19/05/2020 11:50 19/05/2020 12:00
19/05/2020 12:06 19/05/2020 12:00
19/05/2020 12:22 19/05/2020 12:30
19/05/2020 12:38 19/05/2020 12:30
19/05/2020 12:54 19/05/2020 13:00
19/05/2020 13:10 19/05/2020 13:00
19/05/2020 13:26 19/05/2020 13:30
19/05/2020 13:42 19/05/2020 13:30
19/05/2020 13:58 19/05/2020 14:00
19/05/2020 14:14 19/05/2020 14:00
19/05/2020 14:30 19/05/2020 14:30
19/05/2020 14:46 19/05/2020 15:00
19/05/2020 15:02 19/05/2020 15:00
19/05/2020 15:18 19/05/2020 15:30
19/05/2020 15:34 19/05/2020 15:30
19/05/2020 15:50 19/05/2020 16:00
Ciao da locate
excel 2007 / 13 |
|
20/05/2020 12:20 | |
Non dovrebbe farlo, arrotonda il "tempo minuti" da 15 a 45 in 30.
Da 45 a 15 in 0. Controlla bene i formatti |
| | Post: 5.925 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
21/05/2020 08:25 | |
Ciao Il problema è che non vorrei usare una formula ma solo il formato cella.
con una formula dovrei aggiungere una colonna d'appoggio.
mi sa che dovrei usare il VBA, cioè l'evento "Change" quando inserisco la data con l'orario mi aggiusta l'orario ad i 30 minuti o l'ora 00, secondo l'orario inserito.
ora ci ragiono un poco sopra.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 2.320 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
21/05/2020 10:49 | |
ciao Sal
quindi servirebbe una cosa del genere
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If IsDate(Target) Then
Cells(Target.Row, "A") = Application.MRound(Target, 30 / 1440)
Cells(Target.Row, "A").NumberFormat = "m/d/yyyy h:mm"
End If
End Sub
Ciao da locate
excel 2007 / 13 |
| | Post: 5.927 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
21/05/2020 15:16 | |
Ciao Grazie Silvano, l'ho dovuta modificare in
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If IsDate(Target) Then
Application.EnableEvents = False
Cells(Target.Row, "B") = Application.MRound(Target, 30 / 1440)
Cells(Target.Row, "B").NumberFormat = "mm/dd/yyyy hh:mm"
Application.EnableEvents = True
End If
End Sub
in quanto mi andava in Loop, modificando la cella ritornava ad avviare Change.
ciao e grazie ho risolto il Problema
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
|