Question

我编写了以下代码。我正在尝试将日期格式的一系列单元格更改为标签格式。我可以让Application.SendKeys在这个宏之外工作。我可以让宏来处理其他命令。要做一些简单的事情，我做错了，但我无法弄明白。不是超级VBA经验丰富。

Sub Step2()

    Do Until IsEmpty(ActiveCell.Value)
    Application.SendKeys ("{F2}")
    Application.SendKeys ("{Home}")
    Application.SendKeys ("{'}")
    Application.SendKeys ("{Enter}")
    Loop

End Sub

Answer 1

发送密钥不是最好的处理方式，因为它取决于重点。

而只是在代码中执行您想要的操作：

Sub Step2()
Dim rng As Range
For Each rng In Selection
    rng = "'" & rng.Text
Next rng
End Sub

这将附加所选的每个单元格，'位于显示的文本前面。

直到IsEmpty循环

1 个答案: