在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" 

代碼完成後，這是結果。