VBA数字在Excel中格式化公式

Question

我希望这很简单，但我有一个vba脚本，可以自动填充工作簿中的公式。

是否可以使该公式的输出显示为mm/dd/yy？我在网上看到了这段代码，但无法使语法起作用Range("A1"(；dd/mm/yyyy"；

有什么想法吗？

Sub addFormulas()
With ThisWorkbook.Worksheets("Accounts")

.Cells(4, 5).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1).Formula = "=IF('Accounts'!A4  ="""","""",VLOOKUP('Accounts'!A4,'MC'!A:R,18,0))"
End With
End Sub

Answer 1

只需将数字格式应用于与公式相同的范围。

With ThisWorkbook.Worksheets("Accounts")
With .Cells(4, 5).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1)
.Formula = "=IF('Accounts'!A4  ="""","""",VLOOKUP('Accounts'!A4,'MC'!A:R,18,0))"
.NumberFormat = "dd/mm/yyyy"
End With
End With