将代码存储在列中并使用它

Question

我有一个包含数据的列，例如year(date)或date-365。

如何将此文本用作代码，而不是文本？意思是，我希望能够做一些像

这样的事情

 me.ProjectName="ddddd " & MyColumnWithCode

并获取ddddd 2017或ddddd 10/21/2016

我以我能想到的各种方式做了google并且没有得到任何东西。

Answer 1

您可以使用：

Me.ProjectName="ddddd " & Eval(MyColumnWithCode)

但不是您现在的代码。它必须阅读：

Year(Date())
Date()-365

Answer 2

简单写一下

dddd = sheets("Sheet1").range("a1").value
me.ProjectName= str(ddddd) & MyColumnWithCode    'Str is used in case its a number