我想在快速访问工具栏中添加一个按钮,自动将所选单元格格式化为日期。我一直在复制和粘贴日期,然后必须按CTRL-1并选择日期格式以使它们显示良好。
现在我考虑一下,我想像CTRL-SHIFT-1这样的快捷键自动执行此操作。
由于
答案 0 :(得分:0)
这是我用于此目的的一个宏:
Sub uDate()
Dim r As Range
For Each r In Selection
r.NumberFormat = "dddd, dd mmmm yyyy"
Next r
End Sub
当然,您可以修改日期格式以满足您的需求。