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

【问题标题】：How to convert given formula to VBA code如何将给定的公式转换为 VBA 代码
【发布时间】：2015-09-17 09:47:19
【问题描述】：

我从 Ron Ronsfield 对"In excel, date shows as mdyyyy, want as mm-dd-yyyy" 的回答中得到了一个公式

公式为：

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

我能够将bodge 这个公式转换为我的宏的以下代码：

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

        a = a + 1
    Wend

我尝试了几种方法将其转换为代码，该代码仅打印我的 excel 的答案，不插入公式，但要知道是否有用。

我想知道是否有人对如何将其写入代码有任何建议？

【问题讨论】：

标签： vba excel date

【解决方案1】：

将日期值直接放在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

【讨论】：