将文本框中的数字转换为vba语句的月份名称

Question

我有一个输入数字为月份的文本框（例如1月的“01”），但我需要的是实际的月份名称，而不是我的VBA语句中的数字。你能帮我把文本框中的数字转换为实际月份名称。

我曾尝试下面的语句，但它不工作：

Dim MoName As String 
MoName = Format(Month(Monthtxtbx.Text), "MMMM") 
Range("Cells(1,1):Cells(LastCol, Lastcolumn)").AutoFilter Field:=3, Criteria1:=MoName 

Answer 1

使用MoName = MonthName(Monthtxtbx.Text)获取月份名称。

---

或者，你可以笨蛋了一个日期，让你可以使用“MMMM”格式为：

MoName = Format(DateSerial(2000,Monthtxtbx.Text,1), "MMMM") 

但是这将是很长的路要走，以实现简单的东西。