使用Excel VBA的列的日期格式必须为dd.mm.yyyy

Question

我是Excel vba的新手。目前正在为内部目的创建宏，在该宏中我要操纵日期。

目前，我正在文本框中输入日期，然后使用已知函数“ cell.numberformat =“ dd.mm.yyyy””将其转换为所需格式的日期。

但是仍然按照本地设置显示日期，在编辑栏中说“ 11/22/2018”，而不是显示“ 22.11.2018”

问题，我们进一步将excel导入到SAP，因为它假定来自公式栏的日期格式，因此在我们的SAP系统中无法识别。

请让我们知道，有什么办法可以使列和公式栏中的日期格式相同。

Answer 1

Excel无法将日期格式dd.mm.yyyy识别为日期。因此，您必须将单元格的内容更改为日期的字符串表示形式。这将弄乱在这些日期上进行任何计算的任何公式（例如btweeen日期的天数等）。如果您想沿着这条路线走，那么此宏会将所有选定的单元格转换为具有所需公式的文本：

 Sub ConvertDates
 Dim r as range
 For each r in selection
      r.formula = format(r.value,"dd.mm.yyyy")
 next r
 end sub