Excel VBA Format Zelle als benutzerdefinierte "h"

Question

Ich habe eine Zelle mit einem Zeitwert als 1:23:45 Uhr und möchte nur den Stundenwert anzeigen oder für andere Berechnungen verwenden. Müssen Sie dies mit VBA tun. Nein, ich kann die Spalte nicht manuell formatieren.

Danke, Sam

Answer 1

Ich bin nicht sicher, ob Ihr Handy ein Zeitfeld ist oder nicht. Wenn ja, können Sie Folgendes tun?

dim h as integer 
h = Hour(Cell(1,1)) 

Answer 2

VBA zu verwenden, um die Zelle zu formatieren, um nur die Stunde anzuzeigen:

With Worksheets("Sheet1").Cells(1, 1) 
    .NumberFormat = "H" 
End With 

den Stundenwert in VBA zu lesen (unabhängig davon, wie die Zelle formatiert ist):

Dim hourValue As Integer 

With Worksheets("Sheet1").Cells(1, 1) 
    If (IsDate(Format(.Value, "hh:mm:ss"))) Then 
     hourValue = Hour(.Value) 
    Else 
     // handle the error 
    End If 
End With 

Wenn Sie den angezeigten Wert im Code verwenden möchten, ohne die Konvertierung in VBA auszuführen, verwenden Sie die -Eigenschaft der Zelle (Range) anstelle der Value Eigentum. Sie müssen sicher sein müssen, dass die Zelle zuerst richtig formatiert ist:

Dim hourValue As Integer 

With Worksheets("Sheet1").Cells(1, 1) 
    If ((.NumberFormat = "H") And _ 
      (IsDate(Format(.Value, "hh:mm:ss")))) Then 
     hourValue = CInt(.Text) 
    Else 
     // handle the error 
    End If 
End With 

Wenn Sie nur den Stundenwert in einem Arbeitsblatt Formel verwenden Sie dann die HOUR() Tabellenfunktion verwenden möchten - zum Beispiel =HOUR(A1)

Schließlich, wenn Sie nicht die Spalte manuell formatiert werden können, weil das Blatt geschützt ist, dann werden Sie nicht in der Lage sein, es in VBA formatiert werden entweder