Excel 2010：更改今天日期快捷方式格式的默认格式答案

【问题标题】：Excel 2010: Change default format of today's date shortcut formatExcel 2010：更改今天日期快捷方式格式的默认格式
【发布时间】：2016-10-21 17:03:22
【问题描述】：

问题：如何使用 Excel 快捷键 [Ctrl] + [;] 更改默认日期格式？换句话说，“在光标位置插入今天的日期为 dd-MMM-yyyy”解决方案。

目前设置为 dd-mm-yy。

我使用的是 Windows 7 企业版 (SP1)。

原因：我希望它是 dd-MMM-yyyy，因为这是公司标准。我经常在带有其他文本的单元格中使用此快捷方式，因此单元格日期格式不可行。

例子：

到目前为止尝试过：我在控制面板 -> 区域和语言中将“短日期”设置为 dd-MMM-yyyy，所以这显然不是定义格式的地方。

PS：这是我在 stackoverflow 上的第一篇文章。如果我应该以不同的方式编写/组织这篇文章，请以尊重的方式告诉我。

【问题讨论】：

您可以编写使用相同快捷方式覆盖标准的 vba 代码。
您使用的是什么版本的 Windows？？
我使用的是 Windows 7。很抱歉漏掉了。
您需要查看正则表达式以提取并替换所需格式的文本。试着自己写。您的问题最初足够具体，以至于一行代码可以回答它，现在您要求某人为您编写相当复杂的代码。这不是 Stack Overflow 的用途。
感谢您提示前进的方向。我的问题总是一样的，我只是简单地阐述了它，因为有几个人误解了我的问题。我不知道这是一个如此复杂的代码，因为我的编程知识非常低。我知道 Stack Overflow 不适用于请求大而复杂的代码。

标签： excel date excel-2010 keyboard-shortcuts date-formatting

【解决方案1】：

您需要从控制面板修复您的语言和区域设置：

到达那里因 Windows 版本而异。

【讨论】：

我已经这样做了。我将短日期更改为 dd-MMM-yyyy。 Excel 中的结果仍然是 dd-mm-yy。
@MichaelKristensen 你重启电脑了吗？？
几个月前我更改了 Short date 以解决这个小问题，并从那以后多次重新启动计算机。由于周五工作缓慢，我现在只是单独尝试一下 :-) 我可以尝试重新开始吗？
@MichaelKristensen 是的......这对我很感兴趣............ 如果你发现一个问题，请更新这个问题回答

【解决方案2】：

Scott 的建议很好。这对我有用：

编辑

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Len(Target) <= 10 Then
    Target.NumberFormat = "dd-mmm-yyyy"
Else
    Target = Replace(Target, Date, Format(Date, "dd-mmm-yyyy"))
End If
Application.EnableEvents = True
End Sub

将上述代码放入Worksheet对象中

【讨论】：

感谢您编写代码。但是，我在单元格中使用快捷方式。所以我写了这样的东西：“2016 年 10 月 21 日，迈克尔：决定 XYZ。
*在一个单元格中与其他文本一起。我在同一个单元格中编写了多个更新，每个更新都以日期作为行的第一部分。
是否可以在 Excel 中编写“将今天的日期打印为光标处的 dd-MMM-yyyy”，类似于在 Word 中，[link]stackoverflow.com/questions/36778442/…。
@MichaelKristensen 我更改了代码以更改中间文本。但它只适用于当前日期。