Pielāgotu datu etiķešu iestatīšana diagrammā

Izmantojot tālāk norādīto VBA (Visual Basic for Applications) procedūru, šūnu vērtības varēs izmantot kā datu etiķetes jūsu Excel darbam ar Mac. Lai izmantotu šo procedūru, rīkojieties šādi:

1. Programmā Excel noklikšķiniet uz Rīki > vai > Ierakstīt jaunu makro.

2. Nolaižamajā lodziņā Saglabāt makro šeit: atlasiet Personiskā makro darbgrāmata.

   Piezīme.: Saglabājot VBA procedūru personiskajā makro darbgrāmatā, varat to izmantot jebkurā Excel gadījumā. Tas nozīmē, ka tas nav tikai izmantojams vienā darbgrāmatā.

3. Nospiediet Labi.

4. Dodieties uz sadaļu Rīki> makro > Pārtraukt ierakstīšanu.

5. Dodieties uz Rīku > Visual Basic> Visual Basic.

6. Visual Basic redaktors (VBE) tiks atvērts virs programmas Excel. Navigācijas rūtī kreisajā pusē izvērsiet VBA projektu (PERSONAL). XLSB), lai parādītu Modulis1.

7. Veiciet dubultklikšķi uz Modulis1 , lai parādītu koda rūti, kas tiks atvērta VBE loga labajā pusē.

8. Nav nepieciešams VBA kods, kas tika izveidots, kad ierakstījāt jaunu makro, tāpēc atlasiet to visu un pēc tam nospiediet taustiņu Delete. 

9. Pēc tam zemāk tekstlodziņā atlasiet VBA kodu, nospiediet taustiņu kombināciju CMD+C, lai to kopētu, un pēc tam ielīmējiet to atpakaļ kodu rūtī, izmantojot CMD+V. Tagad varat iziet no Visual Basic redaktora un atgriezties programmā Excel.

10. Pārbaudiet makro, izveidojot diagrammu ar datu etiķetēm. Pēc tam atlasiet jebkuru datu etiķeti diagrammā un izpildiet makro, noklikšķinot uz Rīki un >makro > makro. Atlasiet SetCustomDataLabels un pēc tam nospiediet palaist. Jums automātiski tiks piedāvāts atlasīt datu etiķešu diapazonu. Tad nospiediet Labi.  

    Piezīme.: VBA procedūras nevar atsaukt, tāpēc mēģiniet to izdarīt darbgrāmatas kopijā. Ja izpildāt kodu un nevēlaties saglabāt rezultātus, darbgrāmata ir jāaizver, to nesaglabājot.

11. Kad esat beidzis darbu ar programmu Excel, noteikti izvēlieties saglabāt izmaiņas personiskajā versijā. XLSB, lai makro būtu pieejams nākotnē.

12. Ja vēlaties pievienot vai noņemt datu etiķetes no diagrammas, atlasiet datu etiķetes un izpildiet makro.

13. Varat izmantot Excel > Preferences > lentē &, lai pievienotu pogu un izpildītu makro no lentes vai rīkjoslas.

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