Diagrammi kohandatud andmesiltide seadmine

Järgmine VBA -protseduur (Visual Basic for Applications) võimaldab excel for Maci diagrammides kasutada lahtriväärtusi andmesiltidena. Toimingu kasutamiseks tehke järgmist.

1. Klõpsake Excelis menüüd Tööriistad > Makrod > Salvesta uus makro.

2. Valige ripploendist Salvesta makro asukohas väärtus Eramakrode töövihik.

   Märkus.: Salvestades VBA protseduuri eramakrode töövihikusse, saate seda kasutada mis tahes Exceli eksemplaris. See tähendab, et see ei piirdu ainult ühes töövihikus kasutamisega.

3. Klõpsake nuppu OK.

4. Valige Tööriistad makrode >> Lõpeta salvestamine.

5. Avage Visual Basic Editori> makrode > tööriistad.

6. Visual Basic Editor (VBE) avaneb Exceli kohal. Laiendage vasakpoolsel navigeerimispaanil jaotisT VBAProject (PERSONAL). XLSB) kausta, et kuvada moodul1.

7. Topeltklõpsake suvandit Moodul1 , et kuvada paan Kood, mis avaneb VBE akna paremas servas.

8. Uue makro salvestamisel loodud VBA-kood pole vajalik, valige see kõik ja vajutage kustutusklahvi (Delete). 

9. Järgmiseks valige alloleval tekstiväljal VBA-kood, vajutage selle kopeerimiseks klahvikombinatsiooni CMD+C ja kleepige see siis uuesti paanile Kood koos klahvikombinatsiooniga CMD+V. Nüüd saate Visual Basic Editorist väljuda ja naasta Excelisse.

10. Makro testimiseks looge andmesiltidega diagramm. Järgmiseks valige diagrammil mis tahes andmesilt ja käivitage makro, klõpsates nuppu Tööriistad > Makrod > Makrod. Valige SetCustomDataLabels ja seejärel vajutage nuppu Käivita. Teil palutakse automaatselt valida andmesiltide vahemik ja seejärel klõpsake nuppu OK.  

    Märkus.: VBA toiminguid ei saa tagasi võtta, seega proovige seda kindlasti töövihiku koopia puhul. Kui käivitate koodi ja ei soovi tulemusi säilitada, tuleb töövihik sulgeda ilma seda salvestamata.

11. Kui sulgete Exceli, veenduge, et valite muudatuste salvestamise kaustas PERSONAL. XLSB, et makro oleks tulevikus saadaval.

12. Iga kord, kui soovite diagrammi andmesilte lisada või eemaldada, valige andmesildid ja käivitage makro.

13. Lindilt või tööriistaribalt makro käivitamiseks nupu lisamiseks saate kasutada Excel > Preferences > Ribbon & Toolbar .

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub