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

Question

试图弄清楚这是否可能：

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

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

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

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

因此，单元格 B1 在显示 2013 年 6 月 5 日时将以“日期”格式结束。

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)一个单元格。将此单元格设置为日期格式，然后将此公式复制到右侧。