如何使用单元格的标题和单元格中的文本创建具有正确日期的日期格式化单元格？

Question

试图弄清楚这是否可行：

所有单元格均为“常规”格式。所以我认为这都是字符串。

A1 =空白，B1 = 6，C1 = 7，D1 = 10，E1 = 11，F1 = 12，G1 = 13，H1 = 16等（注意序列中的空白）

工作表名称为“2013年5月”

我需要将第1行（A1除外）设置为日期格式（dd / mm / yy），显示从工作表名称和第1行中的月份日期汇总的日期。

因此，当显示6/5/13时，单元格B1将以“日期”格式结束。

TIA。这让我很伤心！

Answer 1

在模块中创建以下用户定义函数（UDF）：

Function GetSheetDate(rng As Range) As Date
    Dim dtTemp As Date

    dtTemp = DateValue(rng.Range("A1").Value & " " & rng.Parent.Name)
    GetSheetDate = dtTemp
End Function

然后在单元格中输入=GetSheetDate(B1)。将此单元格格式化为日期，然后将此公式复制到右侧。