如何用英语命名excel表

时间:2018-03-16 10:26:29

标签: excel vba excel-vba excel-formula excel-2010

我想用英文格式命名我的Excel表格。我的系统设置是德语,我不能改变它。我需要用英文获得上个月的名字。我使用下面的代码和公式。

我还尝试对一个单元格使用自定义日期设置,并将单元格值分配给工作表名称。但没有任何效果。帮帮我

Sub name()
ActiveSheet.Name = Format(DateAdd("M", -1, Now), "MMMM")
End Sub

Choose(MONTH(TODAY())-1, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

=TEXT(DATE(YEAR(TODAY());MONTH(TODAY())-1;DAY(TODAY()));"MMMM")

1 个答案:

答案 0 :(得分:5)

尝试

ActiveSheet.Name = Application.Text(DateAdd("M", -1, Now),"[$-409]MMMM") 

[$-409]强制使用英文名称作为日期和月份名称(但Format似乎忽略了它)。 见https://stackoverflow.com/a/899290/7599798