Versuchen, ein dynamisches Diagramm zu machen, das leere Zellen ignoriert, die mit Formel IFBLANK

Question

erstellt werden Ich versuche, ein dynamisches Diagramm zu erstellen, das leere Zellen ignoriert, die mit Formel IFBLANK erstellt werden. Um die letzte Zeile zu finden, die ich gerade verwende .END (xlUp) .Row, aber weil die leeren Zellen aufgrund der Formel nicht wirklich leer sind, wird sie nicht ignoriert, wenn das Diagramm erstellt wird. Wie kann ich das Diagramm so machen, dass diese Zellen ignoriert werden? Das Diagramm wird in einem Blatt erstellt, in dem die Daten von einem anderen Blatt stammen.

Code:

Dim chtObj As ChartObject 

Dim Calculation As Worksheet 

lr = Worksheets("Calculation").Cells(Rows.Count, 1).End(xlUp).Row 
lc = Worksheets("Calculation").Cells(2, Columns.Count).End(xlToLeft).Column 
Set chtRng = Range(Cells(2, 1), Cells(lr, lc)) 

Set ChartArea = Range("b" & lr + 3 & ":j" & lr + 20) 
Worksheets("Calculation").Shapes.AddChart2(317, xlRadarMarkers).Select 
ActiveChart.SetSourceData Source:=chtRng 
Set chtObj = ActiveChart.Parent 


chtObj.Top = ChartArea.Top 
chtObj.Left = ChartArea.Left 
chtObj.Height = ChartArea.Height 
chtObj.Width = ChartArea.Width 

Bilder von Excel-Blatt:

IfBlank Formel:

Answer 1

Sie können alle Rohlinge aus dem Bereich auswählen, und dann das Diagramm plotten zu vermeiden dieses Problem.

PS: Betrachten Sie diese,

Sub test() 
    With ActiveSheet.ChartObjects.Add _ 
     (Left:=100, Width:=375, Top:=75, Height:=225) 
     .Chart.SetSourceData Source:=Sheets("Sheet1").Range(Range("D2").Value) 
     .Chart.ChartType = xlLine 
    End With 
End Sub 

Answer 2

Wählen Sie aus der Daten Wahl für Ihr Diagramm, können Sie auf die Handhabung von versteckten oder leere Zellen in Ihrem Diagramm gehen, wie solche Zellen zu wählen sind abgewickelt. Behebt das dein Problem?

Für Ihre Tabelle nur fortgesetzt, bis Sie auf eine Zelle kommen, die kein Raum ist, legen Sie den Code unterhalb der Zeile, wo Sie den Anfangswert von lr gesetzt:

Do While lr > 1 And Len(Trim(Worksheets("Calculation").Cells(lr, 1))) = 0 
    lr = lr - 1 
    Debug.Print lr 
Loop 

Wenn Du änderst die if-Anweisung, um "" anstelle von "" zurückzugeben, wenn es wahr ist, du wirst weder die Trim brauchen (um darüber nachzudenken, ich könnte auch nur mit 1 anstatt mit 0 verglichen werden).