如何将给定的公式转换为VBA代码

我从罗恩·朗斯菲尔德（Ron Ronsfield）的回答中得到了一个公式： “在excel中，date显示为mdyyyy，希望为mm-dd-yyyy”

公式是：

=--TEXT(A1,"00\/00\/0000") 

我能够把这个公式转换成我的macros的以下代码：

 a = 1 While Range("A" & a) <> "" Range("M" & a) = "=--TEXT(" & Range("H" & a) & ",""00\/00\/0000"")" a = a + 1 Wend 

我已经尝试了几种方法将这个代码打印出来，只是为我的Excel打印一个答案，而不是插入一个公式，而是知道这个公式。

我想知道是否有人build议如何把这个代码？

Answer 1

将date值直接放在列M而不是公式中的等价物是：

 a = 1 While Range("A" & a) <> "" 'Range("M" & a) = "=--TEXT(" & Range("H" & a) & ",""00\/00\/0000"")" Range("M" & a) = CDate(Format(Range("H" & a), "00\/00\/0000")) a = a + 1 Wend