捕获日期的实际数字值

时间:2013-07-01 22:55:26

标签: excel vba date charts

,HI, 我创建了一个宏,它将创建一个简单的甘特图。我从网上找到的手动过程中得到了这个。在手动过程中,为了将图表设置为最低日期,用户应该单击开始日期并转到“格式化单元格”,并临时将格式更改为“常规”,以便他可以看到实际数值。然后在图表中,他点击日期并转到格式轴,在最小/固定字段中,他键入了他在查看常规数据时看到的数字。 我已经尝试过DataValue但它只在日期是文本而不是真正的日期时才有效。我也看到我可以ActiveChart.Axes(xlValue).MinimumScale = valuehere来放入价值。但是我无法弄清楚一旦我选择了带有日期的单元格来自动找出数字值并将其放入行中。我假设我以某种方式捕获数字,将它放在变量中,然后在上面的代码行中我将变量放在“valuehere”的位置,但我无法弄清楚如何做到这一点。

2 个答案:

答案 0 :(得分:1)

尝试类似:

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

答案 1 :(得分:1)

这也应该有效:

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