捕获date的实际数值

嗨,我创build了一个可以创build一个简单的甘特图的macros。 我从我在网上find的一个手动过程中接受了这个。 在手动过程中,为了将图表设置为最低date,用户应该点击开始date并转到格式单元格,并将格式临时更改为常规,以便他可以看到真正的数值。 然后在图表中,他点击date并转到格式轴,在最小/固定字段中键入他在查看一般数据时看到的数字。 我已经尝试DataValue,但它只适用于date是文本,而不是一个真正的date。 另外我看到,我可以做ActiveChart.Axes(xlValue).MinimumScale = valuehere放在值。 但我不知道如何一旦我select与date单元格自动找出数字值,并把它放在一行。 我假设我以某种方式捕获这个数字,把它放在一个variables中,然后在上面的代码行中,我把variables放在“valuehere”的位置,但我不知道该怎么做。

尝试像这样:

 ValueHere = Format(ActiveCell.Value,"0") 

这也应该工作:

 valueHere = Range("A1").Value * 1