Ändern Datentyp in Excel-VBA in Text

Der ursprüngliche Datentyp [h]: mm: ssÄndern Datentyp in Excel-VBA in Text

50:53:00

Ich möchte ähnliche

50h 53m

zu Text-Datentyp ändern Wie dies konvertieren in Excel-VBA?

Quelle

2016-06-30 Vito

wie 'Selection.Value = Application.Text (Selection.Value," [h] "" h "" mm "" m "" ")' ??? –

oh oder als Formel: '= TEXT (A1," [h] "" h "" mm "" m "" ")" –

Sie können es mit oder ohne VBA tun.

1.Without vba

die Zellen Set-Format custom: [hh] "h" mm "m"

2.With vba

Sub numberf() 

Dim ws As Worksheet 

Set ws = ThisWorkbook.Worksheets(1) 

ws.Range("F1").NumberFormat = "[hh]""h"" mm""m""" 


End Sub

Quelle

2016-06-30 06:38:57

Beide funktionieren. Danke – Vito

Könnten Sie es als Antwort markieren als: p, danke. –

Wie man als Antwort markiert? – Vito

Ich würde versuchen, eine benutzerdefinierte Funktion wie folgt aus:

Function ConvertToText(TimeValue As Double) As String 
    Hours = Int(TimeValue * 24) 
    Minutes = Int((TimeValue * 24 - Hours) * 60) 
    ConvertToText = Hours & "h " & Minutes & "m" 
End Function

ich die ursprünglichen Werte in einer Spalte setzen würde, die Formel in einem anderen verwenden und das Original ausblenden, wenn Sie nicht wollen, zeige es an.

Eine andere Option wäre, einen Bereich zu einem Sub zu geben, den Sub zu einer Schaltfläche zu verknüpfen und den Subcomputer durch jede Zelle in dem Bereich laufen zu lassen und die Änderungen vorzunehmen.

Quelle

2016-06-30 06:27:22 Gabor

die UDF ist nicht funktionsfähig. Ich verwende eine Zeichenfolge, um die Ausgabe zu speichern. Das Ergebnis ist nichts (NULL). – Vito

Sie sollten 'TimeValue' als Zahlenformat deklarieren oder zumindest' cdate' verwenden ... @vito pls überprüfen, ob das helfen würde –

mein ursprünglicher 'TimeValue' ist im Doppelformat. Dann gebe ich das direkt in die Funktion ein. – Vito

können Sie Führen Sie auch folgende Formatierung Ihrer Excel-Zelle durch:

h\h mm \m

Quelle

2016-06-30 08:45:07 eyeshield21

Ändern Datentyp in Excel-VBA in Text

Antwort

Verwandte Themen