Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
试图弄清楚这是否可能:
所有单元格均为“常规”格式。所以这都是字符串,我想。
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。这要死我了!
在模块中创建以下用户定义函数 (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)一个单元格。将此单元格设置为日期格式,然后将此公式复制到右侧。
=GetSheetDate(B1)