✅ So erstellen und zeigen Sie ein Diagramm in einer Zelle an

Inhaltsverzeichnis

Dies ist ein einfaches Tutorial zum Erstellen und Anzeigen eines Balkendiagramms in einer Zelle. eine Technik, die beim Erstellen von Managementberichten sehr gut funktioniert.

Schritte:

1. Geben Sie in Spalte A die Werte ein, die Sie anzeigen möchten, d. h. in Zelle A1 geben Sie den Wert 10 ein, in Zelle A2 20 usw.

2. Geben Sie in Spalte B1 folgende Formel ein: =REPT („n“, A1). Diese Formel weist Excel einfach an, den zwischen „ “ gespeicherten Wert durch die Zahl in Zelle A1 zu wiederholen.

3. Ändern Sie die Schriftart in „Wingdings“.

4. Siehe Beispiel 1 in der angehängten Excel-Datei.

5. Wenn Sie die Länge des Balkendiagramms verkürzen möchten, teilen Sie einfach „A1“ in der obigen Formel durch 10 oder durch eine beliebige Zahl, die am sinnvollsten ist. Die Formel würde beispielsweise so aussehen =REPT („n“, A1/10). Siehe Beispiel 2 in der angehängten Excel-Datei.

Es ist zu beachten, dass Sie durch Ändern des „n“ in der oben genannten Formel verschiedene Bilder anzeigen können. Zum Beispiel zeigt ein großes „J“ ein lächelndes Gesicht, während ein großes „L“ ein trauriges Gesicht anzeigt. Siehe Beispiel 3 in der angehängten Excel-Datei.

Umgang mit negativen Werten

Die obigen Formeln funktionieren gut, wenn Sie mit positiven Werten arbeiten. Wenn der Wert in Spalte A jedoch negativ ist, ändert sich das Diagramm in Spalte B in eine Zeichenfolge aus mehreren verschiedenen Symbolen, wodurch der gewünschte Effekt verloren geht (siehe Beispiel 4 in der beigefügten Tabelle).

Eine Möglichkeit, diese Einschränkung zu umgehen, ist eine IF-Anweisung wie:

=WENN(A21<0,REPT(“n”,ABS(A21/10)),REPT(“n”,A21/10))

Erklärung der obigen Formel:

1. Angenommen, der Wert, den Sie in einem Balkendiagramm anzeigen möchten, befindet sich in Zelle A21. Auch dieser Wert ist negativ.

2. Die Formel beginnt damit, dass wenn der Wert in A21 kleiner als 0 ist, also negativ ist, dann wiederholen Sie „n“ durch den Absolutwert (ABS) in Zelle A21 und teilen Sie diese Zahl dann durch 10. Mit dem Absolutwert sind Sie weisen Sie Excel an, das negative Vorzeichen zu ignorieren und die Zahl als positiven Wert zu behandeln.

3. Der nächste Teil der Formel teilt Excel mit, was zu tun ist, wenn der Wert größer als 0 ist.

4. Siehe Beispiel 4 in der beigefügten Datei.

Interessante Ergänzungen zu den obigen Ausführungen wären die Verwendung der bedingten Formatierung, um die Farbe des Diagramms in Rot für negative Werte und in Blau für positive Werte zu ändern. Lassen Sie sich von Ihrer Fantasie leiten!

Das folgende Tutorial beschreibt, wie Sie ein Diagramm in einer Zelle erstellen, wie sie in der Tabelle oben in der Spalte „Trend“ angezeigt wird.

Das Diagramm wird mit einer Funktion namens „CellChart“ erstellt. Sie würden sie in Excel wie jede andere Standardfunktion eingeben, d. h. SUMME, MITTELWERT oder SVERWEIS usw. Diese Funktion wird als "benutzerdefinierte Funktion" bezeichnet und ist keine Standardfunktion in Microsoft Excel. Es muss vom Benutzer mit VBA erstellt werden.

In Excel eingegeben sieht die CellChart-Funktion wie folgt aus:

Betrachtet man die CellChart-Funktion genauer, so wird im ersten Teil der Funktion der Bereich für das Diagramm definiert, im obigen Beispiel C3:F3. Als nächstes wird die Farbe des Diagramms definiert, 203 anhand des obigen Beispiels.

Jetzt zum VBA-Zeug

1. Rufen Sie das VBA-Projektfenster auf, indem Sie mit der rechten Maustaste auf einen Blattnamen klicken und „Code anzeigen“ auswählen oder indem Sie „ALT, F11“ auswählen.

2. Klicken Sie auf der rechten Seite mit der rechten Maustaste auf Ihren Projektnamen und wählen Sie „Modul“ aus.

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das soeben erstellte neue Modul ein:

'Erzeugt eine neue Funktion namens Cell Chart Function CellChart(Plots As Range, Color As Long) As String 'Definiert die Variablen, die später im Code verwendet werden Const cMargin = 2 Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Im Folgenden werden die für das Diagramm zu verwendenden Diagramme berechnet Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count If j = 0 Then j = i ElseIf Plots(, j) > Plots(, i) Then j = i End If if k = 0 Then k = i ElseIf Plots(, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete(rngSelect As Range) 'Definiert die Variablen, die später im Code verwendet werden Dim rng As Range, shp As Shape, blnDelete As Boolean For Each shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect) If Not rng . Nothing Then .Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Klicken Sie auf die Schaltfläche Speichern.

5. Klicken Sie oben rechts im Menü „Datei“ auf das kleine Excel-Symbol, um das VBA-Projektfenster zu verlassen und zu Excel zurückzukehren