vba - 将月份名称(法语)转换为月份编号

Question

我有一个 Excel，其中每个月都会创建一个名为 kpi_monthname 的工作表，其中月份名称包含该月的前 3 个字符。就像 5 月一样，它显示为 kpi_mai 或 4 月它显示为 kpi_avr。月份名称是法语。我想取这个月份的名称并将其转换为月份编号。如果月份名称是英文，我有此转换的代码，但对于法语，它显示错误。

请让我知道我是否可以在创建月份时将月份名称转换为英文，或将月份名称(以法语显示)转换为月份编号。任何一种解决方案都对我有用。

当为当月创建新工作表时，请找到以下代码:

 premier_jour = DateSerial(Year(Date), Month(Date), 1)
 dernier_jour = DateSerial(Year(Date), Month(Date) + 1, 1)
 deb_period_curr = Format(premier_jour, "mmm")

 With ThisWorkbook
    .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "analysis_kpi " & deb_period_curr
 End With

要将月份名称转换为月份编号，请找到以下代码:

 month_nam = Right(worksheet1.Name, 4)
 month_num = Evaluate("=MONTH(1&" & Chr(34) & month_nam & Chr(34) & ")")
 month_num = WorksheetFunction.Text(month_num, "00")

Answer 1

Please let me know if I can convert the month name to English, when it is being created

这很容易，将月份名称更改为英语(或其他语言)替换:

deb_period_curr = Format(premier_jour, "mmm")

使用(前 3 个字母):

deb_period_curr = WorksheetFunction.Text(premier_jour, "[$-409]mmm")

或(全名):

deb_period_curr = WorksheetFunction.Text(premier_jour, "[$-409]mmmm")

TEXT公式支持国家代码。 409 是美国英语，但您可以找到语言列表和更多信息 here .

要获得 2 位数的月份编号，您可以使用例如:

deb_period_curr = Format(premier_jour, "mm")