在VBA中绘制对数刻度，但零值

Question

我有一个问题，可能没有一个好的解决方案，但我不妨试试。

我有地块，我需要使用日志规模来正确可视化数据。但是，由于我的限制（也是plottet）可以包含0个值，所以Excel出错了，这是有道理的。由于绘图仅用于视觉比较，我可以绘制fx 0.000000001而不是零。有没有办法将If语句添加到下面的导入代码中？零值将出现在y值中。

ActiveSheet.ChartObjects("Chart1").Activate 

ActiveChart.SeriesCollection.NewSeries 
ActiveChart.FullSeriesCollection(1).Name = "LSL" 
ActiveChart.FullSeriesCollection(1).XValues = "=Data!$B$7:$F$7" 
ActiveChart.FullSeriesCollection(1).Values = "=Data!$B$9:$F$9" 

我所有的数据转移到一个不同的表，并从那里零的和进口变换，但我非常希望避免这种情况。

希望有人知道一个解决方案。

问候 朗尼

Answer 1

，你可以通过一系列循环，使图表之前编辑值。

Dim rng As Range 
Dim cell As Range 

Set rng = Range("B7:F7") ' change to your range 
For Each cell In rng 
    If cell.Value = 0 Then 
     cell.Value = 0.0000001 
    End If 
Next cell 


ActiveSheet.ChartObjects("Chart1").Activate 

ActiveChart.SeriesCollection.NewSeries 
ActiveChart.FullSeriesCollection(1).Name = "LSL" 
ActiveChart.FullSeriesCollection(1).XValues = "=Data!$B$7:$F$7" 
ActiveChart.FullSeriesCollection(1).Values = "=Data!$B$9:$F$9" 

代码完成后，这是结果。