Excel VBA-調整為日期格式

Question

我在代碼中有一行：

.Range("D2").Resize(UBound(vef, 1), 1) = vef

vef是具有數據的數組。 我可以編輯此行，以便它以日期格式vef dd.mm.yyyy hh:mm:ss粘貼vef

Answer 1

那應該很容易。 您要做的就是在相同范圍內工作並更改單元格的數字格式。 請注意：粘貼的值沒有改變（並且數組中的值應該是日期）。 Excel應用格式，以便更改顯示內容，但不會丟失基礎信息。

如果您的數組中充滿了字符串，則需要先將它們轉換為Date。 Excel可以隱式執行此操作（例如，盡管原始值是日期，它也可以自動格式化它們），但最好進行顯式轉換。

對於您的代碼，請使用以下代碼：

With .Range("D2").Resize(UBound(vef, 1), 1)
    .Value = vef
    .Numberformat = "dd.mm.yyyy hh:mm:ss"
End With

最后，我只指出您的Ubound(vef, 1)僅在您的數組基於1時才有效。 如果基於0，則調整大小的范圍將偏離1。可用於查找數組中維的長度的公式為：

Length = (Ubound(Array, DimensionNumber) - LBound(Array, DimensionNumber)) + 1

因此，在您的情況下：

Length = (Ubound(vef, 1) - LBound(vef, 1)) + 1

祝好運！