Question

我记录了这个宏，以便根据需要格式化日期时间列。我使用了相对引用。现在，当我选择整个数据范围时，我运行它，但它只适用于第一个单元格。有没有办法改变以作为范围运行？

 Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveCell.FormulaR1C1 = "6/26/2017 16:39"
    ActiveCell.Select
    Selection.NumberFormat = "h:mm:ss AM/PM"
End Sub

Answer 1

这是迭代选择的好方法。

Sub Macro3()

    Dim rngCell as Range

    for each rngCell in Selection
        rngCell = Now       
        rngCell.NumberFormat = "h:mm:ss AM/PM"  
    next rngCell

End Sub

您无需选择子项（ActiveCell）即可格式化它们。

如何使这个宏运行范围？

1 个答案: